on eot Example
10 DIM Buff$[60] BUFFER !for this program, you need to be hooked up serialy to another
20 DIM A$[60] !computer with one running this program, and the other sending
30 CLEAR SCREEN !data to this program through an output statement.
40 RESET 9
50 PRINT "*** End Of Transfer Test ***"
60 ASSIGN @Buf TO BUFFER Buff$
70 ASSIGN @In TO 9
80 ON EOT @In GOTO Alldone
90 TRANSFER @In TO @Buf
100 ENTER Buff$;A$
110 PRINT A$
120 Loop: GOTO Loop
130 Alldone: PRINT "The transfer is completed."
140 PRINT "This is the contents of the buffer"
150 PRINT Buff$
160 END
