'=========================================================================== ' Subject: EX-PACK V1.00 Date: 04-11-99 (12:00) ' Author: Andrew Nagy Code: QB, PDS ' Origin: comp.lang.basic.misc Packet: PACKER.ABC '=========================================================================== ' EX-Pack Compressor/Decompressor v1.00 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"EXPACK.ZIP",4^6:Z&=13774:?STRING$(50,177); U"%up()%9%'%I-%8>9RI<08pN*I#%%<\%%%-%#%%j'%uhSgRfxfL)N.*doY[[gcdl(ghmZ?Ul U"X1ZQZ1C%y6gcu#$BMa46,4RBtWgGErCIDC?CCES?vq.c;*TK#Y^l9A&5cQbtF_* U">;QJTU_k*cq5=a\^#aUD50ObFEV?0^U^U)fD;hGu&W3;/y./G>*tcdVj4.Eh\qP U"xd:GQV.yZI0?B5G<<&LSMdK?1sD$(]F5AC^c.B1Cle_va3,]0*.%p4a)<\Q^8TAA U"]Qhf#;q'Vmn=JcDu^eNWGK91b%/5jsb>#qh?j$fK2lBiLDMD0fJdAHIABJnk$YH U"A,v^:C/]P=R$XY]:MlD&29?eI3N#uS>$+i,4#20%Dr?;?pD((9\W,Q3liV9.>i= U"8.Rzt*voR;)$lg]H)&Lc/R\JwB+\$RU3WupSEs'H[w6L1RJ+D0Lk^(TH)834ZHY U"ZRfXj:YKm?qEk(5^ZT41pj\x'FX9ze^.Xx\]#eY8TA)v+OiV9iHLF:O&T>y#?5p U")K+VYWMx4B9?-&;E;/-)2Xd;)BuVgLmrb+n)(1cGDXImV)]#6WqsH66HC#bADte6/1c[^vg6&ME/>[)Csx[6ZXqoOdi$+xSOqF=X6sO+:=Ot6I31iQ\#Duc/qS U"bR\k\Ti=7VV,#nR[EG/j]rqavbtND-iXg7iMQoMT0SVeZ0YXkgfYs2w$M78ap-H U"V45_)xt#n2]/O/UA/51rFV;lGY/7w6NC()'ihT)6\jOX;s_r[R9E(/;:S2 U"JL/YECUbwWNjI>H0mA/f^KCTNhVWidJ$*A U"&O?.ItAEudy0M4]s%PMPOkv.fnIqo*TuKWPI=Qg^m4NOy,#,jMXdpwn7qP,2Ch# U"#6naU$CC6Ok%fmpj=rLdDPpk=YAAigh4DdzI\5f6R?f$4^'frm:*7UzG=hhGSQY U"PyPVbs/M=h)zPM%K)u?fQUB+\Hgq/fbZ&gh5uVTGMN+]z3wA+)?eT,sZ0NxObq_ U"#:b:$7'VIf4vY4R\>F*5b41]39r=]8c29S'%Nn4oYWc,J-SP&[uM.)JZ9%tK2DdpB=-'3:*V[zH44PnGc0/Ij%(MtI;>^ U">jaK\OrYKp3YB*,zHP5Ew4e&;EVe=sw/?cM#lXc+;USq8UK\H7D:TWO46i+%+i: U"WIm6kQGyJzDexEF1GiPtSpHgtATXYJqUK[Ioz^Jkic.l:];_7K]-K\ U"kWrnB$cQCeM1E63*/'rsN%qS[p#9mdxp*WAfqH:IWTRz-W?Qw2G=\o?Y6d4YzPLvpg2ZIpujlEp U"RUhGkq)eZYudmf7>+mkGDHb&gq:3WJ)c-e7qPvG?rBnsA,6cHv^2g#j:D?xG6ZA=o?^E;R^w+a3>q+SGd>pP.,4%U3#l8y[#Y^ZM-EsF>yTT U"jsM6d6$TutUjzv08,B&=NZ#0(aN0#Nw$sIL[Gr';(rn_w5AOGe#Sze.b94o,\g3 U"x1fZp$>7F+[HVmR]ek9#Ou[,yklQFv(5yl%=oJy'y4VwUMr8x/OHjj1-?K.YVxp_yW3uqlWFj,eIltuKGns:bf.Q3gaw2:YN U"(?spb8bMv2]f(tNt2s>L7$8Y^YTq*_N*=St+oqLu9pLO=P>vq#Lp.m[ll9%l[=\ U"RQY,sO5tlOYY9q;^,BgoyH1GiYS4Z;v9A'Ak+8uD\\9rn%N[U_Ihm/J4m:-ivc2 U"Zmv:lr.SVW2MNNuqUuJ6VtzWHY:Q?HJQ$tWoIjH15WNTsZp$oV(BiubFx1dYBHx U"-)>#d0,$f0x,_YkRrMs);a$+,G6dqbJ$H2G1gK\d?>tJ4QM&wYK\+SOA:D*-\M?/ U"XX9L*Y9p5JKIo8l0%ZVBovMBhK[^&q58qrx^(m3rysGGJQj:?QWROZIO0-JP/'b U"0=JJqJ+GeH5\Tad&ARpo$D%/^8d$wsdOTsRP$N-+U[-'zhofs5]ZfV?\5*otsl,'u3ruV;3rBjXA>MN>U:sB*( U"a&Lk[o0wT>z-G]6jcA,/uT:ueq(b-jJ?qV#:'Ynh>VL;UUsRY7R[K_h2\omLU6C U"S,3rdJLc7*pRBawX;5/v-3os,jKUSfpr-37x3YIbmfvC#.U.UKQ)HFcim5w+\S$ U"ua_Z[$brjuK>\(6ZI-QR5X;Gc1heVTW_&M9na/<=AMn8iTt(_s\E)iI%0SZLMs# U")'PkxLTSwNIl'-X+=1lV=i_=<-JR.NYUJ2=n$Spo$K2%T8w.qyAjwqBKB&(L\aB U"?.PJ0g9rB'MCIcdo0tT\jdWPZrQ+J:dsQB1aj,GTOM8Uin1&Joak:BF5z^5.6,o U"=x=f,$BE/GT(IgDOE/)pzwx'Ati_$=Og1'evv8xs'c53'lp#m;$p/o1C4zF^uY. U"M[3G/xITOqUmrBc/JkjAx*,vc-teLoLg4, U"a#U]Zx;S^&+4o(SI(=H4/#IWNwubA3#j]F3G1iJ?pN#d5WJ_hIz/74M?D_arM.Y U"j U"?a25;dOl^p[x#C#[7oF0*E;Scn(8464-8alrJvq5AbL?H'W]MR?-#QEwh4ld^19 U"jX1sTfkME#i,[;#vSXRTuV#>lOS>,jp$oqc_,O18i2H'u/Y$Xqn, U"lqcH^aA?X_<(NvP1SNAkgAfd2OigRmcc7(,EtaExF.q9tJ)Ct6iKX&Z8GM]h\bR U"Hx%V?12,28FIQMf\w>$*oY;<1FhgW[zK4anCF,f.VamXD^\(q6:I:;#lGbh+WD3bJ]M:D1Vg[Dd>kXah6q\JdU5_ U"8=+lI<*PdXg0krjyRAa]smmAI'C=j\_f/.2w7k*5+)Cnvx>GLQ^VTaHl^n+%rB( U"m(ZFptvx594-;Vlshs9Z_232i7U-[3r2S*gbzeV=lk&>Z-bK44K/M7[bbS76z_f U"g1Qr;5,[=F9i]H5RneQ)ioQUm2C,F]IRD]2A>r$ U"=a)C55SV0F>R-f+^k%RlyLLi6,i>=?^0GwBWK6GJd.T>VO)DX8v921ktmX._^9j U"CDFbOO5-2jh0\-Y8&9hR_#u9A=9uRUPqktOZY1%Y*xVYhywhoT3UE57>0A-gdG3 U"7TtYh4F96,G?l)*sm.r^OB\=Zxbf]tpawiq]4\/lelBSd=0sEcIn^TY)Sm&r^bj U"oF]'ZHoESJr&h?DA,9]rr/uTl_7kqpybVgbhV[6fvNtf=e_0#ZYdBJv%jYMzvYr U"Gx&4'gu2p[C1a#7dBK7vGB=_nam&fKVYGF_Q[B(G])SaMbPG=>Mpn)XT0/*caYs U"]ZiVX=Ut(^K;ZFC]E65w+RZU2H8NZ-JYhr=zIe>4>t<-5>39Cr5b27ZvW[cgE/r U"tL^I[:jt=o:8*v2s%^rG/-0Gs>.pxt),G6Y:n4l^ U"CH*SB^Lh[RgVSsw/,J4pS>lw0*BYd>3Nc:3m9vVBA&MBWl).VqH4f_nd9#]sdhb U"dy#R#[mEo#^?*bvJuw%olI=oU#i->q?i'D+];2V&FO=]XMT9=M)aTd9^p[GH//t U"8tBGQL,lTQR/QQ90=z?9lVpd4MgC1lp-ccKbm&^I$[yc*DKNWHb[UGcuKD:1ML_ U"D?KU'sYUJrd[Tke?LSr1s_NU\h<0l.cSuSP6c6FNj7TYV+CN&[gaOLHA:by6Li6 U"9f<#T:agO^+TBjGxkl+k.N25#xq%:Jg-zgq;+>x>\]I07Bl?-arqiMVowS,^?Z, U"0G6]wm=8,.z5oYXOshNs4o0l&SOf_=A.?_2_do^9FG#T$Yb=M3_YiAa$/i_FpC_ U"?b>mz&TnMdiT#Fo'HFj6TiC>'+Kc2:lL6a:bxRsB/tvrTjZgVF>df#:>Gq9\gIx U"aShU8pHRWIBY0iXThdDVras.H8x<>alZ*C0'CKr]FY'];7b_Xb1i+nCrSG#j_Zh9NHq>J2+DOs-*d[i U";EJVrGl?_1U$oYOPrux\+\$YVD*<5]Sc U"X#Bl?g;>=)k(c7Qam1#uo$Y2ka)l2sHYqS7 U"sEB>Z$mZu.,K)1bMl5(><7_v\k3X5ffXU&82',X2jr*$2i]IjQ;%%)?L#gKC68K U"piJmc_*p'^2MSWTDy)W;XRJ]KZ?QNQBLnMqDAJl\=k*d\Qgh*DHUC5rZCXc,#NM&vJob7FEmELxp U"L_NE8$8ra\]2sf_/TN27FVblDstLgi2cUdaURA;:YsEuZ3;l*HaSqUeo7TGlgeY U"3Y[%IfK+_V$X-.BKF.UWP754i+33f#l>mF3JR*vnxP)i&C5bVjZ+07)e9'j5Wav U":0)ME,?6rHvw?Oi%rY'_bUo,4P U"skr)K?B3=HEsVlnUTSXt#:A+:9&X3.;*?^\d9)quAtDd<&uJ4n$Inhk3C[A_XHl U"aiGFLbjo57)xpDj79(13=9#hjFe^Awqk?7.D2XiGS.qN[ugD9CY[eDORpigDgw$ U"Jds[^amE3L.QjD=p5#>vHx\[_d;sr4vlq=6v1Mtb(+kUFpMR/'7';qv'0jxDhq$ U"9/nO*$uTbON]uz:O6UXjWWg[eSC/ltwLThGXdPoUW.S>#\])CoG<\r$q- U"]#%wicrfR;VT^bEeo-'g13Z;]:^=#]qt86vV9b9H?GNML?R(CaJL'xUm<,CuqbK U"eBuMWN[-u2CkN_X77h2Jap25,RRwKa)e\r#WQGN9OCA^yrK'mx/+v]s7,i8JZ\1 U"o)I,YNADZA=)Z>trrv*S0(guUUn'-%-Z+7T7O#5^RG>35O9,c:C.F'>+*a(T_9) U"7UQR'JvH/Kd4YJlI826er'4.N;DSTLGw(8-[>YDv[IKC5I^e2Jbvhxyk%jVo=U0 U"ZHj^JF#k<4oMG#]6O,$vv1BOajB8uX U"e*SAIB%v'a5dltY(K\1c'hyCm%,cD_BF4ulDb1XAtN[tr.+a(kfd-CT20u#Ty:m U"5;^Xx%Mj*8:9)DecBBEJ7kVFIk]C6*-;n\s.,.N6RfJ*.fTt/Z.wXICUHgd%'Y' U"(30\-(BP=SBZ$>?,\JWCc0J,&J+qkSCO1.iK0cj0q+/tvrFH.vo72tg[wKMLO$7 U"yoJ)q%1&lqtF^ZbAh*H04SY?n9W?x%9L'bEK($syN]n#'r5bNw's_K[#5%z?Y5) U"ogrg_l?822c6N?YT:WuL1<8?ACC>'2ZtGaTG> U"q??3$cuUW/4Q[+\lprpSAk*2gN,wtHv\5Pokl?;/gq155,-o)*O:t-3iUlo5j4X U"MLV-sLm6hv;D4g\&l&V%Az#u;Tp:JpG.oTWfF&Mo4Ol5IS]B U"KHCe_5gsai8Ciz6y(JgZz)cWzi#BD84^nk,_#):=TU&,rB+\-LMm2]L/)O+wU2MF49 U"QjQtWC9+v=KK41NaU^zfpg)#61(NPBL(fu$:;XZVfwtW5Jp=E,?qQ60p?Zk7;I+rU1/Q,[\Nu?tMru,Ci.jJ;2UL5l2t U"-7j:*:&4sVXuO%oqt:Ogwj4vOo#^M&2C?L]u*_i.JNqS26Hm:#UygO[N\-CSg;f+5#Xi U"Of/BIgUwx:l:9b'b>P2.5]^cIc#g\:F^z;2atcg2-(QyeKENinQ*CnyZD.uoCf4 U"9gKW6h[bDihuJ6I>Bp5UcCYm?VB'+yT3fPD-r+\:T$V6ONEVpjrvwP;*S,+k\)+ U"6858f?nes+ogRw9E6A?+mab87eS#j&o1,4$7'0V+BY_itDl]Yf$m;2lMig/wDMC U"9[9U8E>n4H>u/Kq]SE#Lm22b.?=b'/tN\i.US8jlr70EbEwpnetje._RG^5=,IN U"dq/arwpVo:5)sZ'mFB*=(9q8# U"EmkCBWkb$7H&Zl[n_iP$H:^acJM]s=IOd0\sfhQMKQDE((*D;faMZ+SEk/f\i%j U"?_S(Q=pWRYjFs/.e/)sYCugaOaPJbKE1w_st.L1bgVzd_b$uKtg/Ki(A=#hX[[+ U"O7R\[&Zk==U<)uR2/o9Ku6BC&j U"Bb:,BHg=FCeGGHcxWP-5KwI*e+\9r)6M*1ORot*H[]DDfbf&MHn4Cn3mbjF,JV0t5NO)hF\E=U7f U"?$[AoBE)g\gBJdn]1GF1k_ubnGkNP6rrm'&BvMb^(NQT9FEkYCsAIh_ U"&.J5;.=]7=VT2**gh*K>Uj??]V]WYD\tp,U$4n,=tcLWg7j\JM8^3ZRP<\SixR$ U"2NVis'lvN[qTHoFb9#cch-O_i6-04yH8kmkLI_-(bPArh(RH+h)+\+vmU;8m6RE U"c)4#:Hnq#A1t0cYj?lWqdtOcfxyVgw'>&TRaR<2HnG6k\DJvOQr_=$OgeU]7+$H U">=\5[4\a&EXjtlx#K#OuQv>c3[l>8#iyj:<8iZ#)Se1QAeOU=pi\Q[[dm]*T:P'd;k\$N4 U",+[ARJng**.6Z#t%k?RYq)PY']Ce^$AHhr(4gYS\B=A$?>)I>y^^i U"XnF6>jM?(&dD3RH6fNt?v.^y_pPFR/^zwD^vyC8jQ,*t4p/rQu U"6E-lWc_c$'d*vS5=n%,_K85TaN<4IIm%rd\A6w%m*;7)(A:6S.)uc#cAHKm=?2S U"i&Xb7Ji>JYMTI4]jDCwK5ZnhqY0S9jf3NEsr?=vW5A.MYA;iysHmIg-]m9y%uUQ U"7mMuWWGm??jRb)/>4TFc_E:7I-$.Rvp U"#>ni4(;Cv$JKBS=8U]v2(z\7y?%8g.pP77eXNv'v3=zm5fqX-m>37$N$jiLl7Rt U"rTkHCG#O86SXuWi-onQLlv:sXP$pNk]DSl7hEIWEmK<,bR)3JJlwi(DqjUYAOt\ U"Qq&s3(j+(Av3?40MVR04c_0wU3&K[$&-q,FV2+(o_%wW]]?(4Sq/CW7 U"#tmI,^OxQEI]:4CJX'k3QWKqIre.7j_fHQ3Fs#h+umP9bNM=];&jhh6WaE&c+D+ U"?6bKbL$YXCs[ps3 U"?GOhBu8RQ31kYM+$kKIZ=5XM^8[6,>f8A9YFdvN5]PsO:V#ZB&fNI)EeG#^UfHv U"Z^C(yqG#O>CD]GPM[jv/nk:$'l,jvWmJq$ob.oCU=:u*u2GLn4G/oKPKmr/=&0F U"Wd=.psQ84KC=^]#K=ZiTkNw$ZS_q^0K[Xm(69#Y?LqU.6aT?^C>\jStn[V9BevM$FP)rd4_3/=/d_b5(Z6#TqIqNeA8.+O6k U"[K5I,T61(hrOT.rLROJSrLBn>SvFhltP0qiBbRR3\L>&%MTQqemQQkl\Do0gVru1LTP.Hv53f(f:kcXTRiW=c-UM.pgi?JO<&r?:EllNim5RC]o U";InBu%:R+,w7g_R(+,uiRA2Ci?feeNM0\z:+c7sKw)-WtXD4;Z6w?&M?.]63\iU U"/ud:WuW(Pbar'_S;^/e8F.L45;.B5bOn\f-L\kx:gzOzRo(jRh;BT)Dx?8.Nc)[r#^HKb[o1dTpdGIH5,C7u]c>g/)YNuz<44-;vV- U"i:_nR=$^O\7sxW5(lqU40BaZ1)1aIl]*)jUS/Y.b-ol$[gEUtiY]/IRD3r%$&%S U"u7.5U?XUlZ<(t#h?H%(0NO'KR$3t#%%3eCJK5V4p$p/)i=a&dA+7&,Iv?Y.R_JX U"E]/97sK]hx%UwJodBp6BwDoT1X%nEjwQm];1JsYRkBu\lLg,g]EW7roE U"$X#nXuTo4fZ7\pu=a[TYj9kg1:xFO(CfXXY.XE?t)e0%PaW8jHICS8ZHBRBl\&P U"](&&sQGd\>3;S1r*'Q.;5RGF*Zb',ycxC\hInUlCu*sF[;t2(WC842Y6ES%?qn+ U"6d[\dpaW1Q+=w;8wF'JZ/++/f$lxoMC4(8Bp2?3R41]z'2Uh.ubQo;]&j]nIQx- U"LkA:/Uln U"-tIb;94iH]%cO(wqWdcj2JZ:+adqUR7hk1%6iQ2h]Noej>3$c7.oU[NI\LC0Q6x U"r:HS^eNl.2M*6#XtbW[0IbJ0*).:FqaG'=jgNZHP7TlgJ8.c;\;,mhj(%:R*epp U"KH%6Ls3f7ZtD99V.SJ/Rf7V%pnue$(9Sp_bsJr/i9g7a,.M$2J=z2N_)>\Y8jX- U"A/cE&c:Da4kL>k9]%A>I29uF\:ArHBs_Ei=AoChMv\GUKlJ*]6AN5*0/d;L?h=U U"FiqJ4DCMB+43K2MSM9aIm&JHli1&a#GKWi^-,>J:2B;B+ZK8tfdxFJ'^[=g%&e, U"7Z19d:ArjTIefPi[j(1=5JYKR?o1i1(q%oK*[/xvqoW9E76B,>O%V&FlSf&i,)P.?fi.[6BtZ]. U"[^^++I.U4yddXz:kU3A+a00;Z*N_Ajo_Zv-t38[')ZS$ U"3$[3ePbCLv,ypXnBvLNj3$oV:d]/LjHnQ.]-%5I$9D7X4fA:gg=qZZ\ U"q,:#8)7HVpvkd'/x$C,RX=mv.S=OSJ.MM1_1.zo\gqx0Dr2H:[X>ssYR U"b,v9f4qnJ<^^iX9gg40t%;;Ofc6D7n0(%)]u_F*[G$x)iJ1Y/]ALYVv9/o__pOe-bWr9FL-Zq^#[o*L%<(YuUMO7[IjP*\ U"WWY/.hs-yES,$^WZP;Q'UXginkKLRZlQnmO^'gJZ?uOYZIsEZ0Jlw'a U"#YXY'V=ku5p%(>)rT7avQ7&38*(k'exA6f,eK:+BXfQk[1x' U"Sn%RKE;gD+Y[Ukph^ZS9YlU5IF>UoT_S&PIOvxu56N?Tj/AAZBN>rCk U"MnqSCLNi/04UQsw(+C&m,TO.?HuUS6c-0U_B#?oINpbnYiK),2('8Ign8=(CxZMEVt>rW.Qf-VmD0nM'Xv+L8d<4oBHs-4=i=\05rP8nOu+hzGqLv*e%fk>Pqn6V5j)NZ'<5<0[FLO$;K U"H;5sZ:2v9^d$0o'T17uYs6[C70MIt[h5ZOusb9\T<7A85S8[i3W44K1,Qpg'^r+ U"(=R[7sKUNbrq&15D%z*8ekI^a-Dg<\369t[M#v&fRSTgYT$au#HHp,NW%%/mfPq U"6v8h\YL;OfXf+#Hp/i#2-K?P0mkmniX&Hd:k0bC#:4UcH&zKoAZLQL'pFZU1d#? U"d_VPHW5<^#wKM/BDGMNX3H&ZqGRuaQTEJl>DNatI&fZj)(7>S?d;MNvFGK377q.UpXtffi.hZ U"=*xl/:a.Hi+e,sr+u,>*RbT8Q&hCT%tL[OANW7#1DZGln%S<,q0u),ORhoBG6wqzk, U"A)kEedYIFUF83dwm2#_DR_=7YS]ZQ>j8PtS&ribiPGJe(;/$MQ%2Qpb=DBY;fE_ U"4yswo,D4vAmM9OTf1w)?/$Ec9uPY0,n0u9u+.Xe:TD#4%)0CU1V*4/z(_.9:[Rc U">D=1'JMfJ_&DX4v*o;bj&'.T&KEYzO>auD*;jjSX U">4/re^5\hG;DUZ=Q$9^-h?w$orTC:69LS'Y]V,<_uAAH9G5;WI?$s%8-x)kpdI, U"K33'(R-9%A:PJfE#euz5B$4TV\q.<=5#OJYXEv6wRJU$JM1(8>N2\I:P#nq*sQv U"Gb'e#rU)'Xv?ZAEQ3(<7\4a/z,n7:a&rA/*3Hd263-DR\?4ZmY1pms^ULV$1vtY U"([g93nlnB1RKO1;Zb^00eu*S2Ff]vO]%Yb:gl-[S*:X)uou=5Aq4\D'.7<>B-fx U"*u%p()9%%'%-d%m?R1IQj&%.Y&%(%x'%%%.%%%%wty%VXSgRfx&_.vtRUU9TXjK U"mdk$;h\1>^>YS3.J-,k,Q)%KBsmKBJ\8[z=vx6FEl7OTrBPVbC_0:F&>?#DwRp2eA\jrnUm.5gDKJ1Ctaz2Xo+y9&;24K3<.GDp U"j-s\F\m[?E+Jz<>).rZG+sZg6[(Y>t':>G6,IWRW=jjhKa477gD?:^?mXH[2hB* U"spQY-iQv/uT:^tv:7g=.2cq%0)([uio8YYd)WcxbYNO,jtIVT92>:ylBOCQB#h, U"8C8X?<^nR#r.]\?hDL)D70cau-O09[$rUjsFjsWDWwp[LmcPb),rd+BI*oF>\Ke U"=wEu%V+3i_gYBf,kh8_%vumUuJlw*5Woun>j/WA7U7p>:NkNS?3Ess'8&up%()9 U"%%'%-%7;qfG-WCi\&c%%%&>'%%%,%%%#vgj'[SgnNb^:/;[U1ehGRvh]j/vXb&Q U"-Wo'Ofbsr&tYco)#aXV:4Y3U>G.V:A-K,+tfJ'^>zC&$J8'jcNp],j7/T;42KO4 U"mackqIYH8([AATZcjrwT$9+,o'SqU;=^=iYX>$x>$vvL#BnSHSr+)6P^idy)Y?7 U"lLFXsHk]8>#:R5T'L0preX4[vZs^0g-n-Dq)u%p()/%%%%%d%s>RjI4YW&D.%%% U"%.%%%%-%%.%j'u%hSxu%hGun%hxfG%2/up%&'9%%9%'%I-%8>9RI<08pN*I#%%< U"\%%%-%%%%%%%%%&%%E%%%%%%%%(j'uh%Sgfx%up&'%9%9%%'%-%:+?RI8C36)&9 U"2%%'2U%%%-%%%%%%%%%&%E%7%%PI#%%j'%uzSg%fxup%&'9%%9%'%#-%m?KRIQj U"%&.Y&.%%x'%%%.%%%%%%%%%&%%E%%%&6W%%%wtyV%XSgf%xup&%'9%9%%'%-[%; U"qf=GWCi(\c%%(%>'%%%,%%%%%%%%%&%E[%%%;%X%%v.gj'S%gnup%&'9%%/%%%# U"%%s>TRI4Y*WD.%%%%.%%%%-%%%%%%%%%&%%E%%%&JY%%(j'uh%Sxuh%up*+%%%% U"%%*%*%%3&%%&yY%%%%% END SUB V2 CLOSE:IF S=176AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB