'=========================================================================== ' Subject: TOETRIS - DEMO VERSION Date: 12-13-96 (22:00) ' Author: Thomas A. Hirsch Code: QB, QBasic, PDS ' Origin: thomasalh@geocities.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TOETRIS.ZIP",4^6:Z&=14266:?STRING$(50,177); U"%up()%9%%%I-%B7I>FCX*.BT2%%%il%%%0%%%%yt%jywn%xSgfjx^+d,>Tk7fxs U"Oxr5ef$sXQ]#vVf$^i7%dgD\ul>Nu.&uzB#lC'Ej-DDjrj12wA?xhANN,< U"YaOTen08B^xwT[3tPd3O%8DM'T*K1r*%>;'Br[AB U"t?'L>O&06k,m0[M]9Ah=L\1Hln[duC9_;Q7dEn;3m+.ZIVdj338:/_PWH,U+]_RdA8h95$rt_]5LhJkLM,a U"=1JWWG1&>I$BtVDr[DK9;tzrv>.7XE&AAD('osYs$$nf^L>oX+cY[Ib3VAUW^e6 U"Lv5-Ha%b^9j$mX76cqkLcMm1bId5Y0Ou)P]eI,>el^M;]YhmZ\BqnurHX*UC_tN U":Ao6boO&RkR?BxG$w,0+s[hPmH$bQN/6vb[?*C'Wt7dv8P-)Wb2+2hUdU9.$jX]C#>uIBTc'0M\QJ1kW+6*IWHC/9?KoEC, U":81=v(j&_9HulRtlpV9w(]CvoT^&Qi=m>V=l.rKV\#T2sk)8kQ6KnhkxHFR0#D1 U"mZ'/YI2#2'A8e_=/#a.+=J[[H)=:55=#ieGk#=O^QskN6np%)iCu\)bZy,Slrlh U"Rso^)B>ntiAoo#e2zk2-U+A*Bmnb2If2I_d8lh;hc2enK-bB]l0&1F5sFf0+XFb U"IOf'LStEa\C=e*^qY^&DyK+(OGy*^N(Y&M>NHK26*7TupW,3n U"JWTs\9cK*XbiQhC%Xr3Hk4^b/t+_V,\s3gZL>Rt^DsDU'BS>]1.gcB?Lsl7?:3V U"7m(l:&Hve^0=P$anG1o&nxVeR$]qQJCwIbY]=Ya#?(lg94L6'7K?DrR##%/DcMh U"=+L;.pVCtDT+rFb3XyZZ>0xQfMTpn?e-:nPJ.-Rsrc%=b,&K;cuZuf<^7HjoTq5tKAW2D1iVV/t'i>uM9 U"Hu/S+Y7n_geGwr>o18Is/%^>QAli?9^eSl#r_dlK_CwgSerY/UYl^6>7X0-s:Ow U"7Y/2YX'i,SjQkGCbm^+D\[4k7J(+J#:VA5Kifn5ijt,2Sc= U"/XFZ3r;MAG/tCuL>?DE&e?&i=iA(JFyKzb7P,1hJGjB9:#eS.A)-k8#YFt-l\>_ U"pck_a$+DiV7=leS\$c$K)rqUA)s$iA;7CD#%qN;l.(flB/%9bl#*q+i$AONL8Sy0F[]H5(e6Pqhw%+M4#A]Oc&>=AyJwcqtYrvD6ql%P$]MtpOk?JYYu%G:G U"vNpkIl.MLrkm76TOyL*):teKh.7j6?3m5R8Pm=Kk+tX>yvCwsD/GpJzB;nu(8G: U"nAZ'C(b#I_Yli^;=F0LhPMxXm5jLJa:9J>jL,L9:8tkCjL:Kq+Xu&sa$rUdHqxv U"Zu)vb>G:g9tl>HQ7t4VTZFN8zmE,^%s;\ILb4o%6Kps:-KKXBK#X+;(_vC,F8#' U"SE/U)[]jvjDQCIredk=0^N8^CzzgpBUxNBg/(-gkP<\^AZ>C=\)uVRq4\9HSm_e U"qk;Y6HgAE_(;FGQzHvBNK=zecqpjTAGh7SlY7-ri-^/_?t$hUmijF+y(,71)#Vf U")Rtm6_nKVe*6AA5rTh'2*RTE4Ptr51^4\^&9y*-uu+gP\Cen3XOwvZfkkj#=ZO/ U"RSm\WPld'*(JM'y*f3y.BJ&UIHK8OHFpqX(RT]CIKT^q82*va$c,yVbFf=(mE+eSGg0&HeItof0DAVmy U"#hTidEPHx\[4z3X;3ft'7iG>X*[R]7$&;bCw\d$7L'Z_I'QGPFTF_4>Y]ox0X1- U"hpM^o;tw26U.=K6(EOGoY0\.(79GX70TD[M*4'$)PP%'\o)R)Wo*PG7:1)KU]7L U"0RAS'W(o;kJE'q7Ed-p?[+7c U"'8]P)K1hPXl96]>X6jd6vd=\V)-CR[K')o16RjHwMfuPnv<5InqjF-f]i_k$ShQ U"j/&z+CeF[rcbjZZrHa?5YwyB';.m78Ld]XXgZHl4N(8n$.Tg_Qjb3iIP*.tm'm^ U"4Cc^iyT&I^E&O0ttllu[ubW0x\4m6F]&9UVz8=1(voWqGxB(C%Dl#d>=-#J2vi# U"vu5$8tT\r+L>Hp-uN+1Ba:pZ25rHx[a*QBL5GLqBR9LeZP$36G U"osIh2a[Gh(3FEV<^Y-UTI:TFZjEI&7i>*Vuef^-g?iBQcq$p[IM'4QF9#O0SItB U"z>tkOq:'<0?T0ea%c$&CQ.&r;XAj=2g^oXYsI(qVa5tifXeeT(#;U7E;MT&8on9 U"<.t$L_0N&+LI]DN2jeJ/hIg7Y%E1;ZV-gHMh],weA.fK0G''3q1mIH*D7rnn:m= U"k?kwAoA65m6fIUlR%l)zc((>gX.\Y5oVB7X9Rw(bsofnF8k>n\pd#s;Z-jOI['h U"q,lBxLn=0Fa0Ka\8Ho90][#(t?&lQ)9>gEZovY2Rvv]oj^QV3[]L)bB5S8e=;&P U"AF-4V;LCj:Zvd7GnKi#d>D2W9VFZn9V^M-ASK]D8I2R4VqTvr1mjZ-J9X6-lZae U"u37ah-jkM;E0>mXjR/D,<;30AFBLl6Vc4z7H2(p U"5]KWFpnzXO=+UVp1$LU'fGLpyx\$tHM2hp66lG*(U&I>eWc%_4DW>9w9[*SxPV1 U"ImAMta:(H%'SeL\-upQ>]&TO8BE(\;ScHp\-'E>1kd?ImS'TXlQ,g;*bI*Qg'6AOso([pl)dfjjWbf>IX^8l*%oPb&[pb$2gXfTEA4zRO5j4mT/ffcZ]/\-R^#gLDIG>U1O+UgP6xpgNh:1u%; U"Xh+KP5CigLN:1uHm?1M_egN61VRnPe5o>ENY6Zh]K#X1=vEu4%up()%9%%%I-%) U"Ed;Fx)%KvF%.%%K%%%%,%%%%wt%ySgqjp\6YM67/1q/wxl'xD(56ux64St>qoIY U"#d81KWL2%q%up%()9%%%%-%)PE;FnwpR:%C%%%&K%%%%.%%%%lwzj%sSgqjp\6Y U"M67/yux<9i]xD)T(h8+cFMFk4Ji.1.%(8%u%p()9%%%%-.%pE;.FHTz&*I%%(%K U"%%%%-%%%%gqf%zSgqjp\6Yt6qx('w4(hX(LxNHox=O-Yxd+7cMFk)4i.o:XOe(% U"%up(%)9%%#%-%^&E;Fd+E08Q#%%%K%%%%-%%%%l%wfzS[gqp\k6Y6q?x(wt*vn+ U"KEtNEG2OPP4O)xN/n/(:x(dwkXPPYNo[r1ei'xD%u%p()9%%%%-1%>E;OFxSD'w U"F%%(%K%%%%0%%(%%nt%qjyy%SgqpW\6Y6Qqx^PtpwHxnNEsx^dJMFf9,tR&wqXf U"3e:/'%%up(%)9%%%%-%n#i:F=\I/Zh%%%%Y%'%%-%%%%y%tjyS#sZW\iJp==#U1 U"+/#l*Fb^gUThUU+&LAsoH2d.#hMLlyvQT:b;AROMFxdIEY$T_S4U7qXmL>*/wLS U"G)CTsuN&r>fF-rr]Z.iEIROU-s%89?dUB._Q4D1jE;Z/MFrF61-kuN%.[XBuFo4 U"jG%EkdH:J+D?-J,J7cD8VWoR-2E*5?RI>E$&3=5+h,F,_g([h2PZd'/KB+*XNEI U"*V8NT6GTFmdg.==3rq?kP)bgfO7Oq\f*2?CmNSQRqhRt8C/Vdqye+crve('6mrV U"'^y76%gAd.h'-w*=T0dqL:?\5JUQd?DZH_UDm/g),*;T]_2N U"1/'FOF3GP_.XkBk7fqnWrIZ-UGB5=2&);3?v^t+=ECVjI*,*7S#_h8[1^U+E-N/ U"9gzHN-LRKSxJvHStN6N>z8KfI?7Oq\3-*oO_N3Mof=GMhOhVH]-Ql U"oPAlM-4_55jCMeGlpN;+G\SA0Py/AMfi1#B*O>Y:YQOBlV)PI>9FXXE'M0P,-06 U"xpM>%Mxl*jrKjoX<4g\w*T4Dqq[mS6Z/T63?8s3^gA44;&bRQW$Y^3yYToCDb[u U"nUxt+8Xup%()9%%%%-%*_P;Fl[f?.'t0%%'%1%%%-%%%%ktsy%Shtr1zb:epx&/ U"#9pc(a+m;v58AF;f.&D/](gZMV)SVEy#E'fx/qLS)$1UI;%fjx-c..RbG'ey*V: U"dYzPr.e0DgJ*zFk\i*Iff>*%A5v_[a/:'E-W;b#6$D5rOVXsZ(.P)k.O-$/]R9B U"6^#-ROT+-,MaSU[-4&xR+l:jXDkm]0HfsXEt6]v4ZaVew-ge#g$1%:85MvIO*J7 U"YnVxtDfUTtwdInZ7s4y5-t)4d9:H,^yei/+*/Lr*g0n3N&:&'vyqDd9p\q4d:$4 U"%(DXJ;49vNcm*v#WXT-siI#O/>$VLmsq8l7I^r7VO.g>FJ:m3WVftjWA$Qfkc63 U"ugp9-+9iJ.T2xj0>rpG$Hb8eT^7xvXi>DHAphlF5UH>G$>>F,7XW+tl]f^\qEr\ U"T'9_5i_hCm:d_+eDxcK4GyJ0pxS2qlxt1:Q??BrqL9w-XVlXKFmHO--ow]RaxTd U"):L7[gV#KLQA46_WdehOrE,jnXmM8\?/u?Rc4vD*P>RdNqZ:sh8Rbplqire=nH% U",&t,OdOO3d_D0U_D([*-D<':pH]&+Ci%.eVk%-x+xXTZygyH%eya\Y)[bRwoAvI7XdHD(xNzMPT)gN175Fn$9.o->c5Epsv+ U"lN+B%tS6x:Me;l\;1z%iNjwiikADJu[e91l9e'nf^X U"Mc+'\[TLRUJjE-i7,hcu'&>sCM?D%jxop\9/EBb0mlDj9M6iNILi*Sq7hW?ZH5K U"C2.wUWcqt4ZQEv]TpqMF'N'4BO&8*3+G$QOPl&$gqqaU/nw+SUXeg.$5#B*W^g( U"0-'7WT=:_jXCDnZ7CAy*V8sNSg7u5wjMi:M_/^6y9JUG9Zek^925-Ju)zh(%M8$NQ:'EG^kO0b U"/P^dc7ule8If5(7]t^9;2V?c1W3<)(0SOv0:d(7/KL^Ae^k2a*p*teAv+(S53S] U"BlIlNKckb-9.mPL[Bpfdibi,ci0FjT=*q,tiPy+91MIJ&[>A:IL-)>#14Z^(_1-/+QPWkI6k5 U"SHT9)W4aCdap5=_9ddQp-#m;7+.Ki%,1]nLK_DvD'V'sE-Gj>*SOo=X_QOC#W/Im4 U"Z;-z+gol^mKcPl[%68.'jcu_&5\F[HfFc:'heOjBiuZH9xs0:;o7d'DYFzZPDR7 U"$JTcIlbIr+jxf9I.mEd=NdEiG>cqC1phtoOQB5Ap\I:)dKnu:j=lHTpHbJBW$jV U"=uU$UjOu7GH:rkx4Z]C8:4Xm-l,$I-c5dZ]&fBB2cJ>D+kgu:Yu/:H439PzIZL99ISA;xE:ymF?0Tf=5;.1IZM4')/p^UIoB=,aF)[NefB+pQ)Dih U"K6'%)&uAr[K+&7#3+_Mb/.]lup=mIBw8)%^]MG0nr)Ut'i_M$$SrY]UU\SJUlLm U"li[MZYr2RsfLG:D(&fBW_)ZR+,e>,W4D7j2+=Sb1h#p3onAr+nf;7UFcLqa%2p' U"[H5z=Yt)FN7+j6_QA&<0H3ZSNL-7h_jCl&l2BYtGP+e'vX&AYvHupixTOa.U7P[KK8%6n;pA12_,ue3( U"g*LgW1To[K1DH3Q^YOi*=V7'_eNb/3a1$#[+?WAG**d,i6C%AN,6qB1r'M:6^Re9rDNh>_1s+VNlqiJa:4YQF62?QPiW,hGDl)_CxlBZP-Q0uRbfnpg:IY1J U">kgl2]=cA=+IP6M7[r\0I9BA\n=bLDPhoWUf+dK)W27rH$>Y%_uOk0a&g%=HNkl%%Bhfv U"\ZCGI0Jrx,<=s#.d=qEy]ev U"qLoL#TEb)S'XjN3h.98yZj8Vi>%YVq'k#TJ2[Bkc3:T-_Tl_O,QggP\0kzLExhW U"GQJcUf/[niRS8Q,4;td0*&v4.mFuoN'o0-ykI]JR;t]0M0'I)HTq.1.)22)A38o U"moQ(:,X_7McT8fUQ0\w]2cXFO8yVz6tMeGkNW[jc#6%.eHi)m^['B+69NagK$S+u^# U"+%/F:60mR6:=FQZNuxZ2;:>_eros^?(m[_?(BQcM3$?^1U=m)F\Af)eatiObEI* U"_26PKLSK-7MddVK=IuA1Vi;?>P#v;Uahgm_mMWr*nbB-al7^d,K,6(\$3+6AmI^ U":]]9Rq\MtX1YrJn8[a3JEpY(Su39/6eNEv=u,?'EM5l<>'Xai-#'&>BUpFlOtK7 U"kV4J8O\b^mld?4mJUZ,[/7Z/#%s&0;hynvV]WSE1BF/Z*?/.'uPI-H7#9]*->T1.> U"eC3+?WGbD_V+vtW_m3Z=Jk'j(c:.?\R(t-aOMepcJ0E27*Zva4-;[Q87a)\KsRAPAO=f=4&1]*_VZG&>5\HCuR=mA']M[m/A#8pLwap>1DYW/m'e U"sgQLJ<5I\dm/[:/jTkVrL*-RJonUET6LrNY9LCe)qYyE'_5n<$\Sis_a;=#J36w U"so^QjA7OW(xrkM:LO3L8KyA*q+[cCx?i%0UZQ]C%PJ_>=5](idvg3HI)r7pCW$m U"1t$;\?jk6L35wQmes_[$0^n7Bm(g(R\6FEZF3_iYvv U",6HGIb>d$BD*V)7Rbb-^1iIiEE;d8,YOap.b)*RXbQQdXMM/Y0i)GH9?Kl94'?4q0+=%H4k'*QQ$EF=%RsC U")I^.1(N&*UC%[G-#RQFAMP't6%u%p()9%%%%-4%==;IFf$/*eA%%+%m%%%%1%%# U"%sj&%qnsj&'SsW.W805_0O(tox,Ye-sx4imh>]xR\%JzRzD-%IZ%4PNa97Ph7wR U"v]X(emG9>+o?1nx(LeC$yl[//jR&9T[Enpp,;:[)+z?EG=w?)GOe<3%d'%u%p()9%%%%-.%B>;pFIM3&Vu%%+%m%% U"%%0%%%%qfs%lgqp%SsWWC8050nO(txs,YesKx4Os-ux+E?sxx(:mev%j5v6xT9u U"9/D.M%Wli*$NpXO>*N+#x0C,jx]6G/2c^%CI;1b?Ed/QRNDiZ538-9v-%%up()% U"9%%%#-%a>.;F-q2'i7%7%%m%%%%1%%%%qf%slgq(p'Ss#WW80150O(ctx,Y?esx U"4[ih>]]x\%J\zzD-n%ZQ(#d%i&&(0ip=BeD4F%JPu:2)8?5O3O-J,A(L(M'aA+K U"wDn7aA0]BIAJg7^elh>0[x435)TF\MDOG$.y&[6_(p*$AMfo%H%up%()9%%%%-% U")zE;FNwNY=%D%%%&K%%%%1%%%%mjqq%gqfz%SgqpW\6Y6uqx(w.4(_)#f++J=MF U"9,5tRwqRXfe:&/'%u%p()9%%%%-4%sux+sEsxx#(i;W+UR/1:,Oa&'<,C(++>2,s9QIR$A9=Q:=CQ3$aK U"$i1+hl%pzru$]9(UTeU>3wuXXQRVNa:=9Y,4FpDXFxs&FFA;MPt6%%up(%)9%%% U"%-%p&G;FjJ'[ap[%%%m%%%%1%%%%k%fwgr.jw'S%sWW8J050O=(tx,uYesx%4ih U">-]x\%*JzzD*-%Z%V4Pa9M7P7wU(Sv9fN+o1*Oy(e2COpeu/M:mod&Li%(4=[la U"f9IEWDe:#BmAw9WYm%m5&>.oOZa&p$ophK96oGi1Rz:o+CGXPPZ=fPRr>,:gSX,4VS:(Pyg+Wj8\U;Et4*R^%%up()%9% U"%%I-%OGd;FpO.J5O%7%%m%%%%0%%%%Ws&&qns%jSsW.W805_0O(tox,YeHsx4O> U"sux+sEsxx#(i;WpE;d8p,Oap>.KR2=1O.,]%p4usSv9ikP:9h4&D\,JMUM/Wo/) U"[:a/r;N=570B)ya/.:.1Xf>U'5:a/b.e5T/)e]a/>L/%NV?:c]&hzf/n#11;[^, U"O-;^kEX+5.YM)%%up(%)9%%#%-%h&G;F(A)P]V[%%%m%%%%1%%%%W(s&qn.sj'S U"%sWW8J050O=(tx,uYesx%4ih>-]x\%*JzzD*-%Z%V4Pa9M7P7w>RvX(jem9>p+o U"1nBx(eCn$1j(pE#T(C,-U;WIMN/lvtOn't(<=70i(_$QeC)J^*X:Wv:)I>L9sZC U"m+AwOcoOLCM'b''U/Q3aYX[mJOR'k\:z(=*F.h0k_vQe%l%up%()/%%%%%%(p^\ U"F->c=u%K%%%%K%%%%0%%%%ytjy%wnxS%gfyeM#10BD82TA)D=Ei(_+UU#]ym+%y U"tjy#wnx+%ytjy%wnx2%/up(%)9%%%%-%u\U;F'Vcn)(%&%%Y%'%%/#%%%(.tz&t U"%sSsZpWDKF+s;e54%YxJ$/XI>Cmqk/Vd?i7aaneqQj[:/DKXCW>=^96*XO\F#hU U"FmBs/0gKM(X:c1Mm3rG=ZI;RBQri_:v,6,6TW[M8-29QJnWd5BlbCXm\kIN:5E> U"&[fK+eLX[VbWVkLr[Xd#Vf4T66E-^Xx?]RmVn?:>'0#b-+O=73+8^q)_hc$1;GY U"f1$TScAS;K3W-84Kg&V[n20:LPsV9&.M?S<[2aE)pJOh9>;cI?Rq']EEJL(*t5X U"\:#^JBqBZ=EQHm(Q+<%Xu,l;rnQ=h5L-#G+TN(E:Xc2q,B1,^k$xFEY1(x/JDL9 U"?beVFZ3?c4F_tIwZ'A[7e(FjgQX4)b<.QS.HA\])Q%B/>0n'h/,y8EpZhJ+OSq) U"W=q5^AR2fad[amXB(C5T4-YWR%>C]jPxY6Vph97,Sgt8eB\\;U>tx(FilDR9I7HE--Z\-,<52gDjjf7#$MRbDUy4;[3 U"8-w=,S=%=)xx&%%up(%)9%%#%-%:\&7t>2Q4E4XZEFT4&R<$A=ko40U^%%up()%9%%%#-%+'#]]x\%J\zzD U"-A%Z%4PPa97MP7wR,#LI(_uN6[cOt5[H_n-#$4Nm[oX U"6[orh_=hLGhR;iw&gq'c(e):6V12XMG.ys&[_(Sp*AM+foH%%up()%9%%%#-%W7 U"R?F9*-+Dk-%%%h7%%%0%%%%yt%jywn#xSy'k.&&F8=#B6]74Uh4u;-iLh11J3f/ U"lhIgn2X):Xw]nc*aOZ]MECHQLHCEpW3>:'CGnkfqloFFuKxAyCocT.#]/p'cbwY U"xscz?Xwbl>MK]LNq#n-HUeajar#^eKPL:8iRANIZI??4/b U"t*E=JwRQi6tOC&e0q;TGtLCpD%P;E.X43b,G%B50mzNJ:r%SRm20,]eWL.:$3Rw U"TO'f/^,3Ev9WG$giWOJ-K96y-KYi^WMVi;')T%#-JRu5jt=G>x9VcC4dhj[KR'K U"J<=BZ5SYylI_s8]KKpUHud'jaxAD_M106 U"M9WyWSYI$Xmmied1d1LGMpKJMXrcC[V7QQB&-Dd>j,1Xq4pb7a&$j#X2w\.OmcKiu%4Y)pQ(v&4U*aU8]V*lKu91;rDu?t'>X?B1FtNQWrib%&\3Q]d+# U"'[1y1P8cZ71)6K'O#$P%36HP0G*q]%QdHON7Ddm8Cn#hBIEB2CBoY>REim[fnqO U"?aRmFhghifehn13^lR\[vUXL;=AWgD7RW_tb#Pf4rfWd?4,,X&O/0W>PnfhU1in U"YObJZgu\k724NR#waoQoF,SJoQc:_9 U".j6DBVF?aOS/PDwzUS+X6N3,vS7RlEXeXYW0k]\k#vk;55JzS;(Zq?\ab_/8Uia U"Z2*GB4mEdNOI*dcUA;KS&bp\rDobfCY.7%9>cmf5'o1m)_iLw U"a5\WSra7L>)b4W;QM U"ci*-)0fB6E)0LEBX8N)7mT2x[sN%pLLIo9W,d8/6^jkL/UKfATNJEX^6r^4$M?1 U"L_7C3)4q?/S>mWWD#BB6P(9hphbu8V32_31%OMX< U"md7DVvYG$bdPB4O9WQ>^2f'2Hd2mW(fQar&1*AUQedz;4A2gaGR44bKeWR^,rbf U";s(1#GM4bH$^fWyD2s=2YqQfa/OhQLiJq[-JoPleYb^UP?q#3=ai*lR0K(CR7&2 U"Sh$?vp]];j5LmYBedvQp/YLbx0^ouvQ93:+-ljF>f4u*R;Kf%U6xl-*#oBi*LTU U"i-s\,Y.1]0f*iw.),FA;pz/bLN(Vn]X.SqgnS?lM%Q?7z*jS%,)+3\RJilmY)/: U"G.(#m?]=cxP(CqmE3=GOHK/JCm(Dpp*5V\:kDdd8eC6tG%DmmOjY+($bYJ^j.+k U"hB'^ugf+\'rAoCFB\XPEETZXiu[]%2s<=5(2^zafo8a9:V:t,XeX-8VH+TgsVp? U"iO9BbC#SXfT0.W0XNxcF]/;_R\SNCgBhFE^(gjhx2H?j^e%e/;Nu-68LfmNjxx,.P517jFrMcJ-Px; U"TX,YOah>k1Ru8:5;]x\4%Jzz4D-%Zg%4PaM U"97P7qwRfxR(em1fN+_qBh(eCdZ5n1pNa1npTS1aJ.,oh9(U=6$cNZQf6c/xcs9: U"?='J(3H/j,;T<45/*So2;30RW(Kf2VYPB&9OQ1r:7O&+._'v-%u%p()9%%%%-4% U"h4=pF-aL*j.%%+%m%%%%-%%%%zsi%tSsW.W805_0O(tox,YeHsx4O>sux+sEsxx U"#(i;WpE;l57(emb+4Es$m%iXL?9e%(+emb0-EG^%4iXBe2;ZF,>Oa#$hCB_R%+D U"4%3JV^=6_\/H&zl[,ZRFAM,Pt6%%up()%9%%%#-%,5I=Fbv3M12%7%%m%%%%.%% U"%%zs.it'S%sWW8J050O=(tx,uYesx%4ih>-]x\%*JzzD*-%Z%V4Pa9M7P7w;RHv U"&gEIs.m&IwgI%5,Df:L=t]x%56b'.&F7A-t:t'Ucp7&E35sm%rAZcZ_?i&9O13r U":7&i+._v%-%up%&'9%%9%%%I-%B7I>FCX*.BT2%%%il%%%0%%%%%%%%%&%%E%%% U"%%%%%%ytjy%wnxS%gfxu%p&'9%%9%%#%-%)AE;Fx')KvF#%%%K%%%%,%%%%%%%% U"%&%%E%%(%'2%%%wty%Sgqp%up&'%9%9%%%%-%)PE;FnwpR:%C%%%&K%%%%.%%%% U"%%%%%&%E%.%%m2%%%lw%zjsS%gqpu%p&'9%%9%%%%-%p&E;FH/Tz*I#%%%K%%%% U"-%%%%%%%%%&%%E%%+%\2%%%gqf%zSgq%pup&%'9%9%%%%-1%^E;[FdE0%8Q%%(% U"K%%%%-%%%%%%%%%&%E%%%%R%3%%l%wfzS%gqpu%p&'9%%9%%#%-%>\E;Fx;SDwF U"#%%%K%%%%0%%%%%%%%%&%%E%%(%N3%(%%nt%qjyy%Sgqp%up&'%9%9%%%%-%%ni U":F)=I/Z'h%%%%Y'%%%-%%%%%%%%%%%E%7%%B3%%%yt%jySs%ZWup%&'9%%9%%%7 U"-%0i#:FDD,_DH&%%%Y'%%%,%%%%%%%%%%%%E%%%'W4%%%wnxS%sZWu%p&'9%%9% U"%[%-%_\P;F[rf?.t[0%%%%1%%-%%%%%%%%%%%%E%%%%K6%%%kts%ySht%rup&%' U"9%9%%%%-1%o=;IFi3g)K.%%+%m%%%%0%%%%%%%%%&%E%%%%l%B%%s(j&qn%sjSs U"%WWup%&'9%%9%%%R-%==#;Ff$5/eA%7%%m%%%%1%%%%%%%%%&%%E%%%'HB%%.sj U"&q#nsj'%SsWW%up&'%9%9%%%%-%(B>;FYIM3V%u%%%'m%%%%0%%%%%%%%%&%E%. U"%%:C%%%qf%slgq%pSsW%Wup&%'9%9%%%%-.%a>;CF-q')i7%%+%m%%%%1%%%%%% U"%%%&%E[%%%]%C%%q%fslg.qp'S%sWWu%p&'9%%9%%#%-%z\E;Fw2NY=D#%%%K%% U"%%1%%%%%%%%%&%%E%%(%ED%%%mjq%qgqf%zSgq%pup&%'9%9%%%%-4%c%=uK%%%%K%%%%0%% U"%%%%%%%&%%E%%%'wG%%%ytjy%wnxS%gfyu%p&'9%%9%%%%-%u\U;F'Vcn)(%&%% U"Y%'%%/%%%%%%%%%%%%E%%%%rH%(%(tz&&tsS%sZWu%p&'9%%9%%#%-%IA%*+Dk%-%%h%7%%0%%%%%%%%%&%%E%%(%'K%%%yt U"j%ywnxISy'.%up&'%9%9%%%%-%)]4=Fh%GCt&9%%%'m%%%%0%%%%%%%%%&%E%7% U"%#S%%%xv#zjj)%jSsW%Wup&%'9%9%%%%-1%w4=+FlW\(GJ%%+%m%%%%1%%%%%%% U"%%&%E#%%%)%T%%x%vzjj/)j'S%sWWu%p&'9%%9%%[%-%hA4=F-ZaLj.[%%%m%%% U"%-%%%%%%%%%&%%E%%+%xT%%%zsi%tSsW%Wup&%'9%9%%%%-.%,5=gFbvM)12%%+ U"%m%%%%.%%%%%%%%%&%E#%%%S%U%%z#sit'%SsWW%up*+%%%%%%C%C%&e+%%%3V% U"%%%% END SUB V2 CLOSE:IF S=75AND 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