'===========================================================================
' 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)<B?n5bYFGBmD
U"w[J552SI)7a[/6aVIA38HPX3IQM,179u(e*r\fLTaQ>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$(]F<pt^t7^(_?Hp7:i)=iPlOqA:*U513[G:
U"H3g(KcaV/;'pA>5AC^c.B1Cle_va3,]0*.%p4a)<<jl3[.]:&3PjvfxPwjQ(MED
U"K'qlV[_q&;G&o;jt+BLBg:$h%uWrbCH(8=TSraMv[[5^N$zUgWlzG%82fZ0Vl05
U"vPT04Ci#UW1=nVj<v.75TVA+BI#Ck'&'SC:g8-o*.:1dK1bR:sv2lW^jQ3WH8Y0
U"F3f5fd*q:\,kP4+'NV<Jm<d,tXs&X7-uReTMkB:1D/j6VXaCq5Ep^[V>\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+<Y9&Md'P)W;60p%Ub1]<c8Xtu^gCt
U"EO?THbj\4BBlelustf&H$.mL^wE^R#L#4=b-m:X[5ulse2nrt3paY1JQk.,Sh7t
U"^LKQI*)?vPWj<XL7qah]JWhKD))b.oj^jzfFq[0n]H7M6LUW?IBMG6;OTw4aEat
U"n/7z+Ode?vxIHl18k;(Pqbh6-at6:Ui+64.I>n)(1cGDXImV)]#6WqsH66<Nax:
U"Bb0weD:FXR#tX&T)WbjV*Tl-/FUSFD]$D03(%Ppt5tqtpEBYou3IgphJLGLa#ou
U"cl5>HC#bADte6/1c[^vg6&ME/>[)Csx[6ZXqoOdi$+xSOqF=X6sO+<Mvit560JE
U"uPR.W%cKjQYYaS%FcHp(c1I<Ie,ImnG:\5-HUTi20/;\>:=Ot6I31iQ\#Duc/qS
U"bR\k\Ti=7VV,#nR[EG/j]rqavbtND-iXg7iMQoMT0SVeZ0YXkgfYs2w$M78ap-H
U"V45_)xt#n2]/O/UA/51rFV;lGY/7w6N<VA=>C()'ihT)6\jOX;s_r[R9E(/;:S2
U"JL/YECUbwWNjI>H0mA/f^KCTNhVWidJ$*<a;MOnoCv^-7w$'A9OP#lqd)v-Cw>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%tK<Xa
U"QoLuq3fVbHWU3rYqb[jNLY)ho//7h>2DdpB=-'3:*V[zH44PnGc0/Ij%(MtI;>^
U">jaK\OrYKp3YB*,zHP5Ew4e&;EVe=sw/?cM#lXc+;USq8UK\H7D:TWO46i+%+i:
U"WIm6kQGyJzDexEF1GiPtSpHgtATXYJqUK[Ioz^Jkic.l<bpe8Z=j*iM^4LRl=#\
U"IQEbGS*5e+$?FWSgi/m8lfh/nMwH7IO,:%04cj9shBzoPM=r2C$$>:];_7K]-K\
U"kWrnB$cQCeM1E63*/'rsN%<w7r&g3Atw4oVFrchnn^a6=n&1F=ZjS(eB#+:5yk3
U"H*qe:y70/>qS[p#9mdxp*WAfqH:IWTRz-W?Qw2G=\o?Y6d4YzPLvpg2ZIpujlEp
U"RUhGkq)eZYudmf7>+mkGDHb&gq:3WJ)c-e7q<ZDMSd?KnS2hQs;+h6b<Wk)0]TS
U"Aj\DCVK,1yGBFe*KsM6+lHUD0#Xe+0RZF;#V/zpeH]W#n6fqDBz5M*m'xpP:uMP
U"CziX*>PvG?rBnsA,6cHv^<yDM,,q##5ks.cIMh89DHM5>2g#j:D<j_f;o$mqepj
U"<7b'Az)JL^cs2Ec'Q3gj?]J;-_3;wQ<Z2XMeZ7szZU_aSJ-]8]&E2+cG&nFutIE
U"e38Q1bw46Vz>?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%<k+ikYavR:<pHetBxKokmP8GO-w<
U"G_SP3iud=FWKK*7nYd/\SoE#Q?-u=sCLTrE[pot%n<:)l-(1X00_Mwuk4%pMPiS
U"Y_rj+U#*6qN4/<&'FS(Kcl1ID_w2oc=v5Zh_Kt#W47D=DTEZ[T+e9scO9,VZ92,
U".>=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\+<OTK#iTZR?
U"^E)=E2<OE0r(_5D?vY8Ap.j8n-x4.bJ_]u]GWo3lcn==^J%;>SOA:D<S%KALh3#
U".(Fuf[[rCb:R=X^Y))fvs%akgBY-9YuJDSy*,z<CU=kd/7D7e(BoGK1i>*-\M?/
U"XX9L*Y9p5JKIo8l0%ZVBovMBhK[^&q58qrx^(m3rysGGJQj:?QWROZIO0-JP/'b
U"0=JJqJ+GeH5\Tad&ARpo$D%/^8d$wsdOTsRP$N-+U[-'zhofs5]Zf<g.\FgXTUP
U"?%Gf&gf[d?9/=/Pev\,[uAq9B'1AM>V?\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/xITOqUmrB<MY^['tkx2,M4[)KopnC&(IkE,&O>c/JkjAx*,vc-teLoLg4,
U"a#U]Zx;S^&+4o(SI(=H4/#IWNwubA3#j]F3G1iJ?pN#d5WJ_hIz/74M?D_arM.Y
U"j<g(Lg:1kp'HvpU/]t\VVO*Xf-3?L6fwdMbPvQ[d?Z&;/h\yRwgzvZ4?e1M(&B[
U"[O\?=:ud(1U6L#G,Km*?Y9pAuxTQY6%P0\qot'c8Xheb0DZ]GJmfLwjJ:<CA&q>
U"?a25;dOl^p[x#C#[7oF0*E;Scn(8464-8alrJvq5AbL?H'W]MR?-#QEwh4ld^19
U"jX1sTfkME#i,[;#vSXRTuV#>lOS><l$F8_k8K,okSY:4S-Tku5k7t6.Bt.IIt0s
U"_h:N8O_yqfLpJtgGCmKiAkIgQG/00q/9,p,qmV>,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[zK4anC<Jq.gU)g--rgFWkoGMWYT8qKVEg
U"E7Z7Ww''v<r7Kzc?Uj]:W$QD)h&T[ADZ^Lt<krSBQ$)P/MhGy*4(]lS2phZ6AhV
U"o.Od\zp/f]^CVFD/*:k:)WOQDLX.qKz+)vHh/ntmKFk'ja44-\I#S\[%csmXhac
U"SjY?VTGzF$Jg5glf+#V-P^[jbGK'GKmKkVk1Y0cGJ(eu0IkE<s+m9jvNU(SN)62
U"^jddS-'weK-;uzTJ2NXFu7sPpn_f<Q%6ld8%RKRg\UrZ.pIj$^oCBFZ+430RpL?
U"bWIAl4O5*byfdp_$B%FH]msTlC&^QIS(12j:aZY=L7Bh4J^jTq1=CbB]d5Kc^Iu
U"#+RBcPg&q8>F,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]H<d=#6QTDrLc#1yKPDDaJj0D>5RneQ)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<gjf1PBXNZ]&PY[81WxI^]>^
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"<hkR[eoJK0B\)un0GVgKJH-_,nfwDp%haM4IoOSW.k3\]Cn-\uJwe*]94Z;MPe*
U"FCQ0ah$^:xKaIkw(\u\otGXuoeo,LNcD:'mFP;w[N%4DOiE%LZ^w&/A1VQH?PD*
U"HZ^mon)KCR.iFW0>aShU8pHRWIBY0iXThdDVras.H8x<>alZ*C0'CKr<ShQ([nV
U"#jSnG=>]F<agscCH<6xfcK]&n3<)DF<u'0C<[]ZV'rQWTM]?8c.mAcB<hIh7]5?
U"]^bS:>Y'];7b_<EAt,$.j-npG+SO%=\8<J'ElK9_GOq=idWGVD=-Qr8?HF^jy\P
U"ZTVK]4i)?L*r[C?Yw-U+5*wQ*$\HS?pvB&nYdJ<.3+#Mnm2(hKEnLpEXg]=_2ZG
U";EPy1zxBdRgj5$B/qU#r#+]m8(vhkHm>Xb1i+nCrSG#j_Zh9NHq>J2+DOs-*d[i
U";EJVrGl?_1U$oYOPrux\+\$Y<Sli*$1qku0W?B=S)0gUIfS=2.(Slhi_1i6\Opb
U"k2XY:S?;Bs]b(+JHW(fRCKK_W435:FThAtiR&M-MV[5\<^LUB5a=uA>VD*<5]Sc
U"X#Bl?<pRX/&IjbTaj)=\?&0LQmg9GV_M;/HC*b8zm,Bl^sRgj]u#B]#fcSk$Re8
U"aUHG<M%.h=SBj7XOJH&?gi,)UVmOtSgE>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<G2K[]tC[hSAs<r]S?_X:Y*Uo7I.;ZYP&(Wde2<)jB\Av4
U",-RTae)]^7*TWXTisiw]2:m5t4].&#*nA#hQb;m0HZ3$ty38=lLs<<\=*]E<0pB
U"QuM&+$VL9c2p;,e-9r<12^tNhbCf<fb^jMcVbVAUoS9=bVT0sc*Q_L&Hag_sk*k
U"H5Z>)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,?<w=dRasELbmJr=Zk#+]PnsWUTmQuD:q3XoVm>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/ltwLTh<JRe$>GXdPoUW.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#<UVMiq_NpMX=Ua=dIfNI)BVWjTIR-7dq>]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>'2Zt<rq&Q[iB/hH;0CU,BSdh*fUns>GaTG>
U"q??3$cuUW/4Q[+\lprpSAk*2gN,wtHv\5Pokl?;/gq155,-o)*O:t-3iUlo5j4X
U"MLV-sLm6hv;D4g\&<UR$v?uNG?JJ<4;?a+I]j,,F1348o.lEn'[ppMt&l.;LCVj
U"bDeSo?r\<cSssxq)G9h_BC9GN%olJ1cL;vBo?ZJqotp<9'6llH51cZp0H8OigAR
U"SF*ZpJw/mU[lH5hsRj,_#2$Br2V5SXB#[bOEYG;JYRGxOL_&5AhiMl3G_T[^o<&
U"S,qT,URegWT-:Q[r]I$Ye^9Ns2&jV=>l&V%Az#u;Tp:JpG.oTWfF&Mo4Ol5IS]B
U"KHCe_5gsai8Ciz6y(JgZz)cWzi#BD84^nk,_#):=TU&,rB+\-LMm2<g=ki'a]Ru
U"p0KQ_tKP$_9I[K%)T'RwKT'iCac1E?M84/2k&eVPITx/_D7*B1Xhj7q5[f$7.V^
U";ya/'IK=vsKJ24'6b,XZXkjRiG_HO4?)mUU%59*NVcsUhpX6E>]L/)O+wU2MF49
U"QjQtWC9+v=KK41NaU^zfpg)#61(NPBL(fu$:;XZVf<A7dS<g<,DA#w^/6NwE50c
U"$'8)dV_);H6>wtW5Jp=E,?qQ60p?Zk7;I+rU1/Q,[\Nu?tMru,Ci.jJ;2UL5l2t
U"-7j:*:&4sVXuO%<g[N(sa3)T$w*>oqt:Ogwj4vOo#^M&2C<D+Cp4jr&rM(Rad%n
U"br7FkI<Y-i?qIuc*]nPTY70kzeA6*TpsTslGi+ABUWus][a%2AKCi)1a=eMW$\E
U")irk8huEkP/s.rN/4T$vfK'W1)aE]&%M\0=3f1rr:,XAa\/ihUKEF/)/g)OS=98
U"p5L^qZS0IY#='$Gv9Hjtjcb%^u[FnQo3/+GvxAl[4n:4Uf#SW7K\2:5Uadfv(tm
U"G8G1B73E2e=qo<1qoI'fAkmf.BB1JFow:]*A8Z4U)07V'SVShkD+LJsku40;Vf^
U"L+5d'6SX0GMTNNum2RFg2[NB;\B%I]]X-\)]ac5[3,bS$rInt)('.NYkM7iR_UP
U"j2E<KyI]IZb7^r[/=QJDyV2mrM'B,?eJd7UZrw0+j5d'txJHO:e#<l#sw0N%^N_
U"Obdr5i_.0PcsQqf+A,zZpo#77$#7c2,.u5NLYGG5b*7o_$jO.4_lXn&7Q8MXAYO
U"gLg2f:SngKPOAp/aa1n1KzLDtW\Q$atSo0n*L6oM]YJ<wYL,;uIjiCi9F7;qMXd
U"e5.$-M#a$li?B<gJy(aC8)V7]G>?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)<Ll/X(4ch]fS5?g0Sn1KHJ;q_5iKOn1j1794C>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\[&Z<viA)kAy+&p_PdUmF7K]&dqAIHHusNBc($RH>k==U<)uR2/o9Ku6BC&j
U"Bb:,BHg=FCeGGHcxWP-5KwI*e+\9r)6M*1<RU'<AkMbeEMDSV^GE&uARMBSxJt1
U"pU*[Wb-a2W%w#L<E([sO*&Xz.iG#\shB<66A;OKmj&MJ$B\Lg;g38M<^PT[i%GO
U"G<vlKg1U3X#4M#$E%?o(ZSu[5wu;aDGRZQnJm;+s#Q&up..tuP#[ld?D#Dn/&Wg
U"geo?sRS=&]GKPkIM%Or[F4ZRG/ls<asH/RW?d_DAeBwX\?&^CcBQ8U<aBu#Xkqs
U"tV*Z\RWi4u3KRKT+3n]0>ORot*H[]DDfbf&MHn4Cn3mbjF,JV0t5NO)hF\E=U7f
U"?$[AoBE)g\gBJ<FZtKdV>dn]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><H?e*FCIVt1p7xjOIrr+Z+jCxkM*\mplU0t
U".cm&YHjR$V8\m9Jqei.+>8#iyj:<8iZ#)Se1QAeOU=pi\Q[[dm]*T:P'd;k\$N4
U",+[ARJng**.6Z#t%k?RY<NC($6U_9:WB6L\DEtBD(q-XT,x=-#W&Q,9:^&0a4EH
U"#U]xC=NI-eX[y<T[8mChS=V2$O,+7WW+cAGUlB$B#l%YG)QGjU;+mr12ZC^$fh*
U"qFe?9=NN2Sa,aABX?T/K*f:#=i3Q1>q)PY']Ce^$AHhr(4gYS\B=A$?>)I>y^^i
U"XnF6>jM?(&<Q9(7)^0Yx/g^7C%[NuNlT)MX++R&2)r?GFk0CGRa\5LA-ILEX:y3
U"s^_wmAH?AE9k0gb.D40R%h>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)<J(<+o]7YB1^Tp7rSdrOr?()q2zi'oX>/>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]]?<kOj67[W/&]pRfn+
U"+s_7qb0XnA2/dQ2R+JI,Hi.;kitett?SL(5jp.]JR8wjHd]Gd[F]pU>(4Sq/CW7
U"#tmI,^OxQEI]:4CJX'k3QWKqIre.7j_fHQ3Fs#h+umP9bNM=];&jhh6WaE&c+D+
U"?<o.7h,'=/g#69EN<6LAH#u<b)xNBWhV.VEcJPFLZqtAsgigK^iQnVWfSNJVmr$
U"kL]w\dmXKh:$6__Fc3neT>6bKbL$YXCs[<?kk^)Fa#o\j^9b+&;L6([siT3o%_R
U"7jZCWnAS:rb'8GRi$gk^m6Br;)ca2N2DH&P4G^=QD4b/rv<3kRjpS#m.Rr]_/CA
U"8P%=g'9x<Wo<P8v7Uy_BeFQncQ*qTP,6NLRGmOh_&kfb*kVdyj_5BhKpe]\da#m
U"^\KHuAcyIhpI&O&V7iL2%*:o)k3:1sN^+G:a+:hKMR&FZRvrQ.O5\kRnJ#+>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.</0pQ*-;aSa8no2GOuV
U"*Yd_vBS)Z7crhNssr&;5*T^hc\Q13LZ-Ha0fJ=(VNtw/Pk<nBTc<lt4VM_GUYEG
U"]_w6q,vc$8vWs1oFd8fS[jLKOT%D*[-$sloS#Uk:7I0AGonW]:-eoB''r<duR6e
U"d$nO=J%<.j>6aT?^C>\jStn[V9BevM$FP)rd4_3/=/d_b5(Z6#TqIqNeA8.+O6k
U"[K5I,T61(hrOT.rLROJSrLBn>SvFhltP0qiBbRR3\L>&%MTQqemQ<Isav%gWjR*
U"SQJ1+LxDu%p()9%%'%-d%+?R^IC36()92%+%2U%%%-%%.%j'u%zSgfaxf?ft=\1
U"jo8&8<o%[0/1\]0$qj;[4OpZDcb,ZADr)l46J1vO:+V*?lAAJ^#]swjJm<MI#N1
U".L]KwNV.^G4^2<W,xA0O03j/A]kT136UanFT5JF1s,&TNo.Afg3UvSX0Lz5FiPS
U"e&u>Qkl\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(j<jr2vBtmaiP)kM&
U"(Qo(eUbFdJB&7/);%I.CmmgFFABu;j+<lqN_%(7*59(Xu1-;m;cIX'7ak)dHJs$
U"W4P+)(D)[.rxo]^kfW4mb\ZeT6u$6qL[IqhUnldT8THRvU3_581]8Fm$.t46%&&
U"uB;A?_^Yn6fa:nj06$hWPT63nX,8s&N&oGhD5lszlVwFPqx%_j0VB\W?WbukhZo
U"X=R4qK7F>Rh;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<ZmGKZWav-WvwV=:\pFIeg#FbG?fG[
END SUB
SUB V2
U"m'E;)Ov6AN=N]]:Osdnn*PBi2?RFwAu9jJJTZV5U1_:LH8%qb2=#v7dth3hFY8)
U"Hp#cf,L5SS)Mj6OJbYnDwK,r*F2'.4mY##[\wR&u&wA<KA,<F.J-H'<J4ahw=.B
U"'1&dclG#nILdq,*73'C:1vNon7oa&O5HJF'?%u2<Z-.WqmoT#+Th']61\MAQ\Ob
U"UtttS&-0#s4Q;YmDsASifuObLioVGuB6LilG[a#8iuUBLFocR1<JxPi8q?,&)Rd
U"b?#5/+KGJ's8/)DFi\NR'l,]J$t_FJ)f5YD/03=>];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"L<a]c-3Ww%UqQHuDY&;j/b2<#viboMbklh#)UKjSS.shQpKK\.XUK*3]tbGYq42
U"mh5H*j2keE?7EtAamQ4=cC4.#wsGAS7)Cd3z*IDON4?UqD,d=Ig0?0T>kA:/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<Omx0Y)4-9
U"roGZC4cI)YPO25CmV4OR^xJxgwQB(urdZ?RAu[P_4B9K2;Q53e1gi?$8HSrY(K;
U"emtt[=q+t=uHg?/_U(Xo6c+2A2K$ufP<]QPsHP2-).7xD)][t]<KA/o.Rv6Q]$o
U"03xW%d8l16vR4[e*'QXtSf<-QUd%=6D(]-zP6$7dxjn0'4N;Clyi]lASj_FEp,\
U"A\*GcHXq4f5]WYYtF=<h2qR^B(6+DRgqnC-_XISs>&FlSf&i,)P.?fi.[6BtZ].
U"[^^++I.U4yddXz:kU3<eh3?[NmMsgAbAr-#h>A+a00;Z*N_Ajo_Zv-t38[')ZS$
U"3$[3ePbCLv,ypXnBvLNj3$oV:d]/LjHnQ.]-%5I<myg<:A>$9D7X4fA:gg=qZZ\
U"q,:#8)7HVpvkd'/x$C,RX=mv.S=OS<Oe'^._(gh2D^]RPilKIra-Eo<c%vmD4u,
U"ELNx$2p=.FY84<FU_n'KlrUxw##N#\E0CttdW$8,BN14gu7Z=s=)&wKtq^cDh=A
U"nmmF3;h=#SdTi1LcsgMGOti&<V?+e1AMs(x>J.MM1_1.zo\gqx0Dr2H:[X>ssYR
U"b,v9f4qnJ<^^iX9gg40t%;;Ofc6D7n0(%)]u_F*[G$x)iJ1Y/]A<j+)\HhxTM+Z
U"zS-WLMp&Pi5kRG<GFOA>LYVv9/o__pOe-bWr9FL-Zq^#[o*L%<(YuUMO7[IjP*\
U"WWY/.hs-yES,$^WZP;Q'UXg<e0/8?g.NsR.DQD01zNjP;D*XZNhiRlS8=?M9=U?
U"PZt%bXGt_Iy54ihga7WQ+#<*6xaJf:lnAaM]PMdyLt)uXZ-ZCZ.efNm&pU.IrEf
U"Z<]^CnVfS?d?Wa.AB2Ap&TlY:;O$;w>inkKLRZlQnmO^'gJZ?uOYZIsEZ0Jlw'a
U"#YXY'V=ku5p%(>)rT7avQ7&38<sTvEIT5KH85E3R5rOO1meAO[rL)EEL2;I:B$V
U"rtLC$cSBCM*Wi-pQv:maH1/6u5hMGCXYg\reEZj5\*aohI'GpN_,(egfAXVr[_9
U"5&RR/*1;/\FNw=kQ)+]by6Jnh,qdPU$9[]IntXH>*(k'exA6f,eK:+BXfQk[1x'
U"<R>Sn%RKE;gD+Y[Ukph^ZS9YlU5IF>UoT_S&PI<BYa>Ovxu56N?Tj/AAZBN>rCk
U"MnqSCLNi/04UQsw(+C&m,TO.?HuUS6c-0U_B#?oINpbnYiK),2('8Ign<b&9f7i
U"9mfrkpr+:,JJ<e2fX[=TuflD?Av3>8=(CxZME<F8eNK+bS=\G2Zvr]=HHHz#GI]
U"vv&W2Vz?i#N/Q3\ml6kOG7);slHJhCx+fqmJZ&M)Yno[)[rVKlIoYxV'?TG4ZAP
U"XG'I]a<T1[\[/nj#obN>Vt>rW.Qf-VmD0nM'Xv+L8d<4oBHs-4=i=<d:qarOG5v
U"1&eH/n&glBD*k*UHE.>\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/BDGMNX3<rdbAs;?l't,V$,zD?s26wE3d6tpSFiJ,gNQf.JZ4q
U"cpw3)k=SEKFZ6G=2%2pBXkI0aJ)msYDLXul;FXthk6U[1m?4?kn#b<^08)wlJc(
U"$cuci:#3>H&ZqGRuaQTEJl>DNatI&<cgN3%./nbNgPg:i[,0Qe9G+#H:P2_uk95
U"T'6h)L9;2*G*cz+e(A4oWQ4u.hM\oU((j;SmzR8V1^7nC&Csttbk[oL'#MH#4+\
U"MAY..U^:S^GGJAl*CsXH:2bFYV[TN$>fZj)(7>S?d;MNvFGK377q.UpXtffi.hZ
U"=*xl/:a.Hi+e,sr+u,>*RbT8<raWJb[jNX%6c)y:D&[hjbp9;#]whBWj$H-N?BQ
U"F74k8QWIY#,L_l=)3bPO>Q&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>a<U;N]ulshV/YIC=RdED4'm>uD*;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=vx6<T3rFKdA4?bHrG^<:$r<bDkDC
U"y>FEl7OTrBPVbC_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
