'=========================================================================== ' 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+^/8A)v+kr^56RX/15G-WS;LXE U"=(b3AeXR^N*J/hq;lQki+Z=ISMJe9QXCSj84se;H1HNT4oeYi+0YodqNnQL.c^U U"hQsK-R99^r)xoNDquk*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&\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: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"2Q2YFFJ&]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:9P6AWu4HL(V5>+^2t8*8c U"UC1GR=.(+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 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[+.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?FxZFA>'mS_\N?1A)Nm(cW^CZ'Rn7npwcV U"wq[Q3I.SUHgFBiLYXtpOA0UpsSVZ]jlVnOsug]L>NS*-J;$k%osOsA9s;[7Yr:z U"*?_^h0^1lX4/?'\KX]w0n?ulVWYay(l3VH-HYqrm*'=A.H#=aN?l$SSt]%r7H_tZw%6kHRb-'f4BxfSKs]ks[s_ U"Y3:A_]/>h_C1dXC'GM=Hqsc<^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;Hn+_>]8Zx1f9e9\Na.ClnXWni&]68bVBZ7NFM5pz4JlPc6#= U"[ustsm=K83b.#j2F*eD$Y#.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(1k0G7WG>j(?.e^qrT?^61.e\C06w11rKL> U"Wcsf;$%Je%ojJnZCs?M7e6=?CQ-;s'+bV>c>[R&tP+0kM0QgY*bW%''lU8)jC).bj$HMjU\ZDQ5:u*sk)x%Rg1[ U"JPOc>cO^iKMlHAlTM*JW5>hQ9:HTCC;iqwz^WsVujvRr*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