BYTE Example10 CLEAR SCREEN
20 PRINT "*** output TEST ****"
30 CREATE "test.txt",0
40 ASSIGN @File TO "test.txt";BYTE !Send the data out as 8-bit bytes.
50 A$="This is a test."
60 OUTPUT @File;A$
61 RESET @File
70 ENTER @File;Test$
80 IF A$=Test$ THEN PRINT "Test passed."
90 ASSIGN @File TO *
100 PURGE "test.txt"
110 END
|