PRINTALL Example10 CREATE "test.txt",0
20 CONTROL KBD,1;1
30 PRINTALL IS "test.txt"
40 PRINT "Hello, this is a test."
50 PAUSE
60 PRINTALL IS CRT
70 PURGE "test.txt"
80 PRINT "File purged."
90 CONTROL KBD,1;0
100 END
|