'=========================================================================== ' Subject: VESA ROUTINES FOR PB Date: 06-09-97 (12:22) ' Author: Erika Schulze Code: PB ' Origin: 100775.2275@CompuServe.com Packet: GRAPHICS.ABC '=========================================================================== 'Run/load under PowerBASIC to extract VESAP.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"VESAP.ZIP",4^6:Z&=23373:?STRING$(50,177); U"%up()%9%%%d-%V3frU75b4wNxR U">d)iCjcg[YWKUrjgp:w&&yrfxc:0QsoVVg1Q5ZldP2%E='r]3^iYqH28pg=^\IQ U"0JCQ(5i6F0],m_Bs:,$Lob[uqP[MrHRr>=BuCCfR\4HG6*IHaUGmY'#mo)%&Nht U"/SbX4QUDMsLWt?8Kf?PhYXLr:brTj$t#J%5Y%Xt)91RXoUr)K5tqX_[d\_lNsS_ U".=JX\Oj]RWoDgZ[/%g/3gK&0>JT7CnTt\RT*EESuBNVQfrNGf]/A)i3e;\a\gC-Q&.D=^/irOhm7;bzo2fVWqvI5TehC7q U"]e1R1PQD$.d.KNu\Mo3hcs4L]&cx(9Ih+g/JQIFrtK8Dzdh3kz#HF&cC\xa9bM+ U"HUjhG679oi[4Td>G*O4V?/n-B.t=:Nc)SG6k]MIjcf%_qPSMo%s4hf/aCR;&#i3 U"YC-E&WTNx1H(lQYzvQ/,,kNM+;nH-Vj:EK-l1r66f%-oJiCD:^rKLziszB\Zx]c U"m8[g4B&p.Y1YEa7I,_kAz-7zC*+sNL6xe9vGFUxwkS(PDoSG&YtZM$Q)C?Hj7Pz7q(wLD#ccW43*7C%r U"5-xu6l,Nu%p()9%%%%-a%6%>RGYDB,5[.%+%+Z%%%0%%%%kqf%yrjr%SfxrNN** U"BHT/7M;u5mDWIv-\)k$:tE?dkDAKrb\E\[TB?Kb]&.IFX.^jA%AteldH+S9$ft' U"+]/N?R8RoQ4D>6[<1&j$Gj0cth7#&#kY1r\J+XbV8n;,R4E1,uELfIII.G^WWHJ U"EfC$s/%c-C:DM5K-hX())Zw#W+7?C2hXGg42#w3kp$'AbVfjLzatI?d(AVRJ_^k U"xGG2w,\KuUWuZ<,]3K(ponD>^cm1D.bnuEB$qMm#GL; U"M;KYk(10Y.^3D(U*jG(jIBLEGL+5;$p,+s:/j7OC4W-MaUpf+?Z U"BxS0(sk69wr[.3rA#rA+y%+AQAfR%giz4sRFxMQfd):&8>p?YuKcF4JtW91afBV U"5vX1cdIlNVAk7WQTj8YuUI)E,c?BD$Cu'x3/%h)v.RgQUl^Z0A?#^YB9#)M U"HULSlYrV4xhB[KiS_6tsHu/R#42Up,G?P5)q\GNXGjs[EFW$fK]28xYBiWtDJ8O U"=4/D/n.^,8X)VJuG\_p'/Gq'dSIp]j,\#_n;;jnY-2bziB3%b=Y=Rs$9dXh\E(N U"erke0.BsvWJR5&k'I[M2zMAD#gMW3^K^-u9$Ga>K<%%gwSp*pKONf>RY4n9RaC4 U"CBa/(UlV[=7EkSg,kp4.J%kgmscqayK:-io92+gmaD#JsGnXeTQiCs>Q5)hpA7c U"BlK/C/&Nry^?'mG#=&VZs+f7QDg12fdUH6[IKG5$r(%=\$Dbx#=n8OVBIW[GAT1 U"pTk'Eh\eXF%n&KViqo.%w3K6'76N0n]>BGTd$)KPItgQWUkW1BJ2jL$^aT4QYq]ROv[)+*JS<0+1F++6BN>t^#8PgyZ-B#y$# U")u&c_c1;eP+/iBve$TKMl?KfMlXWZ*V'H.Z)4_D'tmR\e2h0xM]PU<#n?ue,.O* U"5.i>alqsdb>,o+aWTI_p1]o9[mk](Ikr(FF:9UIN,:fqMU6VPAvw8i;Rumo0Dsr U"lwv=8e+dY[XFr/gaLfO4'n3D=i)v/1&grg_$fE5-Z]A2hrY*b+pQXXSk>hXO3FY U"lqg;$Y%]:]'7T-NFhA;3H_pma>89TNHl1KH3rqm'SAdiM=#KV.;+\wWGi&LC^Nb U"fk>q.#)Gq7\K?.A,>c/4kT9_x%[k^/8Z[q2da3>bXGc$/ U"s+/uOqo%IL5THvf,.kJgA^H?(,.kJEOV8%kp580X>U8xU-GD&kVTXBPvX>3joH[?nk2wvX U"c0M'*LnrJ)w4^RX8ue1u:$LgztaIj U"Pp<>=u5MW8xQMT^jE#*9xB4tQH7\\[a-)0>Qgm6[>ZmPi+_:1u/*>':A:&QRrLd U"eH4B&Q8XNSHjNM7Q#QWtTI;^%mO.Ql_f7LEcvsUH2D1_RFJErWsx_>1;vhA_/Wo U"Q&*T5Em1;(=WhsKYR/$1=2^HuBP1Xjgn.;XVS&pLZlCU#(S$]xQ,bFhXM&PR81g U"L#l<8CL77c,IvtSu5Xrtai\PQVw/>-%tu_nfW'qJl:j5-rSCPUc%,9K/?PAM#qD U"RdO>BIcG)A'Cgb:FAN&YH_LJiKoEaR%9]Yb]JVFm?Cm/l)UoB([pwr#8uV]n4K( U"e9hSFG^%QvDUeNKrBsLI7yi-(oR?)tmg[i;;=fE5C$7rj4B[OPjq:*TuLbb$QN. U"^rCh?lmP0EQXE[hd2o8>u+a4e/tC$N1&ko+6kY/HDeCR%d4_6b^f6kM4.#BoXgksU%/-;ZvoK[^7$Lc&0vtyuHKQ^gI* U"lw3b7[5WqhVW_FYk0D^9*9UvNeQQgB8_pPL+8DZQ_jzOVlfR(4*dC(6hhSTl>( U"XvIgbuf(uIv2[(=kf^6Q.+J4pLsQ62H:ur7A^WXPB5Af^;#X2_Z6nOW_,)D,aWQ U"tGI(:Rt:c(G>moIyP';%*4md*UYxKVV=$QK=X*bffr\xFB?DO];z^S05h^Gv U"2f;+o?,uscG_WqTt5a1YJ*;o^ U",igxv6^>[KPa:*m_ U"ivv]k*80K]?QTV%E.U:d.syoCsCM*=34G%0du,8oF9(ppXft8%q6YAt5gDsU5e1Y+FD U"UTa[0=Q-mgay3kjVLAeXeD.gg;*cL[egcgPQsneI1CWVSuK'%e#llrnnHgA<'Xd U"pu\cRf'uDup%()9%%%%-%;Qa=G5Lv$J'h'%%%q/%%%0%%%%kqfy%xzgS[gfx&he U">>SRU5?.UrLSO&SEG*JW/hy*6B8(\%B,RhUe>88B-N_pLO/s U"C*AqMjtGFpd]^E6._61/xU_[Sg;wvh,.,brj+ U":a>*b9=F>HqB9foovj>DKpv5AM,\UC+7iT^JNw*?%^A_iKOBCEiGL*Ik(JTkNM36BS U"i'\8:tgv).IoNM(MT6bX_qIekae>yHDE#RZ3dr U"&Vk?%fQq_/eDcB5yZBSw-Xq3I.t)s#A02<2Jaa:_[L4/),.;=rU/jOxX,>TIrkd U"LaJ'XuaQ(=[esZRwk-f>o_+C( U"IFgPm5/1.W\M=:(lY:dt2&2.U-8g4;\']*>1SKxuc^m.p[kdx9T U"WVrp_;.>+-$KDCe6d7AH\Jz,l2:x$%SIYnpmBbx>=/-3\I3]+[TSNQ.UVKTX U"oS'wZ*v%Cuu.g0Up-zNN7N:3b2qQvI/T>ZkGgXl;qIknnW\(]Uj2+ U"C;e?pHb^,,_^Td?jrEp%4+f7CGKqcw$UVb(1(h^ZP.<#ExiwQI U"6dhpTNlBJ$n5Vk[/0i'^Tup%()9%%%%-%8*.#G[h9ki&#'%%'P0%%%-%%%&%jxf U"%SnshWN%T=B[U5L1+XN=(z*&wTTdQVAS)?<[-z(-2L)hU:eS\yH/LRN98XZwTCg U"4)4ec)'W[?_[VL5?mZspL\b).cmG2$KWV)?m/l/\f-j>.9&BsR1q7D<^7ZhUiqU U"wxM4Py_/6#-WB8Ap<1z2.n=59Ti$>])xLguWI$XaJ2cn$S9zHq>TG6a4ffM9c,6 U"-g_7V'PNR?n&Us-4r6JhcQf*(z;%'.N&)E9);9adqfQY&YfCahhaLe+geiUWstM U"#88Wsc7jt^j(q2V7SPEMk2E]5Y49oTwQv?iK6F*pk7AaXA-p#k84+01p.vsW>CS U"uTS>tlf&6i<,%VD0JhqY?p1]r0w>extGm/>H$V0G;5^hon]l9 U"rD:.*#zU1k.7M'de_^n2R$Wg>QZm_,8O8QL=u#u_F3Cg\v]2C=PYgcfyflIbFvc U"xYMcO;KuLP0_fcPEn3UBBAw4N%_AHaI]8CEM[veUuwp?pa5?L9b0c4C]=(egHMY U"pHT0Z1A8bkZ[_p:;VS-:2^\U1,ekT\fG[abrXG,?7ojG]+eiPDkAfLA29/?6dHC U"CYao2f/[='Lq>Cas\[Wo%m[(]SBMB2gXFnpc;/0lgfUpsa+/T^^L_>+W1sTuJL_ U"u^i.G'nRzJ'..x_GJtc8Fb\^i0k-3>/$fc.E?WNiAB[5.G,',$/);Y8'aiA;>w%MWp,Y_]])m U":m>7n8FCIFAXn=X+*r$L,v8HstUgw%+up(%)9%%%%-%wa.#GD)XmaT#1%%+%A%% U"-#%%%%%jxfS[ugqN2hNC9oN:#hfesEl.0[_5$*S]u#mIl,NJ/pQ7[#+Vb$F4,'4 U"nu.j1B;+k4,jgA='ftC&QL##Viipo[v9O^;zw>NSkb%#(Q:WRAQOBCi)it1bAqC U"iwOQNu36hVcFGqYiImrwfJn5guUht5thpWUZ0hg;<#9BM%0n%kO#IePDJ]5FgEH U"pF6*I)z>K0As+%3wF92voZG)^uz'hn(eCp^6Y2E=HW42=TzLJEMgH/F14*LB)HZ-aXx+]tN9NpBR U"bQJkU[fZN9M\Ond=pgAt$iG:URg7O6l1On4H]$sl=ur#ndXm&,BPAtY'B>haUtP U"%R^W8)-I)l%GQeCkEk;KlaQtNESl[vQ4Q),fesy'f*$l_U_*2zZ5k'3>fVbO>DQ U"g'G'JKO;3ciD&:q<1\K%fVB_fS3*\7>82YWN]SweHw40pfuI]QQ=V2^jDd]\#m7 U"4Wjt?0niRgT&aeE:/EGo4ySg/>1J(\M.D)XtkA-PnK3t;)H0Jkw>Po,oMG,;j%C U"f(j9/MXFxn0sNMWOI;-Ut)?Z\IbH[<+^o2PdY>ZnF0Ac>8;)x*bR=yu0YxZ-KP+=w#25u3-T\9v83[VF*O>lZtu'>m'gioJ8dOsJG44g\<'PX*X U">%Iev2SW.4*>GN.P;GbNVPdTEnT,QJEZu97hb]/8Z0oV4L17RmE.4fP,&o?)o0l U"QG8GFxYj=n>pEK_1j8_*iHZ()6l%ds)1OE8_#9)CuS+*<+WEwC7Ng-1$h-7<0_p U"Q7>f1vuXZx<]f+m?%49F+aX:/l'ZsuER1T#,FXe9d7jYkX26hGPfDi#Srq_&Nunnpt-HA0(zAX_ahiOKbm9(>^ri6F6G U";+tpZ*UP?kBvc*cklkKL8)n;U9AZR<<6r&f*eGAu3L]3$a.sDB<<\G=)q#+\&ut U"rl0jMrRiUl*gY(=3\eZ#ZzZ4-/C7,Isao8Nx.fUDJo&eT,5\n22;n/1^o.?C;2$ U"*jxn^,O2p*\?cK)QPBRdf8UNuxDJiy.KZqKuQ#PT8IyJ>Alu,(jI\nl;)470+hi U"RAdi-VwucS=L7dd5e5E&_; U"+/;*1vwD%Hh0p.>\^V=zefDjdK88HLha)EYRq1f:%;W(iFy][gLtqQYUMoB;)oD U"_1Rv$K(JnZ%I#%hz?Ze$#RGV\[zOCCPt$s7[>#,o4?-CK=tY.)\\5SDZPkh%2gI U"P'WtA&>nP(mbp)H_L;qn*:?j?#_/O3&P/L<.;m_SR)G05oUP4n^ U"4AQ=OQEKt;)=O>C.gNDy:N^FTMi(o,KJ,GD[(>ay[O4_:Kf0Q_bPO]#8w;M)oWO U"BU7*JN^fHOh+MhtK'e,MK&,WioauuFfZ;]REP[po:s*aI1:4[U;\c.-?hn_[dY+S4V,0\-mq'Pn$nD_O U"q3Rd??l%'$KsO8K(xat%uPc*2['FjLVNkrF4G_f*1:O(u%esq%8p9TPu[+%^TsY U",o2KrT)*fPf-f9)^PD.3x[pPv+*-%Pv-+-sPUvuQvAdiS_FdGXfEF7C[*KA0_(Ct1DH:t_Rr<[:]2\a^k U"[4,]Li0_'XEG?Hq5YY9>KEk=G2FHJfmAbqXXafk_B7ao[[$kmJ,bf=\A7$m_);X U"6A#%F8HV?N96.G3k1+SkrW+^WZm%CJ>.h;naqEYHdB;CJ#qWKx&^W/WL8cRwLxIyh^vqo U"^(8DvtfR=d%#wey%he]i;hwCdsBY#sd*dx0+\sWyc1Zq3bDD[v(+ONlyRitf5NM U"3d9LF9fm5)HwAAdOK9#utR0)csw^:ilKx&B>ZxYtwr>(?Xn_J9'r5,xM$i6^bx6 U"(&x#zKc*qY-mMfkNF%x=>qgLxKHW9][oZ5nVOmc3KMadi4lMEb<^3M'_dimM.Cb U"D8_rYycH,(^D.yth>CzqwNOGc[mWsWF]:WdSfNMfI9A_v3dA)ry)N/]IQavNO^( U"Gyet7*=^w#NPvBBny^rBczOhPw>I9U+rg&qx^8+Y;)9/[ulb>9OToboT]q+.fRo U"qVjT65JLl^K_rFXWF4\VF>erFU3JLLcjk\YKP-1ah?#2BDgu U"eq.Re\&A92Iip(Xo9q7REvF>q:.^BgH11__c=XFmOa&c=OAuP&v\[v?B,nJ&Wd3 U"0o_=*5V&?1.X.>uLO#Q)*J(DBG8%FLx#K+K$(Wr?(j,f#UJWh.=pg[gDZ49/J$u U"-U]-0m'-mhXkT)0(mu]mA>PZ3&q'Gm_g*,0*h?73C#e+_>a'msV&7\93r>uo]3l U"[KeVOtP8W<_Pd U"wJ$1's2rvnk^jO$62B/66+,0U4>wTB[tkshb7C U"(LL6tMdXcZw[g6h1ShSNjtFZUHZMf:JCl%DL%;.( U"pr7rl\6of-^87pzfPTCB;'uXX.Q%E2w'RVg3_h?g+4ONCZhxOR/BW^t&;g:SJ60 U"Uwg=r/ktl3mJI\-\0xL^\yx,QZMB5KTcI*xGb+V,>JZ$Nf18<>merc#B(T+,Yr4 U"ih\9eKxs*l1wn#M>47v%)_NZ2N?(YmvT+YSV\69H7CK)C1?[t>2t79;VQ.+V1+k U"oc7?VQyoc9MXfNF=4H84=U5;KDQ_(0iU?e_wYy+pDt'CAi=#8FU&BU8q&5U$VVe]H>rgh5].m_R,J/,1do\ U"H.bP$K[ZmD#p&dd3$pDlTL2:2utG;txrb)5U3=WZ7??6oLbE)Iln5b']/J>dei1 U"UCEi_'t4up%()9%%%%-%7]-#GHh%i;%x+%%&[M%%%0%%%&%jxf%fxrS[fxrfh)< U">Smm5w5b$kD_5*X7*%Ibc#o,c*e[W U"Rs(TfQkCWRRFluC^ERET,L'ha%'bfK\hFn4wncSm>:A7&sv,-5Wwf$g4^DG-'uG U"36ds*WKdc(=35(^GTcnGoU_-TrfJO0uLimY\Z-HbCRqQ^5F)C$:]cnh0Bb40^.p U"40DvbF'EKH5A)HW^21=F#o:?dF-#O/'.YU;s25H=Ft?)\\sa#vb8O,Xr8jj1KB3 U"qLZT2OiuuPE]%Qiw\oV,5IYagBCI=BI':+2]]D7]2Fuk>&9\S9Nbg-k4]oF'sW. U"Md+,T=Yt1I]J_C1)>GU[V]Gv*(Elfw/+B=SFrKql+VpWm6fK.T_hosc5D79-l_L U"t2Orh\_dbdo;q^f4SK$nyq?>d+gE*s?#ZJQkj#[Pr/OX\\W/7VTO5Sn%. U"w0ZtTJJ$LFVuUPw-Qi)-&U[,&\u[,&B1j=6(*)u4W[.ChpEIe94A4tX5fJrZE;_ U"aiJsaV-#8bAsE?'o/o7BFS,sKUY*[vxNTH.n2&brt:s U"'_qH\)XA7GZS;\*>+m+P8UKjYo$bX>PR-tYlscvB3o4GvM^_5wTgwZ6\9xJM9LI U"s9&'-g.F]aP]$3:>gf+L2>Uxj?Kh)BrLXR$eB8a(KUQQ?Mm7A=-Y^ZBgl/mO9O< U"EJg^,9SI)1*)TA^9Ge-+G%m[#/gHP]hq33g$dR4-8=Y5Uuhb$#k+a=>u_mlcbrK] END SUB SUB V2 U"[zda=+n#R>LF+0U^nPHu-EjQQVs0>2%>ciU+p8)h2a_?hMNm79AgdbJn2rRZsJV U"^n4_3su#+/9Ntisa892'bW&HK/in>b:O?/IHF#.4.G'6cs>aJL1HJ.j#\(U(dL5 U".>5U$TV^0]vb/n0utf>=:/T,\BB66iYsqOhrrg6SYe5auQxK* U"U'x%up%()9%%%%-%;x[BGS.T,,'/5%%'>f%%%/%%%&%jxf%uVSg7fxN#9TwTm$o U"hy^LDIxlU*5:4GjDK3&hN#1ijUZDR[q+>MK(=X]+*c0FQXd858j2RDhIHSnW%umC0\E3meT U"L6_jlW)JN3vFV2VIlGhhL]\&DON;[0,V&V/BG&EdF\&6Ng4VDLcEYv6GBYH0?h+ U"ecqH_ffT0ENlc*jlBlGek$A_j\RV0q[&\6YJ::WDEqJ(+euosVd+z) U")^\bG;'*?2f(qKvX8ub,oFufnR9*?_H=7jnaOf_qTl'R0L>?EnfzbvXb&.+/beO U"mH(Uu32dmK:/Mx:+Z_gY]vaMC>=U;MlM'#di:B$f,*qFkPN(r[&EJ[N+e\a0j=g U"0]_6kj(y>_=#'pT'&2.(F6i2k-B)bU(k'Gcpg$g2ECV3':f&I+nc> U"Up(CK+E8F6k%Eb+U&q[H[#nh$42q5vPcZr1rUaCRkgp^^I4iJR(+LY)f2S]hYo>u+EMWDSeQ&6fJ4%TD U"9DZ2[k,qqHl#M*Lcb1[NmjP&^ELHlC$Wd-aq8<-[%#+4u(Iacg(ekMUQ3mxb>/K U"0m*Ef?Qr>OV.$2;kS_YYNQ2&mA#'op$S>H,*6mLFGYJ=(_&qT U"+j1xco\HHp/1tw/Z1;d7)kveG)kJW/7F=>i7Moe/s)oFfS8JvK[Yjp:*GUbZPFCGCHHfF(LYMdVt441P(aO,qm[&+M?1nQzi U"bc+N-Y#-47/a5mxkIRILp;SkTcXKP>5<,h*[D*6=(\3voHC>^^zLiDGc)pqjR#m U"7-&$'WEB#3Iv7LW:Zo(R?ZS0g4M+3.T^EV6406.hB(k08//8k?Ehk&?GU0cCE#H U"N46K_:c.'F]px6K<+B\W%Uc%sqC=;&P0aec,wfWm,YMYoMKfK8\]RrR3EuK[-lL U"I<%NwV%>:S:3PG1/_=R4^MT6+xW0RNm1)S8$WL53eT#GjmAQco/(?&Y\sfQKKPN U"US;'^DKIK*u[WqoFbu;F]UYjlFq&AA:WXU#4oqMjk8LP'c4_e5v> U"Q$()i4+fwd'WRO8_j5:&tHm.M5cPSNF$XrvE'6UZ^D[$cu&JSjiS49QADseOp%t U"rx$IfVD;Mx4\Dl.1sq%R6>o]U;:K2w0]2?/#uW*]BmlXU%bQLh;s[/c900R U"507Ssh.4d*&$MEa?MG>*rB*.9VbXC/*Jd9_m+Y/8[pI]$hU(?,'CkqK/:.z+UZN U"o[2fo4E=a3R&Te6rwgEd^Efcwvtjl8$Pvmh]sKsYWmY6\Jv*syj;+kG9/Y9fRm/YNJ?RLs U"]RAidBXUFUAX.VFM_O3d8k83.xx6j]c5jRQJ>8e)QUDS$L2.Pa\8^9K6\W\$RS; U"4sVh;;YgVdCwPj)G;ptI;On\>rj;94F,mq^z$p=7LDUaMV)'1UVq4hk^>%jLaZy U"t>vj;y(bTG-U8Y605J%#-/PmJjq,aw[5T&YmcMwY=4>He;gR:(JLMT9N:#y61JD U"FHgiq+Ij(GRWvgTTi].pwo&Zo7f6m>-T\'_](VO.e3;_HD0t\[7A+_-8sm5<9EJ U"CEex(%XF*qXpU&(5-Yu]6kkPVQe]zmA_(m:%TVZNog_;P);Ux>Fq0vNo%k;C,k\ U"6/AP>nr3OseY_df-ld6'5]sL*N<]B$3L:mI8lS_rsw^f5>]T8XhZoi:_X(u^o7W U"mvNWY?l2_UV3P^=emj9Ucd=>ob>'\=3+P6V_5VJ8=aFV%6JtgRU:W3[?87nMYg:A)JmTHqj U"60\mDM^tE0*Qf>KA$,%TsQ]WCp*S+.$?7QZ*)-bPZ:2p*CF&=p(6?FGa8?mNi:% U"n*#]+Gsb#5,aqQ20rDXJDe;Iak3eG>$fc>SNIM6*?V[Xp;E?0-1i;O<%=;=bh?o U"L6?WmQSDc9GB4BZP<9z=F#*9%$&=(;V99HlbsF^qr6%%G_F76.o$sK_P+^qy6oU U"yS7(OI4reSvfVLr7.Pg__9<:fL93ZjIB[$NliGR[)8=llim):qWb:mkpT2DPQmH U">r=S*4K;l]kVjeKE.[ZE[3pqbwQ23;WA-'7,%:d U"#=-cK>wV8EOYG3m+CX^lS\5JCTicUNj%qWKgb8NF)^bVUL,f/QJBf0pIg#:^XN$ U"QeJtmnCd,W<;RVf$5t'/8T#p?i.E:iC3V-?7Ump;9eClP'59(m**d*)(^gr']>; U"CGiuWk#Jc_q8SF:&._M%[Zl$]T^L/]sv,^J>pDFf>Lf?2lQIg(:^N&.DnQ3\Rv/ U"fvWk.Xm#MBOwOAXaSAQ\7[3dTe?%=-CGb.0_[Wf-?jS#dICw>T:fV)^aOAw_.$7 U"4ue->W7C[o#kJFIl6&.q\e\g#ET/4c>tEQ:wNZ-LNGNXcEfdH2oot\F_tpnw6$i U"6]NO4qQ#J.j5U5pTUMApv9Lr/^UpIU,Ep>[j\M+a?NA'C[57+aCj'p1pRUk8Cj: U"+g>GMDW1EOo(Sd15mOdPEH$69+CY'DH1D?>TXCM'YFI75t\6<k0lUPiK&l6:j(c:egECHUfRH*_fR34m5VImlhmT\/erqcx(/Y[tHbL2RbC U"'=V4<9B5^T[I,]vq>u.^t]2O\HH3ZV5:2WPja,svF[C,4Q_P//hgk06^LCOzs(R U"A13_fGlLFs(#RsnjnI\IHP3-8*cyEt^m<0-'.>3/GVXQO4(,m%m3QWM\=ox0=[D U"9(uTp.mbgXqoh\1MjJQI/HTR?QfB4Q.jOoT.'^lrwVcmZV[4vo/z$W7Ys(_'6#6 U"N9;#D[7wr/A3%ejuXtY:pnXU%6$$ZmmSbW<+DJu-JV0#AjN\#dBz:sF54qX5KSl U":Q<3eR8IHOco/?M_W4 U"auNda_G0:nF$rrki\er?5+wLel4XkookUGD21+P&w)h8&QnGUCGOmge,DT(d;x< U"P3PC/eErf^ltLwcZ/Dx.p/tDgd,YawaC>ytmpkq$9QHfrjAXKpu7lj(b)%$hj[R U"J4'IQ\zJAH+2_13t-kwv>vc'L2V4NLbH7oP,6M_0j5;o=7./l14hCOiB(kNC0Vi U"Cy_=:?TITsqK7e$bEZSc=_$eM%)[GB0n8xTFz9Z+JYtzi9:cS'KyylBgadkakp5 U"2(hWf.6WfrN1Nv55j8Uh_4wlr.tD#,j&xn_pn.X#U9q98J9i']n)NNzq+e\N4e< U"^RZ_(WDp]%v,SlDL1686O?W,*PPhPJq(eCDTg[QEEi8J1gSNto^If:fZd6GZYI3 U"bOHr(uPBn;s=PSLk?V1=/)^-?Uy&jKc>)_$b$wyAP7,qjBCdCv]G2#);(pQ]6SL U"RV]52y?\5+547_Z6\)eU8M$9Nu;aZ\9J[Y\NVTVRSo/#,4i>\x^*^xr2PJz]k9# U"hvmN/Yc'x'to$Q]TG9WrM2,';%RrjP2l6IMHgr#68K)fu0%#Qfi4zC>o;XHUE27 U"v4uwbIk7V59[bp7EuRsp?AZ9(_PD'0wC+8RJYh:SZ=4Nw0%up()%9%%%I-%x[TB U"Gv>:Eq827%%hT%%%/%.%%%j%xfuW%Sgfx06?:t=#2oXFmu,.2C8o#9K53z6h'yz U"&m5RFIv77JUd+Bh\#7TlH;\FSt.8$QDmXLh4)3T$]KSxHYHr5LkkKfP8J3opasa U"lU;2QiE/eG#Ig4Rgueb,xvT5mRBr)N)xZh_YUPK'mNuw-00DfYou5pIZ)&-Kqo& U"_C%&r5BN(k^B/Q5>/*\o<[YEG'9)dM[COa]6jj7Id=FJuVx/Bk7I=0ZeFed;KI# U"-%Jx?p*[SSh>8s6f$pyrSuXSr&3(3bF&p&'Mls&E\r_QmcX(KhC'k-W6.&.vx6[ U"LWq46NW/N;4gRPUw:05i U"3nbO$pyjS\m8f>+ka[,MZ0YZfVhoJkd$#'f<&'fBb'0^%=ASf3u-Do)W2TTkR.L U"j'T5:p94UWQ?..CoL7>j'HnE,.Khkzb'Q,OXC3othKaIWf00(&[9Ics8UR=ZcX/VI5/.Z-J;,Kqu-1Qf=#\dTFd0 U";pVeM20,uC]J_O(NI%N5AcVDKBSC/CT'i-g^BPql2+ub*^3Too-8GyE=0=CSQ2O U"bgd#f]oA/-HN[DeaNKj90%v$qHBXG2+9baI?%'$V$6CJ]-7PprMAIhvmVUBuI+\ U"1?8rUY]r=2:_e4b[wD3d9X\*F7F^9oO-3[#&Z8-pf:s,gf,EUf)R&q=.%&pbgq3 U"AG5e=PaC&OEsYZM8.iPJ/aa'Re+kcoQ.V>/[T$a;,t6\hR[tMf;#_U-I]GE;kK.;uWP,u0zD[6B-hOdgd_ U"t'oV90XWPs_cy&Y68oVR:2:7F;3nrH%:O(NFWA;Q3[J85-cm+;6h0JiJRG-b:kC U";b.S^Z0iiAnGd&5:=fR]p$O.d5p0B&mo/a#7&Tms U"%/)gxOc93IW>6O>+gX[,uuoW%K*%hz4yF]Ywj_Uz3]8%vnnFDx.d4&s9uBgw^q. U"SAi)3##wXUF1S9B%RW'GAE%&P1QvqlboFr1(&'J<;*.AF-%N3Fu0H<=f<1;+P\C U"f3LV6P)mm(V]&53z=h:PZC3\PZ:>[&U,_-1[tX(l>59(rGn*X8^&6-lB=y(mUSi/YfFeyfR45ge/Z[f%:hAYLkL??:?UsGrc4n+kCCCm U"Lbqt;*Y,-gcf2eN[;2f3cl*F&u<>)$ZH%8X5;SV36>k;S,850B/\z54[Qf2h;UC U"MEJkH&?A$;KecPDrpTGgn9?adNX>=X<&dqiX0co75kPYJPwKUr.IeuchOqAISO+ U"4RSQ2;gJvS>0,Jji:8bMv18YoBE3sT/Qh'2.E2KU_#Te:wiX%H).[6w3ZgJ;Lt' U">'q%DARdq?(hx>Bw>BtZ7q:LX>tE0%[Q%I/MuSA1RspBOrr()_s]T3fDCoH7OhX U",mjzHB$k*^))%]\)d)&z]s0q)Ny8luW&u&4o=O]f]#E'1K3O]N'y4Rs0Q\&,hcf U"KmU3T'c\XD?[%f]mGge1UIHjB?sS+ U"B9epiDdAk;N.>)p(;;Ww?& U"'7lKnWZSX25^=CFUtO8ZXJ[\FdCu;OK/7#M[k-,i)N)-E,AxXg9U(wtg0#>E]jS U"B=5x2p<#+XZ+8nVELaoZ/;faRL0uOh&nVJ:V4FQ;qG\%R;KfgSt2eV&euD7&U1( U"]1>'%a&LSIT1rRQv8-Y^'hZjp(R^6R9PF(?jKp>ec*D7[.<,tJFTt_ZfH)mUd^a U"0\2Vj1WH6xxMpLu?\k&nmj'uxv?heu2Q?#']PFESNiYHZdlBgDl0I2xp U"FBe'jG?G;pYVP8Eul)o5UfddEUmFMxq.\S]\Qn5^fa]l%tdLbRd.>./B(z2VS[g:Fex_lE&DEpk.+>dN*r1%:r%_g$4iMoH=W>Rf(;CZLPfOQnc&&m)zSjQ U"aeGD)>?'RUzyaqVjQPH_;B;gqArxT?j52^)p:b_2%l6^WfID8>6tlkgR=Dx[4+Z U"kVuQNp6L.=hmCNO,7WnTX'aSzdV*G4D]1GxISMS1kAjD]g0Sl?og^VCH2lYT$,m U",Q\jg6[n8HhFzhOURPN%_3ktH9hZ^A[26:>7=;R6];0.BNzm&.7\3V8-=[: U"h9E3aq'X]PppZ=js-(dnB6sh.;lMNX.m8LL>4nT0(k,McY97'3J,xR19[/w%cq3 U"rlne:6BOi9hih0#Uvgc?&fd1cs&]5j.HXqO%c/z#(4fMorA6DgrjL7wnE:%zBw[ U"n)IPH]B76%O1&Pc[2i;8H*wL*;3[LiqzO,?cU/pp\'f##.*xve<5St.Mb-RP;SX U"I',u>^Cl7oe\0G[G,%b6QEG=EP:hhapfW^Z2R),-Fm8Ov\#MdskR^]'%c,+Zw]I U"j8C$QSvS(&(i%MMxCuh(6I.h[<;L1+\6ZOfD;t25 U"cJ>D#cQ;ZLoK-P9w;n)'JZC2$J:B_H[6y5L^f2oAOy;XFyw=l69]w&sCinH8n'B U"(:A7:'Plbe1D&qL8<($hXcOk=S8A?[4#(yuxY\>l?)p,gB%lxvB'5'3-_IstJ_< U"oO2D+sR;Kh$0n U"Tz%Q*9?k;p-WtY^E+XeaQ/Wnri8%+g>'xQQqa0jd^W7^XZ^Q_FHj(K?,IOr(auL U"7YEr(r^W&al)LorZ*ncNIHQP3GiaroQ2=Y,PS-O>)(_boA*IzTWm/v:T0Z7S_i,K.,qZQN5L'i U">az%e9K^FF-?=nk,RTrdm)Z$QG0[;m[C*f-9&7+#&VpA/#2%4LZqR(8HRoEY U"/Bl(8yc*ghC=f)BjNG]-/mhx&&P2zzI4sd6W,*0J]/WvhdX,W2fQbrrm3S05,nq U"H_SDdjom6ZV6VNlM4&et2bV#%4$$$%ky[3jHna:2^p_7&s,e%M>-CyX(OfDWc\L U"z/-(?K#G56fJQZPa]6iGXfb3)f$ON#%*XeA6su%UHG?ae&;9_'ttb-4E& U"Z+:9UY+p1t4bF'\&'5cvLkfWc[.z5,O8[0,-AC#*QA^PhH6;2[w)ym5S:e?OM8; U"6oGp8^+V7OXWk_]5/,pHGUl.Z6$,(=gn1JJeyV_N=gT*=;QwwaJ?l+<-.$3H.CR U"Y+?h%3++48qGUcj3rX:%?)c%?+%0d1%+$fI(SMHr&.E<K-is^i2T5>.>d4byndPIQVeK2C:pM_F U"/J/'u%wQ6]+d2-$\VM+X\sGVW0r/%:h&e(e7,(2hkY*.#fk%7 U"e5KfEc.Tz>7%=h]pW$OX\%g,o6^h/B7(+*t%,e)v% U"ghov><0Wmi(Qq$ujuks/)'xy70NK?kD$(:8nHs2]UQfM>%D7w):yTIhB-whSDl; U"e7:kf:bN>'Z[;OWfeIeEXxn761$cSV%%>gj&t8;DWz9oF/t6<2V6A'l#Y5feMO1 U"'I0A5,#5<9+U_':,d$+C35U$Si4uWc>]X?kZd9(BX]$)*_Kqe&_W2u>FID(gG=_ U"FeU5M:[sH6#Wd2B9TQFx8>().qZU:HhZ9,rPe9\?1siH+rf\K0sjf2[v]#m2Be& U"J;Vn?S&)np2iIjlZGkmBV71#fZ,rioDO.HmZbw#?wxD::zo]_%<:d=Q[:A.o-&S U"V%sL'&b9iHun*?)&nzIQjhEAs_1Qs)O&3Y4j8Ma*AQYPIOA*eZ'Q)xr$;zkM(sN U"]p;,-Lm^2jV%Yg['WKsuD+eo.42F3jXjP0nZ4AX,5%27,:#at)P-;kA*gDxn4p0 U"mik#/WMp\2f%%pG2iY[]UDF=%;4qS1&BpW/?DS<3\h>Yf^6B4mOV[\)=.Z0=D5Xz\:<9E[)?7G%r$9ji(tF]Q=)pIn7D3>[E>JxTJc U"IR;K%dzbwZEHiR&cD$8J>Tx[ZbA2-9/5-0LE+AcvQAG.WG32ki,hUme5i%VCq%J U"'i0Y]E9PXhBGohaJQ#Bj(&)mh>4?RhnBK[2 U"Yh;+qgs;:D%qey]PMK42dSu-Z-1'?i.(_OWlmFH2f U"mSB7OJLQfRxri2VxSfSa4i4^+.+3M$VdJ?nu_?7PYg_0)&2fpQm<'um,hgiAh1z U"-bL=7Z#=&KVJ8]g/b(dO4-[QH7uCuLcEpDCo6/SQe8>7WUX/*[aueBHBt:D/0jP U":M)O>*%6*YSHM2*8f6hG>fu+-GyCEYlyY68&o1f>)+[9Zi>;3CJ?Q9N=^zF)=&O END SUB SUB V3 U"dQ+#:i=Z+CG:2Qe317[2/+;(S)1u*PB^Eegm+%/51?Kx>teAaJ^g[%xB>g%$]hT6[X$Y8'5WhI$*WgkA9 U"n26UJguBLIGUm_];.gduFu/WYN0WN-0W$gBEU7eaprgSWNtMB:=/bCD;AkC#lqh U"Oj<:XDs0SJLz0w%x92k(IEx2sEv U":=DRSuZ(z7wFD8/IS?#xH#.NP'6IjEhU1xL#JaNQ+M\.>&h=]OWyOJ;vc:?O3vj U"Qj4;,aWM]8;biM2x:OZh1iyiENv8'*f<=^sa\R?Qm4D(H81_X74ZyOUWQ2L3?)5optRth5xCw7$9TY+X=hk.b U"139qIG49K'rfmIR]5zWB)v5WnqX//6gQMI,lu#n*UFRA2[]>/+w$otrVmP:c2vU U"nY;8eb6WZnpgn+=CVVr#)YY%ALA7:[\l.An^gLPMVhqNSNVz-+dUy8LN\brC(QD U"13/;9<4hq/P32t;uh$xU?8j'21x/B]M U"m^u[.XLAF>KJ*F+7<5oBbj]^[Erff3^vimHP5bbQEVxdOHKU6'dK.,*4RH_nk:E U":E)/3NmT\EuZLYO\hA>&DG:R;u[%A_\U-N,$_xE)9&I3MHOe) U"-WNqFJh$]w5t.z0FZM,C\BLP^Uro*h.xCZG%ie6[$al57i6uB]<2$-P#frwX+x) U"'&%VE5:h?sN)x9d4#%Apv$N_:W\SM\^.S8#a^F<3BieR:N$k>s+ip0dKxLUcqjN U"f5j/yhnJxMF#ww,-:p2r[s*jPH5iG)?6>^9VYPEYj8RTO&G/&xF(WLgRrrg69)y U"bH_a9A:\(k_#hKHng5G^Rkw2DJR\^iAy-^t(Ore_pkC/X5HtP.nzJ U"oBNS(G^0+aGr5__jd#sb-RaJAu6]2Mt-79]]B[V9prii$T:;m(JToU=s:JFG:$w U"C^]WWj>dcxr(''&O0[_X69sq54JT$eym)eR&S=9W?6JA*eeJH4Fs^Zb2Noi,;,85%Q0_hz1 U"[_#spU/D;OtsA#q\f+^LK]K]'j>[>[\bjb4bk6Cq.>nwZk;Mf5KhQ1B*3?vHMfd U"QUk]rJ^0\O(v)JFn[U>LvqNu3'1P6a[wm)hN3W7]JTX)5>+YspL6cgF/.'MJK?x U"Z^^/D1*0D-l.lY=Q[q4/0#,*jx,o199MRQ1-Xu\CQ&iyCP4OCdrau,MLR2d-0f3 U"=1V0QNK$=M1=3ddQ.o--B?x^vhY2+6q9+EW21eb'=';;$2V_G;U1/kJoEb2VJ/# U"9o.D#B\RjEs)NwlGT47J^VHmpfiR#,1,8ZiK6.DzT]pdCG?GceO/%aFCXPBMFQb U"&X;rbLPc&^?T U"''Hcq0%jn%X4:DY&.URHhlN=Gvquz/TW;05ieX8FxA?D$wkG0?-o3eu0+-XnUS U"Pj:1)dA+Mm)<)IU\\wX?[)5u[?KD<[>QvKm;e>uXJWS7RDFR]0yI8_x'*lP)u:-1-7+8)]a2:oAGH2jU2t+jFc.P1C>fi*Ce U"YpF8v),_2Pq:dWr_>3#y8RR##rMfs');fv1x=doGO+#,H6oj]=+d%-P5knro,f>Xd U"Oi\NX'x%&up&%'9%9%%%%-p%V3<:G.JR%d^(%(%40%%%-%%%%%%%%%&%E%%%%%% U"%%%h%fqhS%fxru%p&'9%%9%%[%-%6+%>GYiDB5[[.%%+%Z%%0%%%%%%%%%&%%E% U"%(%.(%%%kqf%yrjr%Sfxr%up&'%9%9%%%%-%;Qa=G5Lv$J'h'%%%q/%%%0%%%%% U"%%%%&%E%.%%92%%%kq%fyxz%gSgf%xup&%'9%9%%%%-g%XaB+GSGo,ga&%%%M)% U"%%/%%%%%%%%%&%E#%%%Q%5%%w%jfir#jSy'%yup&%'9%9%%%%-^%*.#%Gh9k*i# U"'%+%P0%%%-%%%%%%%%%&%E#%%%a#7%%%%jxfS%nshu%p&'9%%9%%%%-%wa.#GD) U"XmaT#1%%+%A%%-%%%%%%%%%%%%E%%%%N:%(%%jx%fSug%qup&%'9%9%%%%-[%]- U"#=Gh%i&;x+%(%[M%%%0%%%%%%%%%&%E#%%%M#F%%%%jxff%xrSf%xrup%&'9%%9 U"%%%I-%x[0BG.T<,,/57%%>f%%%/%%%%%%%%%&%%E%%%'sL%%&%jxf%uVSg%fxup U"%&'9%%9%%%I-%x[TBGv>:Eq827%%hT%%%/%%%%%%%%%&%%E%%%'Q]%%&%jxf%uW U"Sg%fxup%&'9%%9%%%I-%x[9BG=?12f84%%%pb%%%/%%%%%%%%%&%%E%%%'8k%%& U"%jxf%uXSg%fxup%&'9%%9%%%R-%CoK:G0k0[g''%%%F/%%%0%%%%%%%%%&%%E%% U"%(u%%%&%jxf%xzgS%gfxu%p*+%%%%%0#%0%5['%%J&'%%%%% END SUB V2 V3 CLOSE:IF S=241AND 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