COLOR 7, 0
CLS
END
RDG:
PRINT #1, "*01X01"
DAT1$ = ""
DAT$ = ""
T$ = TIME$
T1$ = MID$(T$, LEN(T$) - 1, 2)
T1 = VAL(T1$)
DO
IF LOC(1) > 0 THEN
CNT = 0
DAT1$ = INPUT$(LOC(1), #1)
DAT$ = DAT$ + DAT1$
ELSE
T$ = TIME$
T2$ = MID$(T$, LEN(T$) - 1, 2)
T2 = VAL(T2$)
IF T2 < T1 THEN T2 = T2 + 60
IF T2 - T1 >= 2 THEN CNT = 1
END IF
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 " " ' (24 SPACES)
P = 0
END IF
LOCATE 10, 40
D$ = MID$(DAT$, 6)
DAT$ = LEFT$(D$, LEN(D$) - 1)
COLOR 1, 7
PRINT DAT$; " " ' (2 SPACES)
END IF
RETURN
ER:
RESUME NEXT
Page 18