home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / pcode153.zip / PC-ZERO.153 < prev    next >
Text File  |  1984-05-08  |  689b  |  20 lines
  1. 1000 PRINT " PC-ZERO:    Zero out and Delete/Erase files"
  2. 1010 PRINT " ": PRINT " ": PRINT " "
  3. 1015 INPUT "Enter File to be Erased/Deleted "; FL$
  4. 1020 OPEN "I",1,FL$
  5. 1030 CLOSE 1
  6. 1040 OPEN "R",1,FL$,128
  7. 1050 SZ! = LOF(1)
  8. 1060 SIZE% = SZ! / 128! : Z$=STRING$(128,255)
  9. 1070 IF SZ! <> (SIZE% * 128!) THEN SIZE% = SIZE% + 1
  10. 1080 FIELD #1, 128 AS SECTOR$
  11. 1090 FOR J%=1 TO SIZE% : LSET SECTOR$ = Z$ : PUT #1, J% : NEXT J%
  12. 1100 CLOSE 1
  13. 1110 PRINT " Erased ";(SIZE% * 128!);" bytes of file: "; FL$
  14. 1120 KILL FL$
  15. 1130 PRINT " File ";FL$;" Zeroed and Deleted /Erased"
  16. 1140 PRINT " ": PRINT " "
  17. 1150 INPUT " <PAUSE> Press ENTER to Continue ";FL$
  18. 1160 CHAIN "PC-MENU.EXE"
  19. 1170 END
  20.