10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!            DESTRY.BAS               !!
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!           DESTRY V01-AA             !!
   !!     ZEROES AND DELETES FILES        !!
   !!        ON DECTAPE OR DISK           !!
40 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
100 &:&:&"DESTRY V01-AA":&:& "ENTER THE FILENAME YOU WISH TO ZERO":
	& "AND DELETE USING THE FORMAT 'DEV:FILNAM.EXT'":
	&:INPUT "YOUR FILENAME - ";F$
200 I%=INSTR(1%,F$,"MT"):GOTO 205 IF I%<>0%:
	I%=INSTR(1%,F$,"DT"):R%=510%:R%=R%+2% IF I%=0%:ON ERROR GOTO 300:
	OPEN F$ AS FILE 1%,MODE 1%:GOTO 210
205 &:& "DESTRY V01-AA  DOES NOT HAVE A MAGTAPE HANDLER IN IT, SORRY":
	GOTO 9999
210 D1$=D1$+CHR$(0%) FOR I%=1% TO R%:
	FIELD #1%,R% AS D$:LSET D$=D1$:ON ERROR GOTO 400:
	PUT #1% WHILE -1%
300 &:& "THERE IS A PROBLEM IN OPENING YOUR FILE - ";F$:
	&:& "THE ERROR IS - ";SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)):
	&:& "FILE - ";F$;" HAS NOT BEEN ZEROED OR DELETED":
	CLOSE 1%:GOTO 9999
400 IF ERR=10 AND ERL=210 THEN RESUME 410 ELSE &:
	& "AN ABNORMAL ERROR HAS OCCURRED WHILE ATTEMPTING":
	& "TO ZERO YOUR FILE - ";F$;" IT HAS BEEN PARTIALLY ZEROED.":&:
	& "THE ERROR WAS - ";SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)):CLOSE 1%:GOTO 9999
410 CLOSE 1%:ON ERROR GOTO 500:KILL F$:
	&:& "YOUR FILE - ";F$;" HAS BEEN ZEROED AND DELETED":
	&:& "NORMAL TERMINATION":GOTO 9999
500 &:& "A ERROR HAS BEEN ENCOUNTERED WHILE ATTEMPTING":
	& "TO KILL YOUR FILE - ";F$:
	& "THE FILE HAS BEEN ZEROED BUT NOT DELETED !":
	&:& "THE ERROR WAS - ";SYS(CHR$(6%)+CHR$(9%)+CHR$(ERR)):
	CLOSE 1%
9999 END