# LIBRARY UTILITY 128 V1.4LTK)N COPYRIGHT 1986 BY GREG PFOUNTZs( OK TO COPY ... NOT TO SELLy2> MODIFIED TO WORK WITH LT. KERNAL BY ADAM FANELLOF:P : (0)5 %Z"IBRARY TILITY 128 V1.4 d" BY REG FOUNTZ'x MOVE TOP OF MEMORY DOWN558,100:HTX$"":I115jTX$TX$"*****************":uI(1) STORE MACHINE CODE ML(4): SYS ADDRESSESI04ML(I)12032I3",156:@ DRIVE ASSIGNMENTSJ: TDV(2),DN(2)=^"NPUT DEVICE NUMBER (8-15)8 ";DV(1)rhDV(1)(DV(1)): DV(1)8 DV(1)15 "";:350r"NPUT DRIVE NUMBER (0-9)0 ";DN(1):D1$((DN(1)),2)":|DN(1)(DN(1)):DN(1)0DN(1)9 "";:370"UTPUT DEVICE NUMBER (8-15)8 ";DV(2)GDV(2)(DV(2)):DV(2)8DV(2)15"";:390"UTPUT DRIVE NUMBER (0-9)0 ";DN(2):D2$((DN(2)),2)":DN(2)(DN(2)):DN(2)0DN(2)9"";:410U(DV(2)):U(DV(1)):15,DV(1),15:16,DV(2),15 "ISSOLVE OR REATE (D/C)? ";  M$1 ("DC",M$)9 M$? :T  READ DIRECTORYZ : DI$(500),TY$(500),DI(500),DI%(500) 208,1:842,34:"ATTERN*";F$ IFM$="C"THENPOKE208,1:POKE842,34:INPUT"ATTERN*";F$:ELSEF$="*!"EADING DIRECTORY...7!&8,DV(1),0,"$"D1$F$:DS1780=!0:O!: SKIP HEADERU!D:o!N#8,A$,A$,A$,A$,A$,A$|!XML(3),0!b:!l READ!v:!!M$"C"F1:F.!#8,A$,A$,A$,B$:ST"AA1:C(A$(0))(B$(0))256:DI$(X)(C):ML(3),.: Y&"DI$(X)DI$(X)" "(TX$,Y)N"M$"D"(DI$(X),".LBR"(34))F1b"FST.DI$(X)|"XXF:A$:SRA$" ""8"M$"C"XX2:XX1" X0880":" 1840"*M$"D"1370"4:">A0"RI.X:DI%(I)DI$(A)DI$(I):AA1#\#fXA15#pX0" !":1780R#z""X1"FILES SELECTED:g#I.X:DI$(I):#LF$"":"NTER LIBRARY NAME ";LF$:#(LF$)12"AXIMUM 12 CHARACTERS PLEASE":930# LF$"" 1780$LF$LF$".LBR$$8,DV(2),1,D2$LF$",S,W$DS638::"ILE EXISTS - EPLACE (Y/N)";A$:("YN",A$):A$"Y"16,"S"D2$LF$:DS$:970$DS1780$8,"DWB";X1$"OUNTING FILE SIZES:$I.X$$DI$(I)(DI$(I),2)%(DI$(I),1)(34)%.I$"":DI$(I)(DI$(I),2)6%8(DI$(I),1)(34)L%BI$I$(DI$(I),1)c%LDI$(I)(DI$(I),2)i%V%`(34)I$(34)22)"-";%j8,I$%tDI$(I)(DI$(I),2)%~(DI$(I),1)" "%DI$(I)(DI$(I),2):%8,(DI$(I),1)&9,DV(1),9,D1$I$:DS1780"&ML(0): A,B,C:DS1780)&9?&AAB256C65536V&8,A:A;30)"BYTESf&DI$(I)I$:l&w&I.X& "RITING "(34)DI$(I)(34)"...&9,DV(1),9,D1$DI$(I):DS1780&ML(1):DS1780&(9:&<1780&F: 'P *** DISSOLVE LIBRARY ***'ZLF$DI$(A)>'dI1(LF$):(LF$,I,1)(34)i'nAI1:IA(LF$):(LF$,I,1)(34)~'xLF$(LF$,A,IA)'8,DV(1),8,D1$LF$:DS1780'I$"'I13:#8,A$:I$I$A$:'I$"DWB""NCOMPATABLE LIBRARY FILE!":1780("HIS LIBRARY CONTAINS:%(8,X:XX1Z(I0X: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":1840(6(@I.X(JB.:AIX:BBDI%(A)::B.1780B)TA(DI(I)65536):B((DI(I)65536A)256):CDI(I)65536A256BQ)rDI%(I)k)|"RITING "DI$(I)"...)9,DV(2),9,D2$(DI$(I),2,(DI$(I))2)",W,"TY$(I))DS639:16,"S"D2$(DI$(I),2,(DI$(I))2):1670)DS1780)ML(2),A,B,C*9 *:&*"KIPPING "DI$(I)"...7*ML(4),A,B,C>*D*J*:d*"IBRARY COMPLETE!"* ""DS$:9:8:15:16*58,255::*:* SELECT FILES ROUTINE*&:*0" OR 2 UP AND DOWN/+:M$"C"" OR TO TOGGLE":" TO EXIT":ՙ" OR TO SELECTE+DA0:A$"":"T+NA$(13)a+X"p+bIA2A2+lI.IX(27)"Q":1950+vIA">";:ՙ" ";+DI%(I)"";+DI$(I)(27)"Q+30)" "++:A$,(" ",A$)A$(13)(2).,(A$""((2)127)5)AX AA1S,(A$""((2)127)1)A0AA1,A$" "(2)127DI%(A)(DI%(A)0)1:M$"D"A$(13),:INL/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 PA