Table of Contents
Advertisement
LOOP UNTIL CNT = 1 OR INSTR(1, DAT$, CHR$(13)) > 0
IF DAT$ = "" THEN
LOCATE 5, 30
COLOR 28
PRINT "COMMUNICATION ERROR!"
P = 1
ELSE
IF P = 1 THEN
LOCATE 15, 30
COLOR 7, 0
PRINT "
P = 0
END IF
LOCATE 10, 40
D$ = MID$(DAT$, 6)
DAT$ = LEFT$(D$, LEN(D$) - 1)
COLOR 1, 7
PRINT DAT$; "
END IF
RETURN
ER:
RESUME NEXT
"
' (2 SPACES)
"
Page 19
' (24 SPACES)
Advertisement
Table of Contents
