10  ON ERROR CLS:PRINT"FILE NOT FOUND" : END
   20  CLS:*.
   30  DIM A$(50)
   40  A=1
   50  INPUTTAB(0,23)"Filename : "A$(A)
   60  PRINTTAB(0,23);STRING$(39," ")
   70  IF A$(A)="" THEN GOTO 90
   80  A=A+1:GOTO 50
   90  CLS
  100  PRINTTAB(20-5,0);"ACCESSING."'
  110  FOR L=1TOA-1
  120  PRINT"ACCESSING FILE - ";A$(L)
  130  B$=A$(L)+" WR"
  140  OSCLI("ACCESS "+B$)
  150  NEXT
  160  CLS
  170  PRINTTAB(20-(9/2),0)"DELETING"'
  180  FOR L=1TO A-1
  190  PRINT"DELETING FILE - ";A$(L)
  200  OSCLI("DELETE "+A$(L))
  210  NEXT