protect Example
10 CLEAR SCREEN
20 MASS STORAGE IS "C:\"
30 PRINT "Creating file"
40 SAVE "junk.XXX"
50 WAIT 2
60 CLEAR SCREEN
70 PROTECT "junk.XXX","R" !Protect the file as a read-only file.
80 PRINT "Making junk.XXX a read-only file."
90 WAIT 3
100 CLEAR SCREEN
110 PRINT "Unprotecting junk.XXX"
120 PROTECT "junk.XXX",""
130 WAIT 2
140 PURGE "junk.XXX"
150 PRINT "File purged"
160 END