'=========================================================================== ' Subject: 2D GRAPHICS LIBRARY Date: 04-13-99 (18:56) ' Author: Nigel Traves Code: QB, PDS ' Origin: ian@ihalliwell.freeserve.co.uk Packet: GRAPHICS.ABC '=========================================================================== ' 2D Graphics Library DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"G2.ZIP",4^6:Z&=18663:?STRING$(50,177); U"%up()%9%'%R-%G5#SJ/t8]+G#R%%&[%%%*%%%%lW[SgnV1b,&#X^+hJQGwPLEK( U"S6Y/(jQ[ngW$Ke(P3_UB8;#+W(^tA0).S8p6aj?\L168vEzgn9DTm+L=9iUkh=/ U"=ptw\xyONh&NMpt$vf4?wurtWQf6fkT)tAj=th*$Jod]j;x$iGFGBj9x8t[5N)> U"SsKSp#h^ZI#Z7#UXQQp+cdsqU;Q)6f;lhFjPb[VZgDTkYL'p+d4t-+twl=7n>,\ U"-wPucTXVkL4IXpT4g*rwh&qjLmLI(?l>b(WKW68uCpy8]i:SF186E^*k4l0U-:. U"r$fe&j65UQbsm9N$;^LHbxtNL:)l8rd9q2?97 U"81uoR:RobHIc],M)0(G6sXm\;e%#?;W2W#I;tY)D1NcwLtxMDKDI?qj]-E7Kdw= U"jL2=spDcx[]#A,Y$Z^'D5e:Ak71hn>(v4UtQjsxX&Dm3eq:B,gw'u(b*D64J%ej U"xMC27-\%s=DMEgbTP7S?dQP89bXp^rL%333R%HKQ<-5)qMCL\M5dY%_8HY'Cqq= U"LK?D6uPeV:u-2h.dm+Wbg4C'E+fw/qeu4w-P#PEz(J06h:/,9IONNwmXB3&O8#jI9<%gl]J\f+LHc%Lk]7qO U"Y&5eDXu4E8GvzFf?k$r566 U"3:E(X,a4o+6olYsP8$?639dmE_48K4a/hu:sgiRaS/CwUp3'^hC87_o?k-Oiv>m U"#u\1[OI&z=OuncO3g?\D^rc^+,5&)2oYn0sE&?1#19Z1.#d(J$a1YCJG4Z;+Vj^ U"ZrsDPhZ?kUseRHCMhz#A_/m>\4lgXGk;9[A'e<(UKI;'IL>8%?lmx)xAb*9W^ur U"hY8Q4ZLb5_b:uk1b$Ra=Pj3Fx&\h[)Yqu_^T>[x3JIWcyigRsZ/,i7om6=\n^4q U"MYBX[Amc$K6Tmo*5C'Z#xgT]ZgPIC8-e#ebtT\x[jWi>vh?G%,Zo^Z=,412S'UB U"$3c*_%r1Cr112-P4:PBr=348Ww26JMK++l]6Hku$ln%qC,#2Y-LZ^$uwm^fqVFm U"mf,A\VHUL0,Z+r/>N.BIaLcLFI3E/k]hm6ng/WLv.x]NtlGwrg$Ew'\1UH'qRITadc#*5/+&pVm.7TlF1ovka$fhYH_-hY>8YH U"4_*rtbv$WKD\R&jTp.7VMBi5qNrrvY'WA+3]>6(Y72PNkH)Jiu_NwY6N:jC5kZ6-ns,(ppt-8UXFbQ$GHlkrVr.p$X<_Igh9H\v<&R<,,E$IW];zkrW^fQ;>UY_3M6*4h?)o3O1u]I;;aG?-P2cx4 U"V)$U31x=(SkkAkATYM(\$dExp^Z)*m^aIJ*RV1RK U"c%5CY+pkx\p$uUjw\X.>\F%lD3dr82h8JkC,k/K_4lN3kl^\HN+#Mj;ZlsMu+*Q U".V2nmO<7)TfDFKcn1wQ&3aEs1W1nb[Fv3D(wwaF40anis8^-x6k\8gW<)8HSc8C U"p\=9+%XDJfz8=*H8P3s:v9Blwz5kb1[?KcjMMAaR%bnjGU%$pHWJ$LQP0giXCo= U"XUQ\Gvpm)jA;9NH:8;Bdw)fAQ3^0+]bQ7o3Jc'sf8_1#s%TpYU9#JgLLUoK_O8b;VK U"1D6wk5SwVEwG/r'&Fm<9I2E)d:5oq#2TONNL:,'$Zm_(nUYpO4*P#[d;*-+;id1 U"=70##moMP:C2Q6CJm0)iC#/OCl5J8VT><$'-,&]]D0]6fs6NTI;+n?;AHe]l;]\ U"kXR7jPA[N;:m_Ff]lB$GrM=O8'3(.:e_*6m*#FI8/T:bB1iP(Ecm\)wNSzL3&^Y U"U'0O&XI-d(= U"_bFA2Of%>5[vuZvUi.q\<]uLCol/[yX9x&X.R.3pAALUPCoD1OtMVLG*\%o;(]%_ U"8m?Iq7gw,NUutKOgO8H#1#s5B[[8tb:eSboC\5NB68j*7KVZu__0=1Nl=L;-Fw6 U"X5cgM?A2X5UlqZ9\m^w66af3=pVn_*NE5>fX>*#o<=lSElKQe3W,^AqMg9q;5r- U"1L*uE?%]r?OIABqY\%xFp6x_T=5[sl&iQ8hP26O8X.=6>'QZ^Jrm>?=z-a10 U"dWx/+LDg5'wck9LvW0mjU5%RTU^75R6PUxJgwk.#H+_#/Nb[dcUav5.F?\pCu[U U"m8?B3QqS\/Ubs:V/7%4kCAGyURhot2JsysHi8?hCh6u]h[%3MDc1LPdi]rrd\Ur U"kj5You_24x7Rl=grF3H^*'X)W^GLhR5fv*z+9/=/j8#S8\ U"f[Oq[CYqCB.OGk.9xO9E\=AILYsWV-:P3W-A*:3lKCZo_XPK9hTk>sVTvNI]#-4 U"VW4MQKeoqOJYT+TsDUhlI/Q[b.tfIyRL5S5YM+E5#k-jp#'daZu U"]mL>a$/(wB[It5iCdRh#n[%S,8;.ybx]sI/#D8hAI1CK6;;0GFfv.ip3Vt0n2+A U"8[1DG=j;>RhWY5V52N6*5s.7\p?aoo'Yec9XmA+$1g1y'x?Bpfv+FD4wbX:VTM1 U"fJnhYKr#Z'u8fs(xVx5J2FObuq$vnJ^iXQv8l,0x#xPfd-.4)5k:5#6HR9:7mXN U"]UMmO^?lC%PMI^k_$b.)Xn)##F)jIrVjVi4eS0,QSu5g6ER U"DPln'TK79DZ6TC8=SpBbSb]w\e*wK\%hPwP, U":dYsU%Zt6eB%%2?\9\4_KV?H\7Is1^1%H%Y/IdnPnDYF/Df'=x U"U7I%m>R0f_\E_T,m&_ttJ*goeti]$m3O'Jgt(WBH_i,wOiCc[g&FO>p4'b[l?.s U"tP#ujk_MTpnWW5E??y?qrG>Km;hJN._W0S8[IvK%nY4wRRA4Ob4IR+9C=*EeYS-tHBo52la1i* U"E%_cD[c?rsItfJnkGP_X1dGUPCey[t[S1n:6kAE<9[4.'eG#C#>Y*'TN[9HO64gqQMb09OW[RfYqpB.4rLU#^01;V9?o>>>n U"oA?f>ND0j16t-LX3lUd,f_pH$U[e7Hg3^oFZuQg>^t+3GbTS+D0rd97SdgT-Sf# U"aU3X,I\=B+$3gW^J&BL$n._/d\*\X8ktFQS\l*rl%W1A30syqv)>g5h-?^f4Zu7 U"ADR<3t('1<*wgVL*lpE5-rZMi.G=u''jm-w5d.]bl6wD9f7odTLCg*E_Qfw]oE_ U"iE_grjp(P8&ZGx4Yhv$TfpO+nZA5kkkpq;/\'tbhL4=L,zSlY9n9Hu U"ff;p)2$b9p3)n7>wu4EpJ?Iu,D%D/f$>(>UCvm)Ovqy1aMu/F3lugiOxvD#Sss) U"tcl+Y37Y7dMnOo^D+WYv&uXf5XeQ3+kVs+D*'ojnlg4b3M2w]Hz$E?ZcTq#I$H3 U",,643<6Dj3JD9cqsDu+bsj6cAOc[eK7Q8H27[mGj U"'q8R+O:SQdiv/Nh?+zO)b4]p+cJOlP[br>H1/-B7pc2iqy'VAg7.FieU#XC[Io: U"OXZv.Z$l1q2'56O/&cKA)t1=.rVYM8%B%&^F\puY#*s:&u^OnuGBq5%#M*I\>NK U"yuRQ:PkQ(#*&E[aipY#9mJ[dW/C,JB5s\2>%zvg8K(<&PgBn"Qa9$Exe;9,B U">gO7]29K8R6U5[&nU0I(6*poY9.;>8R944/;9APd%r3WDL/ U"8$91'YkagW,0C6oPPXRVC?rD>90t$7p::rSl/J?#(LFDUkcT(%/$QepPOe;,187]hg+lD3d:PS^TY&lp&AW7F7f7W:(5iGZSVh/(Fd>(Z89ijG;'#,$UWY,^*hrSm?i_auO1) U"3,>T^oS)HU3<[=OmLrgG]_7lbf^ U"cKSP.;Tn\HSP4SUY8.BiC%z[jT5j;ay^[_,'K,,jugsNN-?otqMU3lUh,fG>00b U"LkX=j=\NEJD9>*liUbOYm6:ivaGWLY0hSuOa_E:ELLdT&SV)DN1Q]9iYbTLi&GF U"FzN.BLyDVyKG;e3JqFt\lramv8M]b59Of&mup,).0A$5\/,JC^--X56+SC-8V$u U"/=MN^[Ca#6SmhTj\I6e;L4iM)o*sQ/n.tYTJyMH.ZqBG3:Cz7nEz#hB,*;LQUPh U"UX,YcgJ&NaT= U"RbNsD=XZj8O/Wi4[n'E;vfKL['*h>a93c'KA;11GhHF7fm;P>1Ipw*EK_^[Ao90 U"8g]wW9dX=$hz\JZX?ZSXNO=+R)$pabkCdF^FgZfzg\>oGT U"-V;eJ)J68.SAf*PElJap1p-SfwB0mChSXo)w:OPOblue>gFZLcf[$B;-oL0c,n$ U"S%Lr,7d60.,=?Xx*',2PqL?9b\FtrIwNBux:cWN=Gb7(?Ip.[]-9\e=k?\g7f/r U">S3>5TAE&-m\H?N=jY[-Lq0^BM3r$sG#i>pe7EgpvU+W:lpbZf,0mKRs)?XEGW* U"GFYioB_i%._HTs'3)y\PGh.7(g#VgV8-D^ER)A,'PwzR&a3GvVtz45DIQ>13:>kK[G$lp)m'2_&a$?') U"8B77=J0jJ,(HaUs+(dJXKeNr0^?KY[=doFfr4iPliTUcRMv3>(o2,(W-E?;6*'U U"Ae15;MhIonPGTgW.r'\ih/Yge;ahwG^Q(g+R=h^taBg7YRnM0vRJ,pog?i,($ut U"b#Ri0erv>Y:1[H&L8;9fc(.CPnIm%3milU#ID+gbkH47+-,pt.(HPcqgdZA-a/v U"E?p\)+T['apYr'-'G/klBfp+(0Kb\n08Zdwmeh5&l/O;:*+PmIi]JSs?/(kE7:: U"d(ZjeNt9*[kdj?._]kW2d)pa6ZQTiNc^Fs_jce0:o4VZsg% U"(c;=(=6K6L%c5Wnl__21Y8P/\9#.k0[3AHa5C>FGlB.SnU_]g[E]2n[wZ*Z2ag3 U"UW(%1Muw$T\OYs&]$IyP69MNC-CR6SW#pBeek*Fle24Gw)#D*?5?2me;a2GUQO3 U".^/y.e2q)D;&X=_]t[ui)HI[&;Gk]'U'l5lkObA.d=jO3MO4]\Ut&SXW$VyUif9 U"26poc/DMfKQ6S$)z(=^5[.T8Snq;k6TPIZpHE)T7y^\?*c,20Tx;<:%tRoAlmk9:6 U"3\cF5(9>hG?l)RQR1MiU^09-Mc$E98TpR^JL8(oX(#ER-axFAQ\fU-ZeM54<&:? U"(/J7)cm5%ewbz:+Es&/xN9wkloIXikG[oRU\#Z^+gTghokeu=]K#:0oPp11bq9O%M+fR%aG.eDJZWR U"#CxgU7),1I'X_/Yk,syH5G3P(W6rLCMuPa\1pT5SSP^*'AtG:F]6*AW/3=_Q8ky U"Ov-nLuC/D]2($]a6K0LuShlpF3[]X:.H(<;pgB;rV:;FG:i,NM,c%M)y[5HNI8N U"\B^+(k8msDq%V*#O##\r#t:9Rm#eR8luLuku/t]O& U"K,DUZ5E8JDH[r:H?W;ach5=7E9%EVhQ<&ad[pvDQN4-J.-1$C/hTK)Znr#dd<>u U"MXIz>c*9S7,Ef/06a'(M)m+LZWf0UIiQ30vTqiXS>96g;qQC-Nf,m1Gq_i7--tRC,(TD_g?F'Qsh>-/aUHJZdcN()43_tsdVLL[X U"bXkH^lu&[kXztCBK>oZ,wiZBI5?y2u[I8I2q6LlIpn5c.dbmTvoh8E#zIrcS=obu/kYhc;lI4CL,1aMCsq99Jy^keDb+:9p3A1dMk3'wqH U"b;4v\uYU24BALtIb2dG3q(e&)<^GO-0.lxpVLWc U"mtd&M0R-2IUL+hV'lZ_?*Fp3G/VL5kQ/Q3bBgc>E9jg?t:peAvH' U"cAo93tg-\:$2TQ31ea7_C\Py'S.WOh%U7c?pgYp0%1gnOI+qNne8&Aao>7a7lMh U"swF&Wu3]BE%4$',oUUL&,Bo_:pVl]O61>3#5;ZP1uf9q'9SdUZ%B' U")$7qj$yZmvkX1zIY#B%[3_1T?NSsH1::L2ppF#/]j#.>> U",3$Ufpg2vZmqqIa'7'>-X7snSmGns]Be0u_;#5\LNCQ$6taU$1')?q=03xn\_xL U"Mkl$JPY*tHclHno1KX=XC-$,B&l2k5WsIHKX9HL$guVn4EsrQjNLJUiU=bUoY5H;-,z_pJT.XGaWh&LL-P U"VyU?-C7%'tg-G[\^$?gS^]=7P5gN%)Ce(%Y#-wn_JX$rXX1I\2Aa/8-#RXc[#aW U"Pa2b4q[N^a5;-xfI>f]^$E$tLjN(I0OI-PdIP6d.8,*or8+f U"goHs/baQDL3tO#d55HA?B\5BIznZB9IGt_ucEAnGYmF1Ls4#HNw13P]vbUT-FK% U"V2fp+?_owk/_:kr31J6b]uZBb=R+Px#i4#-9PY=dk%pK?^4^>F3$+k^m##K[N.Y U"ey[X[GMmnD)')F#MhAPA;ltq<>f5&_3gk[GY%w20w2mB(Y=SQ+0y-pxz3/])GwK U"Lx2yP\CEXbO$\UM6?\'s=N%LYVf1ikpxh0W0)#hB))XpZ-$RvD6R4_%M6L2u5zq U"LPMl;'Pb,?U8np=VMHYHydnJ<0bZtQ=PqX&XJ$xRxp,V_qcLF0c_^.v:QEW]9P* U"v$L_4<*\\,90W?a,6Ea6v.?KPTti5ZOfhMH>F]%t6>F2l>4CQf=^*MscQ;rRl?a U"+BwL;M7[o>>li'RWu'gHIBtsWM:vckZ$Q0Roo^#RJ>V+<4\\qbX=0AHuf$BAagL U"&$Sd8uygNOC4>TWA+E+2g4?5;_FF-r41\u^x):jSCyMSMQCRhS/=:nV='*4nx89pTQk,b9iuPe5b4$ U"tOS\*v0FITiTQ6tVn>?^edrH9N1Um'^P<+ZGSI,x%AbwBb*m%.Gh1a-6qb*p0g? U"c:Utu/,0VxA.fki'ax73r-Vcq%Sn3WGw-P\Ef:*Qgx]Bru^_;K+bj;9nSEHXBFE U"WK.F0eKbAU:#]..Kq2kD\gqZQq.)\[ip$H)EsP<3JIVI-p U"fhnVrWuN4w^nN+8u7?d4=?wk\4sdwI8Ne,D>pSR:4(v>_Aq^QPbu[<#fqnZ4fW# U"jrE5$NQUtgU'LbCrK4spdFYZFuhs[CY5MF\V>PlgOi:.j2V=A]oEUZDppSofWgP U"tBAb#*>u;[5A'^>U?4dVQrv1bHoL4H%b[ U"i''r-5KKhSQ8Q3REf_FbTlDdcX6l+b4pDZ4_.K4];V]Dd+Jlz3U^XU;b^lz4?pxag+l- U"/;+u0ihH&ZF]/sEsYZFcMfwm$kU<=SCaiqRQR]EMknOR,XEC^bgd1QEGnT U"'E]5qLbr$C2F_X=dO3kq6lf#T.??f\qzCLYs-/Csq?+F6hh=3kxKhf&f6>8Ids% U"SF9PXIxJajHnju,6,]X[f=8fCZt9dgxYm>s]&aNLPR)+dsRMOrjtOo>$fq](_X$ U"v-t]z$C_9$7'0$L+cfG8c-V/Ibco)lF]HETojlc3(W/L2&ZT7k$E&L7Dr[f#[2. U"f/SlD4Zj'4vd96i5K]/_EvfI9q..8]eNEkz,/IN6i+Q)OG^#LsP U"[qF+<&J?72e4KX%h]5Qb'UJ:+>6YDkt<4w$a1K?\H4ZgK88SR')Y;pq>%(Ndk3^ U"Sd%X+<[J3maNGanA[^k0)oxF%=%yZrD)%+r U"6;qoZEL=\vidAFoNQ]q\UA0jha*CEIk)WO,n&m2zCMRA'eQDEZ1%F<5hx$?6GgDUd3D>*S1Y^r7jokpYxU&gJNWw68>K<[Rk U"6IK-s7w8q-+j%V7)hRWZUwB%r3fqjC6>Hs*F;snVpTJCrM,q6Z^/6w]5_Nm7uUJ U"7t=w$*)uP;O&oB=Yj20oh U"Cy]/J/[-iy\VOeMq#=+/7zi]ms:>-EUziii9d*UvokD$r&*X&I3I6HFs\mN]oKO U"eOeCT?,%[X U"TOhf4bPB<_SCOWpU-sTGY/uBlz?w'Bjf?us3qC%e.VP7.%IC;4;'IP=A.?:9)WH U"R15&qK+O5x=pNREi.K'+QkquPl^_GM7rLKO(6s[^dK.Gv.#\P4^%RS^/d4qlVvk U"h_%w%44*.C[w:]%tMpbZEZ$mum#G-mlCN3aJqYq6PnL8%2=y8k7qZF7(=JZPA0X U"%a0qSr-d;?A7RfppL=.:['h$xt4C]^wOdbyZ&o4K\PA3i#Tl\HX,-4,id+:6DR/h]D2Z?<)#,iDsZ>]8 U"CVA%<$8Dm)_#IkBabLNF:LvE$sSQE^AguW9/MHI7%LqneY U"%itmj;7RRx7k&dx]OAM%Sn,g&HXBdq_>6/0)FLL:]mbp7)5yr:Od\iv^da'0st7 U"6X3haQD]eX*PjYZ4:e>6p78j%nrNThv$pculncPal[#GPnuHXGqV=fa+g22.5%? U"Nm+hokReib\t U"aWRmMj-(V.BY^vM9&FEt9iKB_)T0'JcXK.kEgY2O:tp=cfsP&IFA&? U"n&kZC=^aVlOAb%oDVY+S-a/=JG#<0]z;t5k2\vl%Z9/8q/7&z4t'M0)qiTQq6GR9iE1Ft5I#0mmwHT U"D'2TKf4([EwW\(LmO9.kf2x9LNKqB87h=;OB46JNJUS'mN?0?oAIe+;V7;; U"-F70SOS_^BKTID?EJe[>gi;i(;Q[l6+8Zn[m.Y1rsHtOHn9=ZSUXrDE=#?'K[NP U"^V9G;h],qEDL)2h'[Q8\Dc=>7-Lrp6a'+VZlH\t$I8P%t$kZr>wAF;6UVskvlc> U"u\xe:=VuQvd-<*MP[ZP(^wSB7ULJFeI1X^=)QI_1OkK%LsU]#5U2I3)f5v\XQp- U"pW,b+^3E;>T-fU[TO&a-%9Ik&TL<:W#21v_R=*??j+1\:OBjB,=/TP2\85/31y7 U":6[?cb0r$bbOP8K2z(kCE5091l][GBWqa;(?fk=1[kgBy3sJ?=SX#%s]P[(sA*a U">^*op*8'B..oDYI:8xP^gfZSPF[xs%iMNNJ&wqcG3O#D(vpIx2rWa7#ink\MGBy U"/uo1UeW*^RdCt%VJBCh,rd0]F(faPW%#B$#'#s*8AEVVMvHM5OLK\o5jP.e_kmFB<62 U"?[0]7gy$>7rKUr;3C^yRtY+WnW2&Q8ii95wYi['L-)0-/N]^Y>(+1K:0/2XL*UjYL.cR/gzMcV9NpVJd\6 U"QA6D(b^9B)gji-9T\B3))%3Ot[/y$F*/CjeGHNZp=P[\6 U"O5OjhcSJcJJ6[<*3*Q*K19]rmyO\8?5u-1;*l:uc.HeMiy0WeIa3)Pv]g[L:Q't U"Y[iLY(/P79nwYUA+_j,#//EYsYP,[0ZL4wwFC?\TV]rXn*]AGR,cS3z:98Z_;JX U"<=rY4G\f85&KYGud.puF%WYsG*.JlnL2l8sQr:*uMK3P%bXh;A9eTMu=^=2j8Xi U"wmeL<=J16V8wfr6+ApWi?O3LiuxT^dF,?[.:Jam(GXri.r7R.q%jE(=XS[k#xSp U"RP6./A.Bfq\kURb[#RfMf2vP6L8%QB*1MT3&=J$3h%7H9CppT#4(P+7n-[vMarW U"f;\ohkZqT7%(Mc=4TR:NLN'UO:mE.]6T.#QQqKIr^)IM%ov1[EjR4Ku%OQ*6??Z U":Ij&$E+(,1nQF3hm;u:79u;&L0XsZ1=V,;pdRyif#CC<+H0>)MKc=ha3Ps6z_YY U"+A8t#g+W,)B?;4_Mo0?K[kC]gzZ2N[?](mykaV%>la6=Jcm7u=n1ji_r'fY\?h& U"ezKRl6XT.s3;18V'v0CK<)nPjf6%4l:0fVq6nOAnDxiGXnXT'^I&e9W7a>eJFDM U"z>,CB[NG*FW;U)N.^6(B2BP1ATC10Z[r#BznlJJ-UcS7 U"mPbND8gBsF,$neUYwd\Q:qrnmC?h[axs?Y.ulMd+>J1niFqxD->hlXNKuw$QVGF U"8LohhGh>:kX\W:H3(Urp?^5&U/6me(IQd%dkn:*Eh'4b1c=TRtAJ_ad5,2JnCWO U"q4O:.Ovfqdc=ZTt5%9UAE=1.ICf3Ld#^wP_ieti3+G#AE]7QBXU_tI(Ym^&V;\cIW8CYQKVvvLC U"kZ>0knBhmF>e0kd5)#/+FJQ?RRDFlB%t\SZO>u.&xm=H+PYv+cB^Ag)]xF.Lr8c U"8#OlnE,JtkENzYLq)#SmhDdh;6PN5-Y8)sd&KEL3Cfmq6>2FB(J$t2),RFT U"^3-_u#skZMI,CzK8Lug>2v0zrZpZlOQN'(n\nOc\M*?'cZ&0)]DZEB3gl#*uK[e U";D)TDs.m,oS[4-MYZaiCI?:O501P[&(-c1+D60Wkl08u)WRX/Gi%-n>uJCkecT8IE'bWs'a\;95sx;H+il*(9(ez,A[T..lIQMB[S^%S*JA9ida3 U".p*q5%OGC9z)3(:Pq4K4F]1Qpw5;DqonwQ(u54ZWi%9eC_oBweyc7>W.P%MN(W7fC1mZ6>seLk,A3>kv)dI*-Y'-d'E4OhuxxjX9 U"Tb?'PR_5zAz;J3CP&JW U",43zN2-X9*UnOZvBQsiJLP]&,'&=Bqqzz&0M)&*.36Aq59#t,LM-i,GDTf,2e7$G(Rr+j+ U"4^O5$2Wl-P6#C4c'D.'1-0pFi8jfAJVpn8;F92EY*7R(G2C+rQC[FW(*Ff3r,$2 U"E.k)74JrLu5b=^sr&A^^sg(78?^Y.eFezYIJLT-SD U"j$zYVDp3U&l9fZf<9lip5M0Qq-PjX*]7Si)Wi.3);Zx8HV2T>E.*2j#u4E?p.*2 U"O?u4*J;IP_4B*p)=eGQ1TUB4w)[--NAY7uc0IGXZ&/#N:MAZYD+exb)&gRO>u29 U"&?'(,;9D1jgj1w7*93aJyxRmfQWb_bxj#+y.L7/cY$>&Q(c^Ppuv_]7m;HWmY#X U"iQoxu)+6^O)sgq=g/xy?YL6=K?P*T&0'E7qU35[q$^4UJ(UHJ[(Y)-.GOO^jz:9 U"vlmD1Bq?ul^2Vk:5^/XH^Nn$CJ*na_]1T^4^_Hq$/2qhKo]=xQX?>cDqT,c6v+z U"Iy?&bs,%#7%E,fh\9(S%3#NIx4gXPnvzC5OmHbO$sdZU8>)X=g.=:PeVq^+=],-hsF0]'3nG U"QGN9.Mj,[gg&Uv][s#>5s+ag3.DfA3#*:5[(x?viW3W U"LJd6gY,7mXpN\s)V[,afnMe#:kpf>f?Agbym5 U"g/'fBRQPu[b[F?V-RU6K$jYb)eJZGQD3E=W2>lcQBG*0:qbw[=#C3j\1j4\tKQ%zk=$%[GcdK U"C/)fbdA/Wrl9F#DdN+r0A[\shJw/z>+S0hQV'%%^4*>pD(mhm$>G%&b=IHG6mS[ U"FF7-[EO^bpF#JtBLZ/YS\s>BMz=FLc4()6nxPRuCuo]?\>JqZBGARVRZOl,Yspv U"2Fe,R-]7%Y>?DXas<^rud*wqPWR#g\OIw_swO,].#C].'Xesg5JVLH]v1LP'W.s U"XKGmSq?X+r=5iY4JuIE^X=Pewyh\&+Ob=(]fo>F+G#tR6($\1wZ]X7J*-w.G\ft U"jES,IMzEJKitJ&ujWv3I55p%xO[ejOjIZkO:4R)jl;oOoa>=C&%&#PvkRIlsO2phyQ0->oj&%Q/WID<>KuqPLYQM>2Nb(,$T,SpaKY;fZ($kMPW^fLbKO^WS U"xU,kQODCsB4^gYIAVD]ABP2n2V_p$m,gk\_M)luS01Lc7vdfl,ic+em_2vK[qEq U"eoPeXfb*.:24^I/5Tpo*SB>6Dgos(Xs_Kq[E5ongL:^YUR(JdH)?;_W1$x%8iod U"oH/Buajmb$?l(LT;PYp4kKE/#?P')11GT/j U"3^>s^[hL2'VqPJYB%]a90z*49H5j[<>hGGTN01GO)8hg>6fO)oz6A9X)8pN.E[K U"XY[i3a_4;wJ-LkW_\MlH<,BkVL3=NpW\FqDs3YE?lvMi5IMABf<'EF*?5,R:mSA U"fQ-jFo;p_IRr',ZN4]f-Tco'Qe1tXdo7[+[<:0>,AA)+AV:y:6, U"Vh&(G5?r'>Yn%S'8pqplR#$8/]IXF+.rqVHM:^A4#P-J6*I,DCR%<4_tn<09bYt U"Xt*XXni+;L0>'G0N66hBmn=/5Kp>qg,ru3RKWOmPlWfNjnCp8lD]t2/W_;3w^rLU'iX(ttvlP$?#vg5^3Vh18Lg U"ra:/B991(4XV7C3DVNfFZLgqAJwr+;8t?f(8t-P0#C,BA5]L0O?Y24TJycpvfM0 U"[vVD[jrQg_FnDH0Xt.T3$(YYIfmkOQ*ud13VPQ+,/Nm^G9E:dCI6ngI5:2=Jh9R U"9_$(9'Go%jiq*K&>'=mvy%'mn0OvDDX+3,'g:f2DG/1n&u%Grqu2(G[i(Gcn&/Ao)v:?Q+- U"\62=**?/fW1,(JYQ.0;Acv.A8pcK8Q%9A:n9+K;)2Oa*b(*(M717vo:_3nyEQ)% U"I1je+U+M^G5>:'A4t423TX3XvoRR+\^9Z8t^A)-r>l#VQ6.Z.>[,J]AIhto6^>/*c;iP< U"*GfT6dG.2+A..;(yDVYc;>c,a/uJ#'KoSXwdMjCqxGP)9HA8r-)?[(0s%9='Af- U"AX/g[E^Jzw]c;i%KKiQhA=,Rvay5S8n4TekG'tAV^qsVV1u'+G1qXZ\)$ICY(O9 U"KS4K-DG.(g,f)(RWZo11G\6Mr4m\Sq8*71nFc;xUr/s4q=0\5uV7^k^R92-nugJug6$p%[PCynQ( U"#QxEQbAW=^cx152#cN;4]=ypaX&HF;8E0&W6jyMvLAhjEk#8gPPS0&o0N>?t4]JWO8b<, U"3foq\.elq$RA4Pk48$KVNDpdfT'm^[2c=PLoou7'f*1Tztm&jmL9s>1^>/^BBnu U"uQv7M'pcC]/T#**Kr(lL'\LT3iwYPlgPU4EXy*g293&p0Sbx+LS]+QfX.*L[hoXvJ,kFKlBCDT U"c#s1G'50EfN5'Rt>)9wy,DG'9PScqZ,5ESW#s<5=*#9Bmg(rUMpjtI6u,?r>_0H U"evE-V[>/P%W,MeI_L4tk8q U"ji/Zw6V[)=MZpZd)fmGWi7DclOPm$oZ+[a U"lW=MoH78CR$Ig;.+lvTg>2IKNTDlqE?m.).Jpt(CMZt8\s5GDmp'^9IR/b*2XI- U"qk_?p6bew:d?]_dKDkeB]=oE3c3oe'hjAX/]L9T*Wh=xnXZGnjCiJI(dBs U"$\V2kX9%Dh[u6Eo_5HSaNth6NI;V[s&'Mqp).#]?fYv,%up&'%9%9%%'%-%*G5SJ1/t]+'G#%%*&[%% U"%*%%%%%%%%%&%E%%%%%%%%%lW%Sgnu%p&'9%%9%'%%-%S#xTJ?Xn&^R%,%%]%I% U"%/%%%%%%%%%&%%E%%+%j#%%%lWi%jrtS%gfxu%p&'9%%9%'%%-%0\?SJlaIk;j% U"B%%r'8%%+%%%%%%%%%&%%E%%(%kH%%%lWS%gfxu%p&'9%%9%'%%-%\AkPJ+erc- U"&%)%%C%;%%1%%%%%%%%%&%%E%%+%*f%%%xmf%ujxW%iSif%yup&%'9%9%%'%-1% U"h0PsJ=GK'(5&%(%q*%%%/%%%%%%%%%&%E#%%%W%k%%l%Wijr%tSif%yup*%+%%% U"%%*%*%%6&%+%9l%%%%% END SUB V2 CLOSE:IF S=38AND 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