10 CLS
20 FOR I=1 TO 15
30 PRINT"WARNING      WARNING      WARNING      WARNING"
40 NEXT I
50 PRINT:PRINT:PRINT
60 INPUT"DO YOU WISH TO ERASE CHARACTER FILE  ";A$
70 IF A$<>"Y" THEN CLS:END
80 ON ERROR GOTO 160
90 KILL"CHARACTE.RS"
100 OPEN"R",#1,"CHARACTE.RS",255
110 FIELD 1,255 AS B$
120 LSET B$="0"
130 PUT#1,1
140 CLOSE#1
150 END
160 RESUME NEXT
