'=========================================================================== ' Subject: QBASIC SNAKES (LIKE NIBBLES) Date: 12-06-99 (21:30) ' Author: Dominik Kaspar Code: QB, QBasic, PDS ' Origin: pedok@pop.agri.ch Packet: GAMES.ABC '=========================================================================== ' QBasic Snakes game v1.0 (like Nibbles) DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QBSNAKE.ZIP",4^6:Z&=14505:?STRING$(50,177); U"%up()%9%%%#-%S?#wJ(lN#]BfGubOC$Kb^EFZDe)zlx3k%x1F14v U"TMQ,i+E/Wb;6DcBWBf2vhPjwl;)$F%cN3wt/8r]'EiM]?VLuLgD U"=>Dp,>Y>[u8.gD.RXW-hD9BB/,qanLoSXkd.*;V)%$*ok'kxIq&mGCf U";%g4sGaY_quT+LN1QUm^'6c#0C4PsNg1_9Yld6*=1>jkq>t#wpI-.-Y6p= U"n7kCb8iv#d73WY[f&&m#.%,T8u(X^7y(EY<>0XCDckF7Gh$/L(+n#6//E/o;P U"0K(D-ZGw2c$vxI5+Z/sO)GMas->5ifKOG_2S-$-aU1,-H.M9/4_x*_Ta?[7dLdK U"%eNB;df?l&-Htr:mXgCE'a=[Y&UgN>SQG0.s$ZIh=VA:=)tfofWF8]c+[cb5<3S U"7f^BRPMVD7Ad.1CAxg3+tA.rFW>lJ-7[2O07e?mJ,^'LmatY1>TK U";ipS(?-&rjQ2^X0?c]hDMthy)eL8<4Ob)M[?H0WN/#RMI5A^#p639O1(4&YagPy U"3ewV=<3A'.=tV\s%udZ(T1WEnzWO\7t,uG.tkhoaM;U%R2Dr+J\eTM9HBUcplCF>H-JK?.A,1eU U"L2*aY,d%N*hwlNEY5rnR,etHEr(t7GBgnCaEMsette)i#)v[q^7&I*KEo)*]LMn U"4,bf1M*BHdT6I(vt?qT:Q]q/I;AAkU*s.up%()9%%%%-%,:0JK<_d>:&K+%%,/A U"%%%0%%%Lv1B=20:4Sh;4EfklDaT%[5j>5:eGOAdz[xlCSJ[shkx8H\K(3a(eL37 U"Nv]W-BvKL+eWS4k3N\aN8+s^Oe U"71F/3xaI0BF_De743Nt\ul$PPlHwrf_iHJcmd6ANxWN7pG?fHcP0 U"s=-0;qLxt$8ud76C8Tiu$-]qYK]qKQ]qKkM?Ky.[jBy?]mc:2M.?AK1cAKcDAKc U"]4d7/cP>x.WlU*$KK6x7Bijc(PAz[<^Z/PP\Zg1dFluv&ZhIUDSe+ac6sTP_[W: U"IicT>X3%6HTfHYJf2FuFjhb\2d8(h7JLVWa]4Ml#WN#i7N^vlu[,)zLl= U"H+Pcus4fHA-32'VHr1^'^n.x.^Q#NfF^>xLhybem8PONnFpsed$csJWCl%Z7/B1 U"Tfb=6JSiPo&]3w*yy7LRb(Lzybel0oPto.Ahhd,hkJ,v95zk0bI3sqXGq?VbMME U"jAcL^k.ItcrYaiJ2^#5e.1JtHYQlYZHglaoP\((bTN,#S]DDXjXt1Qo<,#TWO0^ U"K&$l$ U"is?-l^=J(d]+*8+dQqrxHnK<7K^u/n,r$)BTHG*8_&tMGsnZ,t)BRT67M=;vEaf U"8HKve'HXiajH\SEP^ZaImDk>=)J7PE2Mc]<1Mxq?X3hsI4C3_?(ric_wS36$(_d U",ttnNPjZ4p1JJrY9ijD>hE05V(LT%,IX[*6$6OKkH)#Z3a U"KB\2.i?D<*>3yfpS2p]:FET5'cIXNX7nVtEX&>3a5L)u*;sSgyiKu-vOBVf%XQ( U"M/MS^P)pET\IDVXlRcz(E-^'nlhsYGGf7Cw.42WcH1a9e3r9e(Hl:FOM287dK>w U"1LSKoB1M$J&\+TS\#^Ky1WP2VlWi.tLAiv%LnU9:NmF:e:;+,Q+Bto?0?r;LM3m U"RpCrJ9%*v'2BDB\(_vs<)0:-;-Z_0e(HQtqg$nup\LejFX+3])ML=oGZ+&LJD?& U"WI4NSF4yX;b2dJ.76\7u5$qW)^.Pb]sI/$VmG1rIU_17g]( U"l^7<#*0eil%^sTsx(^X=X_GVJIhB,(iKi-rSK_\.#ZqT)K%^jP\zXcV#?\qLjd> U"*tS>H%c.zY_9K:O\&%Tks&SOp>a.'b6>*/Fu$7:fb\oQWJr7lwhWm?]hKann^lpi04V7S6Kk U"#5V(sQH&sje6fOIg5.Yrs/-(tm'_w(2(.uXygxc)'R4tbghFm]r/1OtdTq9+/no U"uSC4;]'Vc]k9?,Kb5oaE-[TZ^XWs5kdWgIMR3O&v3^I/Z_e4uo2HH0+:L%hdR6p U"idEZok>$dcD6m:BjXu%p()9%%%%-d%$o5+Ktka*b;5%+%pd%%%1%%#%qj%&.jin U"%ySgfax>$x\A?^KQx4YFZIG39%FF[(Q/:Kj*U0=7[O=-YjIM=c\93Kj7yU\#ciS U"aSivGO4ky4F3EgeYaJ5Y/Jl(cjCJ^>x*q9D03Y*V[vc;:tE?wuddu2HXlu*w?so U"Wl(H05s>_XA,g?TUq3E,0^c$f*c+q#GY08sr;d3_-4KX?J;;AD:_K:Kg>mcjjp>?n&86?%'Wm&KpZ U";5MvcQQ'(#c+j\:\0Nb;=7?a,98*DQ6+x*UhYrjTgru:-Hm$&fXmjZVsWT;XNHr U"7,85Xq\7*QMI[bkLoHhf8JhZ?2hR>,wA62v?<85nck,zFM35&IrMjN,8i])^Q,k U"E-[g'[W#lWATm9V7$V?R>1uj.EXAd]k<]3edfQGZOP(0SK(vTkRb;](V7C,?lbo U"[dMA_YtOtj_=X5-KK%\gIt>6*W=XDffN*5I/-qB+;9t24KiL#>ike6/.)9tw]Bi U"+BU#YERlfWJj5C(I$QUGSP8IXe7$3?OdqYNtS^&Z:[B4W0)T7Xx6JtRKmm U"H:+m/2\YOd)xg-?_GJ>We-iM5JGaYc7DotSF+/B5#.=i40wW\[1N)V(6oWj:0V7 U"J$=iZ70Ge0n:Xz//rWT9c*q=OJQ/iLS/>m*8mzfTXZG)TD<)x0 U"EasGo(,YNx93PHty1kgZSm,w4$^1)6=*rtZC74dZggL.OsZDa0OZFh[D.9$4+kq U"(3j0G->W>9.6TV:w4a\YQk^6,i]eSk.2bVB,'0KQ>Ot>gE\EKQVI\\B(6IRwE U"l1OUpswEr'LSmZe%Ob1:+:XbPQK71S&cV1o^3EwYjjTdEWVr#tNFc[fK)(s7BiH U"\WH(6QKg47v$o1h U"CbtjwX0V/yym*:7C\DiN5T7IPTr?Bqd0Y97v&8:ll[l_,9hL<06';).HaqF4+$2 U"$Y\>reP(,G#7%A#(m.U7?YLbm+,uYq0fb[]g[$S$QZ^dW)6=Sf?P9JlT1,tU9d= U"GkdM)a,e_3D6oG9JH?b;W170linDC0,+)d,Ke;8-FYpE$Nak.U;w0^n4dp/J[Z U"n6oc%F+E#HK#K6%-)]xO=VcxQj]7%[+KlF;[vP:#0?_;csG#]I'Wu:+HRXh_*B6 U"6?w=TZIOu_%iuLS)-$K'4Rk_6=sc.44dVoSrFCQp%VR'$P$61L2B9X3+m$,a&-9 U"Q'kD/2_;u\JCn4+,FuTE/;]>YFgkQ6/g/:*X9ulF2#)Uuse3]bUH,/& U"Hgr-rb^*Ap2-_5tX5r=gj#^Oi'-$a/51a=2\\JkeBHS%ltI>Q?,v.GPCfd5F/Zc U"w>&\S/SpCU7$71$''*Aej(W)\dpAjOJ=*>ECM)*D]/T(&';?JeIl&I;*tWy_^o7 U"slGGPCSI:)#&[<55Pk*2%$Mxf[6HYn8.Faan;[2:lB4d)H#E2dqqfHXdBpz5]-9 U"&pTK>n/nR+F2l^Yt^fN_#)a:-,0Uw[?Q U".>1EVwAf:&>C+A7I1tIgr+]QG)bM=qGZ=&Ix6Qe]lVG2-$GM-$.lNWg8r-+\.$T U"7%3D>8hSs06&9Mr*R9MES.#:$$S[rixIb\l:b3U\S(>?d;P_jJQ;2(;X2Y.]_rF U"IU2'15act/cr#=;nj?JYS&yo_KqNlEIZS943SEfeJT7EMs6]ixN]#=sM;fV>c'x U"t)>bq4y[1o\;.^8b%CFFt0XXn1eDa7-WgDHf=52yjx]AY+V:cXdsnLf7j:V=e-y U"L$chUgix7d_V+y\lWTFs[Ee*14Y$&cK2[vKMJXlUZJAa5&qVgsH^6tG7Z-(HIn U"F8VFkqPDmN-JN]dht+1tCSis992&;Et?Kh><(QN*9=JLY\)AQ[U8wYLiq;/T#Ft U",^Ebi>Ud:C8&4yMnUTAle&3^ZLB'3nv.atoBJaQvrstPZu\iDA:$wofS1kF;>cc U"b)D$:78*g%78_4&jR5fqNNB(,.\B5'T3_Rcq5C.n$=hGjmicJoD\Vhfr8LX=P&Y U"TR.qt-AnB;ptO*;TFC;g*GnAcUWHo/OP#tbYaq_V,sE>.bJ2jL74m&n,*Sb'fY; U"V3.s?ci$Mc76hPsTv9E?RR(GeO;JPHy=(rrNq3MGpKJ:[MDP*v3t(Sm4ydh_QBLDz)>P9B#BQ#$28u*-R(+lI*YBS8:Fdv)d U"I)'Go-etWguJW^PlK(D2)s^cY66&g?D22J)MfD3kUnsw>AXi&Pt%AmP83 U":QZ?JM-hjH:5dIt1C2z-j9El';_9W^)X%-&Sw U"]\Hicu^oBKArC%z1eCWOtbIg4CXBjdx>aKKlJ84B&1%O[%C,Yua+^rm+3e;z;1+ U"Ms:r:qca\hMv:V%=mB2+V3Y')u.MMpew0rA-HXn?SH_.fWEH:CH$tuIQkIXX&)n U"AR__-40<12TM#8=jdGcVl1Nnl5aHmYN$jog1NYr>9hn(YX%bub/[V3w%2_(A8M[ U"_V#K7:r6TGN[fa.e\z>oa+p?6RsMVGcBGzDeNp+06 U"8e[(N*Ati(ZP%E6z]YcztUo\-z^1e'V7vPQR.upe[Lt-Em24/[HRP%Drp'5SC)G U"ArvenlI7G;T$3VzS>zVGqK:)feNO5-Gr?IR;zQ0NK[(\#aPG/],tde'*d&=+^1u U"mdR052dRM/%d/M]0qQvWfl1=U<1Nvk7(ps8 U"<+i4akURO7KQj8kQkTld]<3&v;S,[Gqxf U"9[g>?\MlYAADlY>w<0j=B78tlLbH7Z3Ll7WVu$8GY=Dr^W2()U>eM2UT-R)_F)T U"DuGJGGPI(HAEWDGx&W8.2RFtWhjH,ao>r'.:bGg84^j?J,*BSF*)83gtB.*#XcL U",9Xcml&K:jF:U'*hns1fag?cB5IpW%'q U"I*$RG3*m3ON0q[4BT&^dgrmkRUl,'xS/>c-BZvtvW#o0]3mesQV<3_eV>nETfu^ U";%jUdw[XVC+5WW&E=WJ1va##T.8)dPL;TD/tymjsP#h[xVoJ(9W%pdZSY29Q.*\rWIa6:Nrxf#*w3_)y-e)%4'y5zee>o$?.\hUd95bd$K U"?*p;#3jlSU(cbc3UFgMxMCQovi+Y9[:Km&925R?2n6:S;g$tnarAt_ U"lFMw(<^Pi.#*1:nkxSa.Lq#aDMwe1T-0S)V08GXoERp_xSHrKQ#o*0HInWBRiDI U"PdR/8+&i0J/rKVRMl=U3Xhd*J5>k,#MibD,,3OkI2SpCVX'7:]VAZbm?/WSIQ$Et51r3GTehs=u$'pT[M'S5qUy%/dfCUv'O9T.<'R/+lec^kMC\ U"P]pplzYA>UGhf;aMDO4'_NAuSQ5)2u,I]r7/#OZ+70GEnyk3-R?B#]QbgauEvYi=E_::eKUsyWLfoT=A U"gD;,?5=g?u#O]Wqc*D?268ajCZ>ML$>W) U"nl.B;C$bmJCJXOu.W'%0uqG8/TWdJOY0(PVup=ygTU5DXslhxxq\ZdC9X\EVkhn U"5Z,/YcJfk'$U7QGVt0B>Xj$8tW%r\=R4dbbl?*io2cM1%^w;$Tw7>Q[M/5K+\T6 U"7Jt$2\&NZ#TWG+\+UFb=$Vx7+:sRSLrS49$A.*YQ$'9JNJWVfJDm9ymim$h0H;G U"pV1OPc%q$(DqUdl4TqRC[F&eI^\e2_*k:LqTKmV2Fg>LaTihI/3[\_Rf)Q:Lr0.rf7SDrO>1bk(my:v]F;eRlF_W,,Bg4FtEwsZ U"jGU_F$^F/?*b*8arl%K(O\[bBsL(A,.I5:Y4UeG55&m?3qTn7%c''x4S=zWvX:x7jOKNk\bi2R0r<1^Tg U"P0wq#C'x3DZM7J>4u;QQ,&m7DyA2d0+g%#G4tRDK:1CGH4K3M0S?12=xu19:sjk U"k=S&hcEg:eK(rJJ:mo-?Fx%*up(%)9%%%%-%Q#fKKYnP'YS#9%%=%x U"%%0%%%%vM1B=0D:4S1;0B>a*fA?nbaxB:a$MU3FUQmuX#m>\'6LFI76k9%'/l$X U".d=7per'rxbXPW8>czmYN,Ylqqg*H U",]Smr#.RtQj[Mkt=cd8?ktstZ9[x4')cLNJjIFFWJK2/U485[fQW0poJYrst>pB U"vHWqK\TpK0SPLO9E%s+R[4:5EFNkQJ\Av<;iBQ)(td]2'l3aFjEqB5'J-k\F0tFFr;o^lIk)/Kge U"+\-\rzY_.4u(Ma>$o(CU2a+%g]E6vRG7X2?l8VAf<(hQ_Du2=VbI3^WT<3F-F],QZcwM6l7MQ,54>S(u& U"1ufa3XJ1U\Re7W)X(lTw<^],,w'TmLhOg_])<&MP(BlM*RQaVxP_V:pgn#0% U"?]+Hfg*J*>9Fw6IcmVns&?J<714J_NJ;J?Aib3=*Ht U"e2]D3Z1IUoDwW&e>o;nM+bTkc%Ao.Oe:_Rw3h2r7iN4j.cBeHS*?PZ^5Orq*-A3 U"^akLjcP5FOW3.GD:wf'DBNy'#<9*NmhWqT/8W.vH.>jT.)p8T3)y3H9R?RMNOS% U"\Bciy4#L'z2kYMsL^MdD\WB&jYT,r(%],?8S)DJy2np[)dG34uBP3Nw=p5vgIRn U"_S)H[NqLNlEke8yM)fAGMiFb.uC]X/8MTL$%8B_dQQg.]y+k-,tsa\^Qoc^,T<6 U"pSJX3IS*4EKJh4XYO?Yo=6#]:S-mDRJ,1jR;%zD3%0T+L?V,Wz-t(R[D9.Ft(A_ U"Qv*ZTYQ)SBbA?.'i21$:g+G&oa7\\c13O)e)I:3AW#gU'?A2?1*zTLaXP*K1v

5DXcc01cd\T90lnDW>rs*bYpbpp*Cv>Z&Wv U"3eyJ;y5(BthSJ;GL-*m8oO/%Ug.oF>2y^lYmff U"ENdLlYMBUi-JTW^.l?(_&mXMrEQgbOUt>,I70[$.;/%qaqQ6BP:d4A^=W.>eQ,+ U"ssCiz$*#6[m?D/Qr+M2mJLXu%;Rg%jrMZw^)(sI>B&(aI6d&Um9o14_u_^UtB^2 U"wF-Gd:NC/<#aL(KZ1G-^IZA\UrM,]fbqYC= U"/EkdO[brdr_-'h52C\7;MDlAj54p5Z32?jZ\>gK]bE.8>[o-&]pjtU>6RO. U"/SWB>F#wEDgpT01s]&[;^5CAg8<92D7wi%6e7t=WJ,* U"9In5S6k/$fiE'kBP^cT2=SB3&>N,+spaZo=.UVP3.iafQ5MjU?3aiCN.,8[8Y4t U"KQ?QalD/PT&2#.PF4$RY9[gPU1Yp];+F\lX=gFb>YpHE[CaJOX U"JsGn-huo-tp6*$h'aP\Q-M5+:yif[NE&G4?>IN[EvYyN8B)+Ug\hChr3ufA+crJ U"%OOgC/W&c?W^XGYb\JBIZClDeT9$:J'T*l8Mv?c U"#suw?\DTah*TlsCm2A;YUMC)^Gl-+RHWY,M)YAuQsC\66r?u:Cz]LL[vEu>YDoWG(l%$[pT\n#\.y[]E#a9H? U"$v'8:LvM)0tOO,PG+AKGk1R?OPN4zGW&7p_KG/V4J%_EW:rk_iGt/P4Zr*bSYnrPwLw\dTMIc U"DIklle0qwC_:4g0JOJXD3>sP_=([3ZctqPQ>=^EOC#/Pb]vDjN[;#&P>rgOjguIzCZhNsiE53qOM)In U"w6J)U?1kGRo:G>\leB&>u0PTwFp0cs*z+&oP_8LOwja3wS/H5e[H\CeHd)uJ_e39aA U"+h0jG[_HMMkD5O?h<55:][MYt\]W/cgQjekUJD=6&/-(yoWL?csQK^*p^e)BpWj U"::#s*,YCV%%:xdcl+D.jzfF^HecCBKHX_'=*=$R&5_J+fjH9QP9FHeS:2gqM-lc U"oSVM(F*E?/cE1f'J,Vi]RqP[ZPg(myW4Cj#3GTkof[(a#6,JO>miPI9s0i&eM5- U"g*4#O-,c&il2HMP^Z)^u30U)*%L#2vKx7%sIPXVeSPE#,4bbFP?b&iH&,1vxiHc U"]bG594/d4q*3$N=v),FCGStGV;I6*MsJ?m^V_1oY% U"QDs6KvYB+%x3:kZO35?x#mEiH0:.#Z[\0trIbki%HZ>DcIRje'S8-a>2pZV U"O8L3CD11?*Jo70,vt$\xm$AAdnc8G U"81W8MkTYgm(fE*XrEwEr=/uY.785<;Wi.M;,T,N^;(ywF&m&l1md7h01W9B(0Ah U"F$hpHi4,T$pG(2GP$UzriSaf?4HQWx'Ig2t_1[+bfqtg%*PSjy+?ZhlQ^e0d#Mp U"/Em,[rac;9>'s7saxRa^weO1N0:Iih)r'^Xv;mV_vsWYC%6-8y*ed;2K'X>0_d? U"($&9PlJoeQf&l1=e3[W+KWq;*7otm%H0YNe];:vF)ImIU31S?R+N7K_zZ3HISf/$B:#4^]W0) U"s]^odFF9I3ljgH59u,_nuBA>dt>OfW\EHBsbQ&Sr1:YEP]n8u14&v:8C>W8o:tc U"YROQSq366_L[P1kRfZNP&qY]cF']T*h$iPvC3)bM6EDh24xv[%hR_YpJrQgc\?BhG>$ju6&m6,RjIMcA#?Ef U"7$gsMFa#4Y$ju%riSBSd0uBcn8j>$WOT:K6IIJ(IJ0&:]Q\.laFd2\U_1W/$b#k U"eXaoWOqL+^mfYC+B+[fhPeyGba=XrwPJm*LKHYgmdNbYlbuqCp'N[YH#&Qs'O^_ U"br:\S>=C))&,'<7\)ut=6^P\VOD:Sa?\]OCLA1J>=j.Ngq&JJP7'mNP)T1UP'Ce U"N6(,lMtL9f6E2K1^cjA?;&D U"5rq]wM1d.St&DXSAYr-Te_0-&HU U"h8i,eVR*p/+Ke5bZbW*g'H-nfX=gaNCB:c:GX32joFIe,k3dMbj&GW$e6B>ZvRU#^%s-g1.cf&kq U"mXGeX>2wr3^em2qB*;'GobV3%sfVs8d]CP(ALIt6\jv-WL$5B> U"C/i>3k7_+HpL9v%'eF3u,jda,nUl\hj88PvLdZSItKa[=d0RW^xCp/q.ms/>^mI U"O#F=w'.BR/^OU.xl$xAr>O^'$'HrIkaK&XVYTE?^VK6;u7Mb%N?7F7[LOqqTB>w U"PX_zhC(P[+m9_nbFUCP8ryp>qS8ScaKg[05>.u^%a9L#dL56%eb U":*%jwmT?cmp#Qr U"?3^89)45CX*'kcH8\Cje81j?M^:18P&]OW2o)8NOOgdAZ+BQ_\_.?*i(B>\R2WB U"loJFpc_=vZ:INiL1.rgN[HX2A-,)5zcS^0p_^sU=?RIk9V83o\d6AC?yZ*O(,C; U"Do0/jsr&pHAau%MY:b,3X0f'Ekm_$nzoNS1Tf6n,NSD+g=;HLOddlINxGOjiY2i U"C+Lx+%Bk6J%]]sx+./%fn+&h:b,_utLWfc]tA;O,X.&xYmim8oR2BFO,7[mePHC U"'J/0tChbSl35JaXOk6SF,[-\\Z8*a^-AEnp=E6gVaJx#U'4,6p2RE,PCB*qYf?M U"fBpu6BX90'?Dcx%%up()%9%%%.-%jr%KKuP;qMJ)#%%U3%%%1%I%%'CMA070DA3 U"S;V4Efi#n;TE8T( U"deTpEqv=%OjoAWegGHh;p6_P[EDol)trK*pY2$L_y'2r_'oPX^^ix9u7%CPZ/x9 U"eXG']wY1xNw7_DtUp[n'PZ$\dVY&lCfFPFLJ2mg^QrASrGenF4c6rqd3+x^8/ui U"\DlH:>An^tJ&?lLP>gAK*?jgT*_CSKJD)W&>Dn-^L7T(ZZRR(#QSKe$,lO^kWWh U"s^rM&[?\<-Z-]\b4*$IE]M4<]%bTDq_GcC'>MrgO?37T,OwD+_Zp%vFhKSVlK]$ U"1$N:uK7/3,a<##'a0&7)TuaZop#i2g:9lnYyG4\pMK$wsE*PyldCf+DQc$ZQ$.p U"J.bss.W&QC^.-T0r961OTXNURT3DFqx-0^cpkjun.m3=Ube4m\V\es8?xoDrQ.Q U"pIWC8BQ4T:-a^14hjmP\0btte5>Dv/p:/-2SKWU-lD]X(GW$0.1;7 U"hFzH>\rm82n8sCg/61E92SDoZJbs6_tgaB)\Gd_XIMVT(bgTq8G0^k<2x8s0Bvd U"L(T]d)wU5k^5CXZ(llXYG\Um U"KC+#*auvCT/ylqa_:fDVHe._j#aUH&Vs9]##vCcf^IeT_4a[u(mj'rAa>DIf;f=5b&t U"aj:u7X/''J)h7E(%'^q+b0^6dvFFTM+m'jNXA2X;9HJn;JT^0^b'[?IDTm=KIB$ U"m];I#:x>qqpS-?I&PCCFAwe,^6FPO[O4E%ORK4GdAP;tg#N'2mIatgrcjM#/h]V U"UNA1049E\XZhJ&FD*[/>ANXWNFa^zjgdFm(gmq+anMovWnvlJrHIrrHNrYHSrHZ U"XrtwQlptM/J_G^?:1Tb35c0bUa+5bJ1cZK35l2dWSk5dE]GwI_H^#OkErHp1li< U"OWYTq:Qr2K-Vsyparw>;X:10vL*ByxZHie3uPb8.jGDP]-2,l9IjTf_oR_,H.Jb U"YiVZoBLGR6.HbNH2xPR,GhB4bh-z9YRB[qNP1,'8R\o\T+_A_5dbHPr'-#vpCmV:7(G/GQ,PUT. U"8h2GJJB9l*9p4d_%ll7AG3\.NDC,G4)D(=57&<964SYm_,,,45=A1Tv#)uHg[V, U".X=.Sot7=$5<_YcfB*/VE%Eb$Uvt%V0-hKP9;ZfZMGF$2wT&WB5:ZmsEB8HZJc4 U";ZKb,,t452nkDvZ%lW+f_3'xL*r&GHdKN-m#VvJtLq/+5Y$c25hTW,QeO:S/blp U"Tn$HJ*kuiHA3cZ?T(oHf,Az9W4Hy;OVnO*]hB)qn>N>S23D_NBBVfl_t'H?LQb[ U"TSVh/Nv]UCZPGdxkfiKv=cMhct.NXP)(N&u%p&'9%%9%%%%-%S&?wJ(:K+%:%/A%%%0%%%%%%%%%%%E4%/P'%+%%vM1B=0D:4S;)4Eup%& U"'9%%9%%%#-%$o95Ktk4ab;57%%pd%%%1%%%%%%%%%&%RE%/P&v1%%Iqj%.%jiny U"%Sgfx%up&'%9%9%%%%-%%QfKK_YP'Y'S9%%&=x%%%0%%%%%%%%%&%E%*/PbB#%% U"v1MB=0:J4S10&Bup&%'9%9%%%%-(%jrK#KuPq,MJ)%.%U3%%%1%%%%%%%%%%%E4 U"%/Pe#W%%'MCA0720A3S2;4Eu%p*+%%%%%+#%+%'%&%%$%\%%%%% END SUB V2 CLOSE:IF S=149AND 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