! LIBRARY UTILITY 128 V1.3A'L COPYRIGHT 1986 BY GREG PFOUNTZq( OK TO COPY ... NOT TO SELLw2< CALL THE DAILY EXCHANGE AT 703 989 7461 ... 24 HOURS ... 300/1200F:::::::::::::::::::::::P : (0)5 %Z"IBRARY TILITY 128 V1.3A/d" BY REG FOUNTZvi"ODIFIED TO CREATE FILETYPES":"FOR EASIER XMODEM TRANSFERS|n:x MOVE TOP OF MEMORY DOWN:58,100:: SETUP STRING THING VARIABLE:TX$""I115:TX$TX$"*****************"%I(1)+:D STORE MACHINE CODEJ:f ML(4): SYS ADDRESSESqI04:ML(I)12032I3",156:@ DRIVE ASSIGNMENTSJ:T DV(2),DN(2)^"NPUT DEVICE NUMBER (8-15)8 ";DV(1)0hDV(1)(DV(1)): DV(1)8 DV(1)15 "";:350^r"NPUT DRIVE NUMBER (0-1)0 ";DN(1)|DN(1)(DN(1)): DN(1)0 DN(1)1 "";:370"UTPUT DEVICE NUMBER (8-15)8 ";DV(2)DV(2)(DV(2)): DV(2)8 DV(2)15 "";:390( "UTPUT DRIVE NUMBER (0-1)0 ";DN(2)\ DN(2)(DN(2)): DN(2)0 DN(2)1 "";:410  U(DV(2)),D(DN(2)): U(DV(1)),D(DN(1)) "ISSOLVE OR REATE (D/C)? ";  : M$  ("DC",M$) M$ :  READ DIRECTORY :;! DI$(500),TY$(500),DI(500),DI%(500): MAXIMUM FILES ON DISKy! M$"C" 208,1:842,34:"ATTERN*";F$::F$"*"!"EADING DIRECTORY...!&8,DV(1),0,"$"((DN(1)),2)":"F$: DS 1780!0:!: SKIP HEADER!D:"N#8,A$,A$,A$,A$,A$,A$"XML(3),0"b:%"l READ LINE+"v:1"K": M$"C" F1::F0`":#8,A$,A$,A$,B$k":AA1":C(A$(0))(B$(0))256":DI$(X)(C)":ML(3),0: Y":DI$(X)DI$(X)" "(TX$,Y)": M$"D" (DI$(X),".LBR"(34)) F1# F ST0 DI$(X)$#:XXF/# ST6#8S# M$"C" XX3::XX1b#  X0 880h#:r# 1840#* M$"D" 1370#4:#>A0#H I0 X#R: DI%(I) DI$(A)DI$(I):AA1#\#fXA1#p X0 " !":1780$z""X1"FILES SELECTED:'$I0X4$:DI$(I):$`$LF$"":"NTER LIBRARY NAME";LF$$ (LF$)12 "AXIMUM 12 CHARACTERS PLEASE": 930$ LF$"" 1780$LF$LF$".LBR$8,DV(2),1,((DN(2)),2)":"LF$",P,WF% DS63 8::"ILE EXISTS - EPLACE (Y/N)";A$: ("YN",A$): A$"Y" (LF$):970V% DS 1780g%8,"DWB";X1%"OUNTING FILE SIZES:%I0X%:%: DI$(I)(DI$(I),2)%: (DI$(I),1)(34)%$:I$""%.:DI$(I)(DI$(I),2)&8: (DI$(I),1)(34) &B: I$I$(DI$(I),1)9&L: DI$(I)(DI$(I),2)@&V:[&`:(34)I$(34)22)"-";f&j:8,I$~&t:DI$(I)(DI$(I),2)&~: (DI$(I),1)" "&: DI$(I)(DI$(I),2)&:&:8,(DI$(I),1)&: #9,(I$),D(DN(1)),U(DV(1)): DS 1780':ML(0): A,B,C: DS 1780$':#9;':AAB256C65536E':8,AX':A;30)"BYTESg':DI$(I)I$m's'~'I0X' "RITING "(34)DI$(I)(34)"...': #9,(DI$(I)),D(DN(1)),U(DV(1)): DS 1780':ML(1): DS 1780'(:#9'2(<1780 (F;*(P *** DISSOLVE LIBRARY ***9(ZLF$DI$(A)d(d I1 (LF$): (LF$,I,1)(34) (nAI1: IA (LF$): (LF$,I,1)(34) (xLF$(LF$,A,IA)( #8,(LF$),D(DN(1)),U(DV(1)): DS 1780(I$""( I13(:#8,A$):I$I$A$ )C) I$"DWB" "NCOMPATABLE LIBRARY FILE!":1780b)"HIS LIBRARY CONTAINS:q)8,X:XX1) I0 X):ML(3),13: Y):DI$(I)(34)(TX$,Y)(34)):ML(3),13: Y):TY$(I)(TX$,Y)):8,DI(I):DI%(I)1*:DI$(I)20)"-"DI(I)30)"BYTES*".*,M$"C":18404*6B*@ I0 Xl*J:B0: AI X:BBDI%(A)::B01780*T:A(DI(I)65536)*^:B((DI(I)65536A)256)*h:CDI(I)65536A256B*r: DI%(I) *|: "RITING "DI$(I)".../+: 9,DV(2),1,(DN(2))":"(DI$(I),2,(DI$(I))2)","TY$(I)",Wc+: DS63 9:((DI$(I),2,(DI$(I))2)):1670u+: DS 1780+: ML(2),A,B,C+: 9+:: +: "KIPPING "DI$(I)"...+: ML(4),A,B,C+:++:+"IBRARY COMPLETE!", ""DS$:#9:#8#,58,255::),:D, SELECT FILES ROUTINEJ,&:j,0" OR 2 UP AND DOWN,: M$"C" " OR TO TOGGLE":" TO EXIT"::" OR TO SELECT,DA0:A$"":",N A$(13),X:"-b: IA2 A24-l: I0 IX (27)"Q": 1950P-v: IA ">";::" ";g-: DI%(I) "";~-: DI$(I)(27)"Q"-: 30)" "-:-:-: A$-: (" ",A$) A$(13) (2)-: (A$"" ((2)127)5) AX AA1*.: (A$"" ((2)127)1) A0 AA1n.: A$" " (2)127 DI%(A)(DI%(A)0)1: M$"D" A$(13)t.z. AA1.: A$" " (2)127 DI%(A)(DI%(A)0)1: M$"D" A$(13)..,32,204,255,162,9,32,201,/ 255,185,0,L/L@/L/LC0L0  ` d  w Ly/ y/L@/  d t L/L 0 d///=  w 0 d t L/d  t L/// / Hbh w/ /`///`///` 0 0///L