W jakim języku programowania jest ten fragment kodu?

W jakim to jest języku napisane??

'Program MODUL     
$EVENT 	OFF
%True = -1
%False = 0
Koniec% = %False
DIM TabNast%(52)
DIM TabSily%(610),TbSily%(610)
DIM TabExte%(610),TbExte%(610)
                 'CALL TabliceWyn(WydMax%)
 CALL Komunikat
   ON ERROR GOTO trap:
   ON COM(1) GOSUB OdczytCOM1
     OPEN "COM1:9600,N,8,1" AS #1 LEN=4
     FIELD #1,2 AS sila$,2 AS exte$
     FIELD #1,2 AS nast$
CALL OdczytNastaw(KolRobo%,WspRobo%,KolPowr%,WspPowr%,ZakrTraw,WspRep%,ZakGl%,PopSi%,KalSily%,AttSi%,ZakEx%,PopEx%,KalExte%,AttEx%)
     COM(1) ON
       LSET nast$=MKI$(56):PUT #1,1   'wstepne ustawienie dzielnika szybkosci
       LSET nast$=MKI$(185):PUT #1,1
       LSET nast$=MKI$(186):PUT #1,1
       LSET nast$=MKI$(59):PUT #1,1
       LSET nast$=MKI$(60):PUT #1,1
       LSET nast$=MKI$(61):PUT #1,1
       LSET nast$=MKI$(62):PUT #1,1
       LSET nast$=MKI$(191):PUT #1,1  'MSB
       LSET nast$=MKI$(8):PUT #1,1                           'ustawienie bazy
       LSET nast$=MKI$(0):PUT #1,1                           'naped wylaczony
       LSET nast$=MKI$(138):PUT #1,1                           'stop trawersy
       LSET nast$=MKI$(132):PUT #1,1                      'polar rozciag.sily
       LSET nast$=MKI$(134):PUT #1,1                       'przekaznik normal
       LSET nast$=MKI$(133):PUT #1,1                      'polar rozciag.exte
     COM(1) OFF
   Przekl%=%False
 DO
 SCREEN 0
 COLOR 7,0
 CLS
  IF Przekl%=%True THEN
    SzybRobo=WspRobo%/100
    SzybPowr=WspPowr%/100
  ELSE
    SzybRobo=WspRobo%/10000
    SzybPowr=WspPowr%/10000
  END IF
    ZakrGlow=ZakGl%/50                                        '<<<<< dla 10kN
   ProcLe%=10                                    '<<<< max wydl. ekstensometru
    ZakExPr=ProcLe%*ZakEx%/50               
  Poczatek:
  LOCATE 7,33 :PRINT"Podzakres glowicy (kN).......";:PRINT USING"##.##";ZakrGlow
  LOCATE 8,33 :PRINT"Podzakres ekstens. (%).......";:PRINT USING"##.#";ZakExPr
  LOCATE 9,33 :PRINT"Szybkosc robocza (cm/min)....";:PRINT USING"##.###";SzybRobo
  LOCATE 10,33:PRINT"Szybkosc powrotu (cm/min)....";:PRINT USING"##.###";SzybPowr
  LOCATE 11,33:PRINT"Zakres trawersy (mm).........";ZakrTraw
  LOCATE 13,33:IF Przekl%=%True THEN PRINT"Przekladnia HIGH" ELSE PRINT "Przekladnia LOW"
  LOCATE 14,33:IF Wydruk%=%True THEN PRINT"Z wydrukiem wynikow" ELSE PRINT "Bez wydruku wynikow"
  IF PlikWyn$<>"" THEN LOCATE 15,33:PRINT"Otwarty plik ";PlikWyn$ ELSE CALL KomunPlik
 Tytul$="  GLOWNE MENU"
 Napis$="Pomiar      ,Wyniki      ,Trawersa    ,Glowica     ,Ekstensometr,Pomoc       ,DOS         "
 CALL PionMenu(Tytul$,Napis$,OpcjaNr%)
   CLS
    SELECT CASE OpcjaNr%
     CASE 1 :CALL Pomiar(WspRep%,PopSi%,ZakGl%,AttSi%,KalSily%,PopEx%,ZakEx%,AttEx%,KalExte%,WydMax%,KolRobo%,WspRobo%,KolPowr%,WspPowr%,ZakrTraw,SzybRobo)
     CASE 2 :CALL Wyniki(ZakGl%,ZakEx%,ZakrTraw,SzybRobo,WydMax%,PlikWyn$)
     CASE 3 :CALL Trawersa(KolRobo%,WspRobo%,KolPowr%,WspPowr%,WspRep%,ZakrTraw)
     CASE 4 :CALL Glowica(AttSi%,ZakGl%,PopSi%,KalSily%)
     CASE 5 :CALL Ekstens(AttEx%,ZakEx%,PopEx%,KalExte%)
     CASE 6 :CALL Pomoc
     CASE 7 :LOCATE 12,26:PRINT "ZAKONCZENIE PROGRAMU !"
      COM(1) ON
        LSET nast$=MKI$(8):PUT #1,1                          'ustawienie bazy
        LSET nast$=MKI$(0):PUT #1,1                          'naped wylaczony
        LSET nast$=MKI$(138):PUT #1,1                          'stop trawersy
      COM(1) OFF
 CALL ZapisNastaw(KolRobo%,WspRobo%,KolPowr%,WspPowr%,ZakrTraw,WspRep%,ZakGl%,PopSi%,KalSily%,AttSi%,ZakEx%,PopEx%,KalExte%,AttEx%)
      SOUND 300,4
      Koniec%=%True
    END SELECT
  LOOP UNTIL Koniec%
 CLS
END
'************************************************
OdczytCOM1:                                     'podprogram wykonywany co 20mS
     GET #1,4
     si%=CVI(sila$)
     sila%=si%-204                                '<<<< stala wzmacniacza sily
     TbSily%(kol%)=sila%
     ex%=CVI(exte$)
     exte%=ex%-201                                '<<<< stala wzmacniacza exte
     TbExte%(kol%)=exte%
     LSET nast$=MKI$(240):PUT #1,1                 'kontrola przesylania RS-em
     INCR droga&
     INCR kl%
     IF kl%=WsRp% THEN INCR kol%:kl%=0  'WsRp% okresla co ile przeslan RS-em (20mS)
RETURN                                  'nastepuje kolejny pomiar i jego zapis do tablic

dodanie znacznika <code class="vbnet"> - Furious Programming

Chyba QBasic ale nie jestem pewien.