Path: utzoo!utgpu!water!watmath!clyde!bellcore!faline!thumper!ulysses!andante!princeton!udel!rochester!bbn!uwmcsd1!ig!agate!saturn!ssyx!koreth
From: koreth@ssyx.UUCP
Newsgroups: comp.binaries.atari.st
Subject: v01i098: stdcat -- Disk Catalogging System  part03/04
Keywords: arc, uuencode, medium, high
Message-ID: <3594@saturn.ucsc.edu>
Date: 3 Jun 88 15:05:37 GMT
Sender: usenet@saturn.ucsc.edu
Lines: 308
Approved: koreth@ssyx.ucsc.edu
Posted: Fri Jun  3 11:05:37 1988

Submitted-by: uunet!resrch.molienergy.bc.ca!moliman!Robert.J.Silliker (Robert J. Silliker)
Posting-number: Volume 1, Issue 98
Archive-name: stdcat/part03

STDCAT is a simple disk catalog program that uses a gem interface.
It will work on either mono or color systems (Med Rez color).
Part 3 of 4.

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin part c stdcat30.uac
M "X4,%3@8@$^-1<:8,>F-!=*FA&-P 8-8@'4@%;KX-:^:L<%@3J"50^<$ -Y64?M6C\UZP]M@ T2Y0#@0@$DQ0X6(%&8g
M/A<:8,>F-!=*FA&-\$1A:L<%@3J<(%$1 "X40%+L8 $^-1<:8,>F-!=*FA&-f
MD+$;D@&Q$Z9V7!"HPPD2I0;@0@$DQ0X6X%-SH0%V;$ISH:09T0@9NR$9$#OYe
M? [P   DX(*6#@A@ 7" ( 2! (PB )]"  AV$ "T$ ADP #C( AD0 #B( D)d
M- Z#  ;P0 N!( 8$  B#( F"( Z*( Z+0 ;R4,H(T )!\#W!_0 R# \&7$H&c
M@#4F$  ", @=NQ1(, 3&( P@X#5=N!3 $ S60#A#( 1#0 S!8 V"T )#\#W!b
M_0 XX@*?H 2OX(@+3?E0X6HR\&y
MX R.HEW_8!X+(4S.1 $F0/HC@ ('\ ($@ -QF3:/F!&/8 _S@0(?  ,$P !$x
M4!!M@  R(!0W( VK1P R(!0P$&,7D*0'("EH>?\ \ CZ_P'SH4)FP LOL #Tw
M?!:9@ UJ!PB4A .7Z9VF$)(#P &3K0 ER0#MW0-_,S5X] ?_X"3J;@!4:[7Vv
MP E42P'-\_=R80ZRD!KV0-95(0JB,!-Y1F?\-)/7IBW_8 JIS>49T0G.8"@.u
MX$]+@0%@T0+C^@^F8*(P0*WC^@^G0+T8 !8P<"#D5#]< 2\9@0H\T!GVP U't
MP'W>AUWZ\ 8$P -L Y@!VJ#_['U>MA)B^ ^FD-I<&^Q?#?^34DX  R130!BU,/X&','@$8%80$E.@C0o
M, 1:HS0PX -5&YN48PZ_X"8@"0AZ1@!F@ V@U @S"=EW'I(/P ,.[94F4#]Dn
MKQA-,0"J)!0E0,]GH0=XD!0DH.)G@ (NH ">P AG<%0'T#"1(;ZK!'OT?!:8m
MH WW!@(*( 6 D.($2L]:^P@^   -$QGBNTJP1\]G@0G:\(M=@PO"2@H]P =_l
M<$"@(*R>H -" 0(575L!0@, $)! ,3T!&2PAH/g
MTQF>\ ./F!%:XPGW1C*>P+J;ED!"Z37 < W P )LPPF*X!A_<$"@\%WW!0K_f
M( H'0@MV8WR*HP\0L H/006+P /$GA&>, +3T#R<, +KX(C- PJ\;@^@P.OVe
MP FL\3"= 0H_\(@9$0F,,/90L @LP#:4%=Sc
M\(SVHC1U8(P.4%=X8(S@)5B58!&=00JQ*KZK] ,&\ +<'DH, 7CQSX(2,- T 9N4@ @4 524 D0@$N  *TM*K[37Q66z
MP I) :8?@9N@H#_3V>Q:JX %#@X#_KS0>C#Y5( 65  &) 3CIZ+DRC?0:I#1$=0., 5 L ,4@>GC!P@%,:X D  @4 524 D0@$N t
M *U5[)T7>@ D:4'][  'H@\B0 &2P H'J@,L8!^:$ 23S0"^4 1O0*9.2:;Ps
M.9/G-Y,5]#VP%^/B>Q:JH ^C\M[;4-]('@WGQ0*.R+H'$ ELX(B:D$=LT&T%r
M 9G36<\ D ?BL+756[@ @ DB0 &2P H'J@,L8!^:\/[P"0M%T 9VL%C?TSL'q
MX$D\ )_)Y77!, C%H)J<$ 0)Q /PZ7T5Y,\(P F:C^3;4-\&0"0_8 #B^P,Lp
M,'15,0@X,!,^\)ADZ0UX=$#XX=L3)?W"I3Q:8P0=H38L,'15H0?8J1M0VZ+Mo
MPV<"4,"5N<'GO7(R"T  (L<*#36<\ H H>,!\HP H'F@-L8!^.^'[^BWQ(O@W m
M, 7=9P!CV0820,^P)[YG<0FZ,"IGX TPP (%H6> DQ%F  (4  NL<*!G@ 4Pl
MP (%H6<>O.OU# !Y( Y;:P"^/5$% 08Z8 )L<* 1O0@@0%N40- 38*+ZXDNTk
M10DW!0$38*+Z(@'T?!9Y( Y;:P"^/5$%(01LX(C)1TDXL,$ZP@3OP%2.* ?_j
M  '9< 7)<#=FH!"^=TEU8#C&  W=<0'R@ 5@+0\@D @AH 15*P*2$KS(X 1"i
MD 5@+0^&8PS0T!T7( \B  4DP#7O40=A(0!Q+ !Q_! !(  !  E0!0D*0.D=h
M-0!050!^&L<"T%$0<  !(  =!0D*$ #.) !Q+ !Q+  !\$4"$ #.-$@,(  !g
M  D%8 !Q3  !X$P#$  "$,<$( "0$L>#9  !X$P)$ "0H.< 4  !,  #$  "f
M(  =!0DG0 !,A0!,90 =A0 =A0 =10!Q/ !Q# !0%0#.! !^&L%>WVP FB[E$TT#R@T!0"0 *.c
MX0_-@#7/(^H9<0Z0! #VP FBGA'G0 W- PI-(0 $X!BC@35O,+6"=0[PT#RZS!*^S]K!< Z!,/Q1  C%_TC-PPDCP*&8#@#V  HM$"2D 8 __X+7( P" /5#_Z,%P\4_=&0E(W 2,x
M^ ^?DUP%3V& \@@,B!'N A:TQPEDPI&@!H[D5%&E083\%@) 8 Y(#R S92( w
MQ@? @9O_S"T,>J8@'1 ,V[$@*BX<\^X]^1(,!)/X1O-#Z<2+DSI.K/R3t
MA^3< 08JW,Q$H9N!$(GZ6C AW*+*[!9MP/ZS)Z3(DI#R7%1PU HL8F@^*J![s
M(N#(@7^>^ SXI^2(&P2^^/SKUX8#&"=" ,$X0 5(H-4#8/4DTX8 #!X D*$-r
M$$0  08&\\$:8$(> 80 &J\$@Q2$@'+ 4n
M !0X!4L@;;C#)QAB($68#2Y0BL0PT PB!2 H  &"1/Q   $2@#P(@QE5,J(%m
M"8H20 $ "DA! @25QMI3#F[ LRIAKL(JJQD0&,H/" R,H/l
MJ**2.DA60D"P*@ 0P% ($]_  $YKKXT S$H>KH0A*.9@\<1K\0*&82AHV M"k
M#O+6X2Z\'\[+BKWX%DP7*&[X"["^ @6T?%%]/%K[TB/&QQj
MNQ(;1#%F'1<$RL$:<$+ , !#(F"%U!XP@!?< 6Pa
M+ V!@( B#*1(12M:(XM;["(!OIC -P   ULIB#J@(<9\S=%@5N3%R[(( C=Bz
M  1TF6,:O=@R,/;QC7$$P!SK^)<[+HP59MSC$P[YQT!"8Y!K+&3IR,@!3F*Hy
M%$3@"!,W!D9.>I(NI<"#*+\1  *2VE3'/QL9T(69 YSB_.4U$>I/@ KTG@!X9T'+J4QF+M2?%RTCu
M,?,I47["X%7 &)@B@6%'8(2TBJ@D:$D/RH&3(B&E[UII2U]*2WAR%)LVQ:DUK@C # I0Pr
M"*^! 0 !<,,O!*$" 7#-#!Q00B#,\$.WO,"L /SP &$<@QA'\  % '($01_C=_:01B&@ o
M EMGT($:#&"-051#$&"0P7/S"D,3"( .8-$MM'0+@3$PP 8"0,(0A""$^Q& n
MO^I1ARM<8  C'$(=NG"&((AA"'6LPA"'4 (JP+(&%4@A"-(81#0$(0Y$. X!m
M!:D 8DXD!2(P@ C?@2$<_B&'?QRV*@ HL>-NC(>WQA7% % Q G00SX^!TFBK!>%-[.(^I9QX(;?(AUY,(9@0#$j
M(81A""2G@PE(( (T"&'$_I$U@)_[!@#@,5?!V56O6Q77Z1;XU\<:0+)%"0  i
M&KL6PB+&'K<%02%&^X'2_NAWP[U?<8^[7&X4(09&  L+>/<=!JN@P86(LCHRh
MP0SX%4(=F !&(0!A" &K8Q/.&(0QGJT)8A2"$(<@*UM_Y%M=!X 9PABN,H0Ag
M8!\ P!G#X,8AMD&(*-_/3,X0AKSI+=XAN!O>^R;$OX6AC4-DH]Y$0$(1D&"$f
MY.K  #VY=P#R7?!L&&+@V#A$N]\]C(I7&PCW?C?!#6X(O/K@KTH@Q!H,H(U"e
M''P*1Y#=C]8G @"\+]+KX(0P"&&'!9BC%8H(!#( L0U#6)P 1QB /];   9Xd
MYQ_^Q<,_]&!C"_B6S1" >3HZ=(2,5]I_Q  @,62-KDUWNJYY[13T34H.%c
MU:<>1*KQ8&I4(Y8.L9[U VW]@=]I[GXZ,"X3CKOG81>DV 8XMA&2'81E-UL8b
MSX[VM*L]A&MG>]OJZ/:WP_VN6K>5%H!0+6L#(08#$+G%,> R >XGX% Y0AAHa
M<(#)!0 -C1_A1(?P@XT-$"DA@%RX U#&,7HBB4)$PA"=,()X@\!P (&92ZP?z
M @X$@(QCZ"#XQRA^)'H+@$X0XJLP#_&(R8 / !,X^BP  "-@SP 6T+[:1CB1y
M(=2C*! 8P/>X#KXQM$\(%0Q X_?W>P F8-<7@#*0&,P'!,7G6Y% !.LU!0@X"&2@#X( w
M>P)08\T7 +Z% W\%7#*G/NQC?Pu
M=J/6 $$0&>6 !;" "&8  S\ ( & (:N@"E3P"$LF &W@#_? *P"0'!# *SOPt
M%^: " #@ &]8$.6 ! * !OWP#[P"!BP  FX(AT@PAV8  D)P!GK(AWY( 8#(s
M#X.H (5(+HBHB(SH &" !2_"*SPQ$V<  IKXB  0B2>""/=!+KJH#MAP4]" r
M""H ""N $P8 !BXPBPY@(1C2!SK0A\>8C !@ (*UBBBF *8QBPK $ZJV%JMXq
MB+$#(P9P!J* +B!P(6E(5U;M+IUE5*0G-GRM$,;M2\+v
M I&YF9(Y GS:KN_*!1P[K_E:K_>*K#,+ %R@MFS[M="YJ[WZJ\$Z!%'F!$>0u
M+8BJJ!1KL0  MWW+JVC;KFD+M_$:K/]9!5#PIE7+L%,:N+;ZM8&;5Y#P 500t
M!$) I*1I!")[+W!ZGE/0JI"  $20!G.P!BUK!6_ !G70!F5PEPHP!&_0!JSKs
M!DU*P<\[ !:,P5;QP/\IPI,[P>/;N'Yo
M 9); 9)K5P9LP38P!ST!G7-9EZQ9F9&9+4&PLQPR24UPFX8YFW4V!!PB!5D@n
MF"! I%; M)AY+R!0F9>)L%4: H)9EVB)N$F0FYK)F9ZYG,@Z!V++JJL:M_(:m
M*BX0*LB:J\R,ZPR-+@R-<(R7(CR6"QR(AL#8NLk
M#9K\QP 0R)U,R&%1R7GL#8O,#J7,R5;AR89\QXN<&@! #1P0RZ<=&A,@c
M-^!:T0[MK"@&G;,0H9-M%97=B(2(8GV]S@#]Q^NH:B@FP1(\VO0,V P@TOP,b
MG=7PQ^4,KB!=U?*,T=T<)Ma
M D!]W*KF ,(=@D)M%1*LS9ZLGG5]S,E,G\RLR<]LUO[\#Z3MV(4LT<(-SG(Cz
MW3[QR>6LW'?]V>6\UU]MS;8ZSHX,V;:%N=\UBE^U^^\WRYNSW*3SPB^R:HHWP&MX03-S?1<#0]Zv
MSU,]$\+M"Q(- %H. !:MY.) R,_ >E]Z%T]S(X."0T !0#@Z,,\WOUL .MLJR*:S9J,t
M8I.> ,\Ns
M:F&.UZNN&]<] *^.VKJ^ZO@UXU9Q + N ,G.7CTAK;\N-ZIH Y=>%0H ZY8^r
MV9-]W$(MS4U-VJ4^ +N"8BTNYJMN6O2IU@V@V , 9-9 "7*3TQ0.V=:@"G)Cq
MUJHF/7;^+H9-S*H& ?@NRE81Y:H6 ?@.RU81WX0L 9!]#>7.UX1\$,/ !LP\P5Q#3$NSDD_ 1&O&\V>n
M]$OMK.L8\J2MGE9A5V'A 1%?PP6 WNKCXM? "/6.W*H& A'_H#>O]E04\8T:]P" T0OMU2L V=C0k
MVH3, J[/]; .V"W@^MT\ ,\,V-ZJ[O%>$-B \I$/V"_@^G8S &$!V# P^-@0j
M])Q?S:H6 Z[_],8._=CJ^K=3]8 ] Z[/[K\/V#3@^I(@-\,,V#7 _%!M%:H(i
MV"G@^K30WM8_S#<  #O0S^->$$MM%4)=SCC@^H9? '$- #G@^I"O:G$- #K@h
M^N2P[P 0U_3O^GT1\'$- #8@V*I. -EPO,@/ ''=U5U^UD .WNE-Y,J=W7"Og
MS2Z>#8=XS]G]Y)_LY>Y,R/%\\5AN%6U^W'\LVE).[E\.H,%NT-E HO=<<\CNf
MXME0/*#>YGM^\=E@!G+^YS"OZ 20#::USL=]VR*]VP1@<7]^W"#]YC9^X020e
M#8Z@R<>-S5W=Y6<-Y. -VD2NW.X]V4E^\=DP_O<,V.4,Y47.SI]\"ZC5GV2Z>#7&N:L\LK0WMXMKPc
MS/#\YU0=Z-"I#>NXSK:=TI[,\?X,Y/3)-<=-Y,JM\FJMS2ZN#1%TSW']WF%!b
M\?X\Y9\<00"ZYQ>O#9ISSR2J:KGNXMK0ZJ#.PH_MXMJ 7ZKVS#5'U8$.G=J a
MU(X'E-y
MB%TNY9UN "#]YA>O#9=,XOVP2@#:*,8L-\VR*]x
MVP2@#:Z\CL,,TN!J5QXNY>2^R3""Z*QXB!]N #A]09"M#>8 U/SW6%=w
M %SSQT1>UR(/T*H604E^\=K@#D!=v
M%MC_#22J^@/PV8GMXMN0?O?LX(CNYC-1Y.R\RLUH<(KG;EY<.\K #Z[BZ^#68 U&WN[Q>_#8H,ZC5'U8$.G=O@s
MC[NLGB"=Z"Z^#;8@YZ ]W8I. -M@#)NLGMCY.S\R56^r
MYV*NZ@2 Y5:AG@UMX;%- -MPR>O,SR"MS5>N&_?q
MULOLU42NW.ZMUMKLXMN0R?</Y5;1YBCVQQSOSU/^Y0,-p
MV=M@#D"MYY#-#2 ]T8!NX5=- -Q0<^O,XUT-KMT=U@6PU$,.T.3=TBF.TW"Oo
MS2[.#=!]S]G]WF'A\/X\Y9],T;$>%I@=K+, "MD>\/"\R13OSWYM  [>T"[.n
M#91QSY.-Z#-!B%[^QQ1-B,,\S!]N  Z.["[.#4H U"X,[)<]$\$Z"U0QZ9$_m
MW>F]VF?]#U0=%I(.Z!:^VP3 #8?EPK9MW)#-#1':Y"P.V\'*#7$3%K:=TIX\l
MS'4= &%= /D\V>5\U^B\CB(/T*HFK?P3NYC_RWL%NT-Q@"EZ-VM<,V=P "VZNR>B]YQ?/#>^Rj
MTA0=TA9^U03 #:YL5^L\SI'^XV&]S !PW&&AZY,R "JBETNY9UN $Z. + =K-P0^@#*SR#]YC:NX=#)h
M#:M!HOP,TL&.T47=#;O_WK%I@=K+/0%_?^BL.G=TP7!C-SR"MS2[>#<5#XH3\f
MQYKNY>Y,R/%LXQ=. -V@!._-S]C#4X U&I]W,_L\/X\Y9_\V6'!SQSOSWYM /J=Z%<>X93-U)#=#3-Kd
MX/=^Y;IQSWW.*[ =K-V@!N\]S+YC6>^B,-G=W@a
MRNN,8MCNz
M&X4=^:J6ZR[>#;#W6%= "R\SD2NW/J-WMKLXMX0UW*3W4_^R5X>%I\=SQ?O#>L(H$@/x
M[)M,\?ZANW)#M#9I3[OS<[Z#-W5*^]3/AYH3\v
M[B[N#>Q=]0G/BH?HY:KXV?Y^\=Z0T/>L\KLBU).MW.JIBNXM]2[N#50 U/RO:@[NPB[LY>#ZV10 V=[@!4"M\CKOXMZ@!D#-SZKFZ+X]X\JMt
MGN#JWC+OXMYP.\-\^%0=Z-#I#?BEBG:%S5W-W6<-Y."-W$2NW.ZMUMKLXM[@s
M6_<W(GNXMY0.ZHVYRP.V=]PX)K^B,-G=_PH^LLP=C@QFOI!$/ M!>[FB-KKN,I!5* N'#*90! !6A NB P!F% !V' d
M!F]PBV:0!FS0NJ0+ FU NG.0!FYPBW,0N[N;!FY@!F\@!VT0!G20!F_@!L0)c
M EGP!G4  F,0!FX  F60!G2 !F4@!SL  I:;FE0  '> !FDP!EAQ!VG !FRPb
M*F]P%&\ !V7@!B! !VC0NF,0!G00!FSP!F>0B6]P.^-YGJY9!=D2!FY@JG-0a
M!JU[!V@0!D>1!FY@!F\@!VT0!G20!F^@&V@0!J$J!F50!FX  F;P!G7@!J::z
M!FX  G2 !JT[!F% !V' !F]P!FH\GN?IFE40M9:;FE205T10!J7+LT*:!FS0y
MNJUJ!6E0!G>05]N[!GD%!7*0!K3;JDU NF,@N<(J!F]0!T05Z0)!V6 Q[ZKBGDELFSP!G.PN[@X!6%@t
M![N;5XH9!G;0ND' JKZKBGFUDW60!K7+S[@X!6\@!T?IFB4+ )KIFE1 MGO9EGUIH&+P%T* F(HIFH\9F07!r
MJ$5P!3T@JI*FIF.2J6X-:q
M$.R)FZZ*N:DII"=K<^U9$,>9G 4!JY%9$.R)F^=ZG&V9M:DII"=;$$5 NV4@p
M!R!@!FG !JW[!G(  F:0NF10!K?3L[@ \M*!FD@!V4P!G3P!G*0!\09Q6\  G4Pf
M!ZU+!VA NJL2!JP+ F$0JG2 !KMK!ZF[NJWK!F' NB"0!V]0!R!P!VG !FP e
M F@0!G;0NG3P!B!0!FE !VA0!K=#!F7 !F5 !ZW[!G(  G)0!FX0!JP+ G2 d
M!JU;!GA NG20!FYPBV:0!FQ0!J$RJ 6AF:X)IY*)JT]0!50  #JC*FT40!$20!<0IL@HW!*O)(0 0Q)"IF#J;+