'===========================================================================
' Subject: GAME (LIKE NIBBLES)                Date: 04-21-95 (18:03)       
'  Author: Ben Taitelbaum                     Code: QB, QBasic, PDS        
'  Origin: comp.lang.basic.misc             Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"GAME.ZIP",4^6:Z&=4754:?STRING$(50,177);
U"%up()%9%%%I-%A_JdCp43+U'3.%%'m%%%-%%%%lf%rjSgRfxf+<vAT]+3xdXnH,
U"'0nhn/BAlfwe9^[6vsB.j%OH$;vc.oFgPTp4]0X%7nnE[0pH.Td9.')MIRE5[fQ
U"kIK($.JvXivAH*l&TVF6Lcfk$e&tFlok12iW,-eUCjn)XqoVB=H7OtWF.cEX\25
U"GiQ+-%g\j6jQKg&:N*9N=W3F[-mQD0h9'fV=Z>^/8A)v+kr^56RX/15G-WS;LXE
U"=(b3AeXR^N*J/hq;lQki+Z=ISMJe9QXCSj84se;H1HNT4oeYi+0YodqNnQL.c^U
U"hQsK-R99^r)xoNDq<T;jlvl'OotkAbZ&nly_LMVnZD#F5fP-v0L5b**r31HGXW=
U"#Jm(Ocoi:bng#Ri)SY*kYi5EX;jW0HRYi/M9=sZUF>uk*WOmpx*4Mhsu<<.:K;E
U"WT]wl>6LUa,tX6u5aE(-nC&G9<;%dI3WA;W:I[oaG#;%#43_AJ;&5U.xi]R^e8]
U",HA**gj#,%X5iVdFqc\KF6/*4H<)=7Z_:*[?l/F0hua>80G>Gl.g\jVIJvFFL9'
U"D5e/foe,9A)]o9]o]OT]O]9<]9];0AR_$ahg12^JAp]*G$$lV=TUYA'VJ5Iq.ni
U"Fle(1#E50P8g-=k[Ek'*17Whe0e)1MI5pPg4/=%E9?'*;bW2eeYd=W''o(b3&%\
U"3f0W/gR.i=WS#aLDSX4TDZ$Nfu-trP9e1Dj%iCz4yZ)s9(q3%.ed9xU:vE'\mab
U"GW[4Pli2LT8Vv7Wpzotm^Pl4X=?WKs9Cp>I=(=GXR=P\p&LQOlXPz/3BsZqbIsO
U"jD9+?uF>3Cf>f25?JbL]^R/bqxZ1)2wT.Nm%l9FltMxyj*'(qP26pg)ffNP_q1v
U"s.EFYI,._o=fYEj482FiW/hY1=$FFVb2%IP_^qTj*IZ/v7opB?0f1XwJo+6WGzf
U"Kj&#sl'kgW^R<ix<v4.\Da.qVtEVL$HFSc+\*&xlrHVrlt9r,(*->&\P7gTP?3W
U"/4f[LpCX#jW56$gw/\1zmM/LoHrfKFrDX\sjbn?]onfUj]N,F*<$nEEnpkql0an
U"14fYa/9ZY71:BzB]>OY)zwXyUY&J6Jw9+td]h4?Lz56w2c+ta:h4Gz3_6wy_+t_
U"$Rvs,6%^blN14OBGF%+5O_B1%+LEOBqF%+UObB[%+:eO*m'ihU1IAt[\&jE3q5M
U"E6f.fWTV\N**>49?K:%9Yx='lxuM,g;>ceiVT*'*79o&uU[w5Q;kNM[\boduVT*
U"[v7DUncd2*[V7z+qVL?L=+w1l]#lyZL4KCCmi:wA+l#kyKZ4L;b3mqVl]J3E]D4
U"s#\3cBd&dL8WnHY:c'NEXQK(v[:0inhxD$L?SD'sNS9DH0cB6Qii6$Az]Vz?L-D
U"HR/ne:P>wP^[iX:g4pklonE8^=k\BpOyq^UNjIsgnd.?-kBuwh[ZQQaPLJT&kZc
U"qig%.u#wdUqAR'h-6JWtNcM(]26c9/'+on0>S:3kc>_brf8l7Kk(mn7O&[uVI&3
U"QsPb:/_c&5k2<;%QDghYlWR?(od)&:oxx73&C\j(Ki2)xh4ZVtM#uJ7r49_ypsa
U"BxmL7d2q<%CsV_'QuPD_6N2P+ghlnvgtDmNHR]%AuA)kxK?U%6ebB(-n5kHx75k
U",_,jQf4p^ss<p$SNRm<ARA$D.zLad6Z[1R%6B^gEx&FL<suQXKC]2tJjx94b\o8
U"Bx-XubSg<kS0HfBH2+D.onC%5D]gs^fCYcJwVlaoaMMJ7l_Kmo['9FsYv5rV4(h
U"ikFP%o]?-t7st5UpkItk%q[S(cWJy2e2s)Au>:D.9uNkOm5EjH7QcA(rMn%>)WJ
U";0U;C%3GpC].FAFdx-fQxy_K4N.$VBo=#c3bma3kq8Dsq$j0Svld/2WjtTLDjIn
U"P+#(R<''nFNA2S0;6MdhFu#-9:5pbhHI#-IU50PV%uAH98R-DcbSRV;n;5Z*(4p
U"akUM.$VorV;ui]?/['NVgZsA]t:mELZUK7aL=E/18/q2/#.81asIo5x:Vo2H(Gq
U"l83[B:;$FseO2,^t&aQk1$]L^_FkceY,*elUZ*$iHHdXjH*+bB0yQ&csF;DF*8\
U"2Q2YF<pQFcoeGQBc$oM1(GAtiU=z2fHr<h4&jK<h47BM<NiV=dZ)c=8P5k-EjU]
U"J.Z^jF?TEb?c:rPgg=9/xZ1'PSr$_6O1$$5EjTlrGV,fY(SL'ZSA<FDU8CQBSt2
U"Q<ugU\ydu?>FJ&]b_6*3872t9h.%V$uf_l38Ho)_*;MWr.y)&za0jK]*)Lj$-Uv
U"0_m16OW^Rw-'6V-G#Q)#AjH0hh]]&VVs&Y$w6ukV:f-vK/r[PA9/Q0iJ8WwdhKZ
U"hW)0m87R'(-3=D$AmVR%UshV(91d3P3#g;1<^YPL9&6WS:9P6AW<M-V[ZtHTaLs
U"%U$_F23+BK71fAS7+6CX6.9lgH-;uq)'F6Oi,wGiMR]gUO>u4HL(V5>+^2t8*8c
U"UC1GR=<k4-)SV]HUmI3:Xwp.=zUf#G6sS=G?OY7(Fj.A2&o5):]Rc(/I'ek59#(
U"ir-wY^BJJG.JfJat;ZeH1tLFT8]yg%<UX+bY9/5GuIecvdrH&?(&6rjnjA^lRw]
U"MiXSKr%<U^0IU's<1_z>.(+C'/R'[6ey7sLBfJfigr/a[o_X1bTm#5%t1WpPmn)
U"1?(QUj1Mb#-G.W%A*Ff'cn)vI)i\Q8_MnIDQ7'q#lfmc&I7f/I'w[Q8_icnC)h6
U"_]RM-BDtmi_MaOcrIEIlI77f_)&3c/g(WyL6\sGEN#M-ry8PKZ[,tj[BX,C<e]>
U"R0UljAtbFZI)W.+T[lXTF*P#KeYOJ0aQ8&q2Y&\qf1\Ivqb<&o.52J3=^3BAg>7
U"#Q(25g=^5A0;>7a.(27=;^7Ag(?7q(C29=^>9A;?)7+(2J;=^;Shj/sJ$R83ZDZ
U"AE/fc8c;fgHJE_B?W6rtOihpra7CgL?N'2c.cIlJL\TsYeAJL7B]aos*crL7Dn(
U"nw^OHbHun:+('t+GEvn08iL?,*2c.[QlJvX^cL_-CnnaR^Ob&\wtHb$aLs[<Abq
U"k2na&_C2qH[&;weVQa-/?t-Yh_131_u83nj-\R,H<sEZAk'Z6+4(mUfg;at;H.1
U"Cc1_RSJD&Ql=a%U>+.Cre%^1UG?W.17mQfpB0i(%4=I:i(S$c;YfCdUmg+h[f2I
U"2Kf0m^7vQR#^1dN$0fOuc^r*2]QD/h-f3&Luej==Qx76:L1+1sGlYuGb>hS$S:0
U"#+$'FGmMW;ttDmJ\_O#W,/OIxG6Yb4Z,h/svY7DN2zBW*kIfOc?A,LmSUmwirim
U"I\R4f9m#d7,&2('X*k?LBMw$QTl,/8sVa,jY2FX[*k?b1c<_#Nt,/s5K[b8?2dX
U"*4kC)S1&a^)m_t#5HakPM5)IHWh5,f6ijBSGebVv4eF(M;$IHW74VUj,:dJaaa>
U"Xlg36UnoMCm[>s$pO='HP_tN?FxZF<uIr3l3Kx=$DjXP]Gb#2,E?H7FSF_mWS;.
U"^SJJbVG+UXS1ooT0,jFE9t<C]#2.Xj8?8S,qG3Z%ILqsQnc4kAK;n%g00jx^6Gd
U"qy;XBAM+z[YWjoF?C1?t5]):\w*3G_ry;Pb]M)t#gCntYGBqrc;r_Ncw1()Ww7&
U"f#vo*[YHoO&'=q+9Y'L7oJXlKPhALNmKAKNmJAJNmIAINmHAHNmGAGNmFAFNmEA
U"ENmDADNmCACNmBABNmAAANm#A#Nm?A?Nm>A>'mS_\N?1A)Nm(cW^CZ'Rn7npwcV
U"wq[Q3I.SUHgFBiLYXtpOA0UpsSVZ]jlVnOsug]L>NS*-J;$k%osOsA9s;[7Yr:z
U"*?_^h0^1lX4/?'\KX]w0n?u<Y;oU:f12RRSd\AB2<Z_D21l+=]iYA2j;e:t&*\^
U"cFtT%nbZW4:61J6\pY8?ETlxjskes/smAs1IG%7UBSu%,fjqgM0)lxRq+jj^YKC
U";tPQ^RQPS_^*;W\Idz)Dl?dmCymyPMcmcP%)t'sRX;G?&F4x$(gJg^(gHg_(gI'
U"As&Zg_LzgWK?X'o2lRN37qb>lV<dkn[F4vKf_'lXUVo-bUOXeMtQ*$)FWW2Nv]e
U">WYay(l3VH-HYqrm*'=A.H#=aN?l$SSt]%r7H_tZw%6kHRb-'f4BxfSKs]ks[s_
U"Y3:A_]/>h_C1dXC'GM=Hqs<?Y/oF<X#+,28##>c<^xihs0-r83qgvfmdI+kxT$P
U"lF2L4U<2R]&(Wv6+p+o+On/z9zw9-o,OCrz/%Cz/:(bGQ\'>,a4fih.ub*Wq/DN
U"Fiquh8L,Ikk1mJ+a-Sb^z+B.OI,e3KOwKF?s?m#/)w(pG9-J=)eMzp^_:n8JqJ=
U"eFcJw$o.yu_Pe1(I:UD8:=^?x3<8Z2:io)8u7(AbouB\cdq2'C[7,Iw#\GTp'RI
U"0$QoB,*(gd.R79r57zI3A(',]xCd%f:)/Z(5;._gSK0n,y3guK;4IScW9=N5SU5
U"d\D1Wm.E,WJ5I85r?jJQP[Ei$A(X7j1NJjv2sha\(x/XOe:k4FgM;5W$T[KF*EH
U"XXe;k6FHa%>\oFy6FL9shY.\x1XFjOq$7Zx)TPvqn&Rm\nm$PDLcl(nyvtj1gw$
U"s^#t\6wQLZjuV2sIf^8eXUWZmkEOUEQyS+sRU7-igaRrNH,B,-mU91bugDd<6'f
U"i$VYzt<&-(C?;>:D3An>^rlAe/-R6aZtCTlk*[nup%()9%%%%-%:ik4CEJhEh%:
U"%%%&C%%%%-%%%%lfrj%SxhwlllFkqFX]^%GiP=aMYL)7-?[E%%up(%)9%%#%-%C
U",k4C-pd&+t#'%%H%1%%-%%%%l%frjS[fsx&k%4=T%U9*_R+-IqVrOoEnF(DML(w
U"VQMa8V\IQ+q;H<I4C6JPDp#$9fU,Ea,)4.Y.N\HnN/S4bKUSRqj#9gb$c;3vqAD
U"MD/>n+_>]8Zx1f9e9\Na.ClnXWni&]68bVBZ7NFM5<QBD+jy:aCG6i+69Nm)7Pg
U"0s9abGt1hS:YX2h)/&?vO18/+Vk%-H(JEj<FO%mB?s4:GH*MaDH)3WQssV+cfKI
U"X1?3eyIVg3xb'u6f2odOg[nSR)ntYErVGDoikv_P+,Z,I*K[Wn[,mkD/%#3):_x
U"7086#Lq:N_8k3-+=UR[tsbXg3VI9'&n16=.#NZInWsQn[Q5I'l20>pz4JlPc6#=
U"[ustsm=K83b.#j2F*eD$Y<s.$VGH92t]jf81jUx]0(HX(/K1Fs$k/M\vfi2O]h$
U"pSh:$M5ThISjXpC?C9.1DS&hFYK,tI-uYN\ZVkDE-okl82p,rKCbSy039)]Lz]2
U"JiJEzLHf(#1_G5?19lX&+m>#.5aWSg=awANHn(7JN#wDU;sgFip_nf>Xc*'R-Q;
U"6xiDu&coCPbw<*E-BT/VJfe80F=1E]E>XA3)aV#2t7'fiZR&t':.Y/8S0N/3313
U"KrJRkOTRT\EGR?7?m:E5Wou<p&f>(1k0G7WG>j(?.e^qrT?^61.e\C06w11rKL>
U"Wcsf;$%Je%ojJnZCs?M7e6=?CQ-;s'+bV>c>[R&tP+0kM0<A?a?elf3qrO3wBkW
U"=%9>QgY*bW<lWIR2PBC4savua/&>%''lU8)jC).bj$HMjU\ZDQ5:u*sk)x%Rg1[
U"JPOc>cO^iKMlHAlTM*JW5>hQ9:HTCC;iqwz^W<X&uMC,eNuW0S17#_g,oNF5=\7
U"\iuU7Zab^s[*DePo'KMC*fec=o7L%9G[<Ghb[XJ_17a*af17<75k':do#;,M.Zh
U"XQtd[[n.QFq(uF#jGFH3V1WMEWjV.o%d>sVujvRr*R.up%&'9%%9%%%I-%A_JdC
U"p43+U'3.%%'m%%%-%%%%%%%%%&%%E%%%%%%%%%lfrj%Sgfx%up&'%9%9%%%%-%:
U"ik4CEJhEh%:%%%&C%%%%-%%%%%%%%%&%E%.%%M3%%%lf%rjSx%hwup%&'9%%9%%
U"%I-%Ck'4C-d>&+t'.%%H1%%%-%%%%%%%%%&%%E%%%'23%%%lfrj%Sfsx%up*+%%
U"%%%%(%(%&q%%%'S6%%%%%
END SUB
CLOSE:IF S=113AND 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
