BG 800 300 BE / A (0105) TPG 300
60
151 REM Lesen der Messwerte oder Parameter vom TPG300.
160 PRINT "
"+RIGHT$(mp$,(LEN(mp$)-INSTR(mp$,LF$)))
161 REM Anzeige der Messwerte oder Parameter.
190 GOTO 100
200 PRINT "
Negative Acknowledge";
201 REM Bei negativer Quittung.
210 PRINT #1,ENQ$
211 REM Aufforderung zur Uebertragung des Error-Wortes.
220 INPUT #1,e
221 REM Lesen des Error-Wortes vom TPG300.
230 IF e >999 THEN PRINT "
FATAL ERROR"; : E = E-1000
240 IF e >99
THEN PRINT "
NO HARDWARE"; : E = E-100
250 IF e >9
THEN PRINT "
PARAMETER ERROR"; : E = E-10
260 IF e
THEN PRINT "
SYNTAX ERROR";
270 PRINT
280 GOTO 100
300 END
10 REM *********************************************************************
11 REM
AVMTPG.BAS
Abfrage von Messwerten
7.August 1987 soro
12 REM
13 REM
Creation Date : 7. August 1987
14 REM
Author
: R. Sonderegger
Abt. EEM
15 REM
Version
: V00.01
16 REM
Modification
:
17 REM
Contents
:
18 REM *********************************************************************
19 REM
20 OPEN "COM1:9600,N,8,,CS,DS,CD" FOR RANDOM AS #1
21 REM Eroeffnet COM1: mit 9600 bps,keine Paritaet und acht Daten-Bits.
22 REM CTS,DSR und CD werden nicht geprueft.
23 REM
30 CLS
40 ACK$ = CHR$(6): ENQ$ = CHR$(5): LF$ = CHR$(10)
