How to destroy a 5.25 disk in Applesoft

["Jayson Smith" <nospamratguyspambegone@nospamplease.bellsouth.ihatespam.net>]

Hi,
A few weeks ago I wrote a little program in Applesoft.  It runs under DOS
3.3 and will totally wipe out a 5.25 disk, to the point where it must be
reformatted to be usable under any OS.  I thought I'd share it here just in
case anybody is interested.  Note, this doesn't check for write protect
status, so if the hardware supports this it would totally destroy a write
protected disk!  I don't have any write protected disks I really want to try
this on, so be very careful with this program!  I also hereby release this
program into the public domain, since I'm never gonna make any money on it
anyhow, hehe.  Do what you will with this program.  Anyway, here goes!
Applesoft code extracted by CiderPress.  Sorry for any bad formatting.
My Email address is scrambled.  If you wish to contact me via Email, simply
remove all references to hating spam from my address.
Jayson.

 0  TEXT : HOME
 10  PRINT "Insert disk to destroy in drive 1"
 20  PRINT "Press any key.": GET A$
 30  POKE 49385,255: POKE 49386,255: GOSUB 1000: POKE 49391,0: POKE
49388,255
 40  FOR N = 1 TO 1000: NEXT N: FOR T = 0 TO 18
 60  POKE 49377,255: POKE 49376,255: FOR N = 1 TO 1000: NEXT N
 70  POKE 49379,255: POKE 49378,255: FOR N = 1 TO 1000: NEXT N
 80  POKE 49381,255: POKE 49380,255: FOR N = 1 TO 1000: NEXT N
 90  POKE 49383,255: POKE 49382,255: FOR N = 1 TO 1000: NEXT N
 100  NEXT T
 110  GOSUB 1000: POKE 49390,255: POKE 49384,255
 120  PRINT "Done.": END
 1000  FOR T = 0 TO 29
 1010  POKE 49383,255: POKE 49382,255: POKE 49381,255: POKE 49380,255: POKE
49379,255: POKE 49378,255: POKE 49377,255: POKE 49376,255
 1020  NEXT T
 1030  RETURN