ENTER Example10 CLEAR SCREEN
20 PRINT "*** output TEST ****"
30 CREATE "test.txt",0
40 PRINT "Created file:"
50 CAT "*.txt";NAMES
60 ASSIGN @File TO "test.txt";FORMAT ON
70 OUTPUT @File;"Hello world."
80 PRINT "Wrote to file."
90 RESET @File
100 ENTER @File;Test$
110 PRINT "Read string from file: ";Test$
120 ASSIGN @File TO *
130 PRINT "CONT to purge file."
140 PAUSE
150 PURGE "test.txt"
160 PRINT "File purged."
170 END
|