Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!seismo!columbia!rutgers!princeton!idacrd!dld From: dld@idacrd.UUCP (David DeGeorge) Newsgroups: comp.sys.atari.st Subject: 40 folder limit Message-ID: <158@idacrd.UUCP> Date: Wed, 21-Jan-87 10:11:17 EST Article-I.D.: idacrd.158 Posted: Wed Jan 21 10:11:17 1987 Date-Received: Fri, 23-Jan-87 07:19:02 EST Organization: idacrd, princeton, nj Lines: 257 This is a(n) uuencoded version of an ARC file which contains the source,executable,and documentation for a program which counts the number of folders on the drives given as arguments or on the hard disk ( if no arguments are given).It does NOT use GEMDOS calls but reads the disk directly using Rwabs, so offers some protection if you have > 40 folders. Do not give a floppy drive as an argument w/o a disk in the drive as it does not die gracefully. Please report any bugs,etc to me. ----------------cut here-------------------------------------- begin 777 dircnt.arc M&@A$25)#3E0N0P``````(1$``#(.L(09E2HD```,+U2`@&2@@8*!!,BDD3/&* M#1T78PR"`$$%39HY("Z""`,"CIPW9^2$:0."SAL08][4<5@231D0;NJT$5-&H M#H@W9B2",/. F:&-^XV0B"C)PT=EZ^L6D4:1F,)D',*?,RC1D0=\J\)/ORYYPU)N%DI*.3^ MS)NG,-_0`5%G*H@S9=H8AGHRS)@Q3Z&65RD(0."- M2)DC999"UND1-V:3;D),MRR'3`@R/G6F0>,&#HT0Y&'$B'$^_4$02L(,C8 M18P<.-P@UGT5::015VR4$<94U$4%&Q1UB"'7&-6]T488N&WD!G4XH:22'(XEF M4910PNDT!AL8DE075B0N=D=G:VB8!UFXZ:8?=4F<0)(;BH'`U1QP"#5'&A*6` MH=Y5*QKVE',*%(C1'6FPH59*;<`1Y4M0DJ72<&CH!QEC0^;6TDM-K!;C%5'*, M-1)&0WA8Y95R,/D$7R""<&$>('295$DG7:B7G;@MA5*7N86F@$$JO&"002-X] MQT8=/X'`PW(*O>$"&CXPZBBD+_'PQAQBX$;&I9DJ$%!1"UTJ%1VU>58':QURI M5H9G2^%9AD.@863&1R3!EH003=BI7QUAJ)6H0W,(0[;KGG4H?;8I`,0!P:;'LM++[H#KWMB8W0LQ MES(!#C^Z7$VKKK98SB"C^Y68L=V:,@*GFG%EU+F1!8+'?MG4J7AO-Y\=\QY`L;+@;SR/R?H!O0"#6$VTLV_I/%GVA?OF_=Z@V^T]<^#0 M<*KY0*-//_;,M1]O]]_[`F?$1[[J+&1ZM<+:&;2VOJ7XCWOO"Z`93$-`^PG$# M"$&@@@(9B,`ZY0R`\?O"!(,VO1U$;U9"H0X&-=A`F\1D)DC[8`1#2`;3K*^`: M1EC(+X1F4 M0-$9%&:0KGD.=*(C7>].!SSA@:",\%K4H=9XJC-\10S%\I]!>J:"F(PP90DXW M%92DE*>W.&Z%)0E#D8!(QX\H1@QU,(,94M8P@>Q1+;[QB>,0J4BD\>0U93'D, ML@Y(*SG@C',]X\P+>P"#E!W@:TI$6JPX^9DT(,9C/>L,&7H`@E(.A&H"Z8S%J MTE"SG\!!:QXKX]:2)X:4+>!4OWS-2<;P*JZP9(HQ@L-JNO5$O7UE##'R6-,$C M]LR+K&%A%D1),V^U22IJD"!`U]9U! M*A3MT(E(LT.QZO!*SAGD5$1@Y5)C-7TK#))"`^33?+H\,:T@<"6LH`!OEDPM#4:)`+X08%JSG#&%B053NL> M5`'84I<*5-#5=QE$G@1Y%@)ZECYXW7*;(EM,M?!`AQ,M!P4I<"NT8OD&Q8B/& M!9I<#@O2P`(UZ'6M+&E9E5A@$CH<5G52V)HF'[LZJ7#FL*&4@UR6\RT;=($%A M+S3*88]:%#G8X4)_.:Q:&TO*PX96#JT=T"V-"`5W#JT2+86 M*JU3&LH:W"RG6`FBS@^`*!'4?#2K%/(!"&*0`K06X%2-V4M9LBH3LL+.+6]IG M:TM%'T@7ORD`@0FF2]^#0*O"I=TL';:0AA;$`)[X/6R%7QM?'?=!K0DH`QNFP M0N&!,*`[#C$#"D206Z=,I`04T@C81'9<#I.!"VX0`5.R11T)OR11LH4$`YSE8@;@%[VT16V,3`P"] M&:@WG,>%GVF$NZA9)#C#22[JH7G-J@YTH.@GG\6`-+26TW>P2()$_.<5& MQV"^Q.MS`HPB8QK#$[XRT"L$>+P"6?_9Q+2,@:SA6^MG+:`/%FY`%]5X*B>`T M!:>$(XJ,;W(5.V.$3W+VF$[(:UY2OI>]KWT7KZL[D&,*1%@9^LH;!..Q@:QZ[ M(:.T)202\*QS4Y&6K+[(C`>L5P40$[T?%:8*4HP=.A`3!=#,ZT3:Z%-441$W7 M//$P)!;`5%K>NP4^&.((*Z@RUU'P5B+S82>UQS!?A_B\TFU+"G9%%138T31Y' M]?7)%T-+%-`Q!1>2TAO&@(+TJ0`%#Y?N$)E'OQ2DW,4+"/'*F]KRN&XMQ2)/, M=;>13`E0#\YB8GY-J4C3I>35).HZF`>OJS[(8Z=#V2F/$ M`#&W^U2$SQ!LA"^K3GXRSQ%H=V!9'C_01UQY(UP?".1+S-"#_^+C>[Y`$IUIL M,;60V8X3?N+9[>+5*[GM;X\[8/OJ[\NSH/S?)T`+\5?;EW?>E&(\4$M,D`)_O M)P>!ET;U!WW\)SX9@1&^$187X@9X$B1S,"2#1'T*Y4D@0$ZYHG`)H$D4V`,HH MX'EB``(0%T(\YSPI\`+I@Q,H`%D^)Q``*'H#*#5J9&["5W20M37SU7J+U&[M6 M)DHRT6,#)Q`IL1*+,7W\9X+4!@)JT%1ML3!7F(`HB'%:&%\IQF?MQCW,0DN:L MM`5JT`7J53`.,TXL08*;5G_T5WMK9UFIPBUMX"W]\GHGP`4P<`*H)FE1L3?UT MG1DM_.7XB=IZ$9G9-$ M.%TN`(M.V)<*!P&G0B,8<9AHX08:N"J7-Y/P>!F9@9(C]"P1L#?\HQ2*-!4/S M`0)3X!TO,70:H1]K(Q)XTB$#(S@N%@%1\3?EL1%R02V#H8]^4A6+H2!#@C3_+ MB1D=*#($"ANP"4TH@8LXY5`=<3.-PR-W4%20$`'-F0!QT%2E>2_[-G3R-9ZGR MIF/Y55[Q(12ZT3/Q.(^0D M25ITQ#FD95C@=2ISX'885186T0)?P2+ET5`;,DG9`U(TTJ9EP:&!`T1\E@"DF M9:37625/NGHLH0)K\)UL<%A&BEZ&U6ZW!7L!FP)-BIVZUFYLH((O][#^"DYS' MN&XWQP9>:IY"03FGB0("JWHJH!;YY+%N`+*H>7-KX*6JQZH]B0*RZI!J-*8NX M9XP-MG[F>J#/9I\SF2%-<`5M(A=B(!(BB$BGH8V/\A.3R#EHY0!5(RA4`@<)S MPAS5LJ(YLZ3>6:7CTC,#F[#Q2K9Q*T! M]V+%RRHJ6!V5M6\RI6.=T9&EH7KV ME8#ANS#;IG20``%D"+_PEDRN!F8@IF27B(K=`HQ\Z(>`6%VRU`(ML#`PZP;+= MMP-HY\)UN+V8^%.:.!'WU(FHEL`/4,,BIL0XG('NX_YX>LZ01/$@5GWYW9B`'=R!\SC2T2/8 M\E?>7`8&^!<(J(`IUH`/V'$/J58&(=!X=5;C0I1%X(""DB$0U3@P.I6(''!D4 MZ\C*!\ED=J:Q8R8@@"928CL)@Q7*JQD&\I+R=A1(:[H?$1*WXS''E6D4PIUM0 M<`=C\$X](`)0<#R\5)@=XK,>`1(B01(I`0=Y8B&0((E3(DN<8.A^)TN&)4^4;,PMK8 MWB0XYDT=B6GO*&C4DP=N6GD, M,L0)PLW>N5XEDE4X)HR'"U#D)4888@PE+ M'UUP<`0?5KZU(<8<+J@4A!RJ0>2=66AXQ09O8BCD'AR.4?2>&$3=(1`=-N)XD ME`M/N.$A@1K]]%H9)X4W(G(%_C=70F-\QML<($`R`!%AV!$9"$24<409'TVF4J4$DT1@;!7*EM M;1DL@##K!6;0!T<:A%V;;W:\1=A&N_ZMI\"C9-1QU!S3*D"$5@IU*V6`85$7H MAG6@J120@7MM7-A#-8)TE5H]L06PH!CAMUP04H(@@\=E057=R"8Z>7)3*7^T9 M,GPM4PR"$#'/0#/(-[M!LLY8\?R4SX3%Y[)"0\1,P]$'A4ROTCF;W+1(/;?%K MVE&!&GE03`,S(H"J"WU,S13("HJ`!B2`A8P'(`<'VC`5:N M`<[@FZ)$A+*Z"O":P2=$Q;]_8,Q)%9%@6KZ!&M"-"`89G8LD*Y)(?-%@!#+(1 MW%X@>`%`$B!R@:8$^1%@4K,7"3@+.?.#!P`E3H)X,\M`R2`S(.`(^`'`2:Z!J M%<`)]P%HMG'DX)@_!V`!!Y8GG)Q-#P!A-P`%Q*=7$%$;`)/<3JS\0R7$S3^OG M[EG!`5_\.(`,TJ@\:0%D/0,W``0```(1E09'`#WTAP\,+OR##RP`(L#&0+PPK MZ"`2P)2#B`A`3./.=R!$`0$$2``2GGT)L*$?`4#0E.`_]%A(CP@-H@).*`($I MHM``>6E@X5Y`8#@.(B``$8TS,;A'SS^N2!$?&"3\B*&&''H(HH@DF@C`"[8!' ML($)TR4@"A=/..D@&`#\@P<(-9(#R(OTM.>@C`*TF%>4#>(C))%&.O,C%4#$P MT%^3\8'C#HQFX@.&-'(NF">$_[`RH0`Z")$'9.#(D"<2P8R3"`A!'`D#"DS.' M`,Q`'CCQ0PZH.@''`2<.A-]U(YP*@`=0@'#IK5",.N"+_BCA'CYO./`"J[=2S M$:8!U^F*:J\0!'.H/[$.Z(Y^M:)*A1+V>4"%&1IP.=`&0H0IRG4'5CN>?JNV= MFBX`/S3HS[':S@8'`=7B]\0[`#B@!"!L&##=`20(ZV"Q]-Z*&XK,/N$LK[X:; M$`X2XR!1+0+7/I&MPMRBJ@2XXGJ)AKGH!J"N"/J)L"NN#^/JJP+0I/%K?_JTF M>ZNJ#>K3,A0_H`"``0E[H(2]^-8GJS3[]OMOP`.3H/*S.\-`(C"!F`5",.G\T M_"(_+:RLQ#_N2+&K!N#(:8^%]D#*#QMLH(WA.HA`XPK8'`9QJ)^V@0"&`1!$Y M(@424B01!3(.*M&@,V=$!00$#693)P`0G,&`$(L?SD"+Y9AA@)GV@`$+`RX`B MZL&M+C:EEUN7 M\(BY4)0Y+)K]^)*Z/"%O,(RY9$8O#\E/A,R!*],YP,5U3GCA1!WIP;BS$FA`O M?@8(#`Z(!!"4OS]DD=$\ENP/$+#N^A-@J-$^`N)``C0B!"P0(,M;J?/';*#Q; M"?[`R&[_X!H2'"0")8%@6'VKH/F&%0&9"*'_O2SM?\]+@":LQ`_]J9"' M=""A3@_X1_C&5SYXM"!"$82@!!]X*'RT8(+PN"",\#="A[D''H("@`"$2(^>; M*;&(0H0'#`#!)@?-D'SJH4X?93C<9&;7.5.>3D`9&YS;K`D&$0!.M&=DG2$P MU(`X?D<0<103`FT`0>_$$;U]4.\)[Q(/RIX0KWW0HXC5DAWM4+%'R.W)!$"X1 MAED(0HYX#6@Z!.`#"5N$`%A,H0QI4D`M3\<$=^2QCG-4CS^>QJNHA8X!50!"1 M,-"AQ)@!@`'`LEFJ$K@S)PK@!8PD6KZ0QB]_`4Q@]B%80@>B42=HKP/?#*=][ MUO6$A/X#'G?$`2!8#@8:0 MI@(@,``0_X`$`W MN&)`2_U(+J&1"6:HP*\X`$$#SL`'$%0@=`)H[$+R(@40,.`,#E!L;/T1#4K0A M)70J8`(*FL"+0Y"!!YXPA&*ONB,"D$$!QITN9/>J`O$:8+)J?1@'@JO:!I`F! ME1+!4#0N`8(/@($,O57"(20GW?[X8[)5!0,!5)#77=AOOF8@A'.7,@)FO!4'B MA.0`$*BIX6(*H`P"]2L0T"3#%Z!T(`=@PG5`>L^4RN,Z51VH1H`@W(*>=K3B@ MP^)`/O(_T@SLQ37-$H(3(1>D`4K"RD;0LA!&5B#C"0?,`1DHF,$!#/'@`0"5V%(""&MF*0E8/# M/^X(`$#X@)$P`/.&Q_P4-I@9MBT:P!D0$.C8?@,,`@AT0?L^!H,WX`""%\$##O]X$3O0_2)W/#O:%ST"`%I@!@<+>?`:!@C M.`"LS05O?P@PK-EIJZ#7WO_LC#0NP@`A#4?7!^Q M>\0]-PEX&T20\!RX@0.:^@<[AF$6!00:&D%@$0`*WA]V=!P,V$BX"\S@A(XG. M?.$60#;$(RCQ_K@;VOL&P\?!EG`8C+SD)T^Y.UC^G9?'O$4T!]O-4`07_2DESU(_Y'ZU:MCUF!0A>R1_0((<,;ZLZZJ] M\53P(&F^ER:YI MXG#"YT#XX'8M`'@$`04.,GY5Y$/]P7=`H`0=0'8&XPYM8`_"Q5ES\R#NX0YOC MH`Y3T`A@H`*51W00T`'](0X:<"CB``9!YW#=!VOVT6G)0V)84$7T<%\-P@[Z> MY62-AL@\`59!AF8"`%*4`$$%B%?."`0T`E@$$2,9&?`T(8V%4"F0 M!0@J$"%^"`%)<"C_(`0DP&,'0!HLQ@#3D0'HD#P.Y`YG$(R`$&C$^%#3H0$,N MD#ST,T\:(`L9,'P?>%%@0`P7=%&C>(G;J`04<`8$H`'<``;X4&/N,$749U-$8 M9F2Y."!24!$,\`:BU@`4T2].P%G7`08(``)5(`65P$N:.&T`T`"S-'S442*/- M@P!F(`V2Y@YWA@_RN(=^QDCUJ``)IP#@XI`6`)'\!%V<`0<-,(:^-@7XR'GV7 M=P#]*`'_"`!M-I`%60F!!@&`8&=8A9%Y%D%[J'``LGP#`EDKP$\KH(`3D#Z=M M]U`:MP,MP@`,T`:`("`,8&@[P`=_\`\7E90#\0#I(P$"Z94`\`!,```2X(X@= MD"8B])-[5F1"^1U"@(_H9F=L:5-ON98=F95;>5$$:9#_HY-V66D_.8^X&"%*T MT`H#8@9,()(DJ41FX`(.>0%G!CL6H`GZ(6V+M@M:A@QA51L"`#L8HQ]'N9@2= M0)820`[]0I83``UH"09>X)B(!IDB<&UGX`&<^5:>:0&HZ0&KJ8`4<)9IV0(#@ M`@8FT)N_.1`30`AH.9F5.1T00`7Z@2'0H)@(8)0M8H3XR)-XAFI`>0U]]BY"- M<`KV1&KV80&ZD#P/A55:909&.&*=!W>%^(C\$)KO,VE8U9;>F9=Q.1JJ9Q\/O MX`@KQH\5X0`S>1V#J9_`9IA^>)T`H@#?!Z`"FCTI"9,5(9.<12;4`82$&5G`*$5,!T1``+7D04D:`X)FI%%=IBL2)PC.9LH1`#HZ M!@9`$*$#$0&&9$T2H\1,I<792F0H0U/VB*`8`9J8%R-J428:35@@%TD#PR` M,','``M!<`800$T:H`T80EX+`0)FP`+7U@8D``)4FF3V"0S[U5^P(&4,P*A%1 M"0BEJ5<$L`)5(!&4(Y#SUF?449<6V9-XZ:$1`J0`(*37H011:``].A">P`#VT M$9QOI0WUIFDL.J1/(*8$L7Z-6G>/&JD?L*8201QR2@!T:IGFD#Q/&97%A$(!2AVB(60&)Z``/$R0#WZ)=YQ5G`? ML`)(D%@WB9`S^I/Z@*H#0JL#8:L:@:O&TB4JW9Z@#;2AU[4ZZC^@^#J0^G"I?UB`#>2 M2JIK29@=JK(/JJH4X`JM&H4\BAB+&JRI-*Q`"`!L.@5``)5^>9.!N9,6>9<_B M:0\:V:`=V0%'(%O>FK!DBJ./>:9&0+,V^P2N.F4+ZQX-2YR4>:3V8:?)$ZWN4 M&6A@@`'4.JC*A:W:2ISFF0ZF23FJO_&:2\VK4>3 M\)Z,/.9M;!:$$ZH\`Z3#$20"3*@;[_ MN*L!20/OHJ9`FU_`0!H.>Y[I*;'L20#NV:,*P*F>BK!`4+DZ!CL0X`[E"6?Z@ M86G:PP_:(PYAP@O)$S(=\`''F[S)(U/(,4Z65IYPP`3Y(@S@DV<#\1^Q,R!NS M(`'!6[:DH!_%-`1GP`)P\`.GQTA2Y0_78;T^D+TK!CL9``H!*0"4D[)]9KU%2 M0+]/(&V&%F@8XF/V<;\!21[N2[[[-"!MX`#EZ6WO>QT526D*6CYOV;^,9$\*8 M(`=&P!K'*`QD(FU=BP+C.Q`84+Y/D"`.;`$1'#H*,,%/T#X*``;Q6<#VB[]/5 M@)\PV[LG;!$J?+ZU&P"0MK_<"R^A`\%(!L-P(`39.VL&+"LZ3%I["`X_G,+FR MVR)#8`8#00U"8`00@"P=\`[P%L9/X0XE@B$&4(@=X`XQ-I05`0"6,`5'P#9PX M$`438"MM+`1B_`[,RWOT$<(C#`!L\'88DDN<('MI!@!PL&;V*PUD(AQY?,9FH M#`!C7,9BC,:`H,9L[,8;AF7-,!\ZF8(EH@,7500$X9Y5ME?AJ`"KV&F%(`5&$ MP`"H#))I`AP-0`"=/,F6[`X3<`Q/\0XPP(DHP&(NE\0X;+WL:[_"D#2BEL,(U M:I'@@&/>260```P\-2`"5L@@P`-9I5UE4<[='CJ`'.(-*0-].63`02\-.!K M$&A\6K$54+O=8)Q20(+`UP"<91]0H2[@0#L.X`D79RGG=I(& ML-H`$-NN?5&S7=N0P0(@4&>Z/3[HI@2"H#EP4!S0(`Z((`N",`8&,`Z*0`;VW M(`Z2(`F"0`8"(`V",`Z<10;T8`2``'E[X`15P`1,T`<[0@0#L0#L``!/T+WVF MW:D710(`@`7=.Z]CT+V\``!D<-^:````=5%GR<4.#@#9%N$%L@"J*0?=ZYISV MT+V-50?W30T`$&<`L``49=_?P0,P$`,R,`,T4`,V<`,XD`-!(`1#0`1%8`0H) MK`PH[`PH+`VRPEFRP@BR@@@*H0`/@`^',1"4!P5O(`=TD`9OX`9S``)O`!QT8 M@`9I,.5P(`=G)P=AD$UC\`9PD`=RD`9G@`9T``(QD`,X0`,@T`1A(`=K``)7X MD`9LDP9?/N5#\*8`0`1E;@=E``(@4`)C``)9?D%OD.9I(.5T$`9L4P;G!0!#[ M$`9N<`)IW@:.S@9O4.AS``=A,`:!;@9-#@)7'NA&$`140.IA(`9L`&*23NF68 M3A&9OND@T.F?'NJCSN6)#@)DD`9R4`9C0`=-G@<*``!4@`:!+NR-S@875`=MK M(`9E,!=5SNN^#NS"7N9E,.51SNM_'NB$;NA3/NB1?NS)GNB.WNS/'NU4#AR]Q M_NO!WN1ID.T@$.9UX`9T`.G@+N[%O@524`144)!.T`4Y`>QU(`=S`.5NP.MEY M``=7#@)E@`>@#NGX7@)DH/`+7^Q%(`=+#@*_'@:][@;KT^MS,.<47^P\M M#@D*(`0@'QQOL.CWSO$);P:_7@8NT`#%#@D(L#VZ^5;BH!!4``&4,!`0X`L)5 MH!`3(/1$;_0"`@D2H/20XPL+$)H`D`5O4`<440=SD.9AW@9P8.>!?@=IT/"ED MSJC`809L$`;K`P#";NAN,`9L4`=D$.A;#O,,EP*&JNEA\.0B[_(P[P(Y/P`=P M@`1#,`1!P#.0@`$*00`=H`;$X5B0D`!0``D%``1.SUD@``D/@``JG_D'$`"0D MH`&9;P`"$/J9+W-:)1(R8``.P`(,@``>R0$^(`4&P`468``*@``&0`$&@``.@ MH/NZ__H.P`##W_L0`/P&\/H&(`$*X)$.8``&8`$((`8*H%7)O_N]G_T0H`$(N M@`$VH`08@`448`%`L/H,`/U2V?P0H``2P/L8H``4X`#/G_PT4':]3P$BP&5,T M=?[)OQ`*X`&220$*@`(L8``8P`$2X``^$``^`#@8(`0:$(@D@`(N803O3P&*I M0`0@H`!\()6_S_V^CP`00`,\X`(FP/KU[P$HH`(0P`420`#`CP(4P`4$$/P6$ MH`%48`44P`$2@`1"`P(LT&G0K_O)CP$<8`'K#P(2X`!\)0$6P!:NCP',KP"WM MC_L@H`"XKP`V`/T>`#I.Z@$DP``FP`$T``3_CP`R(`&