Qu'est-ce que ce langage?

Bonjour,

Depuis quelques temps on me fait bosser sur des scripts dont j'ignore le langage. Mes collègues ne savent pas non plus, ils disent que c'est du C++, mais je ne suis pas convaincu...

Voici un exemple de script:

@Call('LIB_CHEMIN','LIB\LIB_CHEMIN.BSL',&RTR,&DIR,'TP.txt',&FICH); 

{ // Connexion si on doit implémenter sur équipement }
@IF &CHOIX="SEND";
	@Call("LIB_EDIT","LIB\LIB_EDIT.BSL",&Systeme,"cible","OUI",&RTR); { en mode lecture - 'cible'}
@ENDIF;
&tab1=1;&i=0;
@SendWrite(&CHOIX,&RTR,"XXX",&FICH);
	@REPEAT;
		@ReadBuffer(&S);
		@IF @PosStr('XXX',&S)> 0;
			@ArrayStr(&tab1,20);
			@Split(&S," *",&tab1);
			@ReadStr(&tab1,9,&Routeur_distant);
			@ReadStr(&tab1,10,&Int_distante);
			@SendWrite(&CHOIX,&RTR,"conf t",&FICH);
			@SendWrite(&CHOIX,&RTR,"XXX",&FICH);
				@Winwrite(&Routeur_distant);
				@Winwrite(&Int_distante);
			@SendWrite(&CHOIX,&RTR,'description XXX  '&Routeur_distant' '&Int_distante,&FICH);
			@SendWrite(&CHOIX,&RTR,"exit",&FICH);
			@SendWrite(&CHOIX,&RTR,"exit",&FICH);
			&i=&i-1;
		@ENDIF;
	@UNTIL (&S = 'EOF');
@SendWrite(&CHOIX,&RTR,"wr mem",&FICH);
@Winwrite('etape 1 faite');
@Winwrite(&Routeur_distant);
@Disconnect(&RTR);

J'ai censuré par des XXX les trucs un peu sensibles.

Pouvez-vous svp me dire ce que c'est?

--
Paf d' Antafass // Contributeur CCM //
Un peu de respect bordel !!