home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CRYPT / SES152.ZIP / MSZERO.153 < prev    next >
Encoding:
Text File  |  1987-01-14  |  640 b   |  16 lines
  1. 1000 PRINT " MS-ZERO:    Zero out and Delete/Erase files"
  2. 1020 PRINT "  ": PRINT " ": INPUT "Enter File name to be Deleted ";FL$
  3. 1030 OPEN "R",1,FL$,128
  4. 1035 SZ! = LOF(1)
  5. 1040 SIZE% = SZ! / 128! : Z$=STRING$(128,255)
  6. 1044 IF SZ! <> (SIZE% * 128!) THEN SIZE% = SIZE% + 1
  7. 1050 FIELD #1, 128 AS SECTOR$
  8. 1060 FOR J%=1 TO SIZE% : LSET SECTOR$ = Z$ : PUT #1, J% : NEXT J%
  9. 1070 CLOSE 1
  10. 1080 PRINT " Erased ";(SIZE% * 128!);" bytes of file: "; FL$
  11. 1090 KILL FL$
  12. 1100 PRINT " File ";FL$;" Zeroed and Deleted /erased"
  13. 1110 END
  14. ased ";(SIZE% * 128!);" bytes of file: "; FL$
  15. 1090 KILL FL$
  16. 1100 PRINT " File ";FL$;" Zeroed and Deleted /e