'=========================================================================== ' Subject: CONVERT QB CODE TO XBASIC Date: 09-12-99 (21:19) ' Author: Vincent D. Voois Code: QB, PDS ' Origin: vvacme@worldonline.nl Packet: XBASIC.ABC '=========================================================================== ' Translates QuickBASIC source code to XBasic source code DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QB2XB.ZIP",4^6:Z&=17645:?STRING$(50,177); U"%up()%9%'%I-%^t[QLoJ7V-gRd%%H9%%%.%%%%vg(W'gS#gfxsg>:>TZ/otO$vV U"xHCf;YB_jsBIt;VYQSAHEe5,T8X,;tep,CE#n0MJxIQwpfVVs3B%SQ)08nq,HtL U"aGGCcu\4#fiZ6Z*VYm;PQ[?2fhgmWLxpwOq>v6p09wu=dvYQN=;7*YMsxQ>AkX. U"vencLKV3_KA_rnJH[jmfXi^at0*i4[+drL$IDh5YT;T,H)'x42zcp;GK%'TIN9% U"M%*Ptj%bBIQny)N2r(-R$/GAmCP_1Y]PN#Ew0jIIyS[T=mePa-s+sR?nIg#7nfd U"H]PQu?i9M+H/s>%.QJQv$RB/E.QaXJeVaZ-?;i)F1/P0h-gno9cJa)O9evDgpzw U"B;Ji-/x50+pI\q'N&,7EDsEmJnTH+Ewa>761U2_Q9V[ZR-./%qp)*qB1C#.\EGi U"''yb58^g_,e9DwMz4yW6Qo/gJ'?>P+f=Gr&^nh]]Ro?()J7sIB.he>FEPir7fk- U"iPK&p0Mlvp1%aJVisy+T-+,w?w.OJd?9f)aH4n+go[Il)NNsS#]&1P3mG*\'XY2 U"A1c\;:x]8Xk>*e3nc./j+.v1Ei$;7VWMwQ&tUs90YKqIf.5x3_7N.InC=;(5use U":iWrR40nLo#71Re1GtJGX=J5tL&#ubjmd]K%1hItdHOsK0D-Vc^XaV&2x5yV%6? U"nj+aEvRR#4q5e_0P*4CJJ?'l1W5YNKVgjq_HY[fG)tnRLG9UU/9KA/fI7F_0 U"[-WXH3CuDoZl(V3ZE&Yt0ID-qG*=;/q7N,A[_P?%spukzw>Ftmvd^$NCCmXLWGg U"XHx?*5+QsS5WmVhGNbtRn%J1[YK5#0lEaC#%lunSURZTFWRE. U">iuR151M2(UZ;G2WAWfRRq*DG_FtpYIjaxdKv4KAb:.:t/)JcM&&:4'$/,djC:7 U"rJ?e%,D(R)7J4wAR-7y8hREX\q[,=IkyTj%68w2hGaoHfoF;I12xq[W[iPp:X3; U"gNe:SyQmL7/+o<&_9gEO\10bSlLLO^&h)cg3nVKV_Jci2[]bX(P3e3i U"YV;;>=?)svb3T1L-[Il7MyGZ%skEAN%zYDRJ16x'^7-U=p#LJciTfV>u97h0ZZ, U"RznQTfGcRt8&auDjg(<>.dhlmOwWX>4WVD%<*4Y0>g(0ex]DJ.v0rZ\6:R7+vTX U",v>ojXjVfOs8LqTZZ2=BPg^/i)?nmMY5NI?W-aT*YF]dq<)k?rG\_XnF1.:\U-9 U"%?kiOJC%c+A7g_6'Nh5xtIPhuQfs$K%;S\jsV06$yB8o\d'*ENrAYK.eki/o=[[ U"P-PWY=PxT3[VIuwd^4$h+ih7qv:%&iTl5],$p=G;Sbs36q:SViW?k&g5v#pP\V- U"KVfoF/Ou^>;2rdpl,RioX(tOcKZv/<8I(Lz22J.-Yl]*1>hOJC4^%_B1H?#_N9% U"PvMujdYn5b1;)=rMJ%FK]+'p?j:H_If/?Kx,md'KdO)v&AV&%atHt;OqS^;]i8^ U"U\rR*P)F/g+ay+mXN+IAeM,/0G(7OB&;6Q;;Jo5Xyb1k5VPHA_><(^TSD&2^mtF U"0$NKI#2av#HsKJlJA-FX\8V08J[rWq=,)vVnP%eNI9J%2/H8X)cq?dK1$2#$7Snf= U"Uq,Kmwi*]q6pY5\bC)E'tp-3+fFs,gk3*EWZS<7P7w.?why$$4_3YkdnI3&uKC' U"+--CiHSZs2R<-;+Z=kS*8vFPv&1:4' U",4z2&nOdSPXEiI;e:>VFiRA]Ys.'1,JX9k6(c[K%fYveT]J*4ZG.Nl#rz]:]N*A U"^D-N#qV&BjQZ>AK)KtADO4^G))[^T;N\f&YljD:=Qq>DZ>dwaEtL#D2gd8F_lo+ U"*cVEjC[&lFK]IyOu/_EGJER9N+*>IG]+mCM7OVf1e/Kc3.:miaIR16'3_jF05?. U"c.toFg;wef]n4?I)G^xQeR0sS%V-vI?)%E_ou)4H6NAZsFWgib7q9kpw5]K-KKl U"?N_EA02UC%eRXEMz^>$]WkRNE(%?[t/q;p;B*C[pYuwt+vE-MABd7vBEIjlMh^S U"vUshA0YY/xPQ,ST40AP>-;Ff'VYS7z?V8.]\0UfpKu=Ic(7)PPO#z_):pRZD\]B U"p#NJ9BMs.2CTwVy^ir;UDSBr8DJ-Up/*:t1)/\y89d1s=_MtrdW4TJqY1hVL/Ha U"wD/iAZKY>Y*r0NZIF
YT$4tk;zQ7THXh%y)%Kg79$PL.F?,EZqe$90uS3TXR U"3J;df(^&M1r)?HN?rGCNmko6j$wD\TrltAz4oZ:5$3FGd2C:q;*P9Tx.ZtRbU1 U"[,(CzzbzJ1d-ToQH)8eKmoGhq9hco'v,NuDFiBQ?c-1pd$v.hWSnDu;QadV,aPU U"m+t#<9lNr?F40S)3xN=cgJ7,En&>v00XrQ9j#kl?%=n]Vewn.ub:Tp2>8pm[XClidircSBr\%wgP3,a[6pIvE5u7EtC U"hPe_RLRvihhCB--X%humNUVv4SOlMM\<=XHsqM3_?F4.^Rsz-kNGpo.qiV%jT13't&l/2Is2_jNkj*N\1SxtQpsA;2-je%3(e U"k\UBhD\?8-P>S-kw\o2q$_\AB1ip#%Dm;FZdpZ52k=p12XYZt:xwu2SW/n$Hu6F U"ex(^-b:[G10dLn5j[)y/]:nu3#A3J,EY=*b4&JO2cw?N=Pg(ThnhL\DzC<.)$+3 U"EdRSf,sX4,,ola4mBsNruMCVw\>>a6xuwGbY\ST(sC3z;Fp=eRNctpDxHY8B_J7 U"=NCjBI4iJiP3hOM#Ojk0(JEY&NY0-x]B69n_&B=bSXjN%)nYA1L,lmmrc$hlolDW]x< U"E>*_sO=Rj5F5bI5'G_zUzhAe_E2=N.mmU%WoP#Y+.^DV[eM:68)S\)r8-oHJ],f U"MLvo0>imMG_L-b&Sg&$Mwgl8En:o9KxJ$x,MQ+>QV1.%V+HA%iqWu)6)ed3No U")mN'&7nY[F\:5LN4kcdQ*/0ix2\ie-8)j/\.k8PV#I=E/?Gh%wiBaa5cnoZ=E\J U"?HNkWA.(Gn_kRlA3/&zadLk:oudr;3P6h1o-f2b$M.Y))(ZUp2XQ61dFiNT)cbC U"tCtr\SXu3;6&4O5xO4zn1s7VK[TGeEf8eD:e4t'*PQlt$*Tl0a'c5:mxhb=i?N< U"Df;T2?>>+BF\HSuB#e4p+\vBiLm].LRtk\0*LeSV_l*V57S^k: U"g;w4#$bv67jAH:K/%d&n;Rn=(s;1/B;p&C9_nQ.,,K5^\J2bEZR]DQPSm[6-ic_ U"*q6,45;.IES1fRn2)(9i5K67-]ZUrE?E-C-i8e.8a+Msi:rNO.EDT]MI&=Gi>k, U"GeS;u#E/eA:Oft%-S$Yc5q?7e;sJo6jZVVR,v++BnDTs(7ZrJU(J$T14-c[xXuc U"O#j'[k7shkkVZJ:N$ArWN'4qbX*Y05qMD%0Gepv_Nv.5izq0[q/pG<<'Qi+Y)8k U"kV3nIsqEb,_>lQ^9%&imkG6bstpSLB/GdHnT%5loke4d?ZT\c;QkcW&k=;nSanp U"Ffhou#IG7x/asGd(.$\?OWmT,GA,YBr%rYH8O.,tHbXmr64a*l^;JivTLc6<8FN U"wGDdoKo*f+=i>W3VM5/(M2V70zEtWNrOP^GmR\#y2ZU)+tm^Ehj-88hOm&D1yQ1 U"XQl?$8?$w,ZsWnVQgb\5r&yE(ZXvTvs\vLWWa9]B3o(uiu-LoMfN1w1UG(Ogc_^ U"tS=W6,4uvZYET(N=uW2abTLmJZV(UX<-Khcw>Ng-F=b)P,OFe8M&\rak3;]DHHJ U"vgiqR:QL=0InXTHBgEcB5YrDAAaKNRjpQ?-Z6$GhY7_WTG/\l$D4j';]G9P5Tx6 U"jUh>rw7Py;MN-k.r\$?TgH;b/;A/GOwa'Ox+JVM?Io*u8P#%Jz<=XxKUOs,zpc+ U"';=a1>LhjnEj*stVgbt;mq7G=pY3k<1P/nG<]$4h/I U".DKK8wB85G;tVs<(jbII;2+c+_FO:=ddVSylsVbWTGo3-xDSRHtYs$?281#9v[( U"(aof^gX>FV^pXL?sN#,%El]Fei\^^HdG28$SNvlcuYkNKkV-(&%m1Xhso^,.lzc U";_EaiwaSsJQd=1'OLOm-\rZF;eO$)PpAE-T]FKaGp0c\g?Xm628gjXQC-;bGsgU U"kE.:d*HCDXIAsiW9x3KgiG>6sJ\n9Yr[y#$*hlOxbnTGF4otj[+p;GH:_GRYzg)T+AjC# U"58Q%Fv-th(H>b0)XjcLJq5W#($9he6o&8_jxGm6q_CeOuA=nk.uC2Fo/eDlWTt. U")t%\Yg:sv,#k.U6t*kJSphW&,__fexb8-X:p.v)(ln/0TYbdAK9C$2o]%Ow9<1w U"rcKd/)4V0Lxqee8wk--rA_7Yq,uD,_dtjrvw?c8;J(Jj2s[U,4#h/Z>ThcD$QW% U"S=wln/Y0)lpezKu34JD%%CR3oqZ(wBT%E4KNK6Hpj2#ZWFaYue=F%?6TwWb/ U";E6NmPr^41DNM0Q:40hL1CFIp?,mDL-HhSHC?8QJ;]/Fg\adPMhm&dh'_&J?u+i U"g+*e.LSen5a>\M3q7(%yG:n)_U4s9cCmmSmtTq;t/r.DSL'(M:.ESez:o U"wZtOuT4ySHG(C_ZW.TZfK-gbXGAr#'tm$iv( U"b8[OCAO(bGf4#9qzgpXXN;]M]\)AFof>WG.Hd$mM:*Z$taY+tI2j.Ij2\Ii&&t: U"20YK-#6fBE8x>NjvF'IU3q?U(u$rHBc\3w*(>&,9/tdPTD$cCt>S'0bc]WFJ3dFLCOZ<9i'Fs U"PouJH>dn-8E')61_S;^\nM4lPTP47TQqK;#49qlalw_+KI;;dzcjOCXfj?Nw+dE U"lYV'%\p9t U"Tt2cG/(x9MJ<>wrD.\9XH(5?>p:c2F-cHSxJ_ U"O>&UW\$[YiDuhjk/%SNW]2P\Ocr=lQd[:,]hueUQobpu%icLac8?e^BF$+G?V%m%AaqULLU_hkT8O8=+QJU U"x*IS\'/*ZMTXaX&p]K9LUd/\d(fkf6Fo/MNNJWdLDoqxD'WIW(aLK7#B6:ybB?Y U"$;0mBo0%Q5?BV;^(2KQcb29YJD]%U]Ew-RDe[f81FVCe4$SFWveG+iZ2'+'[ U"=VbJ128A5,f(%4$GHjNgN6C7?&t9gGEWm.,$iPW/d4rj_0#6uL)J6u71SW*']LU U"rwv[Jk]jk87,7$TsBl0$=+[wL)]O(fALoA)],X%2\J$9;Q7Ix:*&m./ U"+s]';W83Rpqz;&2%\z9BuEP7 U"o:_*D6+eT(E&w#Xupg.&TmM+7?(54TY&#-pU/=]8/50bHSw?YG*E]kv1d7k]->S U"6PZ^he1.F'o_nX?[/oF.$QR6mfgZ3NH-1*lrsNd1-&kZ2WgB.]=XSN1GF9rO,wR U"?^H.DdJU?1*WR?KiG.C(e;(:Y U"]9eHaM9QEUo_Y>xDj[A3;7jAc.6u/aUq_(qQ-no?Ka7Ft,z,sFajGJ%fGZ=U?EK U"elGjtf9G=Ed(K6]PN+7m'WZY*,)Xxi.ZBf_Rn3/uOFLk5\d4B1eQr6;Z8]M?ofK U"U:mr$k3ueH^)r*iv:5,74R8Wdo2/\r8=?T'i3<=Wrwd6$%oi')R:E*P-rJppNc- U"ooO7gmg*[b<1wSta#C.o=M[BBSz7(%bO18)VmZpnbu3)I_7i%sz3lcGKmmBmrbN U"jm3pCTZTHJv.[.7xTH3H)to8iJI/=yM::xl\pGowarnmwn:5Mfu*(E[DF]Pg7md U"G?*LW5G[5G=OBJ>a/NS=(&b/fu-ZwK6/&RE7]QNNg[:;>IFJLFd1#' U"8(20[uTE2)=jfW&7Pr&d66fW*#1\&.^Ai2_]Ok*f.P$tmJR,H$iPzY;p]K[%KOi U"[OEOX8DfrlpA+uSa)/_m'Et>13oW9o8yTU5(A.ot1.6ATWVSSNS5Z=rFDFUHw?D U"5(Q)4]6/%iuf/VYg$l8*3krm'sGpU;'Y3ei0 U"g4=)J-AJLSMOiOc4H8xa3HopMB[;cE[-GRQL(szGoCKW^Rqg.9O'fG9ko>%H<+' U"B%.?F0wZA*S/ItNHN$q$55eU?mIA8:5b(j;^L+Bw3f1e4nGT_W,N422aq?$%.*6 U"a(-eIEX:X*9n9%hAK7^2)XEwAW[i:089Ln/ U"fvx9&;Cf%gXmD[:g085( U"iQLB)%;a%1v'3Y^Y1+6,>Nqi_4,Y7*?d+'6J[rfm2#NUwVIj6]vL+77&)L6,6:$ U"yrM=j-N/en\Ss\Z1KEX)dCSoQi+(e?K#J&zm*1=+9)9.tqivl8Vs,)(I4wsy$FL U"j$LFYlX=5Z0A-7MDa(9OSS)gp9c(/Z*kffo0ER*iyAxPCoo#<%TP.Q& U"OV?VOJeOvZNBs0a1?w5Q,;UDJnyvId#)+7*B&RtS]H=VYi:6S40b#ZP.DbF;'H9 U"_&bbmClQKYY_LHG0+)?qAKK>18'c%c6tL9pI_1zN1SDmq)#6x[#2rUskI5:/Mt U"P]Hi=8U,%o6,u&iD2P4y^o#L>Fgb:vOe.3DS\A9eOG3#iIqUieOYIPd4nu-,KS- U"G'#IiO)DsWA6?fLFhT5USM8kIJC.bH1a\A^WAxRaSJqH[LkTypm'tGE#;1G<*GB U"X$CUa+zf00%bX76VopRIl_;t'cAg;g53EY4'u$tw#EFrQgS.3bf U"nQi,/jCJFGQmr8XSun8YqPYbmvDKpou7&IpbIjDNb>NQ$HT&>t.xIbGW^9&+wmt U"hd^UgD[*Z<[O&[1xe\D)30:kKnOL%98]m:;rS=dIy77r1t.6pIt%9(+IBHT_:g/ U"A_5[CQaGOQGW%64+xje;P-QEa,p\[VZBA?bnT*0-J/NB8uortLvJ;+B U"kH&R:qnoQbOx&w#7*c4;0okh9txPCs4?hHYues^%w2Cq'ZX5=[SX0xHRF U"tu)ga3o/v.DodwjW2/lJ4eg-RTM7Ca.t,hZ+=_v^oYu\\::tY%a#RNu?TinoIj9/o U"kRnVdbqgQFLAnms8]48%Fw>nK)CaKqk_[yJB#11EkB\v<#9OIs9QaB1Mgnr[QBh?6&2c&'T<*-c^P.GXIs_KC6.Hv7*1230CVa%a,tn3/20iAL0\&[R-rp1M:GF%>eG^U\ U"tNNj86AQC$/RvKc8s7#6p-_(5ylkv.U>PrEugF8GTL-D,a\e*C3D+AC1^WnhQ?M U"Gh.5=I)jtSd1TbFtd&\GKlnn,\N7QH^_)uET&bK\AMVO[&EJpWygFHs*[:?/sfz U"dpbpCO0m%Z]+aYErgPpZ^qiLJU5*ZnUn-JY>y^1#65Vo8Y*H>E4HDg]-80/.EV: U"owFP5ogHgwFvU16mIWvw;wCTLB(\*p2WBZ/AI#<,t\q^QY^X>iI7IS:DQm/zwEA U"/\n$/,/ptjq;4k6C_Ta*Y0GVP1/P^BI7hEX;5F(QG$zl?63c^LaXZYj[#uFm6^,^0udPE9jy,+dRwlp\$8?[feGoPg,j='\mmr/wvjgx U":.4Lp=w(F+n=xOQ7N$=J)J#Qh<>^R;/hrHTO8xQK**jzaf^[W[)[Nu1^ U"&U\ET)>[L$w=Yc./8/]*ma/+:x70Q>L[KiXYOrnO[.FJ^aubCuuL(c$O*2\vW#S U"Ucyg>VmC%7CvDH7CPver4:XJ9i9N>ZtdR[mWIu&^+UL[_tBOd(V.gp'VE#+h)yJ U"3-tICNd(olG[,DwH287v.2qDqv7T$B;6#]Dc5mjxT=ioYCB6+5wZnv/'LW?yp;b U"6t2_M-*lw2jrDsko_]n-_^vBAJKXku.bPvlY(D$BwXqzlchGZt6P8gW0ErM:Fy,y/vt8;t&cTqkQJ?S U"iFd?#-4auvmr<(NQ2_1mMyU+schLGv?Lgf0$xErHQuc\pYx_-7\mWg_=vt);mi'U7>7;coiZm%.> U"m)vs$t'B8G$_&j0r%r#bw7PqV:R)dE3ge/4j[oen1N9o6B(K?Jr$q=Zvi((t*-g U"UQspw,3U8ZZdqsNu.oj):B-0rIHv?u$k_mmR\K7pphuGf/E9*v(k]FF=/^aj/9,a/fR^_l;65%t_IPTm86 U"DD1b51e9(cEElB>#6'>06#;9S[Y:;q52fiNqZPfL/YMCIJW/mC&$IHKFj\Opt[; U"m?tLG_9dZP4&AeMM#RzJajuKqNTMW[?ajXNi;.tMOy)$Tnc( U"Hcr#ONE45?c;jDF%Z1R/K3_:AZ#97CWBM50u2OD0J(oX;a*GTC+gLdI=3PY)I+V>WT9vXP,X-?D$yyG+5s1(;_5jR2Q0ph2I:PUQGi)Ua]bI3A^Wg1pS1 U"ep7Xg9U&uD.WVPia/=3-%v4uUvfO6H$um/5Kbo6%D:/7xyb1uuJ15JEXlCx8Id2 U"rI%Ihb2?43cI[.0MgD[$3gU'+%pH;:PS\aHm'hQkh'ND\Bkn?tbAM8g<[=?fASO U"qJrGT?gqsN6.s&XQGx*yTCsqjc#E&MoI2.r'(5:*WA&%mhuWT#pK3[G7N2O1]#3 U"4nNnZQM6\KZj)4XifSf(.T0Ly[rs(39K5I_.X/]XCwH0p1sLOX\Z0\ry4=Q&#O2 U"IP5Gm#E/V,I'9-PRV,%v9\YDo2_(m03U#g6P_9-,]9h&,2z\,Lq9+?U*ZsT';s\ U"fptAY:i%'M#vULbYsHxndNZssjAumpL82,LTT(:-q;BDX2$b.N\7KCIVg62I_#^ U"MyWe%5z4z[,qeOuxs0JJV4rZB(DknLdly^ffwMvaW3ar\IWA5f8AKY:lC/cJ\fv U"y.OUys\i-v6Oqa0:/z)^^e)J:bcq3z>QjBe<#VpIamDPCX1SzI^otEGFMhQD.kV U"\>rjQEv1pEwFYk<0/iN-qGjIe9>$qr3d^krN5Keg(t7VQra;&?5)$-pS6-\AfU( U"\%'[0fgo*Hep\d0MRI)ErS7sZw7V)\8?:#xkG(C.1&,kE7W9cS1B7:(K<]1APt( U"b^lo-pqh4Zeg3MG*r-OTE5/R+BPU6\x6JS>yj9-F6/FB.oMlVb,PvPDO2DkIv[\ U"jUsK.Oj.:_dKXFqQaip8a= U"oQ2Q#/+d+Y9L7f9XE(/UAgZs U"4vX%paj$;Sl*j2HaT,eKkv\B_]V U"EYdx#vlod=hX_gXIEg05ZI;)0^9NX#yaQ[nOVHLe#n5K+7;VR7[7;prbIea)Ti4 U"w?(bU5,0>bxnWG6iQ(s6]9xfc?Z'>oTl(n)*_+'g=9=[J(V,08xwgZ7C?b6%m7k U")VNY,7Oqb\0%7Ej9Ib\^bgY*P6X#?,+Z,xnsNUn_a.M[;KMgP[APC),;n\ciqFI U",z&a#Hq(%+)HwLS$&/]&0fSN*3Y771URU_$RYEg:;$)O#O'F8B:thX4W[Vj^YGUm1/q]15jY2 U"r8QYmzX3nF&^R1C]lV0%.bFkB zZ>3CF&0k8LuFO8H)e1DgCK3rYq)8wNdyuj U"\4eZlwo7-#J^cWP;J:7hz:nvQ[*2ny#QO;_&H5KTGAQ+GqMh7>G7ll55_=tmP^I U"\M+s4[)YI%(n*435?eU)d^K1lQ[X\Fv;W0k;w;(.qm$dv12R2yzs>8Ix5.aVp,- U"dm'N\/3.[_/fq$smbf$XOG55q$KfiP(sBK;#$y\We8wy>^f:JZh-p2?oL5KNgi( U"?=\,/'P'k:q=Seyl_gENqD1y5>/Jpc,y%DrLu&gMXhgTwxj#y/KkeElf6G_[])O U"+?B)UQnP/P>(;2$;Z''ifJ$Ub_.>aTe#nI9(rB7fOs>D\b&DZ=BwijN2*yMrRa8 U"Z=n6l,kCG$NUd<3v'S$J3D;Zt.kEOmcmEF/oTqrc[$](oQq;W-\Grb/pQx:RQNbtA_>wgCQ=&5Dqbcx^XZACC1GumXf4n&]?WaS)H[qxf+XMqhp U"t1Mk[SNSvNU8Mlu0iXB193,6Gz[EaKL:H&o2F%Mf*Ip5sxTt2.PvSnFd_rdR+Qb2lB9]NKPj;PxhMslM<%l/k^tPWFb2TIbN,TrMiW0MSL32npO*man U"bMq&Nup(%)9%'[%-%&&qQLv.mCeP#;%%8%v%%/%%%%v(g%fq%xSnsOh&+TDW)J%CJCqVfV3H3bLHpv U":GIgWeFciYS?_W75jQ8vj''Sfuk8WfsqY5Jk:_YdH$53>hpg%oe74?>ah20<=b; U"D7N^MWr,YjI#'r0f&\XMLF6azkVD?R+7_rgF/UB^kduq6M)1VBmNVXt2J<.jLH? U"5<(ryV$nfDW)K2]0cUAePcP%8QK>8Ihwk2I6sz0mJq4YWVb'6 U"k(YWstrx+A43p+SW'8-ElCxf[hmwQ=(Aj-LKrTO[V,7Q&l0V+]33*I'uLgcH)[* U"'JQ'R^$nxmo*+2n8?kAAX[rH=K(KzgH>S^DxF'%oiF2v32Mf:i5Mvtwag>u5RDg U"B=g0+JNoMq[Tfb$jd7pd7-/wgf/Wpe^:aCgH0Oy\4ch$K<]g;;q]8X)g' U"f->Akm$0pa6ti9% U"MC/0s(s$l,k15CF.f4BBb'md;U=)[NLYj.BXs'il2zW#UeYWhaiv9K;AL'wg[YJ U"HJv&G1;Po75-HaJM;+9^ETP1NXBe3.6t]m8:FqTVF8CaYk=ehi>Sd6.g[ipE*hw U")an0rrVa4R#'9==SNuMCAkI9:,+6=8>:p*Jc4gC7m,1JjM\(OgqgyfFER0b/W+h U"?XG.u7ml%p;ozsnJ=(F>*ezuOb:iRID,gOf-9H=.B1Y'C1YiUgm-A0kgTYd^L:s U"c%OGT'KJq\)\SyF2$)/IJTRX37vM&%8)eU?R$\GgMa&Wj^5F71JNz1'&/\r&lZo U"diRJg%inMUl9=c U"BV<7s\Dt3JS4-UX$M)kmmq]k9&b2jydqf+Hu<8yVoJ%uDq&Y4b.C/aOac%'/h3S U"'2Gacvzo=jQ'p1u0.+uo06QtbS4Z=dbfeJ9XHQE.G&nL2rcxWfX=;,d0nQ9f\ZT U"__PB[MG4zFO]n75+L8jetF*?U U"9o>+aW2q^rg#)7GbaVtcbd#d^(p6Qe88$+/zR3nl\q?&1KkUQJSEGsGE0GCM_'E U"_+zC\w)hAH,i>zw4Vu(Z(Rp:,(e'he24sks\.'Tbr[#CW;Cyml->(oX.c(DY^oY U"->SbCe8KZ3_b2C9UQ$3tEuiGOV$0&Q\mf%nqD>kG'a-R+.2H(>:e=0Adt>.68:E U"6EMVNmZCpHfGs/4K'K3sIjiBx88JPp+9#Er/0R/OB]=;%9^)[TY?YesK?+s$G*$ U"t9j&aUhUEO'W\eXH#;A-chgB/m+r$Wh+2VDcXG'EGPJ>bOqh-7%q)RqGTde+zu: U"138C,OByt(TkHKLqXQ:X&F(/rwv0G;6tD:8gI)oiA&eZi)Bi(YD%_jOReM U"3dP?XmnL'4BOPXti%DT:%8uAlJRbY.92AI;mi/pCVLK$YE]CP\m>*oZuNhA&P&OTZBVpHAtma19GTQS6qn,v$(:]7irM[0Az U"G,%*?1-p-Wmk]&Tt240l%]swCv7i8rT)1$248rz=whhOnMY6v)]V U"1%BuICcHbN8km7BtT[A1umf9.N:..<%SfeFIf&(7Hibg#sM=ij&]$^(T[JW(o5j U");z2iY>C8$NY,_#Eq.h\WU&U-+*3+8]j=ag:iMO9EOzu-BbR%+62 U"\3q?x_-'Q0)5?2Bh*;s3Y/+C+hf7(vAV1i&hKEPm'1sw9Er&N--ELTviNi_4e1' U"dPvZupAe(9OKv-+tSF\&a:uK;'Q5jUk2?RElEH_iLu\%(3#=E]=jE4o0*CJx8fC U"hf[tHOQFczV4:7ZXhiNN&WdWlJcLbdHqu&]oR/-55IBWael$&:q#*wM-''xK];8 U"+$FIqP.u,P[ICLbnyTIOTokEnAkPA8cJ>5?pxY%BRAp'zEOem>hG=-t$S_IuV1[ U"Yz$n%P%MacA=.XWBRTE2f=HK'_DJp[kG>q#8]d4^YLzBfK[Ufdje;=c5kZ=3bDc U"aSLM]zPtR>\9UE)u+/^XR8Aa^^)pN:xJF..VUVmjB U"F:[.^=zsUHzXElJk*%$K;Gw)eV1?%lY8X^8+p9XhE'5O_v9p$V4Y5<4i1]dkt2E U"Q$gC;\p9/?CwfnJnN3Bt%?5xhf8/EQ,L',Tnu;SVaN3Ba:ds1Mg&/6)QIwU4(-3 U"C.p.)C\.8w[d.i=73?WMjVT64Wm'\u(qe53ui80^wp)e.j.Mke]Nc0x]*CmZyi= U"sSi.)MTyT\H_c:c6Yqlg0kJP0;Ny1X(sE9L14b1F-8?Ug-iE4tz(pGc=;No[;f$ U"rP4A%Cj<$_/0*8q&R51f?1H6QW'bYW>0J]%1uC*AiA=:D\FBVD3uIY5/uo5Ja6G U"0?'Z>Y?B8u0M=PaA U"WQ6*?QIgjbhJse7[0Lr5&SyDfD2aq+X>SI1C[?D_v8NlJr1vr2aJD[hpS)cxF0q U";o-r%#eRW&Tp:u07DYeAQJFGA/F4e9xs'GfcC%?WI+H\(gb3;hYOtIlp-Tr\Q(<];nCZpHis4;B U"=ea$NeErgjD04ZZwBP7Ki]x43VnzetghCS5_C,*$eEVj%Bsd+iw[d,Vj9[CDZH4 U"$dagDC\l$XJ;W?x$4x9P]kb2e2C,Kn%]Pp=F6#N;=FGV/[Qxsl4cQ&(];siIcrK U"hkMc#B[8w[=k?T:I+S5.pbJX70?Y6sI7Sq\+o7npe-+yl#$i/LYHuND9u[B=EU0 U"Q4;7rKRE=N'yl5B'fB=]Fz?38D*0e,+wifg2p?S;tp+rECX=ShGp]0aJg%XpE+T U"Bx%I%RM8ia]8x1pjP$*,\%Y]#J*8S+t0G,nm6p3pd/j6&-*,t;YJ6(erlWs%:Aa U"NldnN=eS+s88TV?=BYiJKf+7x>2NrbloDgKk4X]1RC-Tt:0TRg1iVOWxOld\Qr0 U"kImST1[iFLd,b0mCrQcQ]\sKX6>]UG\nkXkc1DnA2hKUGOg'7rV: U"^QU_7+)s];UD43pwyrYmg,KJfKhy;r(;8E2K)Yn8KQ,r$7BCU\>rK%j8jn%1['d U"EQb%.6f:P-ciiIhFbDgq:DaZ-?Hath+H<):)/W/E5.7Y,iZsI.2\?nYuExuEcio U"VW'$_g.hQh^HZYU'oVov5BeJDuJa&Hr1W1FJ,leU;iqFPdD[BbL3o'OR82qPF3# U":vH(2\rmHCo;),glh:H_l/Na-22m#*Lkcw6::6pMGucD+#5m_KSI3zgM$>B9YQk U"6Uke<;+x777#/]?bSa2;we6ih13G1PT[uR;B*0KL.Alatr<#,G?rG$$vIO_eibm U"p6](\%sl;a:XjdJZP]FPXzn_#YP,gJ\f4/'JV^<$#O[E(/w#$riK]u5prc&c9a5 U"%S<:VM+gjTC8dv%mTbbny40FHcsX:(uzncV+#4*Zs(NE\ U"Z)],3S7TdYQP\]4\,?>E;./YaB;_jbugv,p<-mogE#tp U"TW)>e*+>u(da3,a\7Fn5/U>n#UE(N+qerjK]Ft%40Lwd=Onq#*3Oy%M#[*GAud\9o]If_/AZ4)j]VB#2q5?9[ws'M%J6[Wm$cR)2%RuGTlOT',/>TZ)hG7cO1EDKIk_^%lmhifX7PGkEkw\E U"Ps1xu[D4wbICWn*gRj1F-kNmUNS U"M2t^OyQr#;Sw-SXa0i'(4fQ,UCA U"F4hr9P40N4UGefRw+;Si^ZJUxshy3wV U"JGu+%'TA-#c&[Mu1r/>qGd#]jvj?WtH<7nRugLMCmWYf.oDKfhP6,5=55+^pz_d U"1gf1\;EE-:5v-6f8B,k^Pa]XB0Qas4?b;.-X#<+0UsSNW(kaF8?pV5ar7[Ex9Z_ U"*5v]*LD[b]peBPvDK;Z_pM0g'K7S+6\PlmTX9OF>OBm7:*N2C]A?)x>WQ7;uc[)Jx7Z2nq7:kR\EnDZdmcI%59VR7%=fHNH1JMuYQj:j]/64%($FJ_ZEVQ U"Y;p*u?JN81P_sVscwR/(Jpr=>+H]Ae<8)#/Zt%(%nBv8P2mlyb[G U"=64g0JB5+GQCU#0EIrZ[i,MTx/z;oeM=PLH/I(rgb15cT;?W&TUf2fBfn4(c)YYc\w6NDz U"EDv83OJ8(qxP44:yZE)t6TAJea)=pg30'uYqO7KR>KeZSVs+rHYP3=/1l)Sxgnu U"2PikE.k&9bCwS;XNmKKW[4:bFlVw:10pP=t:+au)uP,uMFM>,x&PugtXU:bO-PW U"d*CIjq>jC/idhNd4QWG']/r6TW6R7[6Sv)jk8Lip^2_d#3XLDswi;1k U"8PL9i8Y9p(,ga_lX8S(ikb1)?sXx&%up&'%9%9%%'%-%)^tQL+oJV-'gR%%,H9% U"%%.%%%%%%%%%&%E%%%%%%%%%vg(W'gS%gfxu%p&'9%%9%'[%-%&&qQLv.mCeP#; U"%%8%v%%/%%%%%%%%%&%%E%%%%:S%#%vg%%fqxS%nshu%p*+%%%%%'#%'%>#%%%7 U"%i%%%%% END SUB V2 CLOSE:IF S=37AND 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