transfer Example10 CLEAR SCREEN !This test requires two machines connected by
20 PRINT "*** Transfer Test ****" !serial cables. One running this program, and
30 DIM A$[50] !the other outputing information to this one.
40 ASSIGN @Buf TO BUFFER [2000]
50 ASSIGN @In TO 9
60 TRANSFER @In TO @Buf
70 ENTER @Buf;A$
80 PRINT A$
90 GOTO 70
100 END
|