HBM MGCplus Bedienungsanleitung Seite 79

Programmerstellung
DO
PRINT #1, "OMP?"
LINE INPUT #1, rd$
z$ = INPUT$(1, #1)
IF rd$ = "?" THEN
ReadESR
PRINT : PRINT "Error: "; rd$, "OMP?-Befehl"
STOP
END IF
n% = 0
FOR i = 1 TO 4
n% = INSTR(n% + 1, rd$, ",")
IF i = 3 THEN m% = n%
NEXT i
n% = VAL(MID$(rd$, m% + 1, n% – m% – 1))
LOOP UNTIL n% = anzzln% * anzwdh%
END SUB
SUB ReadRMB
rmbbef$ = "RMB?" + STR$(anzzln% * anzwdh%) + ",6409"
PRINT #1, rmbbef$
z$ = INPUT$(1, #1)
IF z$ = "?" THEN
z$ = INPUT$(2, #1)
ReadESR
PRINT : PRINT "Error: "; rd$, "RMB?-Befehl"
STOP
END IF
'Status Lesezeiger ?
'String incl.CR einlesen
'LF einlesen
'Fehler ?
'Fehler-Routine aufrufen
'Programm beenden
'Anzahl Meßwertzeilen extrahieren
'Anzahl Meßwertzeilen * Wiederholungen erreicht?
'Meßwerte einlesen
'Meßwerte (Meßwertzeilen * Wiederholungen) auslesen
'# oder ? einlesen
'Fehler ?
'CR und LF einlesen
'Fehler-Routine aufrufen
'Programm beenden
MGCplus Betrieb mit Rechner oder Terminal
G–7