Article View: comp.sys.zenith.z100
Article #939ZVTREE Z100 subdirectory display
From: Todd Merriman
Date: Fri, 24 Feb 1989 12:13
Date: Fri, 24 Feb 1989 12:13
143 lines
9107 bytes
9107 bytes
This is a subdirectory display utility for the Z100.
It is adapted from VTREE.
begin 644 zvtree.arc
M&@A:5E12144N05--``3?'Q0``%<28ZF$2@$H```,.Q)HL4)%2I$B(%JT`!$$
MA)4T<^J$80."BIPR95K,H2.GSA@Z=2Z2`1%1#)DT%S^^D9,'!!N(=!HH"-@#
MD@&9.W`F2(!B3`H08][`R2,GS1DT=$`,01-&#ILR<T!`*4-'SQLV9%B`B)$#
M1PV<.A,$F3.G3!LQ3^6`,)/FJ8X$0YXT6;NR39B8,W=**1.G#DJS9=S0F?.6
MR),I(&2X@`%B)0@T1M&4D1,62M,P;:A.)IS@"1PZ:=ZXF0B"2%$[94!,@5-F
M3!JV8^Z&=@,V[]XV;U"/3"*D20LH0T"<D1,&#N0Q0)D2_[@91!@W(R_"81-F
M3)F1=]+000-"2V#MW+7$@`%#Y_#BQZ..45Z=3O/GT0-CO@Z"SION!`T6<1%V
M_(L<+^!@`PAA4?$&&2,U,5E1=KE!8%X)&%$'2!<I]48;;=3A1AJQ@2;:'&$%
M00=U@H6AU1%!R(03"$T$,8043^@`0FE)3`$%$T%D`<))<TP71AY1A4$21VFX
M<49]D[51Y%WT9;<="">0<(),1-1X8XX)M/CB$PE,45`23APA4Y9/6)$`$5BP
M\(011DQ1!!6J?1GFF$V4*182+,"0`Q)C@DE%`C+$P*<""13A!!%-J*C`$&X>
ML=,499R1F6!CBD56'9G!-84.C!9QA%9$;-KIIR`4(6JC6DUQJJ>*[O2$'&<D
M0%X-2\EDQ!!"[,1$&&*4P48"0N3AWDX[@'!%6Q0%56*1.YZ6&AR79>8>90I4
M^FJLY.$``QI4EF%&&'6P00<15`21P*Z]_AKLL`D46T59(YGA&!MOO+%&"V%(
M%L9(936U'E2M=@:KK.-M*U,1@K'T5@)*M`$'L)$62:Q4<KQQ7AL@!,912W"\
M421>.C7QQD:EW16&3BU`DH"BD/J+QEBNI:%%`F2(D<`/+(B@`Q<JN*"""'E.
M_(-P5$5%AK,DL39&P#4G<`(*0_PTA%!$19;44DT]%=5455V5U59=U3!EM0J8
ME@9J1<A1L1QO-7U"$F[8,5$:(_&X1K-GER%ENZ6J[5AF9(5Q1AE4CFS%9FFO
M3;/-)^S5UU]1&8:88HRML'>Q0;CQQG:39>RW6H#/(3CA"@CQG!N3[>1V?@?1
MI99W&SXI'GDGL!###+;#D#L+48Y]!''&B::ZS3#$(`8:O!M1>^\3S\[8><9Q
M&!5N9*0FFDR_H_>&&68L3O#QO!^Q_-Y\0Y\>"-1;S[VM*&WTJA-EX$&']S`D
M`,D`Q1I!W9'RJM6O'/\"D0*84`;4L&$.<*/9'61E/_R5YB\J88E+"N@K$*"`
M,3T`0<4VEP*9M`R`:)@"D8SD/1'PS&=`JQ_?8):&-.C!=2`0P40HPA:MB<"#
M97`9%#PFF-2188$S`,$*0/`$[I4E*1]<#PMEQC>$C61[JLDA")>HA2$5Q4A4
M*M<./^;#!1;1#$<L%72@4+%8\0T*U+$.#,<0DHL(IC3EHE(8YH"&J6EH?C^\
M60/SYQ@TK,2%HJ$#:5Z".J"\X8Z*"LA26G.WH^4-!')[R4GHT!+XE.8P#MG,
M;%`&"1(H2@@1<\/"AN`PL3`A3VQ"P\06.8:[]<\A<QN)V5"C&J6]AD.RN1ZA
M&.8&/9S)6:MIS1.6P+<DF(&(2]`*'"IFG>L$C(!A.%.:9EF&Q*V$;T_@G!RR
M4Q80+/-CSG'0@OX&%=$-+@0'^UP1\*"=MXC,#G=B00XF1D9P;N2*1ZH4W.87
M*%7R[7YB:$ELV$#((TDN8/L$U+8FEKF1Q$\[BJ)F,,<PS,)8"4<Z,IT;4$>M
M2KTSGC-8*-_>E1K)U><^@TL*YQZTDX3V<V+W.YP<YC`;$#@!4[WJZ"Y)^;`@
MG%(&$X-4:EX#`NV<("J4:XQ:>)6;U%1*"6$HPYD,MYEA%O.8<WB#,IF)$3*L
MC&RZRJ$T64`$JL[4FG+`IC:Y^:PK)N4YGEL;^LHY.G3NLF$/0^LZM7-&M\XU
M<(,#@0DRQLZD)#(!1Z#*CB#22*2]DB,8X>0%(FK6.50T2[DQ)0NV<"LA=(%O
MB4V*(VD)+>)(JW-FJ!C&.FNMM/J4!3X-*D:*>DRC1D4/D[D/"JKWK7#1H8-W
M[64"G+`Y(G@+7.*Z*@@T1P>MS&$-:8"#<]92ACL4U0WW](B'L!NPCP8!3USQ
M9[%"NZ/C^A9OJ-&G8``5`_&"`*`"G6&1#'H8A+IA#*:<&!5"@EWTIB8(,LH@
M8^SC7X8$>"N*(NZXS"LN=V:6"*>,+=\@E10(G[3`;L!IYU``8!!D,`;`W4D0
M$*39$P#A!*L4#6KDH-+[K.<RS%&+"((`M(S186F[_.@6DOBR.<1,"UV`+1/.
M.*&B)H59A_2?%-=CQ?E6:@A8V2-#"-ID(RTV)=N-2O_NT!0R'+:L(.B9"DBR
M9.Z\LB0M.`F6_PBPO*3,KC)I0AB*Q(1ZP<'!\$339LD5A"WV4`Z?!:UBV:@V
MC<&Q(?LZ6CD]FMGOVBX(JKQ?L2A<'\D<6KW\;*^4X0L4^5KYH&#%+#R%D*8M
M$-"`"'1#H(M%:@V689E0T5A4GF+`2HW8JZ1F`:FE7-8ZH&6H27EEHB]"%B?O
MM)2<;1\=WA<_.@19A9.>+5&W`Y&B:EG99';94X5KA"*1`7[RZ_93)F;,Y6[.
MN="5;E8S8\CJ/8C1\+S"2D8"!8Z`8,>^)@)*[/AG(8*`U,_F&[^3LI&F#,8Y
M22E/J#^JYR^&D<=4Y)N^URQ!`O^/R?V#-US2-)Y(.W#BK;&/!.]")#%,*#47
MYU:.&XTG&A3!X_GS]EJP74/2M72]+Y7T>P<0T$X3=+Z7G$+`\-HE/[*X(E"A
M@YQO[%ZATA8$=RC#"6AYALVA[R[K452WH0-N.HB[#'B.)PV,`',BKA4BJ6$+
M=);;[)D_!=/L+3NG!UK0H"N*"DE?^GK>HH3[)@#O&Q$11\A]S"'HR`S[,S?!
MJ:(598$FPS9G6"F)*[*+?'T.$\NF9+:)=JUH#GTK27M;VBP3P--!\&P3=9>2
ML&<M\G!:JU9-$LQMW8Y]+"H$YO.32[FNU-1;+3N>_1`#%>2.\\WT3Q>2FD.^
MDCQLVY=;_W:SOTYXQ6N%7D(!01VD^TK4R4_KAX3.Q!&VL;?<>O4L"*F4IS![
MVPL&]_=9?@1;,IK,[/YAO9>*O8,?Y!.X`,71-E2U10='!0(NH%0&>(`:PQ)/
M!7W>UG74IUQ9=7UVIGW<YQC>!S)Y@01A0$ORHB$C(2211#=7QGP2M(#.YV:0
M<$.A!C?X)6]R0&_[-P7YMF_A-RW^!G"@977/L3F;UQBHHW%#4&JGYBNI%GLW
M=1:=`T6T9H3E]6I/-09XX$MU9B^0ED-DP&/5MT'-11+I=EW54R+;%3`\E0`P
M*(/`1X-B,'$#USE#!'"V,V'2=DQL,5/!%GY>=E>^1%RK41UED$`2J%7F!H8:
MDTO<%6IJ""QILFLZ)T(&1XAX@'`@@%L5HRAP$X9T4(5WIGJO=0)@@&(Z)U.@
M,5`N422I\6++,2T:YV@Q4"FF9X;SIG]I6(-RT(9J\898$&3:<C\JMQ-*X$M'
ML#E3(QA%4@=E@#5I-5+=1%0;@2R@5R%J-FO>HH$[X5VG=`)0`@)2IGF3P5;:
MUTU"@A;/L0:5@@77Y&C?A3W"&$C%>(S*P2DSE`#U)!C(R%!K]TUO!%&A!@5U
M0$<;MWX=F!HKU80'9$B(M'"9-82V8P-2!C_T$0,#(HYNL`91X6V%.(:E0R)K
MH(EAUXE0(F54`!D5B7N6)I'DN$OFZ%IXDHX[%8_S2`?UR#=7T%;@I(^Z8F?`
MHI&::(\C@7T7J!8KE8$!LT,/,X12MA=$0D&5EAH$J1XW:%_XQ8@.M`0<<C?;
MMY03A&J0J%Y1B04@F1UJU"NQT8^I<0>Q6!W601;/A).7J#$[R3>:"$,SA)5-
MF6!OT(?6`3=O489G*(OWIH9L>(-N^&^Y&(<!^'1U2#*B$7E]1X7UL@97N"]:
MJ%S,Y871-5TO00<C0CI"6&I$,$=U=(-(J&%JP82F"'_>Y%9R1$<OV9'7&`:@
MZ$!(\$=642(404BGR!XQMHK@]60NZ58Q62PON91M4"D[^9FLZ58\Z1(5^$IW
MX$=/89"40C:*)!FM!$.X`8T0)')I`!475CW3HB2%M$Q"T3FXF1PP-BT"%!`I
MXP.*4H60J2]96&8ZP(_^R'X`25KV1F#R)W+T-Q_OMG+PQ'ZMUV>O-QFQ1VE9
M%1)JE'MQ)*!GPGH.IUC&U5OBPF=R*%I)MR3;=6':THNJIV=5(F5!<$#W@286
M1)8]R21R$&*JIY`T,`-2%J/HF8K-06`<\1QS8`:342E[\3#O-`<VHW/O))"2
M@3%%,I1"L7I21EYB4!V-M)W-MUP`^ADZ58TL]VAE1VE"@CK6I7N[Y%*:IG-S
MYVGT)71DPTIK8$R9DP>5!W:<V')D)V71AY49Z':1)Z9RQW/Q]7.?5E]WA5]#
M\!Q>YVV9XX.I(W`Z$D9$%1MN<`+!)G.+28:\)RR^MW\5BESC4B[^1GRYHTK%
M@GQ$I7Q2RH#!Y4MJRJ9NX*:A5WW,I155IYE"LC'.<09S1AN[M(K7.`>Q62RS
M612U*4@4<0<O`$F3,8JDD2YO<`>\:3OW!XLQZ)?XMH8V>$>#"8>MJ(>(M3G!
M>"#!61$B:6W"42\C052V-7-VV%V-=HUVT*N9Q&*X-*S%:G2`9)L:9#7-FJV^
M6$I38'1)$8QTT*UD4(_%PHU`R10.DIAW"(**,JB"$7V'JDTZ8(V\`YM2]JOU
M*JRE6$BHV!X]"J&L^*Q]^7M_28NVF(.%J:\,`XS<2J[?&I+55FU5=R"(B6V3
MBI#PU(E2)V5U%G5J\11FD!1!(0<<E:^M!:UH6++46HN">8N$J8LPP(M\HS^"
M,XC9R9D*`+`"BXQ[^9L?\ZW#N1UW4:,>NU0FJJXY^YKNBK'!.DBF2+:[";*]
MV9($)8_`J1SVB*AJ@8_4R(G7^)&-""UAZ2VAAZ=4:G\H>8XK.2@[,:AU^Y)@
MZU<KU2-^>%C$57M^57_J4X+S%TXA"`>LL78$QF-^AH/W9&SL"0GNB;,;9SLR
MRC=)F%.-<4P=&V,5Z2":JW%5LEFD>Z"`UD1K!T6$YD:+YS+.X6,MI`<R\9).
M,!\<>2X'(J1-JE@KU9]3JKEPJXJ[]"J:)6'%HJ9/=ZZ4>!_AR:$KT8"%`AU%
MU+R94BSE-H%0)W45,K8K%1AY6"DB-#)#ZD!3$)!`F#'!BU5E=KPQH[R)JY*P
MQ;APX;7TB+>8<X]^I1W.8:)?99PXR;S.BY/%$I>O9!?LE"$8DV%*6)JTJQP"
M=##J:P;L"Z<4BXTH-F&C>#?AJ)&26+_048Z*F\"^^;AWVQ1]!4XK99(:MP7(
M&9IW%&1&.6G^^TK4@8-D`)K>.;;VJW5I@`=5``<\%G8[5F:EBZ!DE02P6UT`
M_$3'-$<%7&5GP)4)L,4ZY+NQ5[H7=J>UJ[U8.J`2:D2*Q6,BA$\RZ8RX04O,
M<D(JD"=HW)DL4`-2E@0$&!6BP08MP1:T-,>;X:.O)FK22Z1-9637A;4WAU^F
M1D$'!#>Q-Y,G4"&+F9455#VOUCF:PZP0FFQVR&SR$W!]]6I-D7:.D7+HNA&V
M1F)$['I<!&@L$*,3`S]?RJG9066]PG;7X4QW54IR1F<XR3>F<YU726"]<@9%
MLB%81)UF*!FX>Q]7BZ=!4B$?"!U:`1KLALU0:H$7!FMV$!K]2!*^9KVFFKI&
M$*"4%WJ7MY?(5H2AK&I!(X<"&+^EG!I/>IW,PH7HBW=R()Y,4GWP&W4'/<$4
M00:+"6>[](HC.X,FV[0H&V0W8`2\^'S``J57_`2H,W'5-[9/,4=)<<HU1Q<,
MR[JO=3LDVFEJDP:CXVH4@JL[D9+QQ)*-R\`PB;?_-`#5QK?.7,>:-1XY?9X\
MVM0)(-3HJ,".^RN0B]3%<C]VL091S';6=9Z?A-)PH-)E,'%AM[L3BD1E%G$;
M3!4%B'TR7+P@5,@0JI`W4#\ZI\@&B16/X;][G;V3#+*GQ-<.1,I4ILO"-HFY
M1<EP(%Q3$!N7[$`$M,@[<A_Z6"G&A5\CVHCWX7X'1V#CB[:M:P,TT)#+:M"+
M/<`)O09<%H,"Y-2=R`7N:@3S`M,D01UTA+]TX%600`"L!J6Q3091D7*0+=F4
MO;_%`F82+!K6D=R^--ESQ-P,8:O,\DIJ9M`5\M+QW,UJ_-G\&]JOAYISP-L@
MJF.]&\Q!-J+%8LQC/+L$G+QXW<EKO-Y_%GM!\!$205`M<<J2##JA9]H$VM91
MY#)[/%^PN]K%$;HC(<B$3&`V^:)I@L@ZUVV1K)OJ^611%MSNF[`K4=R<BY%Z
M4<E!:MU%2IS7U;>=O<8`?803,Y/C"@*O#81,"<I#W&VQ+`==5WP3PX&T9'$#
MG(&>9W4QP,N[E(B_;*#L/<RO*YP7$<^'%#G([(S+K*)/!<VW^I;#;<W2A<VA
MQ,WY1#8.#='N\18NM5`Z5^8<VE868UJ'M=5-0<]B4#$3\K8*D9JW-UT!_K^3
M.P87$1B<A`,Z07Z=XR3<\5T]$`,P9#[20]ARH!6*SAB/U78!7AMRGGKVJ4IH
M$C!/(`5#K<!*X`0S0T:",1RZ&V%#)G%,0#2C;6F7+K<L`%0__$9]+AJ+U2/4
MD8(WEVGN5:9^>J99_C!3@`2?#B>F_MLWF^S#H0.5LNEB@06<?5%8DCW!`]3R
MN*1!X)5?Y=00)F038V$I19*YF9X?2]MX0NM0#DZW[B`\XB.\G@!Z"E-\ZG-U
M!VH[424V@E$@8.U^M#X*D.P8C3K.ODM$*4T!@Y2'9;`[8C+.<1%S]!B3D1I2
MO'99I11R8;ATM!)O%14=4VR_QDD%[T$?;:UIA2Z^@K3V(]P6<D=&@Q(`G)0G
MK`!.1$86LQ-\40<)@-K^9N"`6:U_)G'E$A55)_$7T;"-LA-.A*:5XD1BM#$R
MH0&0D(<:"%I65%)%12Y#3TT`!-\^`@``5Q+[JNY<6@(```SK_$`"`$`'%Q4N
M5`!`,20%B"%OX.21D^8,&CH/T821PZ;,'!!0RM#1\X8-&18@8N3`42.)&SMA
MV*0A`X),FCEK:E*T4X:$E#)QZJ21XQ$$D2=30,AP`0/$"A)6J$@I4@2$F3=R
M0&@IXR8-'31:8\"`T4"!`A(;C*`]0@(`I`$'$P(P$$#3`((\_M51T,A"BP"T
M$C0+T0R$KBF`!8>@!6,P#P%S#/0%$F!=.5!<`"@`5L<`K0R#_0%3!(T`$%$#
M`O!;9($/8`V#%WF8$V#`-D`^Y`0`4$?"L4-:[@+0E3H7!`"TG`Q>1X#6D\%S
M!J2S!V"1#=>`^%2`4*?=(&,>`/%P0:?</^`#%CF@/4[(H%_!`]`YL6(;+#"T
M`MQ##P`0'0*P*$4..A4$$(5Q``0HPX`*!"#./5D,,80XV[P77QT-J.='`+"$
MD1\Z\0#PH!76N?8+(-5=D\L*`,Q#BA>TP+;8<R'(@0%NE0#`W3RPS)&?A:G1
ML0$L=N2W3@4=_@A?D`K`4D9^@3P27'_HE)*@AP&@XTF"`J)S"0"Y-%"=#WH$
MP,IF=""@RH+H%"(BCUWR`4`B#FR8")D!_&-`F;[4$4`N!;1(BIZT&6.`;@`,
M8H!K*Z2CC3^#^$`;`'0XL5]P__Q1AP.P-,!F$`DJP*8.`/Q2G!$)`B"/*T_D
M`D2"7/2SZJI'W%FFGGSZ"2@`_+CXSWH!&*I;`(.XP&@ZA?A3F!0*D%,'`J31
M(L!R%D"A"QN)#89%M-.&H,L;V8:@Q3`:"%I65%)%12Y$3T,`!-]6`0``5Q)&
MK*G)G@$```P[$FBQ0D5*D2(@6K0`$02$E31SZH1A`X**G#)E6LRA(Z?.&#IU
M+I(!$5$,F307/[Z1DP<$&XAT&B@(V`.2`9D[<"9(@&),"A!CWL#)(R?-&31T
M0`Q!$T8.FS)S0$`I0T?/&S9D6("(D0-'#9PZ$P29,Z=,&S%/Y8`PD^:IC@1#
MGC19N[)-F)@S=THI$Z<.2K-EW-"9\Y;(DRD@9+B``6(E"#1&T921$Q9*TS!M
MJ$XFG.`)'#IIWKB9"()(43ME0$R!4V9,&K9C[H9V`S;OWC9O4(],(J1)"RA#
M0)R1$P8.Y#%`F1+_N!E$&#<C+\)A$V9,F9%WTM!!`T)+8.W<M<2``4/G\.+'
MHXY17IU.\^?1`V.^#H+.F^X$#19Q$7;\BQPOX&`#"&%1\089(S4Q65%VN4%@
D7@D840=(%RGU1AMMU.%&&K&!)MH<805!!W6"A:'5$4'(!!H`
`
end
Technical Details
Message-ID:
<3403@stiatl.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!gatech!emcard!stiatl!toddShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!gatech!emcard!stiatl!todd From: todd@stiatl.UUCP (Todd Merriman) Newsgroups: comp.sys.zenith.z100 Subject: ZVTREE Z100 subdirectory display Message-ID: <3403@stiatl.UUCP> Date: 24 Feb 89 12:13:09 GMT Reply-To: todd@stiatl.UUCP (Todd Merriman) Organization: Sales Technologies Inc., Atlanta, GA Lines: 143