55
6030 GOSUB 5000
6040 IF RS232IN$ = “0” + CHR$(13) + CHR$ (10) THEN GOTO 6120
6050 PRINT “Disabling echo mode ....”;
6060 RS232OUT$ = “E0”
6070 GOSUB 4000
6080 GOSUB 5000 ‘Read”>1"
6090 GOSUB 5000 ‘Read “>E0”
6100 GOSUB 5000 ‘Read “>” ( timeout because no <NL> )
6110 PRINT “ECHO mode disabled “
6120 ‘ENDIF
6130 RETURN
6140 ‘
7000 ‘timeout: Set TIMEOUT.ERROR% flag. Called if t seconds, as
7010 ‘defined by ON TIMER (t), elapsed between TIMER ON AND TIMER OFF.
7020 TIMEOUT.ERROR% = 1
7030 RETURN
10000 END ‘End of Program listing
To Next Page
Loading...
