readio Example10 ! LOAD BIN "SERIAL32"
20 LIST BIN
30 WAIT 1
40 CLEAR SCREEN
50 ON ERROR GOTO Recover
60 FOR I=0 TO 6
70 PRINT READIO(9,I);I
80 DISP I
90 Recover: DISP I
100 NEXT I
110 OFF ERROR
120 WRITEIO 9,1;2400
130 PRINT READIO(9,1)
140 END
|