53280,0: 53281,0:" WAIT SETTING UP ..."D$IP12r. (IP4096)76 (IP409624)76 1100B"CSX64.ML",8,1LMEM55: MEM,0: MEM1,416::IP12` 11000 ----------@ "NTER * FOR A DIRECTORY LISTING") C "NTER NAME OF ARCHIVE ";AR$: AR$"" 1603@ E AR$"*" 7500h J (AR$,4)".ARC" AR$AR$".ARC" T " RIVE 0";DR$ ^ DR$"0" DR$"1" 1620 h " NIT 8";DV r DV8 DV 14 1640$ | 15,DV,15: 2,DV,2,(DR$":"AR$",R")= }" OPEN 15,"DV",15"d ~" OPEN 2,"DV",2,("DR$":"AR$",R)"x 15,E$,M$,T$,S$  (E$) "ILE "AR$" DOES EXIST ": 9500 :  " П)RINT"  " ֟)ERIFY  " ş)XTRACT"  " HOOSE  E";X$/ X$((X$) 127)b  X$"P" X$"V" X$"X" X$"E" : 1730m  1690  X$"X" X$"E" 1780  X$"X" X$"E"  "UTPUT DRIVE 0";DR$: DR$"0" DR$"1" 1750  "UTPUT UNIT 8";DV: DV8 DV14 1760)  14,DV,15G  MO, (X$): AL,2: OL,3M :W (IA)h  ----------  " EADING "AR$" INFO ... " (GH)  (ME)0 "LL DONE. ND OF ARCHIVE.": 9500 % ---------- & (E)0 "ISK ERROR OR FILE CORRUPT":9000! / ----------- 0M(ME)_ 1 M9 "NKNOWN COMPRESSION METHOD": 9000p 9 ----------~ :F$"":F0 ;"  METHOD= ";(ME)" ";M$((ME)) <"  DATE = ";(DT);(DT1);(DT2);(DT3) C ---------- DC(FLF)'E (C F12) F$F$(C):FF1: 18608M ----------lNL(LN)256((LN1)256((LN2)256(LN3)))}W ----------XA$(F$,4):Z$"N"b A$".TXT" A$".DOC" A$".PAS" (F$,2)".C" Z$"Y"l:v " "(34)F$(34)15)L" BYTES. "!Y$"":YY$X$: X$"V" 1990E "XTRACT (Y/N) Y";Y$ Y$"Y" Y$"" Y$"N": MO,("V"):X$"V":1990: "ONVERT FROM ɠTO  ";Z$;"";: Z$ Z$"Y" Z$"N" 1950 AS,1: Z$"Y" AS,0 X$"P" : "". X$"E" 3,3: 2040q"ILE TYPE (P OR S) P";FT$:FT$"P"FT$"S" 2000F$DR$":"F$","FT$",W" 3,DV,3,F$ " OPEN 3,"DV",3,"F$14,E$,M$,T$,S$ (E$) ""F$" EXIST ON THE DISK ": 9500 --------(IE)S (E)0 "ISK ERROR OR ARCHIVE CORRUPT": 9000b --------o(DA):3 X$"E" 14,E$,M$,T$,S$  --------  X$"P" : (E)1 " ERROR! ";  (E)0 " . ";* (E)3 " / PRESSED ";=4 X$"E" E$C$"M$"C$T$C$S$;^> Y$"N" X$YY$: MO,(X$)dHoR 1820K ----- DIRECTORY ------LK3:R1: K,K:DR0QN$(0):H256t1,8,0,"$"((DR),2)y#1,A$,A$~#1,A$,A$,A$,A1$ ST 7575D(A$N$)(A1$N$)H'3,D;2#1,A$N A$"" 3,A$;: 7560XRR1t R2 R0:3, : 7550D$(D)3, 40); 75501 1600 ------------(# "  ..... "2# "  ONTINUING ANYWAY ..... "<#%2:3:14:15:1* ----- SET UP -------Vz+IAIP4096: "NITIALIZE ARCHIVEx+GHIA3 : "ET NEXT HEADER+IEGH3 : "NITIALIZE THIS ENTRY+DAIE3 : "OOP TO UN THIS ENTRY+GNDA3 : "UN JUST ONE BYTE+BOGN3 : "UFFERED I+CVBO3 : "ONVERT TANDARD TO m+GECV3 : "ILL INPUT BUFFER+PUGE3 : "LUSH OUTPUT BUFFER+I0PU3 : "OINTER TO START OF INPUT BUFFER+I1I02 : "OINTER TO END OF INPUT BUFFER++O0I12 : "OINTER TO START OF OUTPUT BUFFER]+O1O02 : "OINTER TO END OF OUTPUT BUFFER+LCO12 : "NPUT BUFFER POINTER WHERE OCCURED,ELC2 : "RROR RETURN CODE,:,MEE2 : "OMPRESION METHOD$,FLME1 : " FILENAME(.,SLFL13 : "QUEEZED LENGTH?8,DTSL4 : "ATEVB,TMDT2 : "IMElL,C0TM2 : "V,LNC02 : "NQUEEZED (ORIGINAL) LENGTH`,:j,C1LN4 : "ALCULATED (NEW) t,MOC12 : "ODE. X,E,P OR V ~,ASMO1 : "LAG. 0=DON'T CONVERT TO M,ALAS1 : "OURCE LOGICAL FILE NUMBER,OLAL1 : "ESTINATION LOGICAL FILE NUMBER,C$",": M$(9),M$(0)" ":M$(1)"TORED ":M$(2)"ORED ":M$(3)"ACKED "$,M$(4)"QUEEZED":M$(5)"RUNCHED":M$(6)M$(5):M$(7)M$(5):M$(8)M$(5)9,M$(9)"QUASHED"P, YY49152 49225a, ZZ: YY,ZZj, YY~, (14);(147);, "", " - RCHIVE ISSOLVER " , ""<, " HAREWARE (NOT ) BY: "l- " MPERE ETAL " - " 80 ALE OAD, NIT 4 "- " RAMPTON, NTARIO "- " ANADA. 6-25  -64 "*(- ""[2- " TO COPY, BUT TO SELL. "<- ""F-.. 76,74,192,76,152,194,76,99,192. 76,158,192,76,162,197,76,208,192. 76,5,193,76,67,194,76,100,193%. 0,160,0,192,0,208,0,255,0B/ 0,0,0,0,32,32,32,32,32b/ 32,32,32,32,32,32,32,32,0z/ 0,0,0,0,0,0,0,0,0&/ 0,0,0,0,0,0,0,0,00/ 0,14,173,29,192,133,3,173,30