'=========================================================================== ' Subject: .PBM LOADER/SAVER Date: 01-23-99 (00:33) ' Author: Viktor Rootselainen Code: QB, QBasic, PDS ' Origin: viktor.rootselainen@pp.inet.fi Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PBM.ZIP",4^6:Z&=19774:?STRING$(50,177); U"%up()%9%'%d-%r).[KAo42g+*.%%W3%%%,%%%%ug%rSgfOx&&<+x[m5]ws:x;pf U">Z,k96aTDZ0)[,=Y.^F?)p?oom3.N[OTXV7bt8bj U"Xe]3#(-H#OJ\.&<[-?UqZ1q,F0LZKC.=:M_[rm&J3MQT/+%glmll^K<';Ejg5)? U"H=WF1Ell#ARi=v9G['9ItK#UY1LJupSV=o_1PX\-s8s*cKP'JYBSp%Xe5P5c53F U"/D8;wF^wi2C9pCB>'lf?\Ih<2l*29v0(\)#UC>g$b95j(?C&B]sBukPSx^GQwjf U"h3KcRj5ZJ-/GOYu&L1&=KvEcm5gD9Bd78tPnCpSm4k0/VVZ?Cb]Pg*pMAZdj[qDkPbu]R1p^%O/h6U\fLHJt35z#3RyD2IWFIdN U"(ZagJ?GLiL'326'oFKRo%6:8S]n8HW=(i&r0ZObYiF+Pa'4SF1nD2LQc67\1=eU U"HCq#6_u,8FB(X3wj%FS832:JJ+Lsp&IN./J#SF-EIY)^X_n)RwAnm+$=/FJ:;KE U"J+\.l)v.&MTH*^u,Ywyk]8vXmcG#zAB#SU&NuZUI0zRR2.zpNuw])P/-'r>S3rb0p/(0RDHE\paqkM$HLMXCe,GtK] U"OWiOmW7%&>inQl\3=P&BGg;bLxoBm)82C(p]P<5AD/X(Y<_6br//tY-Y*./sOL4 U"RJ[Gpn>x0Uhq%uRK4Mi#>]VR97Hc$+wpQfm'X>j&OAM+7+1t^k5<\udvQSW6H>2 U"d2ctiCO&KYC$Afr;T5WSnZ]h&L)%04t\ U"CDw.U\Lr/>Fsmll_m,ZSa=uX4d53m#,%Y2\e<'[3P%tCqL$'V,uhBG[;-S:zZcO U"4Y].fAo2&6qHc2*/r&>[1a[e'>Qg25zu4%1sf+ImQAD<(dnhPbpRt>Pkfo^p# U"^W?yOA:PSh,45'N?pg]PsC$S#3Vd-RHe^8$NmG$p4]WRRY%8GD4aZG$1d90W^[a U"gK[2rJW,MLAhk/uj7^oc+X/pd6f9_SqLoPoQDn;]Dl9X=1I$I*niK1av;-u*7_8 U"74Q>)usc9,#44vK_ZNg=OoBg;/3ye[k>/)S0<#[k([Q*OnYPsPkq=<)]1KS[XA* U"\Eo?03bH1JM%.YrCWq\vRBH2aS,gN.Fu/mV?sAz+T([L2a7fOCbs-/voDWFH4;d U"=.5]M_-BucfO\=GHtjx&^qI.8kAd?EJzIiruH$Goo4FwV8TwDJ]Y)?ceR2Y%dup U"(%)9%'#%-%lAm[K'?s6c7[l%%#&8%%/#%%%3M>;;0JAS?1YHa\elQ2l6o_K;H,22U9-Z$#1dq4azZ U"5<:#X[nphg.f3%_uKFNvvb(Ay_zH*K^f,twR]'WiCdqr=(,sEQ2NNTfz7o%n;qp U"2\*$9g2E5*&-HM0Gq7Q%6Ldjh>=v(NC=>eX,hH&0)gi:k\%FF#Md:UslpVvm:DX U"cJgQHr8bmjF3WZ>P$jWE)UE U"&5Sn6V5Y7sAHDT#x2Z7P(vj4.5,NQWba>XB($FZYu+5Z7T#;N5).cm6TZ.%mi0U U"tH-#gQAG>e#s0[=quVAZ)6G6BsTeeEH#j?#/M8lbGYaq6P'E4uX^7k?,]BMeojG U"2$uG_S?Y.[VbOO$4Gft-Y&[*5[#Hg1i\<9ZyUT*)Mli3sIx/kI%g=r] U"0lP=A7La;.5e#PkX9[b]pZDP+^P]-0Vx5uQa79+BEOq.OS2sLP>D+bGC[nWsz2+?:L2; U"7iUG'_pMmjw&=az$TC4srGG*Qes%#T%\[TN[1/gVKkl(Y8G*,sKa9<$0UsDc/Ve U"rqTEVs?GO&WD;-9_tOM4,9>MUC5BkMwQo>uuDOaqxg]jMW4Akq\G_ohq^XV,3&f U"f_OGBr^-dYU-;wqYbgUxaV07(:rn2XIpSwwi5b^Geny]l\2*Y$#ph_jDtfv9Yw6 U"Bj?l$5iij1#r[_6X7+3[VT7JtB3eIUAMc4N=8-idBz\d#SPTTjE&nD5KD=LN8gn U">c9OC,oOSJ;5ot1n-oj/K[*P49/PABZmEc-bdxV35/wu^mt/XPP,HhVuK>8SdS' U"N8.XP<&*R\cp$ao5 U"kX-n%-FtG&Sd&QR$cHb0uSPYLxixM#3zF3M;i_UC/P37H#TYUrUFvo)2LP(/4kk U"&&=H&f;Dx>'2oj/J+0M?f&)nwdnRS=cQT3(<)^HR6o3F66BC?44Vq>3+CBCkjTZ U"L02->J'N\Fq0AMfz0jnAr5/M>9dYz-\\hP8gCH30Ku/B>uCHJaQ/Fob*d%7:OR( U"JMD_gyd+'_;*UHu8j:/2XkFLQ*rZH+cX.qYj8hH,1x0bT8ns#Fax$QDmU>YQCM( U"A#e7F#kE5HGZ6#'G#7.vVN5HjrzdPedS&Vz;x:4)X6< U"*\%a;ZO%cVrjZvDXPEr>hQ/d$bNM?)DVH8Mb:1:T)0L,DY>VAMj/_*\m(kdxL U"#-dNj(.5]o31jCX5EW1Q0X+1i6DbOYBvbw3f[n=Q2%*<4]aJWkoJIw_4&Zc#\gM U"q3(ZA]M?]/Q01'jBO8n.fUyWD.RWVrmET%?mA-9WD7F*L<(0rg313/9,/7XkQjg U"([7gq'>+2f\L^0fvk:HsPwiG([Nb>w*vBBw_#Ij/ulnjnh>(lh[]&43qGLGAm7L U"f?RH7T]Rs]n=quQGUZRotRH?.Vv(Mx#lCCD;'3j<6sRPZmOXm(EbR0QG2<8A37S U";.K05QSuS=B#5GHL\B>nVMr*JPQ\M=RKMGw>V'7#nj3W2(KLUFuLgLMK/=eX^U( U"RO^Za:v5j6t5/IUo0POiH]f88fWQNrt,RVS^=8WDWFXa4YPn U":fcyzj_y:U5*RKikqH.#P00d?O39K?=nULtGd\k=mV(?853Cfe**L:4-oTS>_6AQOE U"lt//.#P%&I&n'w+L5zjQ6<$8yVRfwH[+fH'?t7Xe-:qjKXDS23kg^fpZ#D*8S*b U"ab(#U\R$1N8j6D0_j=.#8+n;_i3%n-YcK/T'\bMN;sjR9G=tOPfR^'\>X>O\)\s U"I^Rqc=*:<^UL^fH,k(Bt=ms&nfL[uU+L1Ru\.R-S8Z-3\.p-&h:jkp*2X+Y+c-R U"mmf*K2'.^%C:_-P9KeW.r+>QCctEsB:3v&Z)k6jGmEf'>F9]B8TXL&JF3GzXZn& U"U5J2A1(oD-i^r[pMmF0a%cY#9p4,*j-&,11uMcAE4[f[lcQ^jj$x/ U"ICZ^*XNWj>1l_-/cSOk5_J)Fj;&M:C0t(xm=60v0lW7ruWmD_r,C>w#mfW6_8&B U"wJ-s;ICSo9MHa+6[9FH>Ss]?j4A#f,T#ZH+GRN:L1ll=B.HCf<#%nR]$sLq%();Rs]91XWR^M/-s-v&s1l-);PJ&17MJpgY?t&lHpU+kM#m U"L3XV'HR>9i)Ycqv6wigy>RJj7]Md0]C6j2\&V3?v],sIcaY2OKZ:R^DE288[:gj U"HGbRaF>Y[C9tL=T8F\-c4#\-\5BV;Hq*+Kqg\ZROdMF(Y'NG.%obE0^]EiO*>^? U"&N-+UC%+uh4?5xS>C$IwEs:2ue*Is01*Ch#fj=8w.LC*uR[wniagG[n*58NC15> U"cr0r?NM-)j.$A9S7uV,(/oR9xK U"ge[n]kzNXd+e-dW/;E=DL(yF0PG?Vf[wLz0;T+DdBwNen]-0B(c?t[wHMPef^?D U"d9ZqmRk)>lS-qYvb_3iOH_q0GvOIpATSu#m>epg+7v=c[op2t]n_Q%/\>t U"Aq(cPO8^KjhvP?aLR'O%he7A'S55pX^ubjtH1bhcG'_j>Zp#37,9Tt\lG?X=pJ)O$.t5F/tu44MK0mSFq>TKYHj,;$LUqW#X?ZZkvkE5V2mf8b U"0-U.L$:bKwHG2^=kBQt-y4u.:c(rQ3]?9*bklQGH.uG2wh2im?/0F U"p55^%JJo'gT2%fqBGZY?TVV4kjMYF'pT>,k2[)*Ju;,t;mv?L4(ZFA6MsEJm8rW+?dZ U"g7x<2>:RZ=of^0bhMBOu\/d*'Y[C5m]LFprB1KQDjsD?W^+u/a^PX#rM'/Lt6ny U"BfOEr0NO*]j8GwVP-s-:,[CzZ^'B+3mWF_DV#Y'4QcU+;9)deC3C2(Z U"Mp2/7[lHx55F6<=Q[J3>rzqLrj56:=mhN*L7\n^\GbRt+Z,;c&_T$L6)dRv2u4= U"gmT<w^Gl<raFPkcbk[szlM9N>4HhIM\5>sL U"_lx;vG3n#lxC4KIMNkL<0Gvhn[(D[F9DlMmMwz8O$'LT-Cm9F,w_Qme'DG1iAHQ U"nei%]XOSsgi8A-;_adACrkgZq&G41&%Ygsyl&tw'TCcHk66vauObq1uL'uJHNhB U"WZ]U#\'rKEu8KjY6l$,M=F/p)mdtODp>A_13pTYkK8T9zd.IpRrp>%Cxltn2tcD U"ruJ[rQM\bmP[>cm)Bhx=b+vE#I9dknCNENUw,0,20j]ogybt&U42=(L?7DQT08( U",n2]oZ8R5&/Ew1lcNXpLGQxrO5U(yH4g2%^,MzI+)*0t=l+PvJug+p[W#'8En*o U">a(2_D:V&XrfIZJQulAMVVPgfG2gk4f9]ls(MsKMvPc-w*9M_T)Zr8%O&c3iO?5 U"Ed?ZV61b3(b-(C16m.YuYu+/n^ct%bfN_,uEH$:BG5&CQZn]XZXkW1=oXH1GO3$=p0TraHemY0$MGKwb&TlsG0VEhr-+.[h2.GL9VokHm U"^9_\mB=8D2%;6FqpwJ^WiEg[q97(aX0(8xQ\d$ U";HCSJFKj-mB*1ehMq1H&RJa#ONsdZGoR>T+>-[(TU\bl;)Cso4EuzMS:^u$ U"^Dppx2Xq_'inGFU$jm^fqdI5 U"-?10g$/0kN[I:+ZgJ>6)>6CITq7Y%*Rl#GplK0j]\=\_Z#Sj';V1Q6=N#u$yvTU U"Tu86(NG+00x]d)Tl,2\uMzl)6+/e1Zmg22Qx/8d:Qo+*TWgO>J-TOJ2VV7SL U"Pk,KNNPU_:TZ]*qhz\WIIm-\uSMrM=Jw1V&'EYQIoIUO]UJe$EGQ;6oYd;'pR/x U".3#_gYt4_mShUNMD2Yzv::g+p+YR&QPApsb?QA5^#n'mhN5^QQ-p/W0F5/[\soh(A8iG\,AarVFCH.\..GJv35=VIu92PyO]A[3&75q\DJ+ck(z1+W[1[mha0iV/_ U"'>.#tr**k;;eRE-#,*+2D+RrDF?[+^La4xWo/qURv.uZ4\46Lf[p2hd<=yFI/bq U"I%*7V%3$cDp9,4.>jWriGrW4L*OuQ5ruES6Du]S)CHV?jPP([+.o$0##=e9j/-w U"KvCd9_SMB=[K(d+P[u;HanniT?rLdU6v4+z(AA/YnmPNToIle3)=hezM,opAmk) U"iIfVF757AhO=1gJw0^Q]vJEZj>s&ah08sxJ1rqST#DGy(CvG_sBBm2dp:Khg+$W U"*Al.OlI.ul<\&#W41lv;t:/upCAsDhTk U";6$^,'$t(*GLY>+c4PO3n6ggH#FuJ>E+7WOtouALK;m5pgLVoo0foygo-Q1C+qD U"zxsk[jp'7ARMc.89o)T6%;_aA0SYTN?G35c U"4JMXKBlYmn6'qcf(U%A,]Y#U-e7P=IFP83]_+6XW2[lW8^u>2_Tgq=+6)*h[VQA U"+>^M'fGkY<#S>?'QLdhYoLhkAvLBcbyt^?n*)[>CTIwWSNs\p5'J%dA)A>4*G&C U"8Noh_rWJBZ-->Rv'V+nTl9g*+7GmmzlAb&WW$WIK32NSTxhxT#BfdHoH'4m6j5d U"[jiCKmD;8ocpYlZwq3RiGb.AAgD*_+oF#jk;&H$wlv\ZPdPDUvT(liiKF4NGygo U"o0nxWWdPD6e'u5[U+Rd&+S?2WkeM=tdz2kdtn-+:a6\<.5Xw&uEgd*Lu$i=Xn/p U"Us(H%hq#5pbTbK#Ti+G7)Pn%V0\uwM]ir)AsVi6o*t5_WDg4+Im10dW,^-p(Fvq U"s?X4o8Oc?RTS]JmWL[wP>jO760[kpc6L$4NcV14L6;k_-mP=?PX5Ed;s8sTe96A U"g$6AJl=6775na\OOOXi:>Q6F91TpMHg[2jR/X3Dh:W>7:S*hhE=V/enQ2(QP/%)Nx?tF'l)yL7gRf%1Fq19H U"=/v*Z,R9E(6uVa9^spAp0+A6Z[[=7M;pm+yBwM4FI_OoJT^)/-Fxz8IfhV&K:Ti U"(GF6eJgoVlRyz,eYQbWRFliE1dIOJQQ U"CoBiUqQB)zg&9S_.>sKWKlAwDIxRRYd-\:D_8=G6Y&KWT]m.6zaC5.K28A_4pcF U"+ME.:d;5o+c%:.5siYAnYWcZUQC51Y'(3duW#g):tJIQue[wag9i8^C,:EkQLiQ U"qRPOQJBn(qv4S6f:BN^4#qkqrv*I2C:y]gvq/;M[U%]+yEr5mM3,+m)W&3\Ai79 U"Kr)4G%2_k*,7StP8G.C:rqIRD.YknKY/cxB,?NKX%_4f%M*3aK*b>s*6J U"-y0)sC]dn[798Ci>&#'j:=K;iWiWknTkEq8L?kHex8Qob4^d0EXgLd/,L]K.s6u*w+:Z0*?]ItVMv.SshYr;mV U"^OVA7cjUj=(%gp$6t9C;f][+LX-m-[6IQ=L%[&#o:.U[_%S\+m=,T3mFr[(&tC6 U"zkKnNieP^$;+gp\wQp0OQ:fE72L3d%;96DkT5YKqT%cRRv/7oU:)70-&2+NC^i] U"BCy7Od#a]Pk8-5..z]Us%wP\Zl^6mtE^+)\\'HpQ=P?A4CON2Z]fg2G/O/L9vGKT7omAF1/Znw U"ccxiZ8[$U,tw<6d*tWeO,&6eIC*HaJ_$Cf-/dhCe4Rfr0&dWkJceTod9)Ra49Jgy+nfEv*4U/(aH__bQN.NZ/]h]m2_h#ex+w\k.>.m6/h,:O#W#<\l.>ff U"W;57GlAKH).w*G\Qh8PGf^'pT=YiujnlQ5cADDSW0V.oWX?]cdHOisxkp.S0P9w U"]7QxOo$/s(uqWYjDm4HPof&quFrf%SU'yEFO=F_rfgJ+6uK;b)u?PXqG_reBc,_ U"679'>c%S(2'5=p7CvaxKg$D^2F9GgD_Ccq:^s4bjS1Cj(#5+DC=.1%kb*(FR]?- U"cj7C6q6CRc=p\>XYNfDlP6yn(Wja);:eA^5OCVz[]dbZO__vkR38H]PWN>6*6(M U"uZW#qT_k>(AX=>4HAUY')DY0/,CMCp:\rpiguj\DU4c-ebQ:%edj8*]5K7SC4hL U"u&/yc%lWFh*ps'00A%BTa\gB2ks1B*zXF%lWSOWsz'_[n1ng,6d^ZPaS)Nf[xk1 U"npmQ(&=DO0(yO)>[i_jb1ll=ic+iZ,?Ps/:S^_L+8[sU])Y<\f$R0-Nj U"^j$DnnXSL#pG96CSP>wyR)%?*]GPmc5%DB7>UEmm>A2:&\ U"N';JW??&.&MR?Hs3%kT$Uryjb*]7*X6ATZOwYC+37x1$L6)O=0TmDp[/bTq&C57e U"(F+W13vOu:bPK7JWF=>(7u11NH2M[GM#F?l3;So:Rjn(Hiv6F)BvtDkSt6EBWWI U"kX[c_?c-]igU&9G9n42HXLRxekU'0E>%QfL=P[cnC4#qL*dPj)=Wg=18s45?r]7 U"%DhiIRBPrOFn&?QY:->peq:qX)xml'q%W+RYL3V=r&=^:cb]Q:hgKc^ks;o%d6U U"C)DYsqjn^2Tv[L?SLNuJh]#>WsN)$-bT$MJN9^Cq$u%N=XxZTs*k4HI#/$_ZpzX U"ZrhIx_qIIzM-%4dW.3RA9TW7.rqKVJm0G>/0(41RXdpJx17V7,B6R[$d^$#t50Uh-^#<[FB7wZ6R#FehLc. U"h\L\PKPrlgMX,x^P9rJ&==dxv5VX+(CLn>tDK\2t<\p*ojWju&k66#uL\.<1_6A U"#&pI-tA->0k&+\r(xJ/Xl6nn.eG;/AFzY19j:^<6D3r(e2)<#&[0k U"Qms--H%)H&-iJ_=^L*px9RE,b8(I$pBl]1L]G-Sbsc0_:AX>+<&pUJVFH,b.,:gcAZm..,5WwUX:kWYY5N[YrK6cwZlkfyF=8xHjl^qW3XP U"_F408qi(rh=%YwNJqqL=mVlm_MM(wlrOp;;?]I0.]F2a&6_'1N]bolY-r(xa\cl U"W)f[0*b?K='2)rIP,qGA)ze>NJ/tWlTsIBJ]0VF-fRMOuCC;lpPQPp3OVy14cu0 U"zt>xP4q2?vDp$ax3*0S;M:vNn-Pqoz^6?X+_FpuS4lJ^eUG$^\a7$*)B3E1RoUI U":h/qq[/4Q50n?S2v91(VmdDh.hL+*pF)uXMLTQ'jhh2G4dUT]t2:PtrGE1>0dI3 U",TYbK_.NIp:X>i[EDpQ)+t^_Y>s>36SflW\Nrc-LDPAsjn#AcP<*CI]ShSw=F?m U"cn-nUNrE4uwo;GOTT9[IQ[-/Fwt1^yvlttFS7C?fl3]]WlFA-a.K7M#u)t%YrI< U"A+3aYxFpA?VpJp%IK8:MPaE;iwK_n1Rjw7+(VosstHiaoe>6:if_Y2kqgQDFCD/t$(qBDIt:/;k6o#O]$zuQUR/8pu7JmrtG U"xha5yerdaAHf^F$xTW4K%C3MgFC-iAjE^Igf)q8MNPF5:(o1\ZlQY-?8jRes4%C U"33:M#rf2Du-jvrveHXfo6d>j/jRS'Wf)6SsT4'OBSeGIhf8Tx<\5j:1_pAv.,2s U"Q+^8dXmB8'H%%z\dLNfr4JLW#NIZ-sf^hGyv)'n6iRg.d%BdWD#RJJjkoDLJoyH U"PH7$EUf4yBwo/h:z(eu81^Z&VuMNTm U"gLfZb]$V=JvVHG6Ayo-)Qw)DT=)dfN%ioPpuZO/AQar%U?euyc(&P/7aFlXiL:T/6 U"CcsQ$KkB;dN,/WG5:1'ZLWz7Q\rgSHe*Jxe*Ofv#Z=2gG0xEqz,3NP4Ao,z^&oi U".y.U:ld7MM2JhdZp9R?orYR3vd&CR'sP.u4unp)[NCY]gjigJ]D5PWpj1H85]?' U"h,a$UL%J-%J59VmX U"XD/h8m,>=]Ij3q05csnZ^+cB/Uan:+W%JcJ.c[m1TY1#k*fgaT+gA%VkfeYQ+ex U"CPoISrI(>*4Pl+,'bxFix2.b>%MO*qPD:EGQoPCA7_p_Mb;F,cOM?ZC6YlBki\* U"YYMWV2\e\,W:okjkb8;MRO4amgda$'fHkKxb3EB48xdihJ'wI\#%''i$KS%=fP. U"%SUPrf&3Etl0i7lu%\%lg[r_/[%nJ9TMlgr2aZ&W'aH[oPYuOr*fLMOP#g'DteL U"0WJ0r[-^S^7M#pcq;7-u/g;LNAJKMTDI0v_k=ak6S>mCX5pHRXAaLN'Q/KvhSKU U"c%]8)Y8('Mun=L$(YG/w)0__4vjrPRK-?o>'1\lskXEeT2q']jw)p?LRt#4CQC,J)Gp=H\WokYnh U"bQsDrB*SBuct(?>e-&xygf:vRlB^+xQgqeZ+*M:6N5GRhDBXbK4fkCQWN7S&.5Z U"00h%V:N]FKu#;&uB3#DU7seTq<8%?nWZ\qSmo#:q9MS\Wolb6==Dd.5>ATrptE\ U"tYxH0k-6kHdYaee2nt_EqDrG/4_2Elf)/*Pw3sEPH9eo-Zf=sf9lksx6,lc4FZh U"=qH_pgn#KxV-1P:=b>&,,V%XFI0'dFui(k95MtE=l3t27ziD4NLB#uRc+&<)vRd U"Q\uHi7KcWeQ(bJMi=jLsS8JaetV(k,Q=dljG/\bL2.4Y0Exz?^RuV,O1qWE9'oA U",GVVc$;u:\^jAD*dm]MEoh[r2vxA9EEUJ3M)).#71yk]haHQr)CBT,p9LDckh+N.R?ewqz]:JDbD1fKx U"E2;Pbe*Old(-kj?ROt5M*VJD\m#DtT\h3DDh=urc)0j:\QhxrO8pdFeU_o)npSG U"8DxUa$lhRHbnQ*]T+D$^mk::'9f9,%ATJ>8_(w9h#I%<'maD%>*5wM?C)u.3(J]ZPOo-8m_tKkJ1ec/?(+Rn-;h? U"T34wSb^/K8*q$mrTN)m_WEPRF&hTJM2g<^m_iXo_HjpUiTX]o0%,e;?DmT:Ee\. U"Z/*OX]/JsbiRO\5Sa3s+Hx_n<1vwlD6G7(ukJMExCV9J'wLippH^lW'KR=K8DHX U"\CUh4kjXSBlZXw1&NNoa,jspaD5L.Zd0T*R7315JIw*4wTjK+^G%UG*W8/3EKpH U"OE#Et7T*Hnyq9qL8Dm;A.J,a5(O(0hApDX2mX:ip?Xb4=)N8QY3\G\IXNC#R_#6 U"v47]WLyifcuaB^WIz<:,XDItFL#euCel>*=Vw7ZKp(CBh/_Iq7**Vrl9w,W'AH?05ma36/% U"MmwHbf9(q*#Z=(ssA(OA%9VC:UMLUT5nu]=<1wb_?dyxMa.;YFa27ut[/qVn.>] U"2hfx-I>j=7G#r3_-lOcYHLD%=7MJ'-X?>nhhl;1J86;L[v6i^(s[r_K(Yc[C[_* U"a&cUOhF(TLsk=RCkzE>Y;Hc2)14fiQu4]np_'7l#?f(hIdBL(cngo.5P$]0)<.U U"aCg:qAg=dap-(ae)g2Zj-eru2qige)f]v62r(\Onmw%'&K+F,ok2qZ/B+#+\#u0 U"ebvr7&2Nrz<6YwYyjI1u_3#pQ7FR)X[:b\f_bSj,?%TD/a8:z[H*#e.A[B:cIi) U":fPo:RZ0\4WHSF9S+[iX'o6[JH;H).qA8l5pCFSn3qw(.+4%O?TDE-NGU%Zs8C7 U"Kj<3D3%*K%'/[]f9:qnSc;8Z?%yngxjlIeLnu(S5k2HOobkSbcKsMjx>gW.Tdf< U"ScArJ2oU.,F+S,vo2K;jdqm_H5As$.\Ec:Md#qAuI3SCrTvd U"x6SPRlNUe-;'MtI'^w7]x'%><\/x7H*ozS?)cSgVbBL)ZC6qQuB18IUI7I5)Xc+ U"1U?RODM7'Jl]5IWe_5-KOxOVFh1gN:VSGnrF;c]k,)fo'xTi:8*>Xy[tP4T43BFzHDtbOC.NgTo U"91Qc*,\ST=8\:xo+WsjS*O0l6zhmGu.'len^]tNe5I;e*4iQ[sKZU>mU6/OotYA(C(dOSgeMLlS9HM_ U"8^C_UOh9O1>zi]?%)?4Qb=jhG(J0JC:A4f/Vt5:cF%p7 U";5p3MBW61^PPb.tIFP.qm7XP?R;NY+t6Np0i'xL\Nb[Cxu=d&DaSBlRA3ZCXoov U"XYe;iPWPPfEvFw>K;aCMo\$tSZ2_>0D5sDO_o2k$ta&jIn(0XiQvjwNV U"CQ;4O8)]/'.dr;ohA4e-rwT$2T^SJaL^<]s+au^kHeMR.qK$mQb?GNjW?M8fPhs U"hl,$Z1BHFpkrQpKR*,%z6'i-[*5LwHlA\_Ga(L>=vr$[#XQEHJFXRfR5\ujU:\: U"97wFnJGT'1jE6K*N>+8Kw?;Z8R+pq>DO,LDw8^Qp(1EOkTVC6mebLSHK(Iq<0d6 U"+\a[B4uKEe%vol-kzYBe54Njwt%lwoJ.AIX1-kFBe^lf81cw+-&Jsx6QP?d]QO0 U",K6arnTTQIJ3>-??9MT/&NGe(pobVW,WT,c0WLFN9M\p>OPF2qKd9Q,R&YOk7V\.5\ U"Y.ZF$^22()K8)3/gM-H:l4E3-KD/lw[MwHAv'HXe-Y(^mGAAaC^^/L]>MIMLvSb U"B$Q2:d(suk0%^MasggPicFqacj-,),Xp+qY?ti%9bO3UP4pdOwcT+I27GIBtLz> U"I]j4XNU[%U,,d$T0j8QlQ=nGNOW?cA<\Lo4ZLUDDM/q7MN6't_^yPn%oQ<^.sTL U"/n]2Ds0p.xsltt3X7\n^aR>UHabF*JpdrmI\UQ[XQ9A'B%s\G:tVGBmg5tnuA0] U"nT2q<]RtdY0[aBTPpMRsYq$omn'l?pym5KDtrR]p]'uun\yto>)IPkpa1$hjCMh U"q*U-YPlm5AB&\+-#9M^O4^NtvspkrS51EtL;:E4M\a_H>YYl?al,d'^?A3(+ci7 U")MaW&Iv7a\ru_f'nvieLVWg4diWk*p1*q>-2+5LEzRpVwG9j*3mxN.b82Qj(,+p U"ZVnQh>Q\NSQv;m1bw?#ilHvqS=?N##&9A*J579FQ$raqx_rL^4R\VgIF^K+[e*8 U",JgyOnhUcfIc++C,X$iLQv0BMmf8^VTqD+kTXW'P7>6AS(2W.C((uTxgO__-aMN U"D'NKP105jgJm>MaY#(gCV]?>g-UvTgra?A]vz+chFZQvq_Kr&k&0K/==*NhcI>* U"aWST09q$anN(uYUjH.=CA+o>hEA$VGpHG6rmRiqdXFk;;gsSeeNY_^ U"7f U"h.:Lw*1,%eIj*)C:(OSaYR&?ZXEEOJfe5Uj+$,_Tj:U[8PV&^PA9((O4+p=aHD: U"#Mbf1M,[9aFBs-/CT5]NsSV1_Hp0E=)E0-p2+m0fe:lHsEW+C1dbHwC13*3>*i. U":%*vRa'4j%DWYV\7%dF>-kb$4.]DIRJT6cA[_[dT[c/nIu#loKISLhO\qc-u_1F U"1DLka77(yd/%&VARFQE1MBQ7q1JS$kEsyjdv0>[W(*UdK#u]ARu&?mG.[zASTMkGbX0h$(odXebW_m/L/d5d:];tW U"5yGx]>ar0dh$(b'w/7=,*[EK''9ppZ3iaA/(6qZUx_L$K_NXE#RcwdoMQc8RagJ'w.M+b''brm6_DTo3s)gJ)MsuS:=ZGBl1D U"P0\^X]QWk4Fs%;6l*/zpZl[&m4MN1e6*6Oe=\tosxguKKQCFo^^5\[QYw/P.vE7MB6&3pclpo+Wh(.LWv>8x$v* U"wi>WVmqKbR'qL,;cDkY8R28>v#6YRkLI%qA%mUc'v4\5eM%^Yr+'p]SdXc%bt9Q U"Nj8O_yT+Huti;,$vfPMD6222eGv4[.LZQ;%)A6Ds&yr4wh\ U"1?_Sz9SJ_]%,3s7$)4.Q(pq#+)W,ak1D]nvdNs[ZCda[8AeKNv3OwB)RJW+2R'= U"t5\u52)bm;>UT2YZ9%d/j]%Svbb-AD2NWSiJ,Qxr./nTLg]Ih(0,3PPapJ U"]Q,uOLWk$VDGud(o:/m\.N=_eVJpA/^8l0u^5n\j2x1ooXe3lQB:gZYZh9x$\;[ U"u3W(;XJoxYRgN*o;I4/%TF.j2-KmG(6_kYAyaO5tLf%so3D8ule#:*,1jW7^:7>L_$a>F'X09dci[5-or3tA#\JobV_>gE8A> U"H8rFx:&t8*[j)[)*5o15KbGjbEt<9b?('MZ]PA;NvfZP8=3;dLAtH7kNjkh3ujrU.f(D5,7m0DYT0a&%r> U"8ZWAJ\2evS-Ive?DESS)UN'E5819c6\GzQX>qP(n7wR24'6u?>K8k>?L&^miOG+ U"7=X.4gRP?uX_vOFbu(m[(]%+n&koF1UB21\>uJKB/ewd2xDZn$VKCBZn:tXVbT\ U"51IXBH<5=cxq1Cank,NYVH2)d6Qv03,Y[JfG/]Gq%s*oD>VT%'U; U"+U6rr31KbmVhAmaCf*hhdK96'$[cU9$Hti(,RNdC U"GXi[zK9l^6LnPgLl&Gt&H3;WJlnT3tHejWsz-bmT44c^^'d;N\407pNG0GNk6jK U"3I\f#D4+4bEvH^tYB4jG_8*b7_?Cr&UX=GGhn_kjNeJphlW=&q]l3HG]6?37ru,Iu&%E]Gc]HFb:dpBs?nue1tuEan#?,kLpG)Dakk=VP(O8.Y66H7smt[ U"g)4o<6SE.Hn(<>djgK\Zqg>><%/+GQ/l2Ue>uX,IxJzpXZPY(OAt'BU4[3$tQ_d U"VF'7-(RaewoBtX.ur&kf8G]jh>Zn6S8>$UUeUNNb(btS51=?Qb+76rK* U"?PrADS%O>\,aCo&Rt&X744I4thNEE^jvm^B/&qA,=]G_5uVt\tatHqw.h%jsHE. U"oWqF?qAf^sC)Cb?U9bxbZHCR*B;d%H=J;Ll^;2b-i_#IkqkE)UkCu)6,gVIo\P4 U"NpE^(iBXX\f$46([I7%oP+G;ovz#S$0rZx>],V_hHw8> U"m3aTsN$E=86W^Ext1Gmdj4ZZ6AGd[u2481lYiJ[4$$LshnzD5kr:m1Ecn0/*3AqZ;8Akjl*VwnHp'_mE0 U".JAf)aQAZ-QL$%OWQeq)Y[7j(NLvcV0[QMK'#Jh1(+g(jV#j(t[8BEp)RIhisiv U"BqBS^MZiBHm[Tw^u;Pr'Gh)&$j6:C--glrj$Wik.kprfgog'#m#Hd\0:=jfkn#+ U"[t%pSyTlM7gsEZnFZsqO*+>D0,&7WGTAnK+mHhoLw>%[g$,]);lUs[rrUc]=d&F U"AgC(2PPkdYE[)6A]juU?(Y#,XA0-?uD1PNcu7'\>tYlZbbRmZ=69EFn[VwrXFCN U"56d2jLuYwmk<&QI7dR'.u\,vHCtSwnb&qQ^plMWmuAG-e?bM(&n.Ju)KJi6j,a2 U"oJ3A\8]ZIW?:0H69DJ7UQ%zB5BwlnG-:H$<-A3r.Y%8/WP-XtXdY66jVR+%ATMPhTu^.q]%eL4gk=t<&DZdNJokO_L1uPeq6ywG=,kWtIHS]c^o7L(V0_? U"_vr:;[Z%OOB=UlU*xZ>Pn$40d U"OnAPZhvT=TQ$?+rl;qY+a\xPo8m].ax\1g:4WANJLHoN\Lbrh'C5Ww_/hCBN&54 U"Y+WU/JXGN1*9'VEE?,eN,Y[$[GYfvIyigg2KM'6v3ZO#G\Oh8J6aaQdGmhy7N./ U"yh&&icME&$&Jqejf4,d&GkYQuCTqwUHHKUo U"sVpcEU)F4ClrVShA*jOJWlqq$6$8^sT%'+tdE]=4C^iTK'2+kE'pk$WaGO*O=dj U"n/Yy,6uR9UL;rf=6sJCw6tRf87-X6NU7d[?Si\vQ#_Kmn-i?fa2Zi:4s^\a#x8R U"QD=AH:NDN,Ms2p#,*gS[u=[bIyyuVV&,omf0V:um,&:gjd#o/94(Rmt5*<\ U"(gP^UCOC-.vG(%1Gb5/^lzleUZ'e%7>CDM:l%atbvo3lfWxup,XG[7A0L15g>R7 U"p=SZfe()L?Vge)AQGa6,5hI?HH,3QZ=^XR\uPqo&JJW/ofr:fh6R-E>ZIE5KIxA U"h$Uu,LaY(05W:\G>U<0HPKIk_e&NMYdq)1vP3rj.%_c0?;FQ$^j=tFudUflat\S U"jrBqnxn4U7QrpY^'&HnqI(Ei&o0e$Y5x<0Cp=YnP&s;lY?XtQ%p'Z3#k^QAt0fk U"G[7Y+kCcX:F_7b[sPiQdZef?)DhyKdU6=hb7kG)uUsFc0N;7HX?;cOt<:-:RoAu U"YIsmSi;=_,e_h%vqD=B$yN5+f2g?[y2JX+8rBv,XZQPo#W:HQH%&Z:qTZB/?p3/ U".7i8nC/eIsNwblR?L..K%%^jH+Q,=m<19B+)3bv8)XvkF?9C+Dn'4'L39%v#e6q U"]RN?BqqgQV\j5=/%8RlV9NqL-v(?(7i5j&LZDGD)oyqF?[.k?&qGLAk7ji U"A,3Cg:BHU,*X-+mK3j/0UiV]rgTwD7kD:\dFE&-0*a-J:5#2j]^sG(U+8p3/w[Y U"o+E8:;lT:%JgRdqWnjJ$r/V]e$k/P)M'TPiGMxYx3WjtK%GX8)lUc$4DnxPqxHV U"N#VM$n5e*iN8n9t,jE&7v_/U>7Jnd%-[':7*pYFZbZ\j>#5Jl4nvU5)SsuU+9>X&X);+PJ3eg7)Sk[U1evgf?g U"pl(X'.Fj)-^i1Z*m-l=S/A255R?Ijvl\^kqQl\.7YiawM\5#ralRDF&0L57r^ha^ U";,)sh%W&0>n8+E(1VnM%$pll\m.k&o.O(DhA_Z28^'J3aJ2Ex4EC4q8t(S#alk* U"b0P.Ipr]>RHT.3Yg)B6&A+c[^eA,weM?pn/./ecO3vhnHJh,%/,(^AFqsvU^EC[ U"0:UMq;fTNN4A,fzamiXDN%ZHAWJ?bK7TJ;/XbzOa,D^'mE6Zi8k2nMb67Wgzc&s+lxc*nN&u%p&'9%%9%'#%-%r U"B)[KARo2g+#*%%W%3%%,%%%%%%%%%&[%E%/&P%%%%%ugr%Sgfx%up&'%9%9%%'% U"-%)lm[Kt's6c%7l%%*#8%%%/%%%%%%%%%%%E%3/PP*I%%3>M;;0ALS?1<%up*+% U"%%%%%'%'%&<%%%'4q%%%%% END SUB V2 CLOSE:IF S=165AND 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