🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.atari.st
Article #24382

Excess-file removal program

#24382
From: John Purbrick
Date: Sun, 11 Jan 1987 02:52
147 lines
9358 bytes
[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
Technical Details
Message-ID: <2778@mit-hermes.AI.MIT.EDU>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!columbia!rutgers!mit-eddie!mit-hermes!jpexg

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!seismo!columbia!rutgers!mit-eddie!mit-hermes!jpexg
From: jpexg@mit-hermes.AI.MIT.EDU (John Purbrick)
Newsgroups: comp.sys.atari.st
Subject: Excess-file removal program
Message-ID: <2778@mit-hermes.AI.MIT.EDU>
Date: Sat, 10-Jan-87 21:52:40 EST
Article-I.D.: mit-herm.2778
Posted: Sat Jan 10 21:52:40 1987
Date-Received: Sun, 11-Jan-87 02:39:46 EST
Organization: MIT AI Lab, Cambridge, MA
Lines: 147
Keywords: Follows AUTODISK, deletes AUTO folder etc