[comp.sys.atari.st] UPROOT - doc, source and binary

braner@batcomputer.UUCP (05/27/87)

(I sent this a month ago to comp.*.atari.st, but it never made it through.)

	UPROOT.TTP

 A program to make TOS forget its directory tree for a drive,
 and instead treat the drive as freshly-mounted media.
 Drive letter taken from command line  (Default: D).
 Waits for keypress when done, unless a second argument is given.
 Use periodically on RAM and HARD disks to avoid TOS bug.
 (I put the line "uproot D silently" in my "cc" shell script.)
 As far as I know this program is completely harmless,
 		BUT: use at your own risk!

 		   >>> WARNING <<<

 Using this program does _NOT_ break the 40-folder limit!
   It only avoids the crashes that occur after the same
          few folders are reopened many times.

 	By Moshe Braner,	870401.

>>>>> cut here, uudecode and de-arc to get uproot.c and uproot.ttp <<<<<
begin 644 uproot.arc
M&@A54%)/3U0N0P      'P<  +H.\KF;<9H*   ,+U0T4 !"18(J4*0\>4+%a
M!14J4 86E*@"1! 0<.2\.2,G3!L0=-Z :!-F31D05)Y, 6'FC9PS9>B 2$-Ga
M#@@R:>24&1-23AZ0.D^VE ,BS$TY:>R4<4$1!!&D2D&PB4FG#%$Z)<NX8:GQa
MXY@W;4BZ(2,UC9N3(% 0*6,F3!TV='0X3<&48,4K86C:' K"9)Z,9>;8O(-&a
MZ\TW9UF J.-FJN"B(.;L1$PVS,LZ;;3*3&/S3%*M=0N"J"(9H]4T;W"."<.&a
MS4_$(*0$:5)T+ @D0:00N<EYC<V01>V\24,VY4HQ=<Z$%F@W :0!()[[> [Ba
M2FXG29P< <'C.46*!^>8/0,2#6>,&CEZ/!P8Q!<G#+^ $*.S9/F3-&"T:,F&a
MC-6R;= 4 G@@@)"$3(BY%MQP9/Q6& AC=#1'80Z&@> 88]1!5!AF5'75@W-Xa
M5 :!D"1@1AEWL/1&?U;99-E).KT!AU9ED"763W2DD=D<RS4%@A _-?'&A"<)a
MT=%9<K"00 (XW !#?C$L]\)  XU@UAALU.$?=T.*8189+J#A Y4*C."?&6:=a
M=,43NB5@%AT)! 1"##;,IY=<)[QYPDQ;-5'&&1Z%@4=!4RHP$!U_U<A69'3(a
M40=/\\$A!@A[#)3 FFWJ-(9X>NQ@*:9$)( EIYXJ<"F;H8Z:AAYBE'IJIF1,a
MY8:KH)I(ZJ>HFFBAIK3F2L:N._7:IAN882ELJ&*8P4889\Q1:A\_0B%$J0,%a
MU)1&=>1X%D@B26:;48B5T<*$;\B4&4YAM'"F6325X5H+8Z 1AALPD='4CB'"a
MQ"T(1Q31!!$JI65'&D9)<4<88LQ!%T6%EH&'AUN1T4:\**10JL,0'V4'L6U4a
M7&H8<[0Q4*4*2!RO#@DT\805103APA4)C  #'C3<8 ,+0<"PI)P&(SQ'Q2 Ha
MQ9-+":A0: ),M)S BF0(C0(40Z2 <PR6JLRR"TPD@$+.4F\=0PH[5Q1B5$POa
M:;2E20>1 !UMP.$TU%('0;6I5A>!=0)RL[ U#& _)R<<;Y@$PEEWF'VT%%1,a
M<6C;0J-<]\L)D"''QI@]'34+1,!@Z1!-0 %Y##1L?8/4F8<-DF4PR23Y9S\4a
M?;00143APA0)N/'&'56O;'?63+]]><ZFDR&2[7*0Q(;AEBK1N=9<#V3['8[Ka
M?G?O.UDN]<PUVQ!G13K-T=-)Q!L?V\$)NYX[RU'$W +HF.OL=T4BG$LP"/+:a
M%.^\]8I@OJF(*ZX ]6- &1&&<#?-E6QR'!,@ 6%FP#Z0R5IV 0$4D.(&F1B%a
M#8@ASYO^]!^00<9[%%0.PP:2$3JP(0TH<$,*+*43SWCO/QBDU^!*1;($M) Sa
M'H*0O(BB CBXZGYR2$ 8MB #&'2!6J:" PAZ  (3##$&.3BBI7JX1!# P%7"a
MHY2EBH:"%K0 #BFH8@I+$ .^@6 %(#@!#$[@JMJ!X 5,+*.KH$68-$PE+2ITa
MU1"^XH8[_ R,SR(32<R" M2-03&HL\,*3?4F(;YD##_<8=$2N04I*J"&-WPAa
M4=X$(5<U4G)V4(P8X# 'Q<P!#H<,FE7$,*0RN"J&9TB &/)0E5+RQ@TMV0(-a
M+)D (4BK:*-L%9FV!X+400@L8B'+";>%.LQHQB9G,Y2IQE#%$Q"!C<%CBUO@a
MLC\WF2$MA@2!#^84QAJ*JHJ4C$$7MF#$-J;AFR@8@P]Z<((P[,D$)H 0#^@)a
MAQ,LTCD#H.8*F'B"()R@!?5DXQ;?F19J\B"-!@4!'_@ (7&F$0K^M-1SJ$G0a
M:\[14J"LXA@0:M =F X&/0B"8F+0 R$HQ@74B::E&%K(1UI4!O],@%+DP,K2a
M,/&*EG*79+:XTYZ>)(XFE=.9M@DGF3(2GD5M94[WB!@_HD $7(#!#&90!"[(a
M@0MN "L7Z( 0A3!DK&.U0Y1@@%8ZS!($0B+2CXYD%:^*U0TBL-@PY61,G,QAa
M#1BQC(@\M)>NV&E(@>U(9G(H!@R. ;!.E:6DQ.A+(10DC$>(23!1 $J]FFJ4a
M-F%B,%O@ TV1RG2SK*5IB"*9H06QFZ?D:*3$0%I5=<ITK>V)369$%"S509/(a
MD^;V+"4:(HCD#1H:25ZV0@?ST$L'Q*U( HS@DC&<Q"CR2Q=NI@ O>=&K1B,)a
M3+Y.@AC@].M?*AF0J0@U3!6@  6<5$$*3 !*CH61B:!TU13J,",\5(^^$T.#a
MQ4QG%N^QA@WA15<+MMM=_('W*_[I)A',$!3.FJ4E+ #E"KZ6U(JLIC4SD4ESa
ML74&-/#+7P"CW?YF"L\0J)*G4MVBPVB" KXA,0%4[>//L$J'IWR&?A[,JZM2a
MVQ[\7O@-[.R":&(K&M"ZJH0G1 &1%:9'/EI5!/.A97LH7 ;R9@L$;_BFD"TUa
MY2KB!)=(5N>24=ED4CY9#B9$X90]BV,K[]BN80TK'9! D]K\Q"\@&+.IAG"6a
M,1#2LPY4 !H(55!23T]4+E144    !0,  "Z#MJYX_/<$   #& T    008 a
M2 ,0#3S Y* #)_D.#F  <> #6BJ>J&@#@ "(%@ 80&L%@,)( !R@\1H8 H (a
M -(:">/U#Z$_%T%> 'C10,B9'SP *'$2Y!L_B0Q <,0@8NFT=B@_EIP"Z(V!a
M"2"B(/O'3RE!J1RH"L&@E2L*CA"R0>60H@G7C0 0."%I  0;KDC0  #D1!<#a
M85@>O6#QS]X/POKZ F#%Y1'0@7T'4'@<Y+$ HH&=U('!AX"=(?H F! !"0!Ha
M '43:8:A R6L-P <G*FK)[83:"%"(_ ,1Y[F@P:<6/G'#LFY !!<N(@;Q-V_a
M?R:0",%Z0">(H @5Z.Q; %A@$!]42H1Q 0"(ZN:Q#] .@#LI\(&7GS<#X)^Ra
M%PL>)^B;P$MC)M\@P)<7F@GW#S@_'.!#4$0PX 8  <0%&P V@/"@ B#H18 'a
M$"!Q" -' ! &1[&!"  <#Z+F#1\'FA@$B0J8",6$!BP( !$P'% :'P $T0,0a
M__CC(  "2#B0 D*X\0\^8 R$0 \\!K D#"XL><9 ';(QD'Y](6!-8S]4Z<]Ca
M!W196F M  F.A0?V  57;(+3@UX"_*-/$/KX@P\("(  ! RN!(F$'O[P\I@)a
M7?+1&)5!2@'$#P @H20YC]G0I2!0/,(H/O0!@.09?04@"16/(*$E"ESJ@@ 9a
MC8%0)3DZ,:H/$L!LIPL!\H 7:Y7\T&HK >* E^8_]+Q0)3U]^0-(8*8"0$.Ja
M")#0:I7H[&JGK^W=*HNN ##::ZW9$B"*L$ 6>VRR0#"K)1*I'D .F$')I<L!a
MVI#JPP=.$%B'<%LN)Z\!3)#JX"!.NF$ #$$! (8'8<;UF ]]':!*8#D D0\\a
MLR'\'!@$( R9O@;ZTZP6QL85,2B9*@'$&6 T"T;)\A[@2,HK.]&L&3!'S ?-a
M9_#@$\R/\1 Q$YG^&"0#0 S$!@,Y*.G/Q1K_ P8.5(8$#!\@  !IF$%RQT5@a
M"WLL@ S+_87U7I7MY"]W]C1FM#^,^I-O@5;TZW!03/1E #J9@3R</_@%P8X^a
M0D0'A@4PK.#IU0 ,< 8"^"FF0F#6'$4!" L(3K@("$BS$@ %T )+(&U@T["\a
M_[A"J@E?S+UOW3LM8,*#D"^@&!&!J9PQ#QO#D/CB/$)PAG:*!W>K)($)L8:Ga
M/RA.D2[^E$:J[@?S+G7'";/N.K^1'@?!['']K@#C YB!0-1- H")"Q-XL@IJa
MXC,.R!E6Q,^C &94O[$=]G=T!@26$<(IFA>2R @@4PEZ0?$(^+P#0"!32'M.a
M_M '! &LX1]_\%2.:!6-]SD #"1@P/(0PH W<. Q ?@= 8@ !&PQL"\"L$6Fa
M3I T!YC@?0907D<\!@  "6A[P^G5<6  /@8DB2L0F  2  $+'HG!?%#*&E>Da
ML(@D+K&) )##&3BD1";RZ YGH( 5O2BBX5WG( 1H4@",  (6Y$,>)  " P"!a
M1C.H0'-"( $2P  !&*@ >(TS@P .1PW+@4 !>.2<YP82NM&UP1N'3&3G/M=(a
MTF$(.VD<B#R$P(HW"D$-GCJB/R"@N !<D4<K, ,#H$2D( $ E /PU!BQ> <Sa
M8(!K_,B9+OHAK4?X8""@+)("P("&6?(H#&80@M@ H21^0$J7 _!#8WX9P7^8a
M 8"\TB4_S#%-K05%  ),4*CLD*E7HL938.! W)C)E6>N31<#X$$WS1FA&!U!a
M@D8$Y271" 88U"!$^>S(&2%! !( H@1),P *P_G'YP6  YE":&QJP 9])$T"a
MAP30'($XD!0\" )O+!D$^M(/)@2F9 S0I3^(]@@@"NH<\   "?QE!@4 XB@ a
M$ (@A! (,"A!!&43I1("P08#6,%I1 B$$@115"D@51!V"  M D$& XQ#$.,8a
M!!CLH=.IBH$ @!B$) 0A#D6(8Q%DD,>0!A"D-@@@J>)PCC_(\%9 I"DN+0A"a
M2  $@ >X5!\Z$:HKXL(&!#@U2$08+ *4,%@&%/:P_DAL2*HV/G?$9ECZJ!H"a
M@&%9!T1#29E=3F5#\ED[">!!4O+'&588*'T("[0%]((+/J&$5W2D0'[[AUH?a
MA! $L.&2-<DD ,:T' ><KF0*>(P08*@,;QQ% </BQQS1V(8^\2I]TD#AZ<(9a
ME.7J0@"@<*ZGAH4/RVQW@-V%H2'$"]UR#2E"#C"# URU)&@,MKWH#.&#BA3?a
M^1[+ON--VC =4#79](EW! 6#&%SE*5@$BAYO\("D=,M@!93FP3HYW6.  $,0a
MB->(/_$7<I4+0P6P=[H$[0(P&!> BEW,C A.XS 1( 0V7*S"'%7;W0"0A% Ya
MHS$N]8<HP6"#N)4#$(+#!S"@ 0P80, ,(C RDMFA9"8#*GQB.G*2A6'E^X*!a
M 9 =$A/:*HP@#]D$4D[RDIL, 5C03KYIIO*:A0"%,#]HS/YH@S2"G" ?^ M*a
M*0R2FD6 !&G(U1=0F T6D# +9)C!'C!  9'N%>1FL4&7 ?  S6H*)8(%*7V>a
M:)8<,'W 1ZB,TWP0Q'/\D3Y!- L/N@2 .3;]I%3[X]-FJ!H#6'P&&& : ;E;a
MF?ZD!H:?^2MHBBD- KT) (CI @"$"(RNR>?.'?= ,6PH&I#\X6)X($UIPP8#a
M!J9]MJV)*5E^D/:Y]96")."#%RE0 CYPD8(OX(,63FB""-CP;A+P&Q>#N;=Fa
MVOWN>,^[W@)WPK[[_>^ X[L.!(>WO.EM;WP'8>&\\/>\'4ZW@1BG6^"+UH,8a
MD#X#4%$*BDCBE0B21 E(  F!N&(0KO0/=8S1 B\?1&F&D#X!:+0]?AL(T((2a
MA+[\@Q*-Z?;CT&< CO$PQV"@@87B H$.D5$!\GU, RQC]*\]8NJ&56S5E[BUa
M;QH==YHJVQ1&?FI@0!T#8)>"V*U>]MOJXA\64'=(UAZ24W/C[7&?.]F978!Da
M\2WM>V<[$,SP]]S*X^-$O! )EB X /BA!4@HS,"<9 8+-,P!D;L[#=SV( =\a
M&D),<)"JX]+YSX=>:J2/S>D#X +5^X/UGB_NZ^$0>].S&D(0:,$2["3*TY$4a
M ]-;_$!,D3Y*0.#E5^^4(0YY83MA$0!O  +U =!:6@U+'L:R4_CEH>&@<!AZa
M$OAPMVGE8-TNW7KI0P4,W B/T@*N2O9X@7H$4'X G+\?W*!^%N-M22, N[,Qa
M= !9*'=(F 4& K" %@8 B^!FL5$&]4$&?(0Y-E!<QO YSP$-@Q!'V]=]P/!]a
MX0=854)^QV9^)*4' G@Q[!<H\G" 4M-']&=_-08U8O)S0,1JQI%"1\0/1T0Xa
M@<)5,I@#46(G@4=U5L<X__ V#(8 )@ $<20$1Z!&5&!,YG$&**"%";!%6M@ a
M8:2%"C \6L@ 9J!.5:(/<,8KJQ6$0J !'$,!1P$"Z3-*781%(F &//!>=I(_a
M0P@&*N M9@ "LF(&&L!*4I)9B"$%=Z$/6N8.K,9D(* (<W@4(I ^N*"%)V &a
M.C D=<*&.01:@DB(AKB&B,A*H3A_=N*(=A*)DP@,E7B) ' "8" 'A*@&AT@&a
MBHA$><@C7U!3AR0%=@4D]N!36N@%9N "F$.,?C)V9*2,$'!(5%",NM6+\/!Ea
MPVB-FZ0DV2@!K*@/K@B)2":)8$")BD !T]",BY C4G $.>)F;35<IB $&(5_a
M9\ "> 0"2! #4>(I^]B/?% D /!R%24$S2((X6</?7$/BO!A]#6#,J Y5L"/a
M_D@DGF(J^E _58(Q"%!YA, G8&  E3=]D*,VNM604O!AX>@HP7 4!.!"08$$a
M?;$/+M 8*6",-A(  9$CL'B.LE@0!U .@6 7A0$-P0 "@/".\?B(CV24]E")a
MX7AD4,ED0E :&C4@FC$$@R,$(G 4!"4#./65:"26 )  8DDP9!F68PF6!&"6a
M+N&68AD 8\,/:BF7_% D:_F6;5F6_$"7:1F7?EDDTL /!8 '2%@D%I4"/$)0a
M;Z09&U $#:  "I  55!G3_ $5)  "6 ',> ",,"98I '(- $;S ':% &(" $a
M<A &;E &<C"9"C 0"4 $<I &=J"::! &<Y U(#":=% &O6D&<E &JOD&=4 'a
M(/ &A0@ LID 2) &RNF:I+D&94": S$$3^ $K=$C58 %W5EG5-"=VLF= Q$$a
9WQF>4C"> S&9 R$'(@( =X!& F     :    a
 a
end