'=========================================================================== ' Subject: TEXT TO EXECUTABLE BASIC CODE Date: 03-19-97 (19:16) ' Author: Mark Glenn Code: QB, QBasic, PDS ' Origin: fglenns@ix.netcom.com Packet: TEXT.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CATGEN30.ZIP",4^6:Z&=22164:?STRING$(50,177); U"%up()%9%%%R-%Eb8AG,94-bZ)%%%;1%%%1%%%%fs%xnWh%fySgRfx&%T[C5M U"\o6xZo^DjcNjouH.q<_Q36_#ySBu=;^DS&Eeg&?:jJPkXiNIp^rGOoG2/ U"vP8nmO0a'a\+z=BND=0+%i%0C%G%F'b)_?cuC%\=v]M?VO9>RqhC9\RnX&TEE,j U"'*4lUJ1uqohp4[DJ_fYN:m'NbiM/+^8Bad7PX+wY4:cVB_coJ'O^dH9>^lPmJ<$UJAr?s+Izcqsq U"xm]SALqaCXH28j+pDNbJkSAnLrTa4k-Nt$J5DqZg]HMruncL<'\<\%5,?Y0+CP5 U"l_gaoJWJz)^203'+Pb#fvc$nxM=O?(N[K1)?=dSj96&:c1b-NDhuN#&wHFw%lX& U"Op%5,E%UVv-3<.*LI3qQ8*g])Ff#:17%.N1eX9*WTosjF(ca+5?&q$?3O)J+Hi= U"RBq#;lv1Ms&boq^]#9D5/)\boOg7\SGF6qU#CD+uhi9T^Bpzq.9XQ8#,Ftob/(Ej%%XM3Iyw4Xkp;fnLTvlwQ0*^bg$NJWy-y>vOE,Y( U";5>\?qsW0cZR^sF%s+^nwcsJb>dP0<6[tbW'?,;B2>yrr,<-(1a\r4Z>I#V/'PD1js$.fFKVR*p+P>em)(g.zB9gJnl7e U"xw6C0t\Y.7;?h]wqM_m'^cSm0GZEGvx^FKV9WQjmu>Wpio5VX98uCxmR)3&mmVj U"rHQn-/cu&m;)xWWYM>)YoW9);w&:F_Ghs:9O#CWh;gLf83)RUEtiV>%KE5X936d U"mA0Bg0XRMtaAu_;.)\EpypE6G(maRlTIt&=CZCTPbnLfYKK_nf'grF6i%\up(%) U"9%%#%-%z_bAG4J/k;1[5%%=%N%%/%%%%h%fylj%sSitLht)Tmauw79w>V;Y% U"#l]j$VlGkQu>dpDNwsC<(]lXRh$fX4\^C(cbLT(vD3+i?PQ+$+jo U"^0YRwQ?,4qE$Pd(4_U.T9Y%q$7[VB8J/%b8uQ;%EI;,6)[2hu&mC(XRm5C^DZSW U"$GZh;^^liK3uQiIudw06[dsA8rw8W^#n%d$2XkaO,#Pl%6nuTsU6nfUs5D0>p67 U"U*lo/e;XckoO;?T[OcddFZKP6Yaqqzv+kzB7rJ?d(O:Na%sYDs&GOTDgw+w&u:GMX6B^v9y#kz(bJ7ZQgKZu2eD% U")cD3qVOsLM_z6b$PHlgRjwR[GD4k,ZO&dl3Lm;3J'sM*Rk8Z..PB]>9^+q>(>8z U"Jb*1_]ck7,0bD_2'+ervqs7<>0LDI?pGa#r4BdG:a?_V#C9EQ%X8bac/9^0HteV U"bg\4nQCwp6OWR&m$[7.Vx(h*L#a<4(#gw?Ao%+dNq)4\Y6:G%h^R] U"Jf(qP(Q6&b#B8v4ePd&&GZ[>O)TX6^q#,4J=[o_.7iT U"kDU&:CvWoLOR;s8cNQ>qJQJicr'T4O$g,?.+.,&*pKuIj8vbXCEjgjzE_:Ut-/I U"4y_Fw3o#$^uC>=HAzl9IgtQ?m%wuE6[l>,.1HtBGpUT0YkC/]WXE*n39m3H_1%g U"(Te$kktH);(i$YX7,R([=TiG[MK6mG%u\'IJ#^6=$^ag/kDX?8fY_^*qvp.:6Bh U">Us&UY9K&_9rBLT9;2wkd,(f+ZCxY*rPtke>rP4&s+Rr0eA4kh(YQ%tcYO U"O;La9;jApg>Yq'DFBsu1ABa'j6^6Go_bcc:>G-ua\h2M,%GH;Zpy)QaLg&y*UXh U"uA4cg_lC4?M?1gdrn>xi/F,nu[^CI>w&.H%aBS#iLW;>BmZFNe8+^r>KxFX6A+O U"sxj%&+6V*;8bku>6/[-2esRCP*wadx>TMbi6WNs.NV;AIg+a.x)KBvU,MPrAxf_qd8Q#MX;rrQS-*I[:m(0K44oH(lw+mMf U">dg9ebTu4L:kro]1j,x0[pahwI#6\Qoe'7ARl]YaWC,DZ^*K'P*G8y4?pIMx0S) U"\dMg4'/rz0AtYNryKd/7cUmL98>-4v/6X* U"n]*#\zNUXXNm>zp( U"0OQn^SdjvTKNOx=[a74M$WY1-3'W_JHVH%XNXr?PBhg.,JhfrR:bjt,'?0mx6se U"fs?s<4d U"sD#+]%rIQ8W/'2dnx2A%>JBLGXE*wW8]>am,o,K?R8VHp-TYSEOaDN-R;azfNX* U"\2HBAfYZkY%GGt^(6dgOZ1Gc=^T=S6D*acRCG9Y6bk.)P678p&#vde5_j5$)kD<>zLgg08T8wjf=N/OHwbwZaIG.2C U"eX+#).v5QhM__d_I.bK/-i=5.d2CD)(y-P+LW)#zMbD+X9no_BnhxJusV-FmiHH U"h=n3F$^KquWcaAwR^/rp6I4u4,am,dLRMY^+)J^C:[8P/35eSs[Uedbhyxo[F+f U"%0AHUeG(n*0xRI?F_?S[=lcmjmbdq:J;,(f=g_i0o9I#O(CmILN&C>hMK?JBF'p U"H'eI1bp0jK\F+',7Jip+FF]XksgvK>I#r8i&czv.o0.hgvX^SI[viIC92d\;S[Bl5IW3#BeiqlD U"S,\_H#-muGb9'\_Jc$5/jEAka U"xxuRVn*:xV5:d[omG*KBQ22bFMCNQ96zfRi^nS9jieLH,MesT^^_4wg_D?p,X'5 U"(W[=PMcjOl4N3kGVO5eUAiyRsN_eght4SLK#hd/O-YoP4V==8UJpuopY03F&Qgx U"xQ?)u5,VZI^a$Ccc__bYAw;_LNY$OknIDYTi;KAbcnWj(CyO?Dcbfdw/l&B4C/W U"v+cS^i2ld.h>4/>43,JK:PY%E)8oDl=RqX\]9[OkBxQ%_k4mH>oR#&YqQ0rlLU; U"/pF1;3NI:rHhkKzDa[ja?r''+rE:lG^t*sU#u,7AJf$XgUZXHh^N4bYVg-x-NY< U"UI?u0<'K8Vrcy*+yH\/0ZPrka3AVC%XoLEXRN3cOZX-m%7RGqc:mbgp;]'VD%C7 U"clBccqc2WPIzfbHBRSQ=A5f99qcT3$I[sdt8%in\Rou=P.]vf'u/a3iEFKa)gso U"^xYloZLIDcSf(DI2]j-wil%28tSr5yudE3c^i?.Y+[&Bf0(3-AU+Qc-Lc>n2=&9 U"<_9MO&-a?lM74mknuP>VAC8S?dBv)EwRdPo[HBA0VVf$cc-$16'N^A>oQz_BQBkt_DUvdk]#zfIU*tfJj'jtaASU3P(?p, U">(Ju/%\.2tkVZrWChx)+M4iUJhc13&]URM3D*KW]J=C)$*4fJB)EC49cZM4gbn7 U",$]b[Nfe-zRUH*?P%s&#;w0a/:gg8vNA4:On#up:LbG/1/RDNPLE06[Xv)(B<+p U"U2EV$:lrpIJ17C_makKUK_)V2n9l:G68PQlU-ALk^ZLd+OE<(YT1,*Tl4 U"[jc>\<3>C;N1GJ90l^D0sb*Pj;3GB'xBb\#N3d/iC[&&8'ns'eYD=e8R*\xDjY< U"6B]jv&K]EsX)8V3wmU'GFBclF6:$x U">&_pT^4eYB-$gg[IpFU;'lC^hli+GdIj>Pq-NY9h2BazTv?iTGT-3,Deo:'+bu> U"3aIQ6;]E&B'Sp*8H3ZZfxePFMZz]E&35i%2_N-uPj]$NY1I--bdWz?r#z9V3O5A U"2o?LQ(J]:axKg4/'3aF\*\#TWC2ey0545RK6?.J5t-h;Rr.=kY$cc\r[7r)4Lj. U"LTW?]L%8MQ]Gu?><>GFkEy1K_#tV;p2%Fo#BME)q7rg+46mSjWLWvDW.lg&u.Ef U"lTfX&YghVKDVIjblE9XM'A*3' U";(LNi>OtHn0o&AP7I6:oUz>;w%S?$1[DB:dh>NGla24]a3l U"%y$LNijdYo=7[LUjx4;n&jJ9h60Zt,rKM6+_eaoWJuBq.N5w'JLqN\,Ak1)iMcl U"BXsdMZu2X4WP[T8k)H,Qt#tw,8/B U"YQV.*=xNc):iXs%<\=,7TX3w*&[fhCoj>qIC6,1ku$eyos3ql-6?aL*$QMI.MIr U"l50T72[SK6u,_&r+I,=s83>hsZgj_lV#F<=\:R4q=q1E5hF$oaq'[=-xx%u%p() U"9%%%%-I%abAaG>cV(b76%(%Jk%%%.%%%%hfy%XUSi7fyFa/gJ]$do>pw#dC&**)K$Z9c#93s8b1[oJbrag U"6Za%E,[Vb-I5D'juxP5Y+_&_ztg(P+*9hIqSgoi[>T0entbm;H0a U"RpWzs/ppokJhE6XCMm:B(hsi0FLJ#ex;YpduD9q//udVGG(3YBCdDaV9ZKpgL;: U"p0>LfT1CXa#l:(5S#.SaHXEi3\)5\]LyPaTePhfW0i2vuWQi&O;')&qgM.4,,muD U"BlqUsI4,QBJjj]$Bs9B3e$tVMYcQkCIq:dnq4?OR'Bqu*mU9Ilm3n#A=$68$mp8 U"I_/nPm;\Y^+1gw\3^_Me,R9ik7H9Ii0Q?]7*Z13=-d%+>bIkh?]U5>[>UKp6_la U"%?8/)aLHBgJ(ck4L3YbJ$C-XDc8Y*d.eobPWB9YS[7V*UJF&LI/;e9+q[%'$R.I U".g$9p?9=Sk(+]aha1(*'U(^6e6Nd;22U(WL.J$&ERLEC9xdpDRt5G.4$\xp3u^s U"dNqM,,6Z(RFDP:<,B0/h3HTttJQ%53P]L5JD=OMTk$Xvq>cEAD'Lg80hLneo**C U"j0#,A0Z[R+h57hQ.BeV;^)j]i+?X(do[VFgeY5Rt3C&Aq&=-Tp4-/8i_PJJ[B_8 U"+X*GbJ'tgI(9ngB$?1&e0'u.VgH:5E^ozTV[:dm/S5G0m'0+iEu6-eEOcUdR28\ U"Q6oxxb)uT/H4w(%p->*VVhV2RoAEzOE;V2)\/#Q/3lZqgkmd[S-fHrcQiirPfFl U"_]9a4T98Xkd0uHWk>uiW[OfqUma8#yA=nUrY;Sj-Vd\4%Gn\bViFKOri7VC4?%w U"9#'%h=W5>,\#&qE6oQSpbR+/h$]Tmki6p+,FJ-*l=,D6L=e2Y0/X;+Te3B*)6YS U"DWl.UO6#i79I2-d]7RTo*xqW\3'W U"t_Vr]WNO%^s$G1u>tu;'r,(u5h,STG^Wjn\=lY7UGIbK'j3iqD%'#=b.cVYN&vg U"+e6:6$YO;dbrWys3Y_R=nq3oqdQG?AL6^dP>?=/'g^^VO,4isqPoJ4dOl%^rtsY U"3%35NgGm;0jq(Ie&T,:<^np2V\=IW521)/<]L?BZ-9$qPg9:m&?Hl_UCSZ*qc+> U"6wI0TbfgT%pc%pog08(leb&$d^DnL?t:uZP)YG7-05^XQF:6I#zpj=1DeYHa]'f U"r+hr9k/?9d?#RQg+Kg]cBB1IcXG0iS9o>p#%6=p(o_n*nVlBYQTK]dK/P8:BH,r U"g7_ET44FcU[:SUbgsSf1d.i636,OioVl/S8elo&U#UAO9V2_Qbxx U"&=ZWl'X9r+tXahtBAi(QT=%8^Y[5wB2666p4R$a6(8yrX=MLEOs8L'Mc^J:lfuj U"jqp#4[*^wLsO0^6eg]sG0J'+uIM;nl.8NL74bqu+,;bfTb*gQ=z0/9\(pQ$Ts$+ U">QpY1nAwcV:D2s#BVFJ&y5IUNrk(fRp_.kiM4d2iEaD2GsnzcKsz&*7CsG/dnQs U"MZ(3YaVD.]BX3f%Df^MqugP(vuugBbBqpl.)2=>zn4J,Vqak3oug_1$_,79IP$B U"&Lh&(#kCt<2+]Syo7eqYWMN>w&CC=qa-L[+E1Vj0ep:RA2U_tRn/blZBITQ-95OqDsF?e^C0gW U"jZr2=(YW(6#lh47F%T*nZtA(p^M&j[46\m\&^T%N_sc#M2oL U"$tFC=kp*A%36nkb7=miw1>^okNijpi^%IC#KY=C[7Br_&_Ck3p?\0MAr1phoalu U"Ta^C,1hcl%schV9ZMluh$f)FZoG^N:To0P_(C$7&IN6^1EL1bp[d>p;k*4Jpo=B U"OkMHiGm#b.<#CfZt0r]pGxh0,q\Kp5b6(r$4*7o$rGo[7)F9./\vCfhVcRtVCz= U"r+[Dc^7(_s8^GH5.avvMR8t1df+/1G>7%r3G?CH,](*6K\f&Mei\[Q?EI2anLEL U"(>/H\=*Vr:UnNO&8:HBHLXmdJm)Xg%mYv4]Ps^RVN='Dku-U9hVYT:p,\*i+v( U"]b8<<#QLAO#Hc$b[hsZ^Osr-&sMA,,bi?'P2d/-?;Rg-M5;lF9,O44W-1H?NY>E U"eUr&]$w+fuu_1>)11G+>o\0&[]54:420>&BhPO4.)tLQE$Q=%5x+;h7q'Sn2myV U"Fm]it&Pq)>'lv(fBR&sRg/(0pI36wZr3vv68t&a=YLdk^v&KO7w6^A1*QHA>[<* U"g3D4WOd/;=WA#g'R#NfN:Abfyy7qv\YZm3;OrwK&K+fpd)?rJ:%2\L=NlZTb4 U"B1Qbre>E$UwMBc?=1c5,56/$GT(NiDSWVBxL7E) U"TO,hBljg=]%pa7)/41szOn4*rkkeTa]xNrN/Emen*\[HCYm/2I%pr#&kE2h?BJ*R U"Hzt:A:)R(#[E?%G$2W^Y%8:2hB\DJe*(\MPLE/iOjWNp?bqjbM;9hDa#%+j9vX: U"B_$^:3sPi3(N)09J__^&Ydn>%CC99M--EzQV=xA,8]90E0-8ILibbu*H1#WIrY- U"DESR?Hzu=\,gmXprch7*XT^C/cgKC2#D4jDnh$WZ?Z:kr&IQ5JyBB]-w&VSx:co U"0S_(bpc\bf:$]t,fY#2K05ZXQbiIcu:j_kEYgTW/'VxY,itTGmk2%]3J9SC=72f?8[uiRL*AFUdj>#GNgM=.1x_v)Lskydl%OFG U";psg:qU=XrRI2>_KTgm^vBZ4KbvPSJ;9B&dI)UL8_^9xIBko\*vh4ItN,hX87]$ U"pGyVc3m;]643,h<'*V7tJLpCdWNkkMs+RA(u5]Q.\Ry>k0FaN87D(mX)r[:1bx$ U"xow7us1(z[FWq3b'#x'rmghyt;lhwy<4k?6f(a:eg3Z9G3TtrM'D5S/Jd9ydRYW U"-R*1r_x45Y[2'gpfcr#-ogtVIcI?*C[5K'ITB7^7_Ixg&dj6%f:8*m0vml'V,M4 U"*C;#8%t\W?4O;nv=]-P:0ZwYTl.3I;QKmT+Cp,SgH7$Rd\?2x4,LGS47j0>SLvr U"gUS[nmdaY?k,os;/Uht1P$#0N#T'D-dzh_1iNE=fWeft1.BLXZ(H,W,Gq&3*zMY U"x*8u=\$U3;e]nAn/W*$1]FeT)B\($o#\v,M-][^HQ=\;61oXd1J=Wctupe^n_M) U"#Y#YXo9Bqd]oDZskI0x(r*%(Jf8VJ7/6]1R?Kt99Sr14950[MM>6\5-55PHild' U"-Go?id1rc[ffB4-O-<*uon2Wn56.X.uW/DChNuO1+TITww4zCO#PZnhB;M,/tOXRoR/VYmC]Kn5A*v%uyPZ,D: U"30l?K)CF56p2IkmR%ig??]f5mgFm1H^Uh(RemHh%Xh2r%:n/8cma:T^cb^nn?k- U"RF]%b33uOhX;\#4LV$I^LlcdF>P4C$Rczp?HXZc]L*IAeZh^_4*KyW#Af?67AP< U"IFpvfNomjX3^sVlqC$#,2Nj9(r\[x'2sGv5. U"Nl0hKxm[VEs1Y,1>H<\rqw&b0cyufnm;U6eYVxG#>vkOHt=v1qxYFt3J:(Fk+.0 U"Lria/>,t/LB<3pLTvHBC2SXt=tvJr#S1c&f/m2pyB5YS\=xacN5MJ2\jH>^KH$n U"\4^=]jrl2%k1$7al#%vV,/2uz17*oxqEd\zC#ij\x4.v:eZc,,8I&Po(l7uO+c. U"t:zwpSVBieig]iYjG?=8Z'=9jC,Lmn>t;9MbUW\C>TPFu/44D38ca>Pa-s4+qCy U"o*bK9''v;0QU*)*j0\8ROIb_C4p2wqX9*CkGOYF.<$pDUl=R9lide-59DTgGR2q U"e.z$T=5k4i1.YhIjff+K\s*TY^al+^H>gj[#e28;+iZ%yo\\bWEJ2aA5N?O>t9oX648# U"dP^OtVa5FY81j6,RLsF;?wzWN9.)HV&C#M5DJRsV-XuuP_?_H?o*.\U1kJnA[TU END SUB SUB V2 U"a],_v$od*Vfdf6UI#3/K9#'O09T)n?)Ey*U$h(iNPrA]enp%31l]Z>(V:O8>&-< U"ZF]qP;+LM\BCnLOdGYOkX2>$z=Wsm9uSy%/N>Kl_ U"2]+BCh61#/6ZiT9mkvT+;V]Oa?&^,Z-Dr&>c;fPdlV6K3kIXda'1foT&5^9lTpa U"U^EeP:ZK72lE3)uF^7OlLOJ$WxB9]GJ4VuA^wdL?[H3>JRRerg'7\ls0Yh<2x0' U"U$3(7(%rMU[n\*cP6/ItFVmS/\CS%Gr]kwcYUg=2aZ1]8r)n=(b.^T%_BL\C?0a U"rvbOYB_AH-TNhn#nnlKI2oX96S8IC[zxq11m(r/f(j,fl?a]3s2seE=,k9)+PF/ U"rs:UbYeE;16[>SjR110Q\NQPru;\,$<5U\(&k2l45)*\D['5=8=yeLGOo-ItR*n U"WB37*bG;:Y*6Y]iQIW*pjD/4%M&EWDaxgUR9 U"[Ln&U=\T&n2]0'^QODn7LHib:d/0FEGY7n.?1fvnuQN;ZZZdl)R%:/=cT0Q;Q_H U">6ERk,[P-N)M<.)XVBg4w(%\s\'%JAGMM;&^S[\H3M85d&gi>yS.bcp8>FpNpVUXUm-Q?dirA\&ZoF2ewmiy.#_<7COlNL%v%-ocDpdMM U"xfmlNXYI/n\ljhrstv8xrbKld>Rd4xX?GirtQnTJ(MB^Wd57ENDHLF4p3ubK^bBso3Ut60)SZVIL7u7^9Yo/(SZVRX-2XuW9c:3%K$H0l2XuEk3dMPBXX]Z+ U"iUWx5rOtnRVXtn\LijJ&ur'2:G;vI0HVM&>ft=\qq=u U"u/3Aq$]BH$E4,lgb[U(Y#JS<#1S9TeXZd2Jy/k>r*n23eU5'fB=;,)m^Vze,t U"sz(PBprO2vl]Gfl,AgmTdA*2?$e7>]a>Roa1J0RV,iPo%->(.xK5ZHplS7\4J$V U"O=.nDV?6=lxgjYePrhqdaV^aKXFSI].B$Do6H,3P3 U"H$a?L#B+kaRWKVE\o66HTP491DPb\8%u7#fL97*Qrw?6Llw=cqA U"KQXi&fZ1F+GTz3%?:,kX]J::'FGU];vS[+Vc-AV]awG&VxAQ2L.KXhC,%YQHrr7 U"]:ypMoU5V23rm1N*h U"&t.CF:col?QAY:hCT#'6:efSn?;vI,q'm2VE5u^&wVYNV6L1w[,bPvjoIb00TB\ U"F:\KcOs'&TW8g/c52T'Q,>\^.h\L0DfydC>C-F7&U3pTC54wD0;2&#(Ryx)CF2V U"#6-thH$+,Umea9AUo\O[Oit7VQCY?37U0Pe9j5>-Xjh67d$Rdjt=b[I.'+K>+*o U"R07.=gia,oI]KWW1Qn5dOsT=+%DJLfORbpW9WL5F'X[h5$*[hfFp5pRI_AyhMi# U"-7h[0VEmluPl9\TuCw'*3$=;&B(,>EKy0?NLGYXX/,T;4M$[u#r=S.[,KPj1#0? U"F#T;g8K4Dt3;<%A,LIX7fjJk:):v;5XKt U"NnLHA_p[x1\4c0e+7\Vkn?[ee*[mBHBIW=Y':t>jU2Zog(9Q9*7/fJc/bG*YuEp U"cse9rak4NSAIV]=(>kLelf>mnwpQZa1B$M)jT;];MC_[IrJ.$2g??.vIr2kRq2( U"mD\AS[lOG&FQmxIRll-X43U^so.U7L;]6FE[Aj&.EMCM7-&,b)>TGln),;*QxjiBY:O>Ef0bSdvBftSOJ:Cx;e<0[nk_A U"89YT]0U-n;4nBe[;oRe[yLkIKQB-^:pf_fD=8;i U"RZTS=-OEkT;auHA42kTl=)t0o?FGUE_[cK#eAUiIbrpU5\p):ous[dg+TvxyUgUS&8 U"OYd?7]jYej1bed%ZGrk+NB%.xDEck406Q U"fuogX+O6Yzd-(nd7Uk(N0%f^q%SJFIaBx%120Zi[K#7ewJDl+/ U"$7r)=*n[UdiSv[b#2,gJ.:;wq0[iSos7du^qKQ:>?fsw[7NtUNVw(SmOKBdg7Hj U")yghc]XY6mc\pYI]Y610=9qY$s0uY2pe#)eeX\M$R]n U"R4FV\IRjn.HXRi7mLnsa6D$od)F^fh).I9Ab];s)\1>77GL:3[8&XO:t,Ivl(;8 U"8QVr(<Lz_:D*a.:zK]*h\Ri#n4Nk:rP,n3='R=t64WO^]xG>5usM:7_\ffjg;8v1yR2j U"ao3Vs;]vt.qCvWJ*IqG&S=.Y%m:SShE&PM_<96nXF2%OaC+>jRo0]?ZMVSCzn=z U"Z?6cpVDaw#SnNUeOXR1OT(,]m'R2Wd3[bbegfBk%;[VrI/RwnxG1iGyb:YDC U"Ta%dlifEDj$-wbp*yOYm%aRDdIbJa;L^8YI.L;:B/Gk%'IMd\_ofSWmAN6u&l;< U"[B8FN9(+&V2^-EO6gRsPE-TX>c>c'Q8EdfbM^^4;(]97;1myTZ(ryEjx U"IHr;3PQ#cuuEYu,B'I59SI)oLW;,dAOY/[*ssIdXk=qiB&PHBIIns$*4kM7#=td U"R[00%S*iz#7Csv1Ibk%^q]p5FpbJ7Etw5Ynaj8Q)W7ZXJ U"7_8wrKNOo+\i-xSoKC-*w8lI^mF=qIiJ5Pc7&2T=^T=yaX]D3RpOkkrhs/DxgZM4jE0yU)js;8Y7S U"G&(1(+=J.B+#5PZ-.CG6twv4M>X#oLB6iGOSnmQTI5m6fq<:r'Lo-J/xsi,S3+0 U"Fr'WS)YWe0ei7N2?\YW?5A8ei3o=Hi>]29>bAkSBV*Zm#JV9gqCNhxU+YjxF4uj U"z^R0hr.VK7\?DsZ5CsoI&>k.A[(K\z;t+, U"Yi+QsB>bB'VGi&CI%'nCsff7=SHU11A%p,[C4j^I/5ijlZfSZ4D-Ft4.UI-gQg\Y[H';z^[nN*xS;uw.Wet* U",$KuVZcmIvY>B&142-lB&]HF]LSk335;./nMZAq]6ICgE_]w-\=g6/(M^CCbmi[>9$]PPpaAK^I3g^D U"-5.7fFSIx'Dj6_J/_QTRFh,^0E4D.piLG^7jlQ%(WWB[Q1Wx[OXBw*cH&a:YEd8e_LzK U"YM],h1$D U"1UBn/(7Z/^o04cI*x$Tb(l=28eu[<]I5v6,/[E+S.;aWmG.FMTb$]j-.OHUQ>(- U"mN<2?bs9hN:U[3&)eCV?HlmcGXl'=Q,?$^9wCObH-n%dq($eWjQLI#p?VC;W?Sl U"aZR]^_m2)^lD%'8]W]?q/tvd18*)AfmWfZ5qZYG:+q,E9?b3cjBbTTSbp0KQkM$ U"T5*UXPLZ[,rwg-]j6-Yqv U"AlTSC)v(N*i7LLtoHZEoD3J-JboQPox]3(]f^l+S\*]h]d)PuPH]jj U"KIuvr%GcuxU)EU^f)G1fT2Ov^8RwkD(tKSx+G+Dn$EE[V[uVFM:N(w*$]nd0qKUA6pm=\A_%zV,YGbj U"2&6UC#;XCR]\7MV.17B'WjQJ[3>Zhjj#Fv^[^$0q>x#Ft\oa[^).zN5MBW3urNdEtSo4lD%zKMuOX[HDUTd U"^jsjvNW:n#lPs]_90d7uBUHw0AsEMam:%NgxG<$1N[[#.]-:T=fEpw;rt8Ob2Ym U"mMysLm.oR8)n%\[e;-hw^IL0aheARIJ_//^s2)S>JY$[V5.QR[oGahpDx5JbE7C U"kxk_sa]EW'XpHt>,BA7K%CBLak_HxZ4A$UHA07CwIVv#9s]#RZ<-[k(g(Pd(#qk U"Qxcb-8ocN^Prk.mRqPomR>1yV3OBKR%Nqo4_&cCZJ7ITq.rFJLPEB7$B^4,8XtD U"DBh-Xh+2#[.lZQS]2h+0qAxaT[WqCV=JnG]an-o\EiDTD]3 U"ri:JHnBDlw.J:<-W?^2d.PuGWpp+fTuWqKHT#LYR=U7p:rw0*g#Ml?fv4ceKNjspSRKrF3N5JvpOh]B];$$UJh(NvVbh3X)XW+s%e U"61lo]A'Q<:#zapYRg'ao?#%0alXC(]0lP=>Dca#KE%mzfZzNkdjDHA)S#(_Zr-^ U"SJKBf:QFNRdGY\]G2r(>UU?.bYg?;LSbqS4$-67*)0l8,1q&xQ,khJOF.<+Gj(E U"oG&uI03\/&?O?N6PUQ.wEcZsBF_?\'r,9#kkn4$rK&ByOhDQk5M6T4PNr$P U"\sWm%M[]gJng5;tYW>c7eyiVDy'g_t8*5niYg\Kw\nffsm]pBWstXYlVHFw03%g U"w&n[hteDr4dO4_AM,.I29YC=htqbXiNdfi-6MOi8r&[5cA(.Ag\j3\cC6UB_i$n U"0A.V[2uWL32OvJFI-CdCPG?R>-fWMf.bq'4>oTFl-fZJoc$-YrhcjA^7*wdsZ3] U"zf8+[\&hV+^'rE'h)LNZquPUS'mfVBKO]A?(B0dv+np_HjB-pkSr(x==CoY?v,pPz+dAcg8u8>uAIRn)A_aG_4ZwSlb'6>ATj+#J: U"Nj)?H0B\53U=F_)'hlYf+y+p$Q,v3c-IGaVLp7>m8iJ-$R$y+\J&H.,h,.]FDJt U"J+&KVT'-'2u<6FuMDNSvr0ixI;fi=W-$sUN+P$b%XZoCTF\\A>=#g>zAs'j?&CN U"QP*ItKk0Co95(I-&=PwfV-m%64-sY(xEyJlV_l7Q53a)M<.NdmN;txVn?Q&[1C1 U"#LT1A2:bbjoW$>G2Ow;p5gU&h;?DI7RNL4Nz:P$W=Ka[JGU,>p^qx6uoTY+mY]\ U"B4UQx?sCdtJ5dhK-9q;z;Q]'G\i(/T7:/ninXY=BAm/nDH4J0L9zDljSERIp6G[ U";nOh='735$:WwNitRhGp-sfa:GddO.jbN>$o&\4xMuD U"i+Xm72001Rxh+sr\-)s,F2WLnRy6$8QDeNwE]M0DBR];C'g#)6JU3H:4uo??Pq# U"h5).7HL]2mY*oQC^$b]YVcZJs_*TU,wah$-EjzZ%2_+rlep[ffwt44%Pry-)R>; U"#8/:54enG_1(u95O%^d-Z]&ZI4Z)YCRpp:Z82.Fh]'05c?a6QDqZ[A);_9U U"_rk,LK'fZ-'c7]S8x#Eq/d>zSkp(0 U"c7\B:$sosP>7\NQoo;KKZfn]:\64lRHIN5X1^W#Yp2.SszmTlk\^tQ7]kesi?>8 U"i?=,TRa3ny6TOX1]1IGai^ZN_vfqS8Zk7D[0J^,IKqwJj,xhOUNb%&K79Hk'10^ U"McLtAmKcj't79DSckf/T)4EPz_c;NX--gR>ZDU-;=Cuy U"HD/%jk;=zm&q\AYNjEooi+;f:,f$G-?s=2wBDMq+yTQK7cwi$)6sDyv$(MRk;ps U"o>s&:\e7nTRE^-&_DtxVEd?nS2k,hG9vxueD;6rWq^,3pY-Ix;j;xd(g5??B^bC U"%Z0HrkVL%0:iIDzTV9>s+h-5h,jZSy:=;_R0F=ClZS:S*5dfZx8_Zu&mT;tn3;m U"kCjHinB%_LU5))T6t>XYn.+l?XcSDVo?3c1yW9:&=DI'NL2p4xPX>L$KS0AP_HSfpA9^v-w' U"e?Yc6LI67eLHD*?J%w%uTw;)69DhyI1GHS3hl8[R^ZnaFT7%P<(=KzSV-,3l=+Y U"BtcUQ8n4Y$E#2M*,KhH^f8q/7KVFQk+Z5nz U"Z6grqW6YkI1Y*s^4mC%Wr,J+jc/qQL:/rz,K7Zn U"'j1wUIEPJWjYFXa;uNx4E&XZG&;IW$cx+ftO>St[fp#L_Fn8[HS4+z.vxY&]I0* U"%w:)VXnSgFvU5d2>3#Al5AgF^)$0go%&D?kFOhEV#z.wdwVm+(M^>b$BJ2^'];] U"%JTFcD^Q*8jiBFsJWboHIH;L3,^V5Xu3l&wT[1&Nm-Cbnj&Pwz*DPo94(7yE;]m U"qYaktjo8.56)<+8spv>p$\gAn8>)#D#Wq:htjF7N^Sb[[hijNMs5ydYmscYzbYQ U"a9N8U)][uv;qG-U?c=M?AusJ>n[I?F1#K(O\x]qkq1N=0Ow.p.8S,X9.NkSZeHq U"Ym-Mta*VE'g\LD\ur7qQ<]G\vDj_1)Tng20B\9U_0s_ojsj5Z8E0Fwu)M;(N,*o U"?krUg3(>yC+K%$$x_:U#Y-d[\wHj8)9jjAjLqlVV,rVEcG_I9tx[CnloxMR U"^Yp$H$e(I;>EBf[VgU#8h\3<9Sx1AHM$ph8M<4N(Rh>$m%$7eHrfZCVH>x$7+oV U"l'?k(kG]iCfLFBcKC?2/i-MgG*Tw8NIH;xB81+ZO>[i+I0#fVN^ciA*k*3]egB+ U")O]H$r5FFrdo$RI0Xrda0NC=I]j'Bhsz-NC&DXyFEU1)J,+A,xm[(5:K(lBE9Ie U"i#aJkh1\\*smDkT:wWv&rmY_)c9#Yh88/[Mr8tdJ$xP3aPBfb(QP/9miLnef]tN U"x%Dup(%)9%%%%-%P&owGeR1MI:#%%%H%%%%0%%%%k#nqj.%niSi(n)x%^'*5)(x U"?sQ8#tFx7MXOXFu)&Z*jAN]?$$]HkCwZnYXll$mOOu U"ckD:C%XpW9AYx8Z/aXC9GAlpZ(xD97flwO+#5uucMh&qvNYw_*h)+qY9[(M,%%u U"p(%)9%%%%-%j_cAG7*nCp([/%%w%#%%/%%%%h%fylj%sSgfOx6'<,BT[7cwg>v> U"V&ckV1rCeIBL\J.sleNJjxhAXicS+6(LPn4m[gII9%[zTt9g6ZI6.#K(,X8 U"8^mW(,xQyoUG(__2JI%GzKOMrY4eCre-T(7*aMALMCumqqQ&.w;J1Wp U"qD-*eMqdWOQpmOhmac>d<#OlG.cJ^.,a.9'(Q4;IL\>lG+&+n?P+kWNW=X+*qO+]2wy8>Y=([z=n7+Q#rG[*r*e>#$ALkRkWV'4E%ZR*xa4YWP]d_+UW]6SaLpTAsbMAJ65rZ:PSu:B)_qG?;[b^.j>] U"f'KYj\O:AYAHfj+v^:'LJ7(k4zVU,-)[sIsf/.^K)8qZ\N_3aKx,y#(wH2&s\UWmtreldRgfx3RG2['eKU^T'.83h79G.m%.MV,vvHqrrZNo(EN:pSu/N32>An U"wQd.4:dmxkQ<8-\qOY6e9vYW(5'INp*YV=9/043dOY=;WaxEF,SC\p*ng:Pc;bH U"G\\VrBA5,L'?*#2E#p:1I?eVSm:s]Nte>1rbuffI8C_S07T0F5#?v3D^c1wzdVo U"3 END SUB SUB V3 U"bz7cB+?I(8&Vd2RcvVo#.V=FXoH4ZU?7TQ1CVrg^jIFLTAqPAZ4v38EA),%*uVT U"i5t]]2sdnwd\_G2xRj(oPk^lmmsdb+f(=0bBF9'7$?]Do1dZ$i\\L\#FTh\nmx> U"Rtgu$b8T*Tx=_rG0YCE[pRrTs$DSn(YkgEL.fE6EpxsM\JDrThC8%9W^kjadP*w U"F1YR:BJwK4vbDIY'agg)TLjyZNK6sbWWUv-D;o<.3XkLBCs+XoYT1WxqEv,NNWN U"cD).c]:[c%YOBA7S7eah9;kD$K)PHPkRZ]-H?Q(LdAkuoh+vi?o'&Z>ul)y#^Nzcp8v#vqz0QW.&^ U"7DI43;(fA3o/CXj$em7\ U"?Y59*tQnO/C^Mi0<#foi3q=6Szh&5SSbIR,*p^^j$LLCAY[aMkHKR/2YzGUb3rSRR&,3c:-tc/nc>68J:wDJ)wZ0H U"U2jmS,C^B84LY1F>\IVkH0VM,d-d U"C],U]kuX8xq(G^TrMmcmo0\Iw$0IcPSq\?-F#t]X$k%rhiTgvG8NR&LJ7+yDLUh]U\p0bnev?.n*Y*$J0 U"N8Ku#i6:1:vsb+jGUyaW,0AOm<^AFO?H4I/bR&ycYoZDdmCZo#8I=luxlFTiDvz U"\TJ)W-/MyN=AGH]iZFv&]rN'w:ejqo&jXMfRi3\0f$TsbVAr^5ScFt)jZV?V$jR5;6RU U"T0Kqk4Isa=FO7*A03CoVT?k\lAniO\7cP)JOV].ROEmfC>N$W?v]m6Cps-3/kN> U"]0+v&ZKoUY#v'9\AYUWRaM7f;zvq))qdGYpwKc= U"ZkBOa&q\;e*7I.\&rjIzmIM;CNkggIJ*8n%S8eD5p&Xi^R4Og5f*7qU^75ob'Ls.c8()HFz_oDAF7Y,Qa9'b$Qw&kCY:&d6IohY004d4M<'s3S U"XCc#r*d5?)7H7QZ'+Yh^R>U8i=88x.f5*y=Si4cA4N-z/s,xrkXf.h5rDlHZo>J U"#ubrM?Wj,4SFfh^xNdp7]H3 U"^Ypl(=OLADoGY49dI2OK'J6H'EIHAogvi$y6$ U"+s5N6K_ksW>%3tGKBNVW<^a,yuXt9TiD]wEJU17%&siwHFWPlHY2'h8+A5BMahe U"C\b\Ca#S:NLz[,49h_Hw5Cm&aHa[0W?n3:N U"5iGu2g=+x#a,rtlJ2i;9U46.GC42d1\D.l^t2Zrp%bbmWGgQ&J[2cAXbMV)L,ln U"NQ2qNm;nNJ=L/:u&E+5s#(C:Kw(IHiF+p[ATOmDMgU)%Y_Hu9C?oV>XRRYV'>R( U"Fm=$Vhc(oxVwSV$K^]:F?(zpCmV5=]/;.u<=U2Tg4V6%\Tl]i$kk6JK+.&i+zA^ U"K2niyogCN*Ix>:39Y'3THHGs.#Oj*P*VcvyKUB;*/f\\0O-4J9S-nER6Z.J3NoO U"IIp1-'h5dC*1u4T/vm?J+hAq.z#JuF#k*AARS\*raNm1UqO^-5hxq9Idv9c0Vb76.%%Jk%%%.%%%%%%%%%&%%E%%%%d:%%%hfyX%USif%yu U"p&%'9%9%%%%-I%=cAOG4'Z)DFH%4%KO%%%/%%%%%%%%%&%E[%%%G%K%%h%fyit% U"hSgf%xup&%'9%9%%%%-.%Pow%Ge1M*I:%%(%H%%%%0%%%%%%%%%&%E#%%%<%o%% U"k#nqj.%niSi(n)up%&'9%%9%%%#-%jcnAG7n&Cp(/7%%w#%%%/%%%%%%%%%&%%E U"%%%%&p%%%hfyl%jsSg%fxup%*+%%%%%+%%+%w&%%%Qz%%%%% END SUB V2 V3 CLOSE:IF S=132AND 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