[comp.sys.atari.st] Excess-file removal program

jpexg@mit-hermes.AI.MIT.EDU (John Purbrick) (01/11/87)

[Lineater? Are you out there? Lineater?]

	ZZZAP is a public domain program by John A. Purbrick. Permission is 
given for its copying and use for non-commercial purposes.

	This program is designed to work with Moshe Braner's AUTODISK. When
a user boots up an Atari ST with AUTODISK in the AUTO folder, it automatically
loads the entire contents of the boot disk into the RAM disk (drive D). Some
of these files, however, are likely to be completely superfluous as they are
only used on the boot disk; the entire AUTO folder, for instance, can probably
be deleted. ZZZAP deletes AUTO and its contents, and also DESKTOP.INF and
CONTROL.ACC, and finally removes itself. The name ZZZAP was chosen to ensure
that ZZZAP's icon would be in the last position on the drive D desktop after 
transfer from the boot disk, thus making it easily accessed with the mouse. 
If AUTO is not present when ZZZAP runs, a two-bomb error will occur.

	Included are ZZZAP.C (in Megamax C) and ZZZAP.PRG.

	Files are arced and uuencoded.
					--John Purbrick
					jpexg@hermes.ai.mit.edu
CUT HERE
---------------------------------------------------------------------------
begin 644 zzzap.arc
M&@A:6EI!4"Y#        Y@(  "D.PYF1S=\$   ,(]*X&<.F#IDR('B\F2-&
M(!D7:'PT4!!P8,&#">?0D2/P#$2)"B:V"2,018H]$R<F&(,FC!P09M*P*?/%
M39@V9;;8@-&%!0B!9MYLH4&CRXZ4"A(,&?/&S9LZ=%#(N)%B1P)(!%ZH "&$
M31@W:T#,&2.G3!DW(%2\4+FTZ=.H* 3227&BR(FJ2!,8F5.&#ADZ8>*Z"5KU
M:M:M5]"4*0N"SANQ9\G E(F03!C :5\DR*M1SA@X>5#$G%GS9AF?(H)4H?*$
M"Q<5+E2(*)Q *P@F;]Z$%0A"->O,*M.8 8%"[YR8<C2*IEP:IT\8*4#X -$B
M1HK:6XVD24YG\DR?<&:&X0L\Z9X$G3^''DW3IG,0J5>WYC+[:%+T&\=<7D[:
M_>F?@[VQP@S0667;$&^ ]A,=<X#@GT]T*(;6&C*QL:!:*B6@1QAPP"'<>LSY
MAU=2?:A4!AODP<&1&W28@8((3CS&WAQ<N%%? MB!H$0=&@$(@G[D^?;$3PV6
MT08<=.11GDIWH$$9<7NY408>444W774IJ'1>>J#QUYYIJ GIVHVV.3$E'2&4
MAV-Z^['7W'] "4C@B#ANV.&'7KY)9XDA)<6EDGD^"!]3+,KQ!ALNA#'&&&1N
MM42%(+P1X6+>E=&@8X]AF)2='IH!8G^FC:C2G\2Y*:@(!\VQAF-PN !4?2IQ
MBJ>IH=HW:GX*!@HF?&3HX%H84+UQ8XY$G-@70D(Z^,8="YY0Y)%)JBD<<40<
M-!,=9>B*DY7460?"1%KAJ*)<P[WXQ!(@6-M71R"40*.-/M&Z[0YJ)F!? B>F
MN&*+Q(E0A!R&OJ0N'>RZ6Z,(\898*V>X BKO?R+H <D '+J@XAF-@H!@&VVD
MT=T<=:0Q1AH8::HAAYU^^N6\$_$YD:R>:EM&="RYE-;#.Z"4U+0H&#%PM@]S
MB^6W"H2;P+@LEBO"N>D:2[ ;9[3[+L*5ZDFOR?::B")"2//[XK\!-WUMP5,G
M#"K+"O )&@A:6EI!4"Y04D<     (!(  "D.KID67-$7   ,8#0  ' ! "0"
MJ 8>,&30@9-\!@?8>*B0"D4 !2 !N'C W44#J#CJ^*CB8@%U%RW@4/%$11L 
M!$"T ,  6BL %&P"X "-U\ 0 $0 D-9(&*]_D ;X<Q'D!8 7#82<^<$#@!(G
M0;[QB\@ Q$L,(KY.:[=3)LXI@-X8F  B"K)__+P"@&"6 UHA&-S"1?$20C:R
M'%(T@>L2  (G-V& 8 ,7"1H @)SH"H (RZ,7+/[9^Y%9GV0 &K@\HCI0<@!\
MI(.0%H#5LI,Z3JS\PT1ZPVK)"_Q9)EWDMJX%\"PC<3.;M ;<XD0C83-P^#]B
MDB4 @_)(JG-BI)W@)D:= 2"D!-X,M+$<@(+KT3%1#^)N-@@$/2-Z<(I>EP0J
MU.L# &<9S$ &Y4$@603F]#>0#.5I4)\$5JS7'B;OQ9?4?  L*$%^Q$&G"P">
M[%;5$[CY0,4CWH'G!@#_^%(>"!9B^-QG<@C'' OU1:"/BQH"H(6, .!0HS@X
MDC:2+@J@(UJ)!XD'@ '^S75=>4 ,:$-^S%%1HRHX?J: :UZ\YJ45 [W@@F&I
M2:8 )T=^E^1 3 X$@9B&E=>E+A"H0YT37<(&)@ _C'D8D02,R( ;@PR$@!L&
MP% 5 &!XT">95?E@IA26Y0!$/K:<D2@/__P#!@&*EI9G; ,]B@!I3)C) I=?
M_N//"PL$P8X^0IB !!@6P+""><#P <  9R  ZV<J6&;-5A2 $.NL0HB @#0^
M840++(&T@8VIDOWCRH@F?('GEV$N8,*)PB[P&1&6*0&$IHIV"@8,NO+J*P1G
M*/#"K@9(EH ,E@FQAGD_[,I MBR,J"Z[G'H*ZJ+=?JMG8^<$ ,&XAL6K0*^_
MFH% NYX.Y(@+$WBRRI(68PS(&4R4[*L 9FSJ+ALJPW0&!*L)<4K -$EV "/4
M_7# O4OB/#"=\G0'1*<M<PR&#0*L\<\?YK6P!%P,_)L4 V]@0%H -@NMLQ/4
M@4 </R$  8 #)HQL@+\PA0H $]\@$-FHLO$#*\4*Q,RR 0#\:W;>NU[LZ[H;
M)^Q?  HP,#(D!1A@!A4Q(W"&!\K*2JM&B 2"K*SYV!,-,$% \YX)@)Q@-I,J
MQ"L!$L XI3,WEI%N^I+>&42 QGT;9AX8?/\+P>ZB1#XS"%-(,0D$K@"00.Z 
M[,Z#R@$ <(8,S)M'O/'(*P_!F D@ 0@LOBIP!@8@3*"1VK#\*P$;#&ROO/<8
M>TK%L+KXHT:ZZS*0^]]*/Q]XKP&0G 381@#W=0\0\0.#",   M5- 0@W,!L!
MJJ<  U[O>(" GZ_^T3"Z#41LYIG"8T"% I@PP&P : ,&+'@B!8@  E+0" B"
M ($,(G"#8)  G"K(/>_]8"/U4X1H'$8J (!  , X2E( 8 8""&$(8##!%(8P
M#D&001]4& (,D,B'Z)TA5UP4P#_.X !J1$L  ""# <2A""E 41QL!(<BC+'!
M=PP!"4(@A!8AT*OF$0((> 2!(. V@'\0<4]%1,(YX $($"( !&"ARXD80 (,
MF  "2@"$&A!@!$ 8(1 (  8 /J $06S2"((PPB 0$(Q12F(0D1CD-P+P #P!
M@1WY\ :X*G2.?P##D2*8) D@$ Y!G$,0"!#&*&%00@*H PE_M $$T#$$.AY@
MC /QA@LB$(Y#G.,0"#C&,E, DV<Z @@ZB  ZBJ ,/ESS# ,!AB6*8 T^*$4(
MALACJ#XPCD#X0A!E<)P"<&$(,1A "D'@!"$J<0AQ/$(<E- +.D@0 !A$(!90
M.!P2$MG+7Y)KF,4\9C*7V<QG1G.:U73G&,D03)ILLYO?#.<XRXF$<Z9SG>U\
M)Q$L8<]_6*,(*!  $HB@@@,@H0@R(( PBK%%8!S#&<0@1C&0< 0\YE$(A<#!
M 70@ "$<00A"@,8AID$(: AB&H7(Y!D(P$H !("B%L5HDW@A!$$TR18<]65+
M&:"HYEDJ']R(112:)(&\ F.O0F #8!W) F(:XAR&0( Q2$I31@ !!],D C)4
M:H:N&N*EW@2G.#\  W(ZLZ;H5"<[.=O50\@  N)PA$-)8  ;@(H &BF"&RC0
M1%X<@@T.P$$!6+#5 ;A  +:E+0PBH81#G($#,, M (H0+/"-T@T0 ,<K+#H+
M("!@( \X@P"(< AJ' (&+ "L8(^81*0,@(EK"T1=P8"$*5;QBEEL:A>E!\9>
MB9&,9AQ(]-3(1C>"01S$X(,_@B( ="A"CM;\1SKN*(0$ ^ !>H0!'_G@1T *
M 03"2$<0D! $(00!!($@I"'IIAE%@@,0,/!3K_X!@!X<S1\".!&-$3 H$*#(
M'V8  0@=H&'6M>!H]G"./3Z#"\NP1S,M0,+9P."#09705<$:U.]<9087#+D%
M4-",E7]L!@ 19\D;(D1_SG/FS_C R>VQ1Y3/!B<'[##&ABD'(#B'"VC\$@I.
MT AUX!:  ^#I!5<PCS>VH@ BX%*7L/$@+X'12'()(1 @@$ 3A0 (,&! '( 0
M1R1 +6I21R*)CW!O3W 0$1#\,L6S', AF]-11PZS94^<+P;<,%Y!V( '!.@ 
M>Y7XWI85DZ>&<8(^_*&'0_Y#'HH\  PHA@ 23%((Q-%'"Y0 %V6!  BA2P$6
M\D$-<><#&T^6!PAP28UUGUL(13A">^3A@PF@XPG.4"D\(>.)GBKA"&Y @"_X
M\(]^M$$"#)1"$9:3#W?0CQ]2@,(3P$"-*2Q<L0XWER[X,9V)$\,$$PC'(,XQ
MB'B=UA#>'<8H_[U6(LA[%:&"P3@&008!2 $(%  &GBE@XIF/(PHL&( / N#S
M*!3=&H:8QA&DX2L84" 8>A&'$!!. "ED.\;_T,?DK T7(1R"=Q38"@RD< @0
M'$ &8Z( $H)!K3:X8^I@( ,(7  7&Z0="<. QB"D  @2 $%L<($ !+QG71AT
M5@J*T,(+5_<]7^7@#0@@@ 3,(X4%N@/P_! \X9MN!@EP/2X*X+L)<+X-\8)!
M'Q:?>]WOGO=!?%L(DIP+# H!-P: P]G^4"0\ $ "/XE@3 S MJN4$ @V&, *
MQ/$'$0)12N-;W55$$(0= D"+0*BQBC,'@STX77TQ$  0@Y"$(-@HCD6001Z#
M^I6KVC#>0(BC/?ZH.1$ <63#M" (-(';A9V-_A,E!0%LH  @P"D'T23^\"@.
M8"H[1!I"8!J$L&A1<S3\4#L'T0:/1'?\T"32L#6FTC55T8"3H040J !']@^H
M414"T($W\X&F 00C6(+TD'[1XP!FX "JAP_0D#PD^#=@0 +IAT8T:(-T1P\Y
M&(&[0V1CX@#!,H#@ 09B,'?F 0NN\ _T\ 8>X!SJ-B8*H!%32 ].82JD$24;
MH@T0&'Q3X2<+R((;0@PC2($$T 7 @#$!\%>9(H $2 !@H !@@ ")A2E0J "S
M]A1^0AH;M2&(,$22!B>G4A5) ".(V"K^('S^$$58YP]Z)BOX8 A^IF&P0"XU
M6(F7R Z9Z&="  7/YP_IQP3K)PVXYS,^X"<]T$4PX"J8: @B@ 32 '^^  6:
M@@5(, O(8 ;VP$P (  ^\ $.DP))@ ^"D )*@ ]^D )?@ _-%@0BP ;,2 +8
MZ >808VM8@V*)#$4$WS$80UXA@#610:FAP ^4!5ZZ )[:%UUL([MN#L>$(^^
M\@;T6!4(  8.@(\ @ >F1P#U" $,D#R, P%LH +I1P:&80;)4CS'XQ,M (40
M,'_U!P'^B&<*H#$"D#PH0F,&>00/V15CPD<^D10'$$4,0)*:9I)SD401\0!@
MD"PGZ10P8%2M T3]P &6 0(?@'8^]7S6T$]/A@W0$ PP  @M^9!".!?F@$"\
M\ 'N!08HT)2:]I33))4/4)4V.1<XJ9.NLW'. )26D9$6:08H @=89PUG4%_E
MV);CL&?M@93 P !08!XJ))=T^0]VJ6$:$3[0X"M!D$-\>92;" &#"0"*(9$U
M! :R #=RXVS>H$@#,#&3-"C18QXM$XM+8A[L,1?F5F[CA@WE@0D,1PU4$7F2
MD0^T (=RV %'XPT<>7,_Y!S@X!SB,!QS(1GZ0 L0Z #;\P_>L(2.29'#N9N-
MQYB=-YSC4&87A#S_( Z'HP3IIY8(H);[\8K_  [>T$)2< 0Y"0N*!0YJ@5[Y
M  Y@(  YZ0,T09( 8'RA$@#KF9.W21RY21R[>2("H@OZX /!*01&D)-G( +I
MAR+@T 8:  ,'901/)@Y^)GC1"0A3< 13@)]@H T'VIUM8(/'R9@7VIU@H X<
M:9S8XQ,N4*(:,"CN!0YL( '1Z1-CAY\7NCO@P)$UJ@ 'XX/P^080P*!2X*#M
M :' H'F=MC",.:$5"@;0  8,Y)A3* XE^D@?Z@+U6%%:F*,'0P$Y&9X/&J%T
MX9B=!@XQ.EU]TIWE 0HO, &2,0 Z,()KVJ:R(!S $ V3()G @'N2Z$@@  5&
M6GAM0 -\ZJ>#MYPYX 8D4(G!P&B#:@&#-PC0, 2!R9@VYBJ.%$.,P@N5Z&SF
M8)G3-DDM0"[=M@#?1@)0@ 6+  $2 $\"8 6J^D6JNGD 4 )GT!7D(@7)@P 0
MH E@8 ZQNIPEH)8"P *()WSL$(O1\P_H('SFT &^ @+_\ Z_:ETMH#&>&0#_
MP Z(-ZV<AP#.RIC1BGC;]@_PX!SPD"TB8!F5J@Y<!P_<"@ N8 88(*[<5J[$
M<:ZZ0&/J>C03=:_OR@;6ZBO8:@[;NJH$X $*<@BA:A@FV)3J* %-J8\,T)0"
M:0!-60=F( 189PY+2*I_IY&/Y+%%MI.\>2IT9PX^(QG[0 5EN+$( Q.?$BI"
M!0S7  Q-0@I-.0;RJBQ\]VT2>JNY6D-4L A-8@A-.0=F(*@>"V94B*H\0'?H
M@"N 1P^X2H4_:QBX:A@U- 4#:@!+2!ST('AFX U@8)TD60:UVI1FH"E->09F
MP +>!F[0,)KFA@V8<6YW2PTE>Z;HD+(;9P$0" %00+1\=0"7&K2-Y"=<:(*=
M^ _JP!P X A8QPYG0 )/Z[B_9QB2,(7XP F%:8- J[53^ Y<RZ!FX Y.>(-"
MJ0Y3,&+!  V! (,E" \LX"><P+E@P &J:P"MNW:PZ[.21(53T(5;V[5F0*9T
MAP]22(5N +HF6+7X()WO  ;HH'KPP'?UUX\ T ^HX$BP!X4(L+C\4'MY2C?^
M\"K YQP\B0;486/GJXCJ^QDX0!TQ=KZ!6+++H0]6D"W&<">2QIL,H(B2T0\F
MX+^[Y$B"=P8: ">VBK5!6Z@_)!GQH JB 0:ZQ&+\H$B,26W61A-2$W@;8 ;\
M, 6+8 ':8'KZH'KC^PWZ$XA\B@![Y1<B?+_GL,$?M03K*06I.@%FD,(+H!&*
M4'L;(6EXQ@ UR@ '8P,(7*C6U9$)6!4-X!OX0 L_&;JZ"L%\@H*2T;G]X0N!
M6,1'?# :<+A:B\6D00!;[ ;]H0U?#'QAO"YC;,5&^D.D40!;# 1KS'\:_*GF
M00)+("L 0 I1)F:$8BAF8 $(2#__0 .BT0,GX@"NHE&#(@@[=LB)K'&>TLB/
M',ENQ9!N( @+EIV(G(2*# >:?#:<'  ,\,&TDGS8H@OWH @& P3::0H@L(4 
ML B=>#8."0"8\*X=.1"&<,N+JP_6!0!O\'>X/(7Z8&1'(P]BDG71+ ]@6!5B
M> ]L4(9TR#K+*P_!HC0#P0GH:0O1D'S1; \O4!5)D8*#:,V2<0\VH,V78@LG
M5(P(XRYH<(J(=\LEJ \YK C^X2E@0!<+8'=G8PS1TBEZYW?$# #,[,S/%LWZ
M,,W5# !B: _<4(:5Z@_;# S=?,^>PH>*90N5*,0.,P3,(@);<1 RL!5!L=($
MT-+*T]*%HM*V(],O?=,N;=,LS0\!(  TG=,]C48\'=,[#=,M_=-!7=0MC4;2
MP \%@ <YP =HI ] D +,(0<-A]4 8 ?Y( ]<K0?YH Y<[0?Y( Y<+0CY8 Y3
M#0 'D)XHG0^X$ 1D80 B@ QT#0 ><-=Y#19X318DP-=DH0*"#0 24-@,<->O
M$0150 5/P 4JX (J,!",[=A<L!%O  )FD 9L4 9SH   4-F/#0!C\ 9N0 =R
M\ 9LX )A, 9CD$:>O09T\ 9PX )IX 9J208ZP 5A4 >S/5URD-IR  )D4 :=
M30>W?08@4 *?/1!ZD!1A4-MP( ?P5 3!_0;#7=S'G=S+W=P630(&40 !\ /-
JPR>[!PD&, 0@H@.47058P-X 8(I4P-Z0H  ET,L- -J,(P &  G?!1H 
 
end