'=========================================================================== ' Subject: GRAPHICS PROTOTYPE Date: 05-30-97 (12:29) ' Author: Robert Claypool Code: QB, QBasic, PDS ' Origin: hackwrench@hotmail.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PROTO1.ZIP",4^6:Z&=15123:?STRING$(50,177); U"%up()%9%%%d-%h*f3GE:?7&+(%%%u9%%%,%%%%wj%iSnr4lFgp)arU1>U.I&Auq U"hos'FO#ol6_a)rvR8(ja/LXNuyE1+$2rPR U"6%dI^MgpBY'M;k/8Gg%X^886_i2$LXlW?#NDAZ;YS5Lo6tmdLua?7Ls(M_$'DUX U"JQ]H8mmer+bQ+%&F)W=J#q1.P>S%'5UAPsYbB8#(CFKC%GCggURLQ.TXdW%t?Cm U"49TUm^9EY4H=6_D+KA2601-63j1+r7\?95K_ZVg5n4tJd&i,q[PsEBHw+0hnTPt U".Mc:Y%-8>CUL/J/,#k&(lrPfdJ4Cj\uPv3G9JsP9lf=]:8=]Jm&j$\PE=0/gSk3[ U",KV+/I+i-5tR>XJ4g2aMuD,u-?]f_4O;uI3&C.UVJ%Z\,?(R U"c$[WY_p>FiD+,=6=og_%BEP:RD_KXdqQ7Ds\/>_MW9+n.n-&R- U"AYGp/mmHv<]aRx](5Fwf#wXM'IYd&6'G2iR&X#-cWR.[v?#.$-+3>RPUBAC5o[% U"/ub-I[Xh5X7#?3k)ODsof1/1BN=?4O.vKW=)J>K5Be?>qf9+<*FcU=\uxvq\+#D U"SF\oZ$ppnoCJ-C9nbW'#W7Pn^>Q=:lL[r^r;cd60aBwnnrGMEtZ-'Y/Y6<\4%fwc]v&/>C$p,iQYP U"6Uhxhh3o#;1,A#e_?GA986^%&sg,,O#l>:,h.uM,R73ojhkp^Q8U#yh$r1>9?=% U",7QAA+QUKk]2/#o5>s#c<7>5E&XL+5w&u%p()9%%%%-p%3*4^Gtoc(Nx(%%%u9% U"%%-%%%%gfx%jSnrOlFg8,fcE1DU2p/i3(Nx686(F?MG[ABn3Dy2pk9C5a5p\u1: U"B1s1<>(1aU#ANuyE1+$2rPR6%dI3A'AS>gN;w/7Gg%2tKK9qi24IIl>u8LMAZ;S U"SWKo6tmdLca?]Ks(M_$'DUXJQ]HHhmfr+bN+=&F)W=J#q1.0NS%'5VAPsYbB8#( U"CFKC%GCggURLG.TXdW%t?Lm43TUm^9EY4H=6_D+KA2601-63j5+r7\?95K_ZVg5 U"n4tJd&ilq\PsEBHw+0hnTPt.Mc:Y%-8>CUL/J/,#k.(lrPfdM4hi\?Pj3R9JsP9 U"lfF0P^c]; U"4['Y*1orHOFA%e5qh#qf;i;ID_SMb,^6dhC&82r]oh%CoR9>GVKhAei U"H7*Iu(L6Q+NA_FMaYfa;b:>kag%.5u0i7eNNPT?o7AgP'Wdd=M'fP*W3Dom[,3q U".#u^>o*8Rh%V&RQCd1c$?eoF^41G$a*-5J%pw15<(D0eQx# U".CM#A>:uY25aSRGAx[.015PRKoM;B,DNnKA:/fFq)yL$:0>2)VRE'd(5Bi=+f:l U"5I%KW3xU,PD0Wii4R.3g]v^&y,:85Klgl[QgEZd/FNbl:50.?hrQDp.3$XE3Q3n U"]BGLe)rE1\h7+tAKO/.b:\xtH?7KAlbL-R9Dhf8WJDa6UAkdQ10:5ydhMP2 U":Hqp$mG4N=(y:Gamw8hlZ8Hp2sbqjRs>hGGgJmlJ6GC+49/rc&hC66)#k$D](q> U"^$$xafVLr2/LM.4/6M27668?+d_qeI/qdZ(jqT%t5zkXF6v^;LscQ,BhI&N6&0s U"150&R1EAnT5d9e?guw%S*V)FaMnbL.]r\f]b=m#I>>GqtknCbno0i5:]GaBg/tz U">4fGMMW-+iF+hnb79p2Q=5/Jfju(C61qd.GRMo$g[F9'Zj)';dup%()/%%% U"%%%9-)4G+N/aQ%X%%%%X%%%%,%%%%wjiS%ufq%I%%//t/AAA?uuuE.EEw%(%?%% U"]u%%Y-YYii%iuuuM???OqOO--N-ooo%QQQ]%]]up%()9%%%%-%;Dq6GY)V:9'e( U"%%%r.%%%-%%%%hwfg%Sgfx/dz?IP8QqLmfo*#FXHX>pCJ#v8V]1>_TV,v*aI9LU5kvF2G?G U"51s==KjVEU:sYc<#KA=rTt2S:e0' U",.+-:&u(--I/t;KgK\ko(FK85KO-h\g^.UmpNfh55\EMn]LWLjU2(lQ\%TJV*xk U"6-S3'1%m,G^MhHEavb2v.;;swHd;?03*O;0_v,]d^gY/,#q]PA)=Cx'AlhWPtZ8 U"HHoZ(-gqIb41rXyrS8?+\bfRNCrPod+?nO1PT2)S/+E,3_Yp,SOnMPq\Ak:/>]b U"Nr5'V\p,aluLvoJ**VHLbhQSTHubOW0s5'12xUgM67fc+AWOb U"[kVOip U"rSkJOZ.s*EnsA8.>5WS;(kQB]ecAEbo(a^c*,8wX3>XA2K\Z[T4S?DSvJl>&pA< U"_9dgBBb0^8cbsviaBO(&p:3KdAt5J9h^I#u>:m:>HYnZ0$=uv#U+r/e>?;8$:b. U"e&cdx.RXSUCIm;jxkOJeeJcOCNWc' U"4u$CCKj^0tX*>]vG07Or'0TYDBCCGU2R<7,v;upy^UWtf+Pr#vZ8..Nq?7eC2c7+sf%bWlGU1gG.kmrxf$42Xs$X_Sr(_5u91oEatiu&2 U"HX7>xN(?Ao'*734w,%up()%9%%%I-%3AT6G0N,+Jy&7%%N'%%%0%%%%kq%fyyj% U"sSgfCx\3P+uX[-c/d&XZ?qN>T*a<9K U"FrSJg'uHgjBCU[Mkhz6,LLZnG^dsq_E\+a*GaYF(?20G,0YTQh1OT4u3(suIgRL U"KwD%]3_=Us110-]=0]a.szV8D7kD9:c$Dg1>(G690'W]59Q^oezPYqV218/kn)g U"B\U/?[F2zZsXFle\Z#bIs.e:98cQJdR.m%:*k\14)wygI;%tBqav+,003;$^gju U":Wo'Mkfs4t[X5872wWRgmd=n(m-R-jXQqT;<$'V7xl7fQ8\o1PZbG[;cqlOk?<( U"beGo5Qu9Z)G':nah4;FLC&oH7Z3E%1,v>8j2*3,wr^Z6D.TzgX%,t%(up(%)9%%%% U"-%lbA6G9Wod^Z%&%%I%(%%0%%%%g%fxju%fqSg.fxqe^9LLZ1dkg?5#D=; U"VK:KV%&ko;fJ%=cf7vl&-/'YUY9shJL,yKCgLh?gVhB$m32+^t\RM*tTwlPClF\ U"=Ah1]3b?Y0H;-RW<7&U$YviIMuv#YAP46[?klB)KOg#T-3k5?BN)gXNOb(aU8i1 U"Q-PJH)''eNu&/Fq='))gTg[]Y%Yh=.TEBaF.%0$=n*JZbG:1GB49oe_s#5r$quO U"'n^j*HNHqcv_;N910#t,xH0g-)Xm$)XI%Rnvf)rgQsB]\)]_Om;j;Ne&=?Rcx)u U"wvMr]w=Tdvg=lIwMm1W+KGZA&8&]PtQwG;jlaNEmurMjcIRAq8X%=._dcWs$A+7 U"k.rL2uq&5UOzU:ZW4GbGdyB8aS/oV#.2j]Nl,XimJPl\g>%;rT;'5nZo^+Uq;U?15%e\sIPhYNe>\3AMLW>[S1]?<^2n#Q(t(Qx7qyrOr0BmnP^ph*% U"Z=<^/^a9qa8PM[S^Na&66a)*;F95d%%up(%)9%%#%-%iDukGGV-v8D[%%%.%%%% U"/%%%%X%WUWU#USx(Lr2$40Y77%,P?+MM/39O_RRq'^1p&?%k+k+.+AJ>(=s=Ko^ U"X1q0:)3e%'j1c&=U&p&_eVh%u-qE[9Iu9su<_>69AoF)31GGN:mq U"?sstV%UMey]dJ;$pOc]&q&up%()9%%%%-%2XukGRxOXV&j% U"%%'[%%%%/%%%%XWUW%UUStdgo:Y;3/pZ%[WUW+UqXr2SPP,ECX4#J\-0#3oF#:Y U"m:GosvE9=NEG/Q%V((H(l7%i%.(((DVZDSdR(3tT1fQe(eEu-nSBC9P_7ok2P$P U"fCS[RKj,;U1O%YJsTu,xO[CWKf0>.iyHd=H:';CgA==&OoV;l U"S;Huv*iI)(flN/#YlcM+dU]8#pIUj:GJ-%#=JjXRlYMrx&_[1Wo9cw]qV('&Mu[ U"N/)76Zg5a;LO:x:);9=aPp^'pGjX#T[M/tjH),]Ka8j09aj5ReJ>.qQ+jWFAVqm U"GYz8S\*d6Ohj$TBa$Lm:CHtBWpL6Pg?#n.JKBkdq'\AZ9a_r]J2ds3a#%[oH#Bt U"gbIT,AshZvddu57:c*EiyN%;uyXF/(T.HfQyu%%d2y+ig.;-8-hUQq**P4nIxhb U"7RNRn%+]T^#osIRA151Igf]a7..$Ih-B*G;$=IfguE6bOWA,eoSkCSjrgEGLRj) U"<67Rec1f_O,uGGeUtRD$LNOX/.g;b4:'e=zcBI4=M0Ib'ZF's+up%()9%%%%-%2 U"XukG19O7H%c&%%&R)%%%/%%%%XWUW%UUSfRxrFa9Ds6FbSrL=r3rTs-WiJI U",Ae7u'oxC#L2+:,X7.d76E1odQPpLUJ[OfF=2>Q*?D3Qd#+[,A4_'&Jj;a'*:;q U"u=VSlZqE(\+<547kpYtwY7pgml.;B3s=h-*O3c-(FGK%P)'#j.:JKnd/gUHV4<: U"rCPZ5cR3[g\s.([Eg1dG5>mq8tdfdK>:m9^i+iBFu%e.f%TT$-ot4NcF(;tP4L\ U"jz:=ZF/.Jpb&HM-lmQNC^_i?Gm]gMCFX9$FEKhAAcq2I3mYaV3>_/mj4Bl1bhWk U"'BZen(PC$q>^3,bxo*mM]mjKbXkWek9?VY9?6XaD7c.B+S,N:8m?#\s)%up()%9 U"%%%#-%SrAkGvI'%7h&.%%U)%%%/%%%%XW%UWUU%SjwwWFaD=&RU5jI&194$+Ly_7xi9D(8Ihy<-jbQd3Aw U"dZc.?C.q&%z5[tjOe.\+RxDlL+s]jeKP,7ILJ>7nlJ6,CmA^:oKfaSIlB_dGKWb U"^^Ao9D*%%up(%)9%%#%-%pH'4GShog[*%(%%u%9 U"%%-%%%%g%qzjS[nrlFMg463h8CNR5ct3S/47Y6=] U"aiXr0U=oX7v+98E;S>3[^:KC(%c?H&dv9GTV'T$db8nND#hEn_TXFa]?4Xi$P71 U"E&6c=(ij(-8RWe,ZdVunrb-CE5;60Yc,YH?2f;iU#C.'Y'>k5\&R1bQ+FUsd$UO[t,-d:qfK]:3<[22U4h+ U"2FJhg(SKF3b-9Ep41Q[1s):1>5CZC]gUX$N+XIiM3FMjN.8?bY-&dWZOK8_P?5] U"&VW U"/%4;E$M2C\c]]:ZMl+Fnfr$1yjSU,W9f8q9Z]R(d[H^5Tl9KQN7PY9[/&=p5P^% U"4^q8+<26IK1/=2,kPD0i5i4R3(gXv&Sy,:5aKLq[$QgqDT3s8l0:;.Z/Uk(g%dD U"Gf>C*BAU$+?t5ie?XdJ1Ub[y9cOW?vo\nLr]KYv6+fGVSLqrdUpCi>DRt$='T%8 U"&SO\+gqZBm-_JP9=/\HD,GnR*IVTCKsiIM(3Tw_*.>e_d3rMOR0/:-4pUG=&g7i+kxHT=sT4O=78-x U"%%up()%9%%%7-%J0T6G.g;&10&%%%u9%%%-%%%%gf%xjSrRxpN'2Lu*nD0lhl)m.qq)YLQM$?a9oE?+QU U"/3ua]G;B1qId+=mn7S?G4,4*;DAA7<^0kZn\e[?>zB]x(3IOi+gK-ITz8)Ek($T U"0C)RRnEQV#8zQ6)7rAyO3\cThY?b7auNieM\]cG.m)vz9J;7;L,D._'vDrK6tRp U"NdmQW1')5*Rg,k*hb2XmWVLgW^bkEyi+mhkbE5k(]g/Oc7U?yv57GAc.F\]ebpG U"KIshI'$Icm?xd%(=2kGd8Q)(7%%:*%%%/%%%%uw%tytV.Sy'yA,yr>]][16 U"j#iNYN&fPPN-Nobb;/B]Jrf5Y^b:ISI;GZUsMf9vKnJ4JbjfJGXu]\J;^cW7P43 U"RF^17=ZW'NVf2-8r5Y?.)QE#z3LYVk U"bJdoWQu-Z+3&dupDLDurbuut4#RdV<,&DK\PFuKYBF/MN[cq*u0>zPhx.pjmckS U";C_OySUv4l_MhIZ(h,Y5saPNEqri1+8+T:ehz+:e*1(ylQv,<Z?^o\=&15#c-7wa#AU(1D_7px6&+HkouqFI4LD%UF/33rLgF9\KA?7p_?Bi%\n4li(7*Nh7 U"JJ$X$:hj9YhZdFi$+V&:,zPn^/aDO U"P&a*qs]-F8%up()%9%%%%-%n1]6GI&%JVn%%%%o%%%%.%%%%ij%rtVS%gfx*Fe* U"/O7E5V*6xZuSi&.%%k)%%%.%%%%y U"w%fsxS#gfxljxTYT.U5L\BqD+bN)E#FM2>8p8t47M8Xf7EUPtbjrSW%9Td)>4W0 U"NX$/,\5T+5or_MiBK5[aLJDc%Y56Nx0*&3,C*iVHeY$*Xx8Arn0(>IbawuL&pEo U"Y)QD%P9JxEO4&KOhr73PXna-7Rt2[Vio3*/2daSkS[e6X=FJ[L^bWB1PxKDvS$$ U"lpO5pay.x\BbgDM0B-Unah6^TY%P*>+z/2H<0%%=iZiMk4>a/WfI_2z<)BqNkYp U"9[WM*KAxI#aP0oVVE8ee^X?8YX_0kfte44uhg_6V\sEBpQyPAOnZU7kLI:JKg?x U">>o8jd#l^\t)&'l=7P>%ok-;sM6/cS6Iwe?:2*4T,X,N'znW_)='s]PGo/Z'J;; U"i^uVXU-lm#%cI,Ab+C?U9&4Ib5Iu&AW?HtpYdi^?K?_%g])c3qrcg#W[y_KhAjq U"&4rkLOVV_&*%+MAIc:MX%,nn60wU+O55om6BB.1\6RO. U"u%p()9%%%%-j%Dy4UG4dc-YkDW,P/<G*]apS0v(qE7>HXDT15AGs^T76]sQ1WkUo(dZcIs8f_qUVWU&GFBq U"Sr?o-UsV[Y#uqO.2MO/FALHU&tw9[6hBvhr9zrfAmA%Z[J>[NYeR&%FyU/jaA3z U"RZbg\%)u%QaHiTjx0EL=#'QUuYN)]RSnYrqXK#Xm6QQD^),:YRAt-$fGLBk1vJ- U"_]#9IF\/>rZH?c0BZ77XX-]]+]s^-exXLqR47NW^x.63h2A.ax,BhHcH>0^4^;, U"VaD0#M]AvFOrEGhH5p^FD/F+k7z'O'Q3GgD[:_i1ka(?wE_cNge.c6[Kn9NbotI U"D$iF&EaKH^bXG8OZmjB3O4n#A>[\MMO68IAnygPc1s/YZ0#0okM4ak$CXoHT-&a U"$Z9WT)wLlN^hQk\k9I#9]f(76'7iNTB4w.R/bjyGn'\;<60d2)*>=t+KW'rls+_ U"^c5h[wcCj5:eyhfa[TX_=n[xE5TU8EGb?U(2mjPpTk[UM3M<]d'55%=n,$qBNW3 U"MeF8KJ\iaYuuM(2bIW[5O77p-38Ne_g%%%%0%%%%gfx%jufq%SrfpDBA1Ep2?mJX(K5+0:C]f''S5 U"[%%up(%)/%%#%%%3GA6GE>5>e>%%%%>%%%%0%%%%k%qfyy%jsSr%fpkq%fyyj%s U"Sgf%x2/x%mfwj%iSgf%x2/u%p()/%%%%%g%7r67G)ph&??%%%%?%%%%1%%%%rpr U"%xpxq%iSrf%prpr%xpxq%iSgf%x2/x%mfwj%iSgf%x2/u%p()9%%%%-j%Rr6LGj U"r[-]x+%%%=8%%%1%%%%rpr%xpxq%iSgfOx&'<,BSm7cwgOxGV'R6)$1J[hsaGh* U"G&*g*;YVuXm]EL:#/9O2SUaiXAwvE6Ha4I]\rw431?\koVt8pQmIF+\>9epuVxH U"Hn)D]6t0i5PL;H,e-h/OmWR1US8NkcW?_qkUb'_%K*A\n U"g9?dABm9AYT3j[2FSq&aBw3>Za96n;:'[M%U=]2HQ-(,CP8/7N16*WX#g\([IE\ END SUB SUB V2 U"Bn;RD_#r:''ZM3.,K\n?8Y==?#;Q2f;_aHw8W44*7tm]?$:/TK7Uh39bT+1'9FM U"UOoVwG0XKcD2L'Sgboo'K<7GpQW8R[%89*H*O4-DSR_[:-?b/]_6.P(B.S<8'o2 U"R*n.\6,WG['c#iE/.t5&+=P;O5:b+WQ: U"-CfL1U89pm98&'/+i/QH5d?,W>X+CK-vO_mn]gn/)Ir0XXC\.:gg'^kd[P'Jvo$ U"1IXy6E-k[AUTiq+XSX;\W'?tb)8dTRbgqsij?$d[kk[-$0\l)3Vy4()UorD=>4Y U"'*%x0+;-mEG3u&ZQg.+3Ke:2s^?-LY9x6g&Kp0gu_h49TuEf0ddI_YAW?fxkWqc U"_8J2g1B'\Oyb#LWV/&T2s1bOuc&A1c*Yh#5yu]A3&Os0 U"5i=g4+RtuZ>[^5&>b^+'o0+M(gkvCDNsj37lZw:8NBJjOY-a9twfu(L?/Q*ysj9 U"hFbU;'5qC;qCe)1VOp[&Aw-[CfsM),ZAp9RKDslnfs6iV7Ft&Z&(3Lx(QiUYs+ U"$cx&fW^r[JCtGV;agp$ts5%OIZ+6w1sf.e,?V+i6g3&F'x U"^huZmX.s++jhxa?HLK?Qwcz2587dZAacOd,=]#18g\'V>'\96O01Kkdu((/7u\V U"SO31OJnfq%6OpO[oZ)6tRo8c/RobsfK9%oIB+'GyO4g U"g99#**];381wJb(XYYSQDeJ-dVIY,X,0(H?dSWJ7?T^L#mr>el6acL[:eu=05^6 U"Li4fOOiP4&_DDPAPylS(7z7MPoZtd';c60i/W]98/T;]er>A:,0#ufs^XIrE-W) U"*5t9qyQafW)EWS+,(YM7qXP\JfPDHE7u=bY;Hi%zFTfZrNE_#9 U";g*fiM$XFgt8ULdf?26:$Yzp(8BM;>N7V,pnd38?t_**V>Mxraim+J+zP(ci^jBQMhayM1Yj3gCR1[FlC.t: U"*f0ZQv+,t97kmcE8PPaB#nIwfja%^2F.kN1h63qVRxp?Sp9J^+//9Pp?f47eJe32crrjxp7=Y&Q;JIfP-O)=)cVH+4]h6jY&Gts^qANf#7ax&Cf U"ET>E]OF\i.3QHKYjOzuTl(?:Wn3t U"SSyp[Zm#hFnnB,g4GUAp$pk-D7.-tJ#iDFwNBE=YYJJde-w]4B<>[R$G55[-'/R U"^rt8\%U>g8q.8XSmiffZ6E-kko]nv[$>e5&$x1[O5p$JfoYPde^lR<,[?S;8j<; U"r]x)%up()%9%%%%-%N207G[31mLG-.%%A7%%%1%#%%j'%unwj%shSyJ'yT':r>T U"ma768Y\NM1)'AqE5E+b1_[h3o%V3TQe_08URN>-i3Fncvb*FC\RVBMv%.z\8^aD U"4=mB-fD:H6Tv5>)KKNARF-Q.Cs716xOsPeQm U"(w)wl49?42^]ROC/8E'fX U"R>ZX+LSO]XN.FB]ubkFT60K=%XB^w1d+XUhsD8cX U"$aDpa;Q5Nj.F.3\;uY-Z9^)/,S;>r5uq'r1>r?CoKEepbVY^PZNfEH*05L^I2iW U"u/Hm=N]6FC1/?aEkN);8SfN[=#l;6Qi>%[*Qg%GDp3-x9&^fF-Xjm49d.1zDm^0 U"T8a]H\hRZA0%zAIdI6sszZvnpD6Wm#c:qm,HNE)o%3&w0SHZc,_+Nhe/mHcAQ6e U"Kc%)0[e_+lCu^kprt+c\F?>T09.3ib9IRy;15YqhLrEO:SDrKn\Mc66ma0Rr+uX U"ZH)&Ekzq;]0eHpkmekdNg)%:UeD]Vzm\\2GAXO14.G>Pt]e>Fr$jF$?FnNyn,vZ[]o/?>4SB_R U".6.?3/iV$FG\kp#fZ=SO/m/O#pZcAfXmWL(5Ke[?&8c:-\x/LJ#E,C?cK+tW]rDnbq*q#y7A U",\9x*VlDH%Ez:iNDzn8$jee+ZmO:RIWbVHmqO\9+%(#BMk9Lv&kqzwop?gwrQ]c U"[*gB7Yt:m:RaFCx7o8_T0'nq;[_aJhIY_Q(.lOp3W:=xr>2cL_bpSImUOCY=V=z U"i8jaGKzaUBurq)rrLZ1U[J#Zp5NZ^+K=.N,fXr2NqH;$pY(k7wx[f(x-H8*^(O7 U"BC5j%C^,waIm_74oEU+Sq5L639S9TTNT'k#X&Hb-fmH$RhfxO+[ U"O,=duB5+X\?+6ZsRl'iX#xkR[f?1();w/,g&[(k+7Hl<;BQWddy,Df?-zT6&Ey& U"igc$2/Gk:WW6SR3[)aL/]Fd<585arL;zwUN/1vam;m$eCmhA3?kIo(%j69w5I54 U"u$aK3.>:BmKi)i=lf_xKZbQ:E7M;]y)+D+YmnEYCEhHi:qB U"OZrx*+pmb=+Md3u8fBNy^US_sWdhG'2^DdqAbc4\)W\*6-%e*5; U"AfxR[SXHaBTFZwWHw4:A3SnIk2+ev.F4klejECKfBL+yqlJq_s U"Idas>j+].OqjZ^<\5H-lVFJ4 U"^onaDC7$Q?-Jth2ObdPHfbU[hF-$.jS.M5>OB;:7Xf::lHdLuu(>kDQVcMH^_R+I[7mnsJQWd3HJea0u?Yn'm57ACuu+2kG U"PDOL2LhMJH,2<'.8b?$=1LIs1p#Dk5M0%e[V_r^?Y-npX]dSkOPzxnV'x*up%&' U"9%%9%%%d-%h*f3GE:?7&+(%%%u9%%%,%%%%%%%%%%%%E%%%%%%%%%wjiS%nrlu% U"p&'9%%9%%#%-%3H*4GtFocNx%(%%u%9%%-%%%%%%%%%%%%E%%+%P(%%%gfx%jSn U"r%lup&%'9%/%%%%%a%-)47GN/a%QX%%%%X%%%%,%%%%%%%%%&%E#%%%u%,%%w%j U"iSu%fqup%&'9%%9%%%I-%Dqf6G)V<:9e(%%%r.%%%-%%%%%%%%%&%%E%%%'w,%% U"%hwfg%Sgfx%up&'%9%9%%%%-%;3A6Gi0N+J%y&%%'N'%%%0%%%%%%%%%&%E%%%% U"51%%%kq%fyyj%sSgf%xup&%'9%9%%%%-d%lA6XG9od*^Z&%%%I(%%%0%%%%%%%% U"%&%E#%%%\%2%%g%fxju%fqSg%fxup%&'9%%9%%%I-%iuJkGG-5v8D%7%%.%%%%/ U"%%%%%%%%%&%%E%%%%f4%%%XWUW%UUSx&(rup%&'9%%9%%%I-%Xu&kGxO3XVj%7% U"%[%%%%/%%%%%%%%%&%%E%%%'W4%%%XWUW%UUSt%goup%&'9%%9%%%#-%uq/kGuv U"&+'n&.%%])%%%/%%%%%%%%%&%%E%%%&p5%%%XWUW%UUSt%qiup%&'9%%9%%%I-% U"XuAkG9O&7Hc&.%%R)%%%/%%%%%%%%%&%%E%%%%77%%%XWUW%UUSf%xrup%&'9%% U"9%%%#-%SrAkGvI'%7h&.%%U)%%%/%%%%%%%%%&%%E%%%&G8%%%XWUW%UUSj%wwu U"p%&'9%%9%%%[-%,-o/G_T&V;w%.%%6%%%%/%%%%%%%%%&%%E%%%'\9%%%XWUW%U U"USg%fyup%&'9%%9%%%d-%p'K4GSo;g[*(%%%u9%%%-%%%%%%%%%%%%E%%%&,:%% U"%gqzj%Snrl%up&'%9%9%%%%-%9J06GN.g&1'0&%%%u9%%%-%%%%%%%%%%%E%%%% U"Y>%%%gf%xjSr%xpup%&'9%%9%%%#-%6:96G%2+YgN%%%%X%%%%-%%%%%%%%%&%% U"E%%%%6#%%%gqzj%Sufq%up&'%9%9%%%%-%=r46GE+u>Q%)(%%':*%%%/%%%%%%% U"%%&%E%.%%/#%%%uw%tytV.Sy'y%up&'%9%9%%%%-%7n16G+I&JV%n%%%%o%%%%. U"%%%%%%%%%&%E%.%%[C%%%ij%rtVS%gfxu%p&'9%%9%%#%-%DGq6GbpNuSi#&%%k U"%)%%.%%%%%%%%%&%%E%%+%uC%%%ywf%sxSg%fxup%&'9%%9%%%R-%Dyf4G4d>c< U"x%%%%O&%%%/%%%%%%%%%&%%E%%%%8F%%%xtqn%ixSy&'yup%&'9%%9%%%I-%cA0 U"6G]x&5DI'%%%<*%%%/%%%%%%%%%%%%E%%%%_G%%%xmfw%jiSg%fxup%&'9%%9%% U"%I-%DqB6G\o-68?%%%%F%%%%.%%%%%%%%%&%%E%%%&UI%%%ywfs%xSrf%pup&%' U"9%9%%%%-d%lA6gGKHF&&:%%%%>%%%%0%%%%%%%%%&%E[%%%#%I%%g%fxju%fqSr U"%fpup%&'9%%/%%%I%%3AK6GE5->e>%%%%>%%%%0%%%%%%%%%&%%E%%%%*J%%%kq U"fy%yjsS%rfpu%p&'9%%/%%#%%%7,r6G)0ph??%%%%?%%%%1%%%%%%%%%&%%E%%% U"%lJ%%%rpr%xpxq%iSrf%pup&%'9%9%%%%-j%Rr6LGjr[-]x+%%%=8%%%1%%%%%% U"%%%&%E#%%%Z%J%%r%prxp%xqiS%gfxu%p&'9%%9%%%%-%NF27G[I3mLG#-%%A%7 U"%%1%%%%%%%%%&%%E%%+%-Q%.%j'u%nwjs#hSy'%yup*%+%%%%%?%?(%v*%(%%Z% U"%%%% END SUB V2 CLOSE:IF S=150AND 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