BUFFER Example10 CLEAR SCREEN
20 PRINT "*** Assign Buffer TEST ****"
30 ASSIGN @Test TO BUFFER [2000]
40 A$="This is a test."
50 OUTPUT @Test;A$ !Output to the Buffer string.
60 ENTER @Test;Msg$ !Enter from the Buffer string.
70 IF A$=Msg$ THEN PRINT "Test passed."
80 PRINT "All done."
90 END
|