'=========================================================================== ' Subject: QUINES V1.1 (MINESWEEPER GAME) Date: 12-06-99 (21:30) ' Author: Dominik Kaspar Code: QB, QBasic, PDS ' Origin: pedok@pop.agri.ch Packet: GAMES.ABC '=========================================================================== ' QUINES v1.1 (QBasic Minesweeper) DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QUINES.ZIP",4^6:Z&=19584:?STRING$(50,177); U"%up()%9%'%I-%jMIqEp15zQ>(7%%3+%%%/%I%%A4ME40;LS#5G/PQo5s-eGGe U"h^B_6\-'M*uMJ-.dc,Ae,ZcV_FQEeZ9dvTaehBZ'.uNNSt'=Smf5q7T$_/#a43D3Qai(+ U"x18Zk)A-5amI=fY^eJgv4xN49>UML[*aq/K+H[_KYQ.ETYslm-)&SMV%%[t%ur502'Q U"?_lR15:8nqHgge\BJ5UGdkD$$MHeP*AIe?p$,ocg(>de())*5#[nXYRS_(v$StN U"rX*C5S+)VQl&D]RkTPca7;[?wOc%_Z8%(fK]k\AG%50$uE^U?sU(W.&Mx4/b;U&WpVfhgk4p0U:T.[\2Vq75,-JUB[Sy$S;Mx$&$ye U"6i[WRo>Dt#kO#P,Z0,2F#$G)_IU3f9/1WpS/8F)(9V:4phB&um(2Q\_I,XfF=I, U"$#(7&uZOunOrSD=\LbMG3j1)U''[BBI;>hiQUQf^GOFevtL_)aflTUx U"H*KtK[%taO)ZVa&hPliMd:s$H/i?2c23e5x)56Ft6?R8([B4<)hZzY4L/z9*oTg U"Zg)TKdHV+4'd?:CTYt4),t,H8^<<*h5Zc?a7^9SCM-=,./^WhLgg0&#*tV$xO^m U"CWx/h/FD'DlkK>:XYy[g#Dx%O&lZS(Z0uR+ U"$M:y14Q0Ic9+zZ4u%p()9%%'%-1%d#\gEi/w+Xj%%%%]1%%%/%%L%;4C2C4AS2# U"5G03kCBX3Y0/-/F1Br'DRv5M////23/1uL/2/?G(<%3/#UsISeIO##XUQ:,'O5n U"#KC-lM$sw-%;.i-pAXC>M^xsB%>N_Hp,-$9kSK7q_]UTR^S]ARDx?>#+=G'>dg/ U"-/D[7$o8=gKr>krQUG[=%$BqE;O/&(x[gia7tM U"EgUV(?tfu4YgIN2-IViLjCpQ%8/H*E=n-5N2-a4As=MZ_oW*)H0wcKE.^2KS\0G U"MFKCCMNNNG'f+xTumUNZ^Y'A.nl$0fQqG&FlbE^Su:moGU0^Cd+wfmubnU]w3fY U"T&g0>+/ro>vY&'8?jFDb)h4gc_G+O116\rVZ/6AKRW'V*1oT)].f53T U"#eL4qz/fHV%;Z;egDSepc'W+Tt#PviGFK2kg01DZ.H'er:Qv)Wou0+dl'4Fc1SA U"+4t:iRQ5dj_QV9;_M.3WwT24gCdB_n$gSRH'Z59$KO(n:6oZCgglegC3rfMd+?D U"?hs-Rb_1m&LxibqA[i]x(bYlL-/;mARVNm/YDM0Zjqllt?lWE7PvVT9/DjGo$UZ U"0jYOZpqP$'l,uz411%85eWXs6p(;9Y:.?#j>0]<>,M7m&ChF?MnO:iuNd]f5kz, U"Cg0HaFc#XgS+DNl'kC*M])qIMAk7Dl:/OijXNjqUViS46qlO,d4a%89qLWi0_Wt U"56]aHoDIiL#-_I#JlbF<$FbksNH-M;IM11sw&v98hFx+N9D_kuHCtN2L;)&&?05C8;H?Lc;QE?CKTV?Zh,N?T] U"5P0_AiHIUR+:C.,%k_iL*exZ573AnfT2QP/]zt6tDzGj$VSgb9]S#9g97r?:]%% U"Ha(i5L7a$paP U"lW_hJXYfcAWYnucdno4U>7Hdl;gfC17]9CBD_FV%p4;,Gd5Y4;GX:ZW=Zj-]7wRaY<-rYh1ZXHN0X U"]3\+y3D\t9AM_3hT*NB_(EH6AQKVyYH)pfj1KQ,6-Q1&Nh=ZhFKjM#)4zTA]J5d U"K2aesXI:)0^**_4TaaWd>j&_cG1XDu9:>=aZL?BJ34QJVLQKpaKnfuFji85e8B* U"wE(5jaM$oSn<)U7klarKg79XsO[=Lqhsa?Y$P;g+6En\6Wb2Q\vZjgG4G:I>-Zm U"wS4bbW*o?9vMD/-WzwFi-6wfLiK)cUoeu+D2-V>Y=Ff$1Y=vMtq7ugG=^ENxhZ' U"&d8%2RTj6Tn*iX$qP8vN..F3$maaEv(,We=lcVlA^dYlk_GtGaS;x-K.7RENtuv U"\icfH^S1CXo,RGo*Hse]2oBjtdkD%yd#-:u)bS3uij_SmFw4D&nn9RV?j_4R)[_ U"Uz%dPQ8kUez<[bj0jrv:XUJ#R[0uL[6chE-3QU-ZdhO/.yf/tJ.7L#H[rzMSRwZ U"A8#o^w:qX^kQ)n0Hs%,hOq>gknF,SGOR*=NKUr>5 U"<+0qUM=.Ep(tl971>b$G;O=6$uAY[QL#m4O^*^U+51M;cEojF'Y0eA6SSyr%LO$ U"zRb>\hUmae0Lki-'.2);KSl3L1.>%%OjXH-M:->K9fqtYWa_/rZNI##ShG7%6u0 U"ecl:\iap\2sN;z1NR2%6A]p,JZ'Yv(X_>wN=3nQ]EK7Un\n%B-1 U"[03ml3'kAyM,qn]rH:9s)a-#t9_xz]esZ:i<5STG)9P;1[ZQOdctVOnQQBNhlh4U5T?WeyK[q\L]'7eshLFPA8_64$5(r& U"BI/CrC/qlY\>sOqJQx_IH?TW)xt$zd>c1N>gXg)<32C%)Zt2T&t?ZC4wi^K7>+H U"LYi8tmY#ZCWhbLfaG(I*T/hkcqky&#(IMjXH[\H/?uSYUk5AuQ[uK4&,Scp='B4 U"d)>Nl\d-u'aUa8FzKw%oM66HM*a-+JZso5Gt;30Z$8 U"$6Z<(Wlfq$k)D%U&;bs1cw12jaU4)d$pTc:bYi+Y]7N#jq(gA,Cl7O68G]*l*)D U".uZX#azj^PXw[zXC?-8qiT;is&qU7mt_rG-5E:h%tW+tu9/^j$*7h5t<]/2BMSM U"g;*)syMeb'FnOK:8hU]TbxN7hpCjx,g;dz9DV'h70TPzD'G^qqc5KKeNvuZY8La U"CKHU;=+Bu:WqkRXnG^DMD0-AQ&$,-%,mGn>98e'e4H$6c;(?9+NX-5hgKeou(W- U"MHJ1s4Wi28g3'f#-o3fiJvc7?I*Rcch1PB4 U"RxtyuObG,+=$pB\RJ#NUMiIKISQocLg2I?hI%.LPmq=Hqry]Ahm8duR*g^? U"^ik=DDEcr^pm>&DQ0.A8Ilj,urfK>d$EVZIvT*Gnz:oDE#bOwsbr\qrLGK6)O6N U"beGI:F26SmY[_JxM*^a#Tt01K>q_e.%PqJpwaA_d&#f6+\$O6J/'+*KgL$s*?2OF U"0St+B$+CRK,f]no3;5y.(Pw%q5X4yG.>[;yo;qCIUn?S8VhtC70MC]cDpNFB8Z> U".%;WC'y+9#cj'5NSkJmKYAKqv5x'=eVkTizR#=v9;xMrsTn5WI/=)R-' U"#JGG,WHUEkR)'\=G*6d^G]Mx:R\yLPj)sdX=.t0i26s>^me39%D150iX6_=L]B8c[+U#b;0idW1 U"mHAL51pF8RajwA3GBa_K0Zii#F3B:9V U"Tk]-02+D\4YK&%G<:MeZ2P5D%_>%Njsy'9R)[I6&/71wqD8.'='NNdqC00u-*mB/Xa]?g2\Z??F9T/Pe.O(Eeo19TmQLAOZ%ugA:/ U"97k<-n/J5PD,/vUQ69\P,'Aze%lm5Po;uKu3(j1aZ,_n/oJgZlJZLT<.0'CAnZ] U"a%mC>14H:Qj69nuyV5.M/Ny3C#'r0/x[Np'R%u\(x[3t=q,K?G%+*I=/)37z&<[ U"I5?ds/DS)yY&[4Bn-sOnr8ID9G.1EtupGK,xqZpgYLEhA]GkhHloA*5P+T_/uq+-&]l\%38>YG6:GeANo)5%&+f% U"gRIrC+)gxL0lXfd0O\p$&Mcp'ca,U3c&_6ViOTtsWpF[3tPT060Xr/gcm6rs&tc U"E0PSBEuJ3oVAhkGhKSgr

%%LB00TJHj9H#'Vg][Y?mx/Sar:N?WQENCmVE+D6G1<], U"FY;dAd^i5:Q$Px[18jg1?r-9P:N2Z4JK\S;l:aLHaqr#RaK0bWfC++0G;FHA+2Q U"4E]9U2Yd'?yON7u$]oZto#X+DrEtfq4dW]f-:w]gwx?&sw U"JPp)jTLn>bKP)NTgV\ydqJe9I8>EvHF2OW/*Gac?(cn_]$=_k]EJ[T9/BRu;>Z1 U")c:*dfT&;Sw&87;L%gYL^)1sX(kfkHa0YyJ8usrm1OAkFfjpu;sb[FJEff]P4Hs U"KWaeh1*QPAKC_\om/fK;&3^PoY-3rLwJav#7,yd%B,.u]vpgv20=/R?2bNG./lw U"XNuQtr^6R:p\I>]pkJcnaYl*k3C]jXw%F_ZkM$_aKeU?C?V\g99.;ChmxTm6k<0 U"),;Af\SS?jZ'/?ZidFFSi&Mn.ss# U"3[23SE't%:w+hEe=7S%RAe(0F6Q4\5[=m4Fb:NO:]x64%gHM>;Xd1y^SZASwO%j U"[3#L%>VCUgKP\ms&+mK2gV*:O#ZsdbESpTMwRdu;uRmkdnBB2mk6D4.je_pKnkk U"u/\-x/S,X+4sFo/poWWsJa&hi7pAT/ft9b3q+sRF#U,'*hKJ6v_Aj_cjs*ew?(. U",a79Dk(EHs6(.>xUN0S.aB=q5(FX\/XR^hGvyQ$EYBTC2,vUTfq8&KxqF>H,=j)o]fO4S?PNAKNKy[ U"i[N16&:\[Iw2er7Grm*#Jv((/Qmd#K_q)tYs76b<-3PGOB]v>o5WoD17;SXA^[q U"KpTeAAuM[t%(8SL;e;a)Cd%ikIYh,gAYX(Uaa(?7tjPHnjm_)&q%gCoPi3Trj3C U"A(T/szO=7O]=k*JZ;I.$]HQbJ9.=K>O#1M3XfSVSk.q7mS-mYz]cx,ktrg7>K?XMd-(RN3KZkWh-KGOV4NO1_0-X7Jl0h[%d7[zJ]C]L)=p?g8M&>EwoKp\/(rus[Nor>ujBHwN2OMv&CF1= U"O1*AVb>RpH'K*Go_&n:'2_QqGD6/(q%*)0]Id5P)lf4YnZcU+yug1+?_3GNr:?$ U"^f1;&xD'WC5=-=7&p5x5:hhnBwfTQ;5lRM$(.z.UWNV5s=XDmRWu=^NAW&WZ/5, U"xuhRafd7aRmdWTpNk&Lmirguu*dJFVIkb>n#EB2L-F7sbqW55ZnTt7Q>*tTLgqT U"HjH%(YFPop?DgP->F)/QUo,D&&PfOe\%vnr%aG>%mts.?OTw-mq?G;g92kRbI.w U".hq-cOjanlYddE5pp\Q0EEy&YXeWVhs,:&>udWacaQcyYgU*PJ2[p,b=;;C[M); U"-6o&9LVF^PIv5&$\_i?z%2rC5gM/*]B*BD6Z=t9H2d'hjvE[d_WLpRB3OO;3EiJ U"=^u:5jb)+CgdYpJ9qw;(K3#-lNKScLVpYhiIhPI>zl/fk9I9#N]y5A2v5A:4H2) U"q$'5KP1Yb:=QB.1ASDX2e;h+TmK'P;VR]6Tq2j3#:I?06D3DXw(gSQhY7h:K9&. U"d;HjOFzIa.PP:Q/+WCCX;AydxV]N_xh,d[YWkd_cmah_quyYdMI9&2P2J_;Yn:0beazQxUcM=.p-,3e-\#8A8Y46o,DD+81T=SZs^B-E7&T%:N.p'\(ezONjKMqOE2+aOB46)9,e%Xu9.q U"I?#.O9;^^,L7]=\+t-o/z7Ll6MtNQwo,njOVr.dJdX7I_c-/$tPdXIUDQ%IaVp. U":=3:_ts03RaYifnaFD.ugN^K)Dh)nv,zqs49%Nwf2ocvE#&AN^s0]?a3pd.S,S& U"xNAhFV*Y5=V U"n2e2Fgjcg9(#R6v]j0 U"Tt=UvhJ=j2&03rP%Gj^E-R?jYkjVlxP8g)Nd?^aqWpdoNPgnTOg:?5?j[??%23' U"Bf-R)-uEAM]ldAaUBR?4kRN#NN,uN(cP3Qm4\MXcS#G&pqF4znrC]8CSgNh.GqQ U">re-?,i\\%&4tSFXupg9?&h6V-w]tdbZqT\y/Vi\^bbrOqCHJODR'aOtOX>)M U"Jj+%fe[IJ7*cMGRLU(m=5z%%w=?)iwUL'n$?ir4ML/a.fjK9XhA[0mXH?C]E(9h U"0F+0B&qO,7CJ+9Oa#K&$1Y[?mvQ)c%][G&ZXebA8;C?D7*M,AGIA3I;)Uk8](gs U")/pgGluSG)s70g1b(w)h1bwv&rU*810;^_59PZx\ZNRKXg>wEW?dGzRHF)[3:d% U"D^NXpcsL:7Pi&]8&]]gG[[QhP_B$Q6SMT7cJYwTmU;>jqoOTJd]h%$AE*/%a:8T U"A&YT]YZBfCCUnN%A+(=wjrhqGOR^]vl\M+G.tx:r(_P>[5stMU9*5.$Y*j5GCu^ U"[&S^sVbZ?tZqSFBN=6[bGaP,-=)5ZjG]T&^K'iklPur^/0u+nCp&+wO5jKFLy.s U"7PM/kas?Zn#P_jCf8nHKtkq\PB\gd4Jcs<7SFYY*:_PtCTFC+ U"jhKc6[;R U"RF%W+Slp5$OO6iS*2At1+Gv&ZT=,.'ZeWx\f=M_f+lf(SoKP?GBD. U"S*Qm9xSEOjAMalx^QI[^5?W1VyEX;AzXcY*Y&\5$,7rHAr9Z6,U%m#W_(x\>m+\ U"_ae-w;=3+em'>t[sFlj2-1E?wto29uEeF7L+q94uhYeK(AQ\C;lmnS1cRNp U")%a18d2M46&3Lqjji#h?iM-3p_;r%j4vJr*8Sgd&a/.LIFyauou4Fc1oiXQ>>Dk3gR>zk,](AX2'b5OVPDSx's%7*AVi U"n6F$;(vK=bzZ(Y?g-C.%mWO%m8zig5p0:ra/p>a[.*6F'T)[f1CX+LdO6bg4=1X U"m,'wp^qbg4oB\A6cHnqJ>dJRpOIHl3?0xJgZj#52%Q%u#5af\dFSh/,c69xrmg+ U"jWd,K]OtR%e_aa8QU]j<mDd?_\In[4Zb?3n+=NTXYbjKddqIRiUcB)aq])YRUXbCS0 U"hEPDqLq'l\Qs(Q>0r?z[:F,8mb+6#Ci5(pD',:_MVfpQhQ(BKGxOv-?/zThdkB'1i+[iX>6SnfQ;JH:Wi)PsZiB&2Y;QqvzW'?ml>+b%\,D0 U"nL0%N\Y'L6WrW3>(e&KStppvJ8n[i\_WP[eJen#scEAAxr=F9G0&FQA%3HObRG6,**fGbSS3ae> U"^A&uEbqbp.EY#A8i[]hw2<;l(iT4Lto\jxk-cLjdR7\SdJ0E0M$9UiSNaEpAoh(?a U"NuoqD>?1xzo,6l9:dgm7-:2Ra<'bmh>n;N\1E4WZ/ U"acoofWtJS U"suV\6^f]G#Q/TC'OVe=Xf=\i1E_x(7&o%KW(O?N20.kh?aMYto)B+WrPsM(bI/Emb]uCO3=zEXE'SPWQh:&$ZnTtQObN)MTR;v.ElOZb+Ch/Mn_2_c U"-4:2SgS\12)PZs=L[N$U6&fSK>nR\&z(S]rv>'DOjUO?R^+eO#7jirdZ<3Qr3%O U"='_WC[lP]p(X0jC,MWzEpd/,&K*=%JC%/N;%45^+9D1[L_ZC3Q)6?#%:Rc_VWHP U"ak+f.#t5n+>G;p>PoS)kSh:GY+ems-l*Tg7q[IqQd.*i6[ZftD2ab4g5ADFz?iJbk]5k\[PyVWRfPENl)c9X'4PS U"QERHPu9'A3]a*w9ghIwU1TD3*tIk^05wRZ4Ai)mMEFmYRoDtblDArrT6M9w*kV* U"A>.+MJH2s#Ue/J#w7A4YVf9FhINf::tE:xbo;Mm,J)FC_VEZ1JdNAj^N^'k(v:K U"iJzuj;4'c%.?.>[Qh9Me?1l#Ik86EQ6cq9jlF' U"iW$)qPZsO^BsW*k0[egU/W;\0O\Bkm$q&0:YZ;)/L?:4q3BqhYKX+E#;74I5u)> END SUB SUB V2 U"%M1z:u(#X07(.p__*$bi+;R.CP.nc$atELJE%WkRUNP#sSl<;z2)bd7Sms>iO#Y U"0-N\bI4a9-g9NwXZOoY<5sNlsF;>-s2^&)qKT$I>[ee\kre4mS)A^2H2=A)5CJ>l^u>(txu%p()9% U"%'%-1%B,K[KH^*&0I&%%%8'%%%/%%L%#D82=4BS23B2rdvfa<7E14XT1F.mYUBLC:(m$30JWESB(;>7hB&^^Vc]j#(8]_)J#.4Lus:I U"\kX)'u#*]E]J?Ja^Gc,q,hn(I4/&),QQ2O6u:o]%JXJ[d;H,JJg&]\oLJr'(/#G U",vY/ZFiZY[Ww&cWFu8nl3Q$rX76_#IMbd*a9Ir3ZlwUBLnzSPRx,9.S9npR<3 U"r?6w'Qfci7M7s\C0Pfu9sCg9E,.K1Nu%p()9%%'%-.%S?wdJP, U"-Pd6lj([;G5Mts+hMn3M4,K%k3TR-wH3S)6Dr,DG,X4,q#BaCLOc)5rQ*s3+egN U"9wZf^2P#(SEi=sGEn+QT2QhPy_x)?w_1>S4%eT*u3yiXTp6bE66i^A)X(FsvBz6 U"j]/J,5nu$?#]gJ:^ups[Zg*1)1z$n=SZRu*TknLUr]ghVxAlO\x-yf<4-.92+Sz U":=%JKnNj3EY3[%lu:Z&&v.[_RM2AN1X;bJ%6hf'0)eT^o(DY=XjnXIBY^1ixOsO U"8G-Q&A8e=osEZ595z=R(o$v)$dvF>9;R0>T\EFYic>7g$\I?I[,$&k&u1Kf[Nn& U"Zk2fY&q)QjF>_jIFzc;-Z&hY>N3kSTX=Qk(UpN,dXu1R9IUvR(s0\gP9G*jH_aJ U"U&WS9DPD)rf/j#_jn1OE\c^e-Nxs#tYnc79ML3p^4su_mB0tM8ntu&X#s96^Ba* U"O>DEG>x6k^l'pY%Dup(%)9%'[%-%<\OKK_K=ew,#'%%q%(%%.#%%%2M;82:LS#5 U"GB&wb:BUe5,/be[Pev.s+W:_?_19=[#SbG[QpnBY]'C8.7%NGIUX0TeK7Y0TmN1 U"biBMD+D\m^UP^#O\N1^m2U11Xs?>H'+Wz,BwfkrK9X7lRRh0*LNDj0F8tc?6vqS U"rrE+6Mxc)bu$r'co7Z.'taqlB:x(xOVM.[b=]ujdd#%))*7OWLT+%%hdQWO0Ae% U"2$H?mmtTfPN]azth.Hf\$>)d9,TOottNfJqV55piQD\7C$_#YBMiHM'4Tk0ZFdNHfTt_d^2u%o>H+D2v1]Ax U"^VBRMBD=Ob8b,JU(d]Vd,Q9O1pl6DoZ#'b;U:.O5()?31^3)]X6-AcuI.XErj%5 U"dhC%fo+'mpw)e%IYm+BR/JrAWweIeo[^MK-2u%Ho6(rb=7ZgQ9vYP9T3n_b_x/l U"ad'(6[j%4nAM%vL^L/^bB(0]SXeVGUm$'omQ]pAH#bR3E^[-AauL>vVHN%_]?We U"oWsd623tkPRjEJMTrt5wl[l5*R:JVMtAB5]Dnmv7#vDSKbl/\?.Ie8A*o*FsNpO U"mKKgOX2uEMmZ+6I>7&v2tf*V#_\w>Xz2K():ZAi4chk,.0gPMc>'9bV;p:qa8?n U"t&7R'vGv(Ya%6?.vKMic:F6F63Ii7bO)quqA4p$(H,vA_$%/eqMfog(VC&eA490 U"V[N&8W.-e7:Q]G[9m7bE:T=#0eat_x\.&#Rs9i&+w9s-K[:/khZ2=mlK1w]l0#N U"&.up(%)9%'%%-%;#cqEoHiO3F%)%%G%7%%1#%%%HM>D.;2>BCSh#5Gf5fB>HRz5 U"?J/=mO)[A^jUFf9&88]Q\vII=s3^YkX\sJ/L/$\tB(lf=*[jbji^OtY^sqy-6&' U"T36?8Xp7IOw]MMfjT.NctcBeIlG.Nf^]NvcugzUjRgLZa]G0q6s_lh.dTktbkav U"j-ahTB2vtD3T3e.(mBy0Tuf*svTwJaY#Y=1U-[tjT4t=g-ulmGyns+%cor(U\brnK27PT$X36SFm;'5o2zM&9Oi%MD U"9%3MCYrJ_Vfq&iU76[RI4Y%a-Af>B[3)dxQH^1oT(_'AWArku,j2DXa&cdw>%r3 U"&Ev,H-)%mKX0a+l7aPC&wXuj)yYW.7>t<6Ji)b+(m4U.jG+77J'E]o7&=-kE+k' U"Z/&+.=bt#M]fCRKM.]QDXnO19.2U>Gg_oQ)U/dOqo(M^:%--Y)?ARNQA%pH65Tj U"UGA58:OV;81:?1P2XZb*$Iy;db7_*^v U"U+o?2g]R[2%I:Xn+G:(]]Qi1,.g=1fk.)0I^;\''Nmx&5BMOiamg7)'JQIOydaF U"_m4.Cdw#yfK\/3'(a[&?.<(QWWGA2-*Y2[;XW2Y?T/oEK:k\1twMEMqtw]3k8Y/ U"+vj-LBraw.9P\W^5htL#n[G27Sf>q/SIP5L,9\\467_R&Q*O1'4JH/fEipkGiTq*]-69\]]5Si#SrL&6Obd(^.oj1]U+::kcp&IMsNX*<9Iq<6ItR133ZK&>R7 U":,Y#=ziY[uG[^eoWsU[K.dT(-^c4=.:lIR U"j>kpDr<%<+:#T>1pQg3FHuT+LxNjKks;CQpqkVx$d'A6Gt+$igar15J1GK3;l$) U"W%IcMiX,\%XK?CZ5gg#+w*uO5d&R/t]:35/iy-(+S(MN1+Yr7SXeQv[1W$b/9Sk2kDN#A6oxr]HEv.4Mft9MxZZ^Dn?7vwlWqUP.<6Hv^?5o#vsc6p U"sQ46R'9+%(C4kWM+0(C5p5ha-ISjt=k&N%up%()9%%'%-%'SogE6K1.X&1;%%'i U"Q%%%0%%%MH>D.2F>=Sh#5Gf2)(^IfRz=8%F&7d,0=XETY&B^.QC:ILUatW76?e#6>>$Nt%(dtd.htfWz,NuNTE5]lX]$Lk5E%_F^>EC#AqFqm] U"tVWlL$k##8\=?UqZ%+t=U?iD+1Lzo(]Ptjf2UMYZG8]S9 U"T]HwY#p0?;k+'H;=J-9HiB[iv/a0%E:+.Fp72k?aQ]j9HCc+Au5-%AaYqxYAIVq U"qC+)P&Yz_s(nL)3e7z&,:MsNJDh4FIVuT_Qo>3QE)Y0\yaJb\eFv5_5hO#1Muq9.2[%NsK*%aDziK)rRk90)F2I%\hKH U"&_U.'#]Es#lfW/1=)#[g?8LEO%f.fsLV,?;'n;;luD\ U"jkh7#pPAyJFOdQJw/p9,0]t-XSRuTXXTQVW'(cc0%MNqQoftq%6)Z5/NW+B1CoPdO?DtJ U"xiaNa/6<8xxnyk)-r_u;CowuJBBJ6wOGu.4r]Zl;s/5N.NKIqEA-4?7Q'9mJonK U"uWkO:uBr>ruB:O1,nr?JU:bG7tBx][ZkkuG;>L*>/(A6jH&>27?477aF$UCFezJ U"XOtRs;SuWB^FWljDbQ6.TISov+j3n&FtpSnXWEW+A9jsKBihk+WN7G#J> U"L30[3A+XVkqO7tuqkowuZwok27:x>n9*N(CT=C,]Wca7c58^TP*b%;IsQtRinRZ U"Tkf(-6c54aSOAO+Xo.OVNZvlTfZ(X5MqGM/49USd*^R;RhbmVc7tHpoNZvNZIW8 U"9,a;&.SctLwqo9DTXc3Wm=TKNbXDrKTF\hjf>86ssz\Ep&,z\lmTaq#FnYZcZF& U"q.Nvou^Fj?g%k48a^Sb8tJn^PP.8JDnJ+G'lAFk8ZsknZkZ6#4]%vk%mQbxkEn0 U"z+u1wkF>#?nTHX6^8rIll0Y>HSTl_bj0L<,uMuu_VNAOt4.-64CoYdv#Fm\H.5u U"tkVf?Qi0CuWV&SVt\tFaTOpouSV4taRH=X<7JQ.uNJFT;fJ*aW5ItG7u:s-B U"5t;punbz\+Np_LvsT-jN^b.6cdu+RZ\WdZ7_Qe8KBL^crl8V\Ppk))Dxr_5Ri=[ U"gWaP.*Z:i0>=PsoOq_lnVu(k^'.8fQ3dZZ^dtle'A+5bIQpqQgRzVMR[8nFa7a9 U"%9?lTn.C0auS:<\h8VzgfVdmnqTG$>Q\>Q+lW3J5Y+Mu\QT#z$h()JwkG61TZ\d U"#j$.a^3qIK7Z):Z\hHY?wk=I$;Iv.4TE8r'LuiJ1drj=lpp,ongfYH>vvZj U"np-UpDF1CZGV<8Ut[/=+DG+oW)#l?scMU.NdVZ$/(A.bD+]B:kCr?.b)Kpw'2JAFcsyCTH5>/oe<$F#Bs[V868)RSP U">f0tZN3DCJ*7w*#TP\T$7Y]6bubjBGQFNi:/[SmDFeV3mD.[1F6fc5,poIuuAsT U"j*F=HC/4>[s3a5_N8:9hRrrcUl*5qBfLOt/-3*T60YMMM*>%.FC]7s25&$ U"XEWlFu/O?<8=([vJ'?5a]1[*p/?c'B2ps6fu)+b>U]b%=t;feglgg;&](Q2S>(] U";A'=+p$HQ+a7&%oORSgfS(t+RQWNRP[UWfy(Bb[_KF':WqZfI+TF[gpQA7syhfs U";TTT1ue-b7OO=>7k5_P5g%OUM#DG78#PFc=o]GlpFCUQV'T+5epRP,;.#;-b2O]zP'DU:L07NqX8+JI6N_LkPfZwuJQ2O('s?(%Y2;. U"ZoY)gUQ*#OVaRDQYd\1-*5Tw?VT1JGs==2#EvtfyJXv>8mFXq)-4-uX-DaaA.,fpmeCfIfL%T?)NhyjYW>oW4XGIV\M09pU=6PIrRy'C(2zEWL_%]&T%V>&A*VI):1>uG[l&F7>0Ae U"a1AE,LG_TqM)8FyCu-9R3Kpg5g[X'O_8dVkgs90]U2nLbeE$^5h-qP%JT:hWX0,^(1eO.1VA5/RgFuF1AOi[5Y$.1G4vM%KlR9+PN_uJ U",E:2<]\Gy%1G,W34_ZfHnTM%chMVk8E0#:-i[i19O%)ccAY^8ZVb-#U6_9b35xY U"1+Q(Y#Pnl6/Mre%/g2/aNYR%T=1-/23CIz,+<*$N(]%5-Q&=\#Zq')1/=S\cfj& U")[DD]%#]&+7;JZ3=:9dkZZwpl/BK.I;&XC;On)VnOLGLU'%iG4KG]4)mkaJ'.Ql U"(,6pBCCf_bXq_:/m7Q(]Ph]/zrNg><7v1BI9%yB'n9ObHhQl5KY;:JKI7QeLRC) U"B%gHc3,(9%u/n*OL>>\\#Nc/.?)()BR*HO3O(82Z)22&-]KXue5B_)P*P=8$_8B U"$Mf4pAeA,gdAUNJic(%B>]7bJ7q's=.lG.(]zaSTUKG3)kLl8)R7aPMFEXB3,hvgMk#hW)4<[U_dK*qZMRFl#R<yQpo^9Q<-%'\^7VvVZP U"xS.KUP+'Z8.cYGe;)Y:M&KUM0O\Xr18SU79\[7fSZ/v.-28a%e5d,Im3%UK>;4( U"1bGI(V4PlE48&A1fj92xVRzMRP?aP).STBAg*U;y%*N0IoL=->-;#Dc,&k+x;QP U"Dz;Vx%J32f1e0/-V93a9Lz&gWC&(w3$.A+b0im56dWtcus9=_A#gg+Rf&l(c52] U"gJ*][hB&su%I&z]5^0Y5HZO#TF9R(WvUa/tIZvpQz[nt&FiSbY,)=A U"QYJ1L>YdX/g0Gs,UPzS,%BuQ[qv1BEiYF11eU1eC+f$__$:&>,O%oS,b%a:;bLP U"VLy$r7\g5q#42C#w+r,Qp_zdMmOp/pWn;&grMi(kP_8i%a,diJ:-7NHT)xQ-fC] U"y%aC\'WH_RtqWn/r:1OA1]xBBa2F7oj0p)B/JS.hauO5#qeu4Zeadg*$d=>R:;b U"/.Zk4%eT4;,=dI8]8A8)7oIl\89IQn/i^gyLUmqtZB,P<#853/4Jj771+j6WX4_ U"j/K)IbHsUG\B/RJhe2i#a5*#8a=^Q5gKh[Zk]7J.EU+O7(z(1w?y\cy8$(tKno# U"K_yw#qK]K1HVb2g6=Z$8B.G/Q[Ih?GZ9BP1)\uIIx__e+ U"9;27*9\7o/xAP)&?lE&BU6mW7s=rM76k2)U=m0Q%-JqU']:[=\8O&U1Mppv5O4+ U"+a.YS4U?T?R*iZFMfJ7AH#I)$WC'bh=,_YQd^/;F$:;(]=9m+WejqiUB+A:/EApW)xMuKedRb[[&Shik4XO3&UF300:FCq U"(>?A9mEHheHU_Y(fW#%2-g&FBX%e+^RT U"cOOY?ZaqE1+3Pp*AKA#ITEDNQ8.P3f'3$teM%V U"h92j#WCy(Ej1$qq>/exAbC)L)'>/Fw8FVn'mkj*b0+$:8o9JPF<'SDzClBNa;cD U"QX>5In?U&<#i9fL-B6hn[O/6hFeA$u5f6,58$R8hli6ItGPU:(=T'+.Beh76X U"Z;j-0]UR;V9eNhoQp)H/Xe%gJ7Q*)p)VJS#\;'QKmE:N=9?d;oW3.jIA(f:aGEOn)#+.>#RE U"XWb/8)&1'9.>y[iZ-'X#SUM$/Pn;JXi06RQ(:p$,]:K=&#G?tab3;6JI(h?+R_] U"oYO[%e[]_bkO$j$<-sbO5abi)V3i'/;6QD)1g'$d=IhhPA1um/82_K,&&8/i U"Y.d5jmSM?]B:na_a^-g-N/RJOIc<3R(.'6dK1n/Q=^.Im,$%xnaqGWl>IDjB;62<3w>F7%]:Drv>WK]554lG,i/<*bcs#$/tlYT2/(FlZx< U"L'8j%=BT)vtg-^?rg[]Kl+'LKV^U:-rn&V;mi\gx:Px$ U"X0md[qU\c#3MKkt;AnbdhCkiU_#9=qLf%UpHlg^_oL8PrL8U[ U"?0WiL/56_#K0#>Qt=taR.dX$hhgqNql7,]n.[AtcqQucj#Bs(W9T'XvX]GXAEgL U"?iwmYs8#0$s5rmtsauYb+B&Y4mLRosr:pHQx6s=c=7.Yk#w&+EnVm>LSj(,_s9m U"EF2DP3MJWO&K)sd'ePuDdJoLY.un4lx_FZrXNoV?hw>Dlxbn

WC) U"7v7UkH))0YUr8gFE7Fo;'pCs'J;a5/-T8SB;S20n?e%]IA6A].LSax;>Z_k?f1^ U"I+6'I.\S*T;BZm0ieGI.a6m.gTS&;j#ZliFfqIK+67.dDSE#obZIha#H15UL.rS U"#9;IZ<%up&'%9%9%%'%-%)jMqEhp1zQ&>(%%'3+%%%/%%%%%%%%%%%E%*/P%%I% U"%A4ME40;LS#5G%up&'%9%9%%'%-%)d#\E;i/wX'j%%%%]1%%%/%%%%%%%%%%%E% U"3/Pf(I%%;4MCC4ALS#5G%up&'%9%9%%'%-%(9NKK'ebL*'\H%%*bd%%%/%%%%%% U"%%%&%E%DM.;>BJCS#5&Gup&%'9 U"%9%%'%-+%SogXEK1.(X1;%+%iQ%%%0%%%%%%%%%%%Ej%/P_#W%%HM>D.FD>=S#) U"5Gup%&'9%%9%'%#-%QQ#KKxL:gfP%7%%e)%%%/%%%%%%%%%%%RE%/P&#n%%%vzn U"s%jxSm%xhup%*+%%%%%.%7.%s&.%%?o%%%%% END SUB V2 CLOSE:IF S=32AND 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