10  DIM A$[20],B$[10]
20  FILES *
30  PRINT '7'7'7"DANGER --- THIS PROGRAM WILL ERASE ANY FILE "'7'7'7
40  PRINT "Type NONE to abort."
50  PRINT LIN(2);"file name ";
60  INPUT A$
70  A$=UOS$(A$)
80  IF A$="NONE" THEN 240
90  ASSIGN A$,1,R, PR 
100  IF R#0 THEN 200
110  PRINT "Erase ";A$;" are you sure ";
120  INPUT B$
130  IF B$#"YES" THEN 220
140  FOR I=1 TO 10000
150  IF  END #1 THEN 180
160  PRINT #1,I; END 
170  NEXT I
180  PRINT I-1;"RECORDS ERASED"'7
190  GOTO 230
200  PRINT "Invalad / not accesable"'7
210  GOTO 230
220  PRINT A$;" No action taken"'7
230  GOTO 50
240  END 
