'=========================================================================== ' Subject: DRAWING WINDOWS GUI Date: 08-07-99 (13:54) ' Author: Marius Andra Code: PB ' Origin: marius.andra@mail.ee Packet: PB.ABC '=========================================================================== ' Drawing Windows for PowerBASIC, to extract DRAW.ZIP, Load/Run this in PB DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DRAW.ZIP",4^6:Z&=19072:?STRING$(50,177); U"%up()%9%%%#-%O=m,LW.T2oGuL,YJQG]8%whw6YD87'#%I&X$+dAV9dhvJt U"?8*4h'/07Z/xa&H4n_[H6bQ]o+()Z_Y^x9/v9QM5ZZ$bK+](BsWwl^D=KG_4,OV U"4TVvB7JDcKG:XZ+sAf8Z/lK>fdZltDj2:0]Y-F;4ykG9DY/G;S11k?#$LC.+-Y\ U"T&j6H\:MtxY[_a;GS(Lt>NR'L$M^9']J-b74:k2^zj0kz9?*]l(34u4865?w^9/ U"(.C%L)CH&F]5,,gpd\(Tr&.?pAtY'cl9uoVL?.NSiDZEdZuc_=_+q:hsmj;X=S( U"'OX0T&9)ErwoOVnEzU>&7m%S7CmsCSHqbh;bD^XWHA'_1wd&0Q'T/RAM'jbAoQr U"kk%PMsb#u=3j\U[sm>xn515t_A%M,$k&)O9uLoxAoxDBj<$(G)uDnFvbn7Y;POtC U"i)Gz9aa-2V.0dGj,owh=KCy.3k1Zv3rjnga.2z9IniR[Lb2AQIQmh6B14>;%.lh U"Se9VCXX=7*XAk%3sF'Ae,>?46f%W(/qYpOQwJ/V4,KHeR#ACjg_6YJJNRsKV7n] U":5$Lv*gQpQC\INWfn U"1;(bnN=DJGhjmN(>IMY_qQ0bdt?#*_3r7&>?QxQ.&thhf3STuJU/_Q\/UIAWtwQ U"S,Hp:L_AS&5(*Tn0d)4cThQqO_cV-m2tj=uJCtZE6(F'XTWF';\KlG's+QL U"t)/k&6Iq'idbo1yde$0.t(N1?_RSDVYy]=6Bg'$f/nQ5EQWKj&*SGmH,nZh?pWS U"mUX*bA#*R9d9]9Z7D9EF0w'^Kj\gA1#Mi$1bndELtQ+67EeU+PskAR)/,crC1kD U"ajHj_G7hImh_,dnQ]PJsk.?[>_l&Jlh-OVxg)algU%#LF^I;4Hk[y4o=>s+Q0X. U"&*9T*q$+B[3PsIl2VU;371wAY.G.Pf[dyar+j5SOYQWSREVf&\Q*SdHSP37x4P5)VTL)),T'LT0mH5yPfQ4[-3raG/ U"w&e;AyOc02w0#5RP%qUqG*,$&[2M0vy3Gy3>oefM;a;TWtM;WQE0PRX()]hAfPe U"k#c1,CGHW&TNpDN+Gp+c&SRcMZC[j?5(0GCLOW_cEc[W)85qgGT5>:;(X.MaXqqRtxFiBpP\C\y U"BUiLV-P7DsJU(D5(AtP/r0k.W'^fl=xG2*7^/&93l+EuH&PVM3Ja U"jeHm=ZR5:O+-vkm,S?OMK[vSTuO9U&6YbOW_UjEGN/$E4Qeje,N8wf?+*jfPmqT4iTa)5 U"$)\?Y9V6[JBPh=YB_bqg)dWhJu$+Vk7rS*4;L?rU(l6uHZaw.-MDbX?1<6w;/'B U"A1[6mKrcJ5%MF'b47;&'R\jCHnBYie+Q:g9_7cgslj'KK^%Q\Hv=Invm:%[[%2Z U"StNYj7=U+I.>:pu8TWYgo&<\INv;qy1k;kT(u/Cb(:ZF_k(5f2thnk3BL+q':^F U"t_xXo$BnYlbf52:2Z]'$u(A$&RJM:GMYfUWJdli+JEwR;X9_EN(5zRDi^'8OerZ U"MuHYSx&R_(Mb6a^'8/&\Y0\&YQ?RI23GwQPDQiYD.wcI U"YH^oh-k*.j-THKcM6>Sg\XBvfoqPm6t,Qo+0]090bw\m8gYlW&r[JNtV.zfY[L'>UT.RGR&ui%)H.Yj'53(OFqpLmeCf=>d3MRKw$/WauT[#)83 U"Jz*2NowBnPJ.DGz:MH=tNFshc[q=GuGn$l%+5p<)5p-kd0T.X] U"#U'tr[8tXy7/O9F6okb4vTdAz%EuJ&GYM:y2fd&+ya U"mT:BJg3DuM/p5)F&UAVY$ZTEuUay9Lr*$MgIX*'hk+;T>'v2i^Dd-F.:rs8^rPp U"_RPl$d\GRW.WQ([#C,+,Ot19TIAXv\5wa/1n]q]kSt2'K40*-C2TuYqY,fR_f0HI/X/>>5 U"*qP?+5S_;PLRaGuvW$wXE+p6onU,SxCu=xPqItAT:9iEnC7l7PL/l U"0Kj=;?LEO(12-c[Hfx?s=;j\V]iGl,U\a9IF#32#,V1U,18bb?0TZIh&vd'+F>u U"HKr,RFtW\uYa=CcQ&X'au[GZ5U>C2xFisi6B_W$6]+E;OBax>aoZ6bU;1*+(ItB U"fCHGNncofG[85l41pKTnT=s8hMG#';sF%v2Aj5TtpfaITLsEog1VK=^$^Bgea1I U"TvkfD$Q_LIswQ_./f4dsGa10VC4KTSG4C7K)xkJX$H U"6$1Ov.$BFgMT.IS$3'r\'PZ0SsrNo=Xi\D4aWg++,>pj=#ZPQQnKd?X::MnW;De U"r9qVx%%up(%)9%%%%-%h(YMGo$Z49O%+%%%%5%%/%%%%x#hwf&%qSksLyD&>&7# U"l;oXM3..F_(rChh5lc6f.0mDg4MZ:0B>nS2*78B0S9f))vc71FR:9lMD>E5_E6[ U"]pL_mTZpWEjZpW5h/dCRbjwxCoRdDVhIqwMy>J4tr6l:xI0LM;&RQR?GOq,GYtC U"6Tfqy9B\kE0:#0\nN3LuXbNA,<4iWFJ]n9tuH#mk[bDqjZP(\NyLkqPmXgOS.zd U"+oDGHIu7Z()YqmwlHhmg,^>yj#Vr8ZDJ->It8x,8WH].)73Vab8BitoF$kTTju, U"'+,;TO:Xr;^7YNK/b0vvhS+s0H-4JnGT&$LU/&V3fA:/gpBuqjE;6VpN(%-pwag U"V9yQMtetq-SrZTny5+Y&G(#Y%a-F:%eYH%VG/dW-R?u#=quan9cy#yfr,]lERul U"cNUIF9jUEXV^1?AK>pl_'&IVuQ1+5'L&$#dIWAFgK4^.m$hDNCMKnR5LVLMRYTg U"]vTM\v>r5[IpvM#=G&%Cv>I[j6JgC U"tcWNPR*tv(OuhWuLuY(\vs6^+:fq>mFQM U"xSG>B6sEDp5z$8?I7=T0M2eTgSpqdk-^?Dn5xWWCdP73diXIC3V'RzU0)bB,r4d U"^0.'?u9jk_44k?4&a43f*TmtWdd\yF.n5$UJNnK1%+hAfJqXE8&.:7(EOIGcBBq U"v]\0NsjUg12;uMfHO.SN-U2I>3b1,w&;.(t63sF9PSN U",G/_l[]%as2GR]\pWDk.Fq,'or\6,RBbTT,oslFd5>,O_Wd>>XqRhh(>mlupss3 U"k>DTdd>ZT_c6RW,&tJH_l3BVM$e35ltpAawd_m2hvF>3UR#VHlC6f$?22K6?qAs U"=t_ZZ<#wgUAs5hKPvK.o7V$j;L#]NdrL.d5=%zP2#QEi_=us'u-dYd.VaslTJU'/rv#J5S7rMnjNED:Dm U"c^d*-sv=lx3SrZ=1Cng[#UaSk^DO\W$F3kO*(HJUo,'r,ijc;9g,].9'g'p6)Hx U"i#;iq%rhO&5Kr(79MgPmIXDpSjmIzOn'qXhl%>BBX)[KW9V U"1j1ZL\;$EfiMs/_W:EG's?exLzEQ7V_M%R;Y3ltGNd,UGlP*rlJS1M-THM'llBu U"Y'8Ak/Snt0mHqs%L)mj//HlUWCr*mush#vB#H\d*^3##Fa)pm7.K7c+JY]4sKrv U"g+I-H-vrWY7P/ls*enQic=Jcnm.3]64TPm;_D.TL0WKPKv/Ns^gGH5#nTV1FmuK U"kZnPf*2Kt+lsL3)nne.ThVe:$=d0B/H\Hbvq;gbm\j#7XpdEa6+nUemhF*wN;9& U"wCnZjrv[-LEFCTfDf5BjB^B0C^qbYw40?>v.Lj4k;wXba1fY?#NBDTsy[Io1)=M U"+bY+Fn;NSBHWXle0B(cBd]%.24r.+5_V5OBHcD]Y:_C.f]mnH?,0G1fAFIEqbUY U"nI#Y+'dR1>p_UB/*f\JFc7$76t^6M4OA:YQ\,3PvZmj.dTnX.owI]6:*eFDlL'(ta-[A-\ U"%XDN\';F)IO4^iIsS5W]StoStlBp8*Gg&9bdQ U"VxkAJ)f9L*:B^:^].n8c9$P*pD*g^6Gp1d9K,l^gBdqWuv%DVZH-;'5zJ'dD-Gm U"GLd+EuQ>tULl$_7-+TQ88gS U"&?vcp11F:/K9k''dhhLhyy8LQB#KrxY-Tof7PZT/IoIo$BCm,/O/^BgG5Kb(jD) U"ddb01WbT+ReJZd4iTGIiu/[7%iQkMdD&\-FQ(r7FYoV5o).R9Y U"t\]4kcuEtv]um,:wsYl_F$Ej\hEBgeEtGqZ[P:euOcI U",^006utsQ.3d4\*szi+MDGl&?e:E0%(M&WIN]0%y,iwbMqXYG_CpT>Fg4v#(e:[ U"B-,m<$H53Mpcw2DkO:OkkRnRnhlllHux3ZwjaVyW5%0m_>S.3\5RJGY?1b/-,n3 U"\bk&'d$buhrjoaCS/9vu=ctH44Wrij,,f,Fp)gWJi2a>TJdA4o1EZBc:LBCODZmP7;L?TRxKI=l4iP?[&Y#4X6udRnvYw'm*8e'*D/5QqREmXad]kU-u U"0:[/ElfpX7-N?Fcc0X5NcfQouB)t/'p&T;?mkimdu:\66u#F?Von'qtHtX%LNb^ U"9n[D>bROHaHRmcWxSF=I=A-A^2N=I\*'NQG'\2L+^4WPS5lfD,h7OGvZ2P'wZ,* U"B8*MPA[n8NfZeb2YKeE]Ub10FI\\clqp0rq6$+:*<:H,/kpUTQp,40lB-Dxi*>w U"dp.Rns>7dn'VtwDfbBnIdT#YPwOb&-1W6MIm1KVRrr&^[4d4Y]sROtA][sjdiSC U"s;r72oOh\Idb7ruRhhLsvbmg%-Xql.sXnVIQ6wP#pb]Jetc:]n6Pdsb[w?)1Kg$ U"kUY?o*Np;#]u)ITEDVL>\gduB13MgA;9HUbTrxq.MmVIXFm6A^mUCPPKO,i\Jed U"czojEPubVswpX_v6'iOY,mPD;)SMCQ4B3KMTh/eXhAFowI=_CNpBv%bd$seLuHksu\^ U"anmTj^fAISDzi+TVu$s6,t)tW&3G&1b;t>Xib?'.l?8i:WS+AWIag]lo\j U")e1[eTnaYDC>N.kR4]s$wV;G6HHd;[X:bsc[DkMc[(<7IDgNCM.vnGXxgHGRqiCLU#>T[uHGHD[P-h*U-V?mo-,3c700mme#OJF]_B\)GXP#jC&H.Z7)l7g/iy U"ZTG;'=Q^O6FDZW2jFb?sYrI3+0V0&;fgREj1a,i<-'.c:5[?hFX\Kdpm;>sX7\Y U">W8HV>e6olsk^DrDjdDZDSY=iRDFTW'z&SA_ezIP7j0)XvA,;Q4VAmU^+<1b^.- U"P]8_jT+$U%njbEY0q>ZElQh'>=c'h1xYGiF8fR'dE.-(4Aj[IGkBfI&i]gCYw?i U"g<$Von0j5hRkT<,lmC/%rmDYu68TUyW0nUFdb\zNk+9_Nk#i;r'?AkMpAehL[I/;[b)]76w5-ji U"UrAzoo1.pztce.bQUh37[*1,+LBm/-I'?w..zJB$zqiayx%a,0rEtb52K[M:G68 U"'f7SH-fnaF,ce%L6^\B:a%=8ILw3,A%u8Lc/BX+5OJ7]=&tdEagtq71>5:c$#[> U"2B-Y>/gKp)5A$3l([9j[6]jU8&g)R^FNO_[6f;tB9:2_:7iO:n&(c/6cQw'0L/+ U"+e8\V2[dAhW4qa;rH%'wQNC9C]vVlB(I)k-(&,*C%0)(iqf?%dh*yt'jHoQ5VQV U"3,*Bei=*irfJtp1N7'W[P\rn^##HfL]Aduds#9i U"WuvXCE04kdwcnDUl0*OEL'.:Mn=6-;n;'UtH0/wl+=_fYvI:uZbInzdQ[cRY;+x U"q7sD0Oto). U"+9c07ufN_\69*1fswumJ,k3g%[KS/zom-.Qtrow,Yc+9vBUm_T U"UumeCCikxo4>$sss1mzlG,k-JUoe2DurPS>0L<-06e00.?/nM,k7PMMMw1TwfK9 U"%DM<]i0;M:,VBeaVCxUiqU5E=fes#TEzVot+x9sp>\c>][<2?auU7\>#hu4$cv. U"dXnTd#+w/fa8$DMl4hk,Gr%QwJl))nYu9NJ\aK7d^Jy*=mtLXv(d6,r(veo4C6csv1EGl\N1*V' U"hl[3h%Z;h]>:hODQ>QU(XpN:FS^h7pHl.B(i0stx88T]r_XTuJQMUu7:rt91Ilw U"m2PUgcJU,Z0?W%P#KqH]p4A3=qNrPnMDGQw0.FT%kBVLE U"Q+'0RCAOBnavJW+ORLQL.PsKb?+q9VxlE+1Z'VItgEqnSA-:dQ/:OZG2MsoS&3J U"pO1.)qN&u%p()9%%%%-#%gYM.G?x$'tN)%%%%-%%%,%%.%]']%SksyRrz69%Il5 U"S%IXs+D8lZ77^^I(XY/Rjho(P1f9T?Bgj\3Sm/+,JZ3:f$bcd&5'Z*sA%$:1-(K U"9[a.3k-[ba+hJ3WOVCS&zpkM+rlity'wcN0*_wu3rl_)=Dxz7h$Ud%2z>g,?>)K U"hT2-1/Q9=7%:3eMdJ%UZ9bCf,su_eERM=g&hFFztuZid2cwZ=bpvdwS U"m0/&<&<[4I^O)y1$Y4#Q--)o&j&nXa]A4ecoJ5(PDBh_lg:Jk%T,,0-9]_j^I&Ad7IcP4BA U"(C+Ko_Q'/HV^e\-k:TfWdifS*M)p&9q8q25/Mo1j&C-CC6k;o)N#KFuD U"J37=+P%\B4l,AgF$I)RcT-^Oa#CvGymFNp*LV^mI<3gZ)%IJ#)eAZX'BqA$2'Uo U"ixMi5:uKeC6xijaO87oKY,,R;V9ZrJ$XJ464VGgCiTXD<_MEJoGpeEkt.SDlj52 U"M_Qn.hR*$n*LgTvA7u U"kb=/S/wjzT1xi,8Ulb0ETNj7pz=aVd*^Fr1yfl*hUVJ_B$QQC=Dy:Ct(1\IHbpU U"n_vkQiJ&*6*%SGMKuzLG-HW[_V7=rTw[^PZl*T;VE.s8P>,HEq:0V/?x/f?'_)U U"X,xhp%8t:>jWv?UNf'%A>BrH\d)uDS%obrGo/k]-)8Xhe$B=/uNOwX2l\PPeto1 U"'iFtjq5vmPcxu7?DjgD,IXn$F5$u'F5EUXDn4['nHfmfkSrT44iZ^$Zs.aa7wVd U"8T=?X=Vc26:M^dnVJk[GuFq(^FNh_davwAfcjv^&f,C4Oo\_d>OMH5r9vUsp[NU U"Sr?\n\Tijkun4F[WV]WVT/7#7jrk^mkaIUv+QQju#.GCepA7h(?W72EBYkO%vrb U"Zd>Fj(H.[>wXc].dYO$9]_B3:,_q?L,?\KQGl6?KGAmzqb#7aN3qzh;=8ucI]_I U"h)S^D,Gb:3P/]eAtj>)+QVPU^g>M4^&-[,f4hIOfAxQhBkQKB15Sk:H;Wn(gT'NPS: U"TM:eiu,&PfSw/ssrk,dN*:E;%FERXXhlZ]RTjqjHl_JLX>5d3AhVLdF^^2E\xtr U"dblSLazyyfE)W%M3m4(+zvPW0:/$&%ioj%MDLMQ0oZwRc&09MmLl##mlLnUhl^M U"T-XXDP6&.Yq?-+1G?^ieZHk>tM,Mt__sz$$caYS^4Yy'GE<9jfy_l(46&iMWOCo U"WEPlBDfHC#\+Cj[,qABw>X%b2Q3F;9S,FF)[91)R?g9S%F[Q)C'2xu+GlUmEp/c U"]&)^Zr(_Ti\=m-o('COv/a=K7nW_2k^oC]sdN5F4t_oKhI43-o?6-tIEsf'sL-Q U"OC1j%4*d$QT1n#s?_,R<%a4DFBu03$'DRN5bF^-oiRI0xWS6O;7QBpk U"^]uE+pEM=>\tJ4$_fc=L$mn(ZX0(s.h5jb[CdGirb3kh#,5ENH3wY&.5J)#N&p[ U"2+:#JYD2[P=f;]X\I]>RX*T($[PeD<-9xKw=UY>L_A#'Xg*nLDT%/kn$ee?)dXf_;Eki0fc+/_*LvUmQg'Yqa=ea[ya_l:C>G,ExW#T\W=dHNqgx U"8:(ZV7M#TeA7^>AH_J>D+?g/r_ZGOWMG-7NX=00iE+N%ChPN7KjjZ0OHf[r)2]K U"ne_b.Pb.*vo1:rNan=GbhRob$/lEW7K2RDX8(O2Fu(O?>Q0>&>&j2742VpZLtCq U"u9bld,ea,lzKeLFvK[*jn;1cq8):-*I)y8mnIdJ+ U"DNktN\Z/mdiml4S4j71?wq*=wNf0r0nT;s)I?3g-RhV2PvOTiMOYe)kJN)M9G-h U"O<=OtFI)ILbl%^$+xtMIImZl:[9VWqn[8u2nSsm6x5LZ1A'E6=w_SFAF^i''&Q2 U"bY:7._2xp5Lfr8?O%%;?L?\e$9MY3$*6-T*ica.l\K,C%]Je&u+P=o5^JfZOgDf U"0+_TB_+eDYInEtz6\JJZ'&BrsMseaGCl+tLq[:af2_:piH]/l2/8*\3W]S>?0T_ U"?G]=97VMapy_MD1NR1Gl&vPhpApt4(B\6T:rV-L?]QG^jI1px%&up(%)9%%%%-% U"N#b\HC.[)4g%*%%%%5%%.%%%%k%qnum%SksyVL&F9[Hl5gRjUo0o)SDK)o0)nNA U"H/oh&o05H%9L.R(nA0?E9aE\001*^f1?XKk/MOb+k/:<)/Qx1E&REl#a1+bJmfe U"MsyNz'#so[BK\z,h,N,NEZb,*Zk](+,<'*A44F+(9M>&&'\VAB6y9W^l U"^H$&ZgpZiYTlaX=0&NbEN,'OvGEc)I(2,IV>kU%v(St=Bi5vA>-J^Wh#JqQ]3#9 U"XgR]:e7qn)mjS-<$G2uWJ4)jqP?;9qH[&Hk;U#?2L/kN6 U"zILcb>U*R)QU&2kSn.r+gnSw;(t'[[NiS:=DTl[%(4,XSBeR']a(F?u?8_]+rsK_M83Orn7mO(?d3rnG2Uni<=*rMsLGh+cxU8=N$ll%&]YpvQVJ8c0#J'DH'4TI<'VkOXP U"c5(D.aDc0c8t3d,Tn*uUX*n:0dWu[kX9P7p^>B540w+Bz7\MPdi)MeDSEYs(\R2 U"903=G+_WxRsxr_n/)\js\LeYes6/=s93[?Z\_kVB6;vrgr,1UEkt=X%J U"v,mY[mH.]7/d8JL:Tg1?.wVqAkLaWZ-rLO$HW\,A.sSts4W7ND_X&km^AXUoWd)X[),7h]xg-D_Vek_18-Xk%ml3\bE73E&EY[ U"Ri0>?wmcSB5ayz8V,w'KJ%?_bthPIOIV'%QfiN-,%%+ptnNVgf&5ToXlI/q U"WqjHl6\$[(08#Z3bf1_71FqgLR]#v7n>h%rVjfY'R+-D.I#k9j\8U+,wuvsooNo4gBEg7Oestm?Zua[Bk.ktbeVe;O.FQB)xDm0Ge9 U"MUnim\2gEu+6=,8x;X=:d.Ky#y#nraO%B#Qp<'S=7s7H\ET4Q%#Z+9uT^k;q U"1x4?=O51IlI4?'G2oij(7 U"HTDKhSO$?5&I?msif0vUTI7^jV,NbYt U"Yl\Y?0x8Z,B\^eeTLkQrR^jEFv>.J[w/&6]$JGpcp0WpR5ryK8A=D3UqMb U"Z5DkJ7au[JErs5A30-FXSMon.='snqH'P6y6N+GfItC?NFn1fYo^)DHf.^w:k?J U"zQ7;WEgn)%'BQZK18>,Pw,gn)mo71e3/OX)A'aP?Qhr]PqGk U"+o6%/t6)7(bg&uax3%4/Q3evxATi7aa'oW3q9,q^L_,xcKa71y[0t4;AY_mcQh$ U"mvw?W\kc(yOPVBOcNOeMzad>Wh8MX&d$,H?Q#?bI0Mx#96U4Sv(%XYYe1AO52RO U"C^Zj/=vMZ3B4xrQ-^qe\g>lXlb[EO1r99u9kKCMShn,-M U"t_mDI'OU0%dVuqDd^TsE\4HR,2('?^chdzzUmdMf#wsEDnvHJL$Nf%w0wW&atEg U"R7LmkQHvMU4%dXK?P31aT(LJjPnPL'vczTRF)t\PBuS69q)'+mf-t.(:s<+nv2] U".j,dhjBhz=XX7q)IMZPj&l6o9tFDSEYA>CjSM\E=Dl+vdpml\Nljlp.]^h3JwqF U")kr['Nwqa[lB$0GC>uKI*()tf=cruc8,$\n7g^eOlbiH:esZJ7LM5a8jDnyDmX\G^H+:Lg[>Ntn#3l%C U"Ht>63GlYwYdpla:m&CTJ5ZAzw;^%KHFaXQ U"plReL'hh5zvJZ[>17WA-39QHfFDRT>PeMD1JCh0TS8a7f/GSTiQvz37- U"31Xj'O?bL_W2+ow7vPSwk/uxmWEW5Hx5#9bfBuv$nn U"ZfFnD522)OaZXMN1]\y,uMR*\E#(rxZAlF5RHigH1(RT5\02u*gq8;_'1%gduED U"P(oDaA$=\00\&BPdBtLvF%F(EGza1Aj\u_8qoIG*+=dD1Nxc_v#9ptj#OdSSerg U"K.)vX4fcQKW]RroK%7fuuD^kK08Su9.Q+oBCOp U"3#B[Ap9D+lZ8c0hDjp;QiaMb8[]6MRs^G\-SH/f.L:zykzPo#(%EPLt;bxdQ=/: U"%WrP]?'JFo0t^bycPvt>%&^q,*#j:l(4BHUBisPTu7'n%zRNO/[D4S;tLQ7r,3? U"4G*j8_XUm6Lohzk\)Fg-'BXWE\9+w&$YMB>27n\\m)qW(VF^KT(p3X;D^)?D$RJ U"C$\#A$vM3k&,e^;*h%gU3iSm:9t?mlpUuWeR(^T:G#0X2[tk5EA+t0DfqCmj,-Y U"ZbgXF(-1DHuu.Xi(->vQbLyDoogoC%C2WA>+6.?K/erLRLZ3L?Qx72j>bH U"du?X.fA)o\-Z3^eIK'?+L_g;-n[3PR/oTj$m8*,4C;Ea^AG0nDFcvscEJ.pZiWe U"^Q6r^nOn?aAD$X[7AaiQ^&G8-6ohE$n#cE'mZ*1SdzPdR7HbTeZ30scn;]q.z%x U"Rw0P.MpR,5t2X(k]=G\.V.(4n5P;AAI;7/elM7-J98_uScwS*icI$d%^yDfXu1a U"Y^t(n/Q[;-T8=gn'sJCm0yWN]=.SvKRN4AP#C:Z'fnB.Clsjku:Wrg5[h'MO\d=lLCh477G:AKY]9/jaug,EQw U"cuVn,G'6X3X/BVrFdgH1b>ADBulBSdSH_dgmdvGk4hkGp3Xo9Pc_v)sK[A[l]48 U"5DPzQ2HKnFhcUu=xV6+%NQhNP2u0,nn8_p^t9H[K_Oo?,\Ffu0A3XD]EMBATw.< U"9KdNc8\Djaao(_Qr=/6*8l:bT\hv,lenV)ZgYk,9f>qpLaXfn[t25JTPM U"9E_Of(iG0ga-Rh^(?vr1OoqR+jgrZ1U8UPn;DEtyXr;VI?QV+;lG+cw2N%?6\-Mk?jC U"E1sNADHaVDN$6?s+rP6X=reDTjX65rXCL'QCDFD\itUWX*Fnsx(Zp2TDmXMiq.meX^b[x#iH'Zdup%()9%%%%-%0*zdFtv/#*&Y*%%%%5%% U"%/%%%(x(xy%jrSkIsyD&WH:\%p5%-;[VJICgwYo:A%<8A%1bI_)g'VGm2bn)-6] U"u7b2/pB=FmKebT[-,'quo.pR3(T6To>M3dD\-#FQr77FYV5-o)R9/Yt]4skcEtu U"v]m,c:wYlZ_FEjX\hBggeEGqu.7E=QH+N=tNsj>hZ[:equOI,=^06unts. U"32d4*saziMD.Gl?e7:E%(SM&IN*]0y,diwMqjXY_CgpTFg'4v(e::[-,UmcH4Z4Wij?,,,FGp)WJbi2>T4Jd4qfsRnu?#j9J*O5-l0-%G:G'f)j5/.<_A]J.8 U"'5A5U#8&?:^&;rkSd0POpsLqyzcSI3nFN2tM# U"(.6^)[Bw4>=Ul4P?k[rX6dRlnvw'3m*e'0*D5QSqRmX:adkU=-u:[n/EfptX U"7N?mFc0Xs5NfQ=ou)tC/'&T-;?kiumd:\u66#F??Vn'uqttXU%Lb^)9nD>abRHa U")HRcWcxS=Ip=AA^[2NI\T*'QGM'\L+S^4PS<5lD,bh7GvhZ2'wVZ,B8d*MA[Vn8 U"fZMebYK8eEUba10I\p\cqpP0r6$Z+:<:.H,kpnUTp,q40B-YDx*>Gwd.Rlns7dK U"n'twiDfBn=Id#Y$Pwb&V-16MEImKVSRr&^-[44Y,]sOt*A]sj4diCs*;r2o0OhI U"dXb7uRHhhsvDbm%-tXq.sPXnIQi6w#p2b]et;c:n6aPdb[Qw?1Kdg$UYY?oNp7; U"#u)XITDV1L>gdFuB3MJgA9H9UbrxNq.mV_IXm6(A^UC?PPO,2i\ed;czjElPuVs U"awpt U"_v'ieOYmPID;SM[CQB38KMh/NeXAF,ow=_DCNBv-%b$steLHk6su^a=nmj^*fAS U"DVzixzfDZXuib'.0l?i:]WSAW#Ia]lbo\)e51[TnPaY U"C>gN.R4Y]swVs;GHH&d;X:sbs[DskM[(+<7DgMNCrT[HG-HDP-Fh*-VJF_Bj\)XPU#jxhf/%T0qZZh U"FHK^/ckt9lV:N]3L5)vS9GTjZO>Xnj\hXN5H12VaAr#u2u U"qteANt?8A(X;BwpHAmc%NRN*,AkBN9Kk30KY<6k-p=*B/rE6YfD-j17^Q)RW1oVra2Yq%=rt62aS3A#BsxJTfJEEK-C'U(0r*SnSD6z4 U"';S^H2N%^:9.^V.dMIFdDDtZD7O5qDSjQ^QZ#om4UrHU)7N2HKKqK'N'QWT%q.f U"Keu[&'PWT=Y(m?9 U"0omDu7%[xxb?n?vJlWI.01+PancnnvQqn$\+NZ0Q\?[cH\IjQd.:7$?k%#_x8u')NopL4 U"LFfTH?W';Jf=^lKldwnon_9SV-^ZIj.[XuJoc)a0h?p-oslD;2Mau[hIxXhgzx) U"Y>0)v(pkZ-*QnIF,Ex(^ofdPm\KN+N5PM;JP9_,lBo=D=e.uq U"NIZ,2tTk$gOse(ep6/8_nx0rYdIq0I#*PKIB'91D'4htlKjqNM*IVXfuJlJxf[# U"hz6#k2VzjtAd#wr61)lb^'Lwu7cJQ_m#b*)Okc^UG1*q3vWuHp/fRt)GO'>^OFc U"4r7R\TcRr(tL2a^^:u3r]?*tt.q.X)YQethJ;4Qtz?HUFe,2Le,A&Ht2QX$CFH/ U"pJ&d(W_JLdVXtRuPuLm'Crgj6>O8>XKQ$WD/9OWwgFQ?TXnLln/o8QZtTDj5$6N U"g*Tn0D#9WGk%9O\rAvi:7jedG8>QIIHV.1b^DHVwlhDYNM/8y5K4fW+NtB#Q9]j U"lOIstj/<.ob?-J8up%()9%%%%-%3gcdF<%&3L&J*%%%%5%%%-%%%%ymns%SksyV U"D&8:[Hl9W,W>6fLM2b1U00hh^J%N'V)Q)eS4U;spWf_1H;1u4>Q1;6?#+e29CFE U"6A;z^?bb9ZpULSU0VKW>IpItk. U"7Lrlkfj-LTG-.QPnDhWpt?#4*A1IC^YXbO+vM(SefI&Xa(d+bB'7ihvipu?q*]t U"J+At8L97HHZvwvDON]j:EX;qu/O.nFE?O=4#m=UG#Y-&Z;TvqHB9sNNFeaxK^#N U"7sZ>^[=8(Rh;Sf*\\Z.o_=Z.4R-S:mhm1ESmM]xU,uf$anH-$H\MX=FA0S[.:#V U"Z3S02^=hX2.5A/J8CR-QIliMf^\\B*;sog'Hev9ndf41*;,rv1A6(zO>/3(/;q> U"h7?He>e\k$&hO0Eo-^S>F4jO75SqGYteM8T1+5j^c8]tw&>kAbh,:3;/d>uZlP- U"L67[mOX$ZSOh'f U"].ktn?'lBBBsAehhofnGolSQ>_;.qf8ZkLL[J6%b2RbDAbWQ>aGNGQr(i**R9YoHDq.EO/m(x7fB.F01'^T^ScxCG(P_*OWNF?fr#^l, U"$,n^RjBG5Nj1ijkHXCD1T$80&QlW?9KfLd*TrfeG.8zoW=F/d.r6?Rg_XGhtGb) U"7GFJcX<;lAq)35P)sPvD1Es&o8[Hb,3hta8m2FK/5=KPthQ^bE]\wso2C*H+3^glX,0TkZIeLQvN]M?fcTZr#zVjk]oe,dD$evX$Z9) U"n<5SkZK,fxc6K>8b2ft&Qn>GtsT5,^Xv]G.-4wj[U+e8*,Ix=1_NtlGuqS/#0RT U"CTq-97S;P67kF&gAK-d9CKn?gDTsqUpm?VcpNtkpP+Wx/pR\HEPjm/I]I8K?vVT U"fdRK>2>0>;o#29HDj+*=ML0b5%-CdssD,e0#NV0c+T:v]JKyIdcBpXsLlllVBr; U"Ktdxs_h^+iTg.bSoqF0#39vjv# U"].U%*%%%%5%%-%%%%%%%%%%%%E%%+%)V%%%xfs%xSks%yup&%'9%9%%%%-F%*zd U"pFv/#**Y*%%%%5%%%/%%%%%%%%%%%E%%%%+%\%%x&(xyj%rSks%yup&%'9%9%%% U"%-L%YidCFZoC%Gx*%%%%5%%%.%%%%%%%%%%%E[%%%1%a%%y%mnhp%Sksy%up&'% U"9%9%%%%-%3gcdF<%&3L&J*%%%%5%%%-%%%%%%%%%%%E%%%%Wg%%%ym%nsSk%syu U"p%*+%%%%%1%.1%f'7%%Ll%%%%% END SUB V2 CLOSE:IF S=174AND 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