ain@j.cc.purdue.edu (Patrick White) (01/10/88)
Program Name: diskwipe
Submitted By: sas.uucp!walker@mcnc.org (Doug Walker)
Summary: delete all files from a disk and optionally changes
the name of the volume -- it is very similar to doing
"delete df0: all" but much faster.
Poster Boy: Pat White (ain@j.cc.purdue.edu)
Tested.
NOTES:
I tried running it from ram and erasing a disk I had -- it wouldn't
work for the first 10-20 tries then, it suddenly started working and worked
without any problems after that. Only thing I can think that I did differently
was to have it change the volume name after 10-20 tries of not having it change
the volume name. I couldn't make it do this again, so I'm posting it.
-- Pat White (co-moderator comp.sources/binaries.amiga)
UUCP: j.cc.purdue.edu!ain BITNET: PATWHITE@PURCCVM PHONE: (317) 743-8421
U.S. Mail: 320 Brown St. apt. 406, West Lafayette, IN 47906
========================================
What is diskwipe? It is a utility to erase previously formatted DOS
disks, similar to DELETE ALL except it only takes 2 seconds.
This project was brought to you by the Software Distillery, purveyors of
the finest Amiga Redistributable software. See the distribution info
in the file diskwipe.doc. Enjoy!
- Doug Walker
Software Distiller
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# diskwipe.doc
# diskwipe.uu
# This archive created: Sat Jan 9 13:40:03 1988
# By: Patrick White (PUCC Land, USA)
echo shar: extracting diskwipe.doc '(2683 characters)'
cat << \SHAR_EOF > diskwipe.doc
\* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
DISKWIPE 1.0
This program, both executable and source, is copyright (c) 1987 The
Software Distillery. The executable is freely redistributable as long as
the distributor does so on a not-for-profit basis.
These distribution rights may be withdrawn by The Software Distillery
at any time if the Distillery feels the distributor is abusing the
conditions of distribution.
As the author, I request that you send me a copy of any changes you
make to this code before distributing it. (Address below).
===========================================================================
Have you ever had a disk full of files you wanted to get rid of? You
probably typed DELETE ALL and listened to the floppy grind away for about
ten minutes doing it. Well, here's an alternative: DISKWIPE.
USAGE: DISKWIPE [MANY] [[DRIVE] <dfn:>] [[NAME] <name>]
MANY DISKWIPE will work on multiple disks. It will prompt you
after wiping each disk. To quit, type CTRL-\ at the prompt.
DRIVE <dfn:> Specifies the name of the floppy drive to use. The DRIVE
keyword is optional. If no drive is specified, DF0: will
be used.
NAME <name> Specifies a new name for the disk. The NAME keyword is
optional. If no name was specified, DISKWIPE will use the
existing name. If the existing name is not valid, the name
"dos disk" will be used. You also have the opportunity to
enter a new name when you are prompted to hit RETURN.
EXAMPLES:
DISKWIPE
Wipes all data from drive DF0:. The disk name will be retained. You will
be prompted to insert the disk.
DISKWIPE df1: farkle
Wipes all data from drive DF1:. The name FARKLE will be used. You will be
prompted.
DISKWIPE MANY df0:
Wipes all data from drive df0:. You will be prompted before the first disk
and after each disk. You can type in a name for each disk at the prompt
or just hit return to use the old name. CTRL-\ quits.
BUGS:
There is a problem with running diskwipe while DOS is validating the floppy.
An invalid disk structure may be generated if this occurs. To be safe,
wait until the disk light goes out completely before issuing the DISKWIPE
command.
FUTURE PLANS:
A replacement FORMAT command that accepts WIPE as an option.
SUPPORT, SUGGESTIONS, CONTRIBUTIONS:
Please state what version of the program you have when writing.
This is version 1.0.
Doug Walker
405 B3 Gooseneck Drive
Cary, NC 27513
or
The Software Distillery
235 Trillingham Lane
Cary, NC 27513
BBS: (919)471-6436
SHAR_EOF
if test 2683 -ne "`wc -c diskwipe.doc`"
then
echo shar: error transmitting diskwipe.doc '(should have been 2683 characters)'
fi
echo shar: extracting diskwipe.uu '(5743 characters)'
cat << \SHAR_EOF > diskwipe.uu
begin 666 diskwipe
M #\P " $ -- V ^D --2.=^_DOO #0D
M2"0 2?D +'@ !"E. $ I3P!,0JP 2)/)3J[^VB9 *6L F X2JL K&<
M ' @#9"M 0&@ ( I0 $80 !>B!K *S1R-'((F@ $-/)T\D@ G( $ADI
M20!4T(%2@$)G4H "0/_^G\!5@$)W" @ E. U($?L@ ( !3@E'(__8?O @
M( !3@A^Q( @ %'*__@B3R\)8 ;"EK #H ! :L @ $80 !#F$ /@I
M0 !(+P D0" J "1G$BQL F@@0"(H I00 X3J[_@B(J "!G&B0\ #[4ZN
M_^(I0 !09PKEB"! )V@ " "D(&P 2"\(2&P "!H "0I: $ %1'^0 G1R
M " \ .V ")L%1R/_\3KH L' 8 0@+P $+P @+ L9P0@0$Z03KH*""QX
M 0B; )H3J[^8DJL FQG"")L FQ.KOYB2JP"<&<((FP"<$ZN_F)*K !89P@B
M; !83J[^8DJL $AG)"(L #QG!$ZN_]PB+ !09P1.KO_<+'@ !$ZN_WPB; !(
M3J[^AB ?+FP 3$S??WY.=7!D8(!!ZP!<3J[^@$'K %Q.KOZ,3G5#[ !<< !.
MKOW8*4 ":&?:3G4 $Y5__!(YP$@)&T " RL ( )T; D!(2# $ (&<,
M# $ "6<&# $ "F8$4HI@Z$H29W(@+ )TY8!2K )T0>P"?-' *TC__ P2 ")F
M*%**((I*$F<*#!( (F<$4HI@\DH29@Q(> !3KK^[%A/8)Q"$E**8)8@;?_\
M((I*$F<8$A(, 0 @9Q , 0 )9PH, 0 *9P12BF#D2A)F F (0A)2BF _VA*
MK )T9@8@; !(8 1![ )\*4@">"\(+RP"=$ZZ! 103T*G3KK^C%A/3-\$@$Y=
M3G4 $Y5 !(YR "("P#3"(L U D+ -$($$A0@ $(D C0@ .(VP#4 *$WP
M!0 (("P#3"" <!\A0 ((6T " 4(&P#2")L TPL> $3J[^DB!L T0L> $
M3J[^@"!L T0L> $3J[^C$S?0 1.74YU3E7__$CG 0 @; -4$"@ 'P) /\$
M0 <;2H,0 ';"3C0$[[ )@#& .8!A@%F ,8 I@#'X(8 Y^"6 *?@I@!GX'
M8 )^!R\'80I83TS? (!.74YU3E7_^$CG, )2K ,\#*T ( AM%"(L UQ!
M[ (>) AV!RQL FA.KO_0("T ""( Y8%![ 'NT<%#[ !HT\!P ! 1+T $"](
M PB+ -<(&\ #"00)B\ $"QL FA.KO_080 "9DS?0 Q.74YU3E7_^$CG " @
M; -4(7P ( "1(> "80 %^%A/(&P#5" H "@K0/_X($ ,* " -F1 PH
M $!_V8\T/P!L2) $BD!L P! !YO!' >8 9P ! I ; K0/_\(@ B2"1M A@
M A394X%D^B!M @@+?_\0C ( & .0>P")B)()&T "!399OQ,WP0 3EU.=4Y5
M__AP "M __PK0/_X(BW_^ R! @&P6( 'E@"!M @B, @ TZW__%*M__A@
MWB M__Q$@$Y=3G5.5?_X2.<@(C \ ?]R "!M @0P5'(__QP B!M @@@'!(
M(4 #"%\ #<0$\(FT #$H99OQ3B9/M P@"1% ;#0_ &Q*T#__"0 )&T
M#& "$-I3@F3Z(&T "-#\ >0O2 ,(B\ #"QL FA.KO] (&T "-#\ :0O2 ,
M(B\ #"QL FA.KO] < $@;0 ((4 !_"\(80#_,%A/(&T ""% !1,WT0$3EU.
M=4CG )*K -$9Q9"IV$ _5)83R\L T1.N@9Z6$]"K -$2JP#3&<.(FP#3' 4
M+'@ !$ZN_RY*K -09PXB; -0<# L> $3J[_+D*L U I; -0 TQ,WT 3G5.
M5?_Z2.< (D'L C B2$7M__L4V6;\("T " : ,!M __UP%"(\ $ 2QX
M 1.KO\Z*4 #3$JL TQG)G P(CP 0 !+'@ !$ZN_SHI0 -02JP#4&<,3KH%
M2BE T1*@&8*2'@ !V$ _6!83T'M__LB""QL FA.KO]2*4 #2$AX %A /R"
M6$],WT0 3EU.=4CG, )A 1.80#_#"(L UQ![ (V) AV 2QL FA.KO_00J=.
MNOK06$],WT ,3G5(YS "< !R "QX 1.KO[. H # 2H!G%B(L UQ![ (X
M) AV""QL FA.KO_08:),WT ,3G5.5?_$2.<P DJM AF"DAX 5.NOI\6$]P
M)W( 0>P#.!#!4<C__"QL FA.KO_$*4 #7$'M_^$@"'( *T#_V"M!_] K0?_4
M#*T ! AO %2(FT #"!I 00$ P #]F+' $"P :"] PB+ -<)"P!
M[B8O PL; )H3J[_T$AX -A /Q.6$]@ $*2JW_T&8:2&P"0B\(3KH%DE!/
M2H!F"@CL $#.V .HB+?_0#($ !9V!*@69J(FT #"!I 1P ! 0+P!.
MN@6<6$\, !$9E B;0 ,(&D !%*(< 0$"\ 3KH%@%A/# 1F8T(FT #"!I
M 0B2%2)< 0$02 ,"M _\Q*@&L6#( $; XI;?_, UAP "M _]!@
M;DJM_]!F'DAL D@@;0 ,+R@ !$ZZ!/)03TJ 9@AP 2M _]!@2DJM_]!F'DAL
M DX@;0 ,+R@ !$ZZ!,Y03TJ 9@AP BM _]!@)DJM_]1F%B!M PK: $_]AP
M 2M _]1"K?_08 I(> #80#[0EA/4ZT "%BM Q@ /ZF80 !Y"\L UAA /U>
M6$\@+ -4+T #" \ " "(\ $ BQX 1.KO\Z(&\ #"% "A*@&8*2'@
M!V$ ^O983R!L ?+0_ D("P#6 : ,!" < 0+ !I+T #"(L UPD+ 'R
M)B\ #"QL FA.KO_0""P 0,[9QYP ! L &PO0 ,(BP#7"0L ?XF+P ,+&P"
M:$ZN_]!"+?__80 "-' $"P :B] PB+ -<)"P!]B8O PL; )H3J[_T$JM
M_]1G!' &8 )P!2( Y8%![ 'NT<$O2 ,2JW_U&<$< 9@ G %0^P :-/ < 0
M$2] ! B+ -<(&\ #"00)B\ $"QL FA.KO_0+&P":$ZN_\HO0 ,(B\ #$'M
M_^$D"'8>+&P":$ZN_]9*@&=X80#\^A M_^$, *9RQ(> *2&W_X4ZZ P10
M3RM _]Q*@&<6($!"$$'M_^$@"'( *T#_V"M!_]1@$$JM_]1F"DAM_^%A /HL
M6$\@+ -4($ A? @ )"\M_]@O* H80#ZV%!/2'@ V$86$\(+ ! SMF
M /[Z80#\5$S?0 Q.74YU3E4 $CG (@; -4,6T "@ <(FP#5"QX 1.KOXX
M("P#5"! 2B@ 'V<$80#Y DS?0 !.74YU2.< DZZ 2 I0 - 2H!G$"\ 3KH!
MZ%A/*4 #5$J 9@I(> '80#Y)EA/("P#5'+_($ A00 P(7P !N "Q![ )4
M("P#6")L U1R "QX 1.KOY$2H!G!&$ ^)X([ & SM,WT 3G5.5?_\2.<
M @@L 8#.V=8("P#5"] 0@0$JH "AG'B!O 0B: H(#P ( +'@ !$ZN
M_RX@; -40J@ * RL @,\; )A.B)L U0L> $3J[^/B)L U1P."QX 1.
MKO\N0JP#5$JL T!G#B\L T!.N@#@6$]"K - 3-] $Y=3G4@+ -4($!"J D
M2B@ 'V88+SP ( $80#^QEA/+SP ( %80#^NEA/+SP ( )80#^KEA/3G5.
M=0 3E7_]DCG )P_RQX 1.KOZV&T#__PP /]F!' 8&YP(B(\ $ 2QX
M 1.KO\Z*T#_^DJM__IF&G $"W__R] 0@+P $+'@ !$ZN_K!P & Z(&W_
M^A%\ 0 "$(H X1;?__ ^3R2QX 1.KO[:(&W_^B% ! @;?_ZT/P %"\(
M3KH!3EA/("W_^DS?0 !.74YU3E7__$CG )P "!M @0* /+T !" O 0L
M> $3J[^L" M @O0 $(F\ !' B+'@ !$ZN_RY,WT 3EU.=4Y5__Q(YP "
M<#@B/ ! $L> $3J[_.BM __Q*K?_\9Q @;?_\$7P !0 ((6T " .("W_
M_$S?0 !.74YU3E4 "!M @2$+(M ]F!" (8! @;0 ($!!2K0 (2@!FXG
M3EU.=4Y5 !P ! M \O "\M AAQE!/3EU.=4Y5__Q"K?_\(&T "$H09Q(2
M$+(M ]F!"M(__Q2K0 (8.8@+?_\3EU.=0 (&\ !")O AP '( $!@2&0P
M &%M"@P 'IN! 0 " , 0!A;0H, 0!Z;@0$ 0 @D(%F!$H!9M1.=0 ("\
M! P &%M"@P 'IN! 0 "!.=0 (&\ !""(6)!"J $(4@ "$YU /L
M @ $ $2 #@ /R #Z@ )T
M
M &1O<RYL:6)R87)Y
M #H[,C@5#Q0,&!$.$$1)4TM725!%(#$N," M($-O<'ER:6=H=" H8RD@,3DX
M-R!4:&4@4V]F='=A<F4@1&ES=&EL;&5R>0H HJ*BHJ*B!705).24Y'.B!!
M;&P@9&%T82!I;B!D<FEV92!$1C Z('=I;&P@8F4@;&]S="$@*BHJ*BH* $EN
M<V5R="!D:7-K(&%N9"!E;G1E<B!N97<@;F%M92!O<B!P<F5S<R!215154DX@
M=&\@ !5<V%G93H@9&ES:W=I<&4@6TU!3EE=(%M;1%))5D5=(#QD9FXZ/ET@
M6UM.04U%72 \;F%M93Y="@ 4')E<W,@0U123"U<('1O('%U:70* &ME97 @
M;VQD(&YA;64Z( !U<V4@<W!E8VEF:65D(&YA;64Z( 1F%T86P@97)R;W(*
M !$:7-K(&ES('=R:71E('!R;W1E8W1E9 H $YO(&1I<VL@:6X@9')I=F4*
M $YO('-U8V@@9')I=F4* !$<FEV92!I;B!U<V4* '0 "P [
M 2 %: !< 8 &6 !I ;X '0 !X$524D]2.B 1&]S
M(&1I<VL &1F,#H H *BHJ0G)E86L $U!3ED $12259% $Y!344 '1R
M86-K9&ES:RYD979I8V4 #[ P ! "
M&@ A8 (2 "#@ @H (& " @ ?X 'Z !]@ ?( 'N
( _(2
end
SHAR_EOF
if test 5743 -ne "`wc -c diskwipe.uu`"
then
echo shar: error transmitting diskwipe.uu '(should have been 5743 characters)'
fi
# End of shell archive
exit 0