Beispiel Fur Ein Basic-Programm - Haake DC30 Betriebsanleitung

RS232C-Schnittstelle
19.8 Beispiel fur ein BASIC-Programm
Mit diesem einfachen Programm wird der eingebaute Be-
fehlsvorrat des Gerates angesprochen:
REM Befehlsvorgabe Gerat
REM 1. Befehl eingeben
REM 2. Befehl wird an Gerat ubergeben
CLOSE
OPEN "COM2:4800,N,8,1 ,CS0,DS0,CD0" AS #1
schleife:
b$
INPUT "Befehl: ";b$
if b$ = "X" then markend
if b$ = "x" then markend
befehl wiederholen:
PRINT #1,b$
PRINT
PRINT "Ruckmeldung"
PRINT" "
GOSUB einlesen
GOTO schleife
markend:
END
einlesen:
A$ = " "
leseschleife:
X = ASC(INPUT$(1,#1))
IFX = 10THENendelesen
A$ = A$ + CHR$(X)
GOTO leseschleife
endelesen:
print A$
RETURN
Anmerkung:
Bei Befehlen werden nur GroBbuchstaben akzeptiert!
62