'=========================================================================== ' Subject: MODE 13H LIBRARY FOR PB Date: 08-14-98 (18:00) ' Author: Sten Daniel Soersdal Code: PB ' Origin: prinz@mailexcite.com Packet: GRAPHICS.ABC '=========================================================================== ' Load/Run under PowerBASIC to extract PB13h.ZIP ' To install: PKUNZIP -d PB13H.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PB13H.ZIP",4^6:Z&=21161:?STRING$(50,177); U"%up()%9%%%#%%L?'tI%%%%%%%%%%%%%%%)%%%%fx%rTup%()9%%%%%%:L?tI%%% U"%%%%%%%%%%%%%+%%%%ijrt%xTup%()9%%%%%%:L?tI%%%%%%%%%%%%%%%%*%%%% U"ithx%Tup(%)9%%%%%%L,?tI%%%%%%%%%%%%%%%*%%%%q%ngxT%up()%9%'%7-%0 U"#KlICQ*OgO&%%%j'%%%0%%%%fi%iYit%xSgy:rTJv+pPi3hbZL8[+ U"Q/>8X=T]fXn.R*_vr%NL/E(OSwdZ)-M&u%p()9%%'%-[%ZClpIwIK%9:'%+%G)% U"%%1%%%%uwn%syVX%mSgfLx\b0)^ie5eUd:[hNg+EAXbpYS-bgR.FM:JdjFq24[2 U"SE0gBju=EDWNi8tN/1$WfY*&U4UueD5HfG1;(cLgfY02t3b1ZLJ;#eUwVR&e)Cd U"RG&SOM?d2stP_sn6ELJ6j=h51YT,.%ckPqm>r9xNFZLgb/?QDOpG-2X&S\rAM^6 U"B#\VPOM6>Qt.930&dQRA?KbC<5?3$m%/]/5n;HPr[S?OC+3761%#j+GuPk73k(' U"RM.9RTAh1S'ge\CSh&uocGU)t6$)0/PJHkfo9_&;R'\kysk)k,jkh,3uQa=Ag=,h?iPU[jMd#[j9oW5W2_VNF4Pk2H82Bcd)KAc8/l[$qnN$>l's,up%() U"9%%'%-%89&mIVi+n1%b%%%&k%%%%0%%%%wjrY%itxS#gyrBq?DoiP&iFBQ\^A#B U"n..ASDzI^Uy?jFL3]##^2E3km1-JlHmph$nD1o>sRb\bJSlzZGz(d-)83.%%up( U")%/%%%#%%7ZKlI=Y&(#H%%%%H%%%%/%%%%fx%rThr%iSug%tugV%Xm2/%iugV%X U"mSt%go2/%fugV%XmSt%go2/%v2/u%p()9%%'%-4%f%*aJkS+*B;%%(%[%%%%1%% U"%%fxr%Trfp%jSgfLyB?Dloi&iqFB\^;ADj1.v-?WXYoIBs1o^^:/Anz(-?12tE^ U"^k#*/esGG2'k/Kal9hkL,m^'k9eKugLGN2++Ls9-mubl5uq:s]WuQ7(Ng#Pu%w% U"xftT(+wb=%O&Y&)39+u&\7A4hSE^ U"Qm_kkn?9TEh++otrgD[C?=EfYjhCOJ0Jxew7Xe.&?\+?3JvhP^HEFBG%c[XlhH> U"kJV/Q?x98Bo._q$if7?wR&c-^teupnr)FT6_lK5f$ZL?^m^rYw[.3E9.t(aipYU U"Y8$L;k[C;>K*9wiLQJ1.>EoM_]8.xo5tCU6N[_JKAREa=>4c9xHit2h1ndZq(kX U"EtN[)='stlZuvlj#Af%8'QrDQW^$369K76IJI]n-Y*91R,553G6rXSLJHo_;b^5 U"*DX(3;F3mxm47Ar:kN9O&igD\Kn0,l U"+joe%Pigmzh%*Qj5WDI[^2#SUH'2l;>]k&48GN;.$J>enA,Zt2]B49?YD2%Vk.j U"*Oq>n+Ni+>i%Z;rq>:/G3Yd7PYcP;Dr5U0$tRZ40#r5gB-cJ\L3uFndcTVf&Hgg U"1q:Q2j(A^qAvke]d'\5gxR5iK(8lgbcia.9HxG U"^ikK./XYx;[A]g^W':LktwFFT+Q3^jNh*]t_)5c\Oo7F']SuxjDl(;)/78'\Z51 U":fw^RlA3+>Hto&3jb*o%6]).f9_YCoFU,,w/*YJU-5i5fnX$$-=NaA=FD]]r9&n U"x4TuqHK[HCblRpSvGC9>]&#lm\8vLJ'uaJFrIbOqZVZWsJA3tbqJt$[ U"1Rq3&Wlc&/Cj&QLZ;.EG;Bi]N;,''HC=e02+UObLYDu(8%,afhieOy U"jMonD6IEO,ALVs+]a>4tn68K,#JG*PLD5lwFpAiwa+uIhFY-d+PC:6DprCd6Uk- U"l'x7gtZg]g9C5N^&60,nh#3q&Dqnk6JLBs92_sX_gbQ$kN00<(J1jalL]ieCDD3 U".JVeavjlkc.'U:lX4V2ChQqdFQk=b#alL\/a;>\tW;CGp]>>qG]1GQ4QX)r?h.3 U"D;DL_.ng/EmKxM U"OR_58a80$F7$rFr\kfEU\>>\Z_is=Bc-ukw:ci^puVTH+Flho.]KACFW?GmpgC^ U"+VRi4J[S1ys\Y#)u'4i2>DKuN:';T*kaMsY#OgA]pKRX_ve[JaSF,g?7K U"FFvz%Zpno]\Lxt]wRiqebtUkZv35qNJ1h>kzEtNJIId8jpG*p;fCsv,&K[_::3J U",c&36>,#-EVUa_1oWOmT/PcuXo$_[X*3eGKZZbQ+9#$To/oUMk6hzUg]Nf U"DK97xfIvZtT$u_\P^$PIHY3FkKmFDA>-+*)C7X'/cW^B5N]BpSMRdC.eIhu>avP U"+j']LCqnAYPRs7NM:ZB?3i^NA^A;X%KV7HqgKj?q:Jmjp;GU8V6HVl0>a^fxGOF U"3NMNN.5OE\FF[z;W>tdCiR^[6++TY7:c->u\pW[vsxG/*2b94JFMmAhE#THUioj U"We/B-MGNisQX*NSStWamt,;0je\qkMdGc8[+79pSQhbSlmV-Uf$Nh_#GZ9]W>bE U"oGp1(&[t?G##I>Cr7.DV?u1$.E;9/^gP3Qy%32B9Oau^^sX1GYY4b;YI7t5;_0s U"i2Y0*]U-HO*UWqY6a\tX'fW2(c:kFi;Qf3/4EfixE\RnX8N]a>u,3bM,b_7FU>&<:TK8(sB1l<;c[Suk8&gk6Ix(&l_6nV]
(^ U"9LsN\.sgV894\nyXR+2l$c?*YI3Q5r'P)(BpK)Gnk;Wx1<1bm#KZewhCYit[iGP U"P>W&p)^obA?#.j[>Wn58f\6[z-T:E75gGRxD4RURKc4K2+1l^HjTWE.o^:>hJ>:ua?6KGk.Us\B;n5U/lRdwO%+* U"m$e]Y#B8*OS<>BQCcika:_0iC:9S^ka>&^CFJt2Zo1FCiI&4LJcwkP?H8saZ&Km U"p9tIYT9rw+J67K[9Oe%F'*^GCT'f5*]HU4#dvo.+856gj]h;e_Ii-wTcElG> U"Y(O#Nctp_wez=nLkrE)S#W/]6Zl)f(&$O/UGJq7Y8I8Z8W*Zq28:I[#)8G&,2n/ U"C0knYJ*g[F&$^\?^3p#XjVfZ\G1gZ]m]Ejb));Sf;>$dHroC#SX11/v=%E\1/kj U"OHFw8w6cc>:Dilio5XSHE^[J.KI9$[Fv:O/cv$dL+z_d9kQLxUyHPRU&]9n\5sI U"w4*\[IWWtUu:1d=^SgQ/DeEGySU4zq5DFvWzWgBa7tt<(]P4ZvD U";rt#,Mxw=O=t5'q-YvSpZfjN9=6$1d'a&n=a8^h]_r]C+4Bd(EA6kenz&\#)e-U U"i8S6q5jic=PK$&2oiT=3J=kF&*V8w0U_Il*l3?#+op3E+DMQleAinlFm[:Et/pTLnS U"xet14_HLhEmKh/KO82T-:vxsnp6F*Uy/Hj3g(2;47R?WHGO[?&ET9vm(Aa.[sWT U"r&p,cL'W0:I2pKeiljvwS85QtarGwkhj_7HueN050ou+6BsAX3aN.\.>h\-*JXr U".'j/9:KsB#[qcXvJV:C'nv\6XtswIfilrPH).Bf#Q[c:cJZB5r'_rAbp2*aCr[x U"=v$IKP2S/iT7,#z+f4HD,706PbB9UHl^TZ:-)&5QT$cGVG-rUxM6_ur(RpIBVx# U"j$j29V2Y]-7-3x2q:C['&M*%qKz2oSXz6UKDq)uEzXP[[(nB>JS#7hDNb9un U"cjHfU6n4N&#f92MIcw2.6t:J%+NCaf/[O$./8D2dR&=frVCo2o68P]ak^\5B1>% U"PId;-%,x5D5rgu3?g.:wYEyri*6*EF%g_e9YBZsok>>J%wS-ONc#\XO]k%SoHDq U"p\Z=#1[4ItkquvW0nkXiK,mDzD)6VeW[8FmE_P)ApWJdcjeTos5;g U"%s]N*#a_SATd2*Com1w)x([x'x51pi^n=qlUV*%*_$7BmZS:vXcpdTSwsf%#*6k U"ix=%_58A_l[M\8P,sEhPuj:im.$\kBaKH:'N\\<4W8s(EG:hJ&pkxxk%BFj/k;D U"J/9_KsYTX5+MTy#xOL0#&rPYx*WKP#afENiLkND5g]TKZP9tc#)F/tF.C,Jt)di U"ooK,U1TuY-=JG69.+[w#q)9I/QS-\ZlX%1atEEa.(roF^%LSeqc3s^-7Cm,jsxr U"Gabha>rEcF^'^xh]RlfTRbL5BUk>v$WAKv;4WR(ekk>3:TM/>.KM8zCL?ow+?J- U"N&4]hE82mdfB;rQ%A\=XEgZE6_mLFcqy5%1)^xijbo:lX>b(Q:_:iCYB?]5> U"9Tb4kDd5rDJ.lXBiO+VfTku2m:yn;s=jdMlsscUWVxdY,_\i1o1ve4Zlop+6oj6 U"VS/6csvgc;54rZC29FK_PEJaJ66hb4B%s;h2F1LMbt3O;WEITyy=reSP83Q3[jVIjDZ U"1qK51mn8n2G>a,Vo70oh5ct5h;OrZ)RROCf7^lHIVcLjpnr-Iii\&m[VHL.Mo/f U"acn_%uMW2Six;?#4$#([ U"^Lh-fjnX[jd$)Lw62=)Q(9d>oWV5+<>8rlzQ'TSxl U"z%/hAu*:xO?Na/V-CzsGd1O3xGeeW/r%Hy=j+n]PH%D]JfLG5p(ICJqcA-:&XgO U"UeE#5Dt[o0LjCp&,;^GxpczZf4^jO]M/74ldjoSx)5p* U"C3n'hv)a>7D.mtq%FxFM5VRkuq'+En$:NEU7KpGkfWJ5#f^hD1(39ku^xp4m$\E U"lHU0utZWT7QecnJLOJIt>aDupVa'Zdx&Ql):D>za_RYGpqsS)mvQNV=D:m+CGC- U"RiL8&a\ekanB8 U"4l%dup(%)9%'%%-%o\>*Jtck(:+[%%%f%%%%2%%%%f%xrTu%gVXm%Sgfx=x$^w_ U"&W4iC4F2ASA1oC2]&W\KOXY&puWpn_F#*k(1\Xe#aDtvjE#oAMGoA_k]iqE;aaM U"aDTsoTS/5faMgfhi\r5a4&w]JV:,s;^<8o+M.Xbriu:IKKF'0g-%S:td)6nu<&& U"*Jb06=ob':V&sGU?CICe0JoN%^vnF\3yO_b^7M#J&^x5X>x/1jxXNR/f']XS7'I U"%F6F/,8rj/)hHeW+\*IX[dt4%%?%up%()9%%'%-%(P%1JmWGAc%.(%%&H,%%%4% U"%%%ijrt%xTij%rtVS#gfptgy0>SRa5wkFmr4&1y%G$q'k-mJ4Oo_&g7ZI1vaer; U"iSKZ;:hKugf_eXo+d4,eX(tdEOoRnp6S_L15I*8j&E U"K/mj#kEmJ[B3e0/):D6EBkO6vD)HmL>]U95+nNPG_mn/Zp-^c[sVhV2GpQel4]t U"Am0ZtxD]hYK742uB4vYw.TnmUyqBdD7LU(kB2v$#ETp:FNaE?=R_G&,3+bE.kCP U"8nKjO_P47X#ge2:XgTJVF-7QesUHiv=5$ljZO_WeRb&h*]6fy.Tr;5q4?^19M%7 U"'qXJd_:0k^.Z#Y:r/8SUn'e:((<-ilWnW+U'lAD_$/Pg]0Aip_3r[/00PRk5KZ= U"k^'[jVCj*2PYYab(UKakSrtUG(L_Y;K$]$ai*)G(hjD*^tXVTY^ U"e%81PP'0;;*;s*N>ak'%]<%j*<:8+y)bhy7L%/K%O]q-JEVkg81k_gOD?$FTz^BE2E\-unDBf;Wp0FGCk U"U%_FR*HvP0Y$oNfLW.?VgbHNtKpYm$PphV.Au[*YpU.]O(bm)$,7?B,od#$,>_9 U"61Gut%PC']JNcr=)QgjJvGA$tm_M,[9Yg7/V0mhK+:NTqi+wC>;$?S2hV<^tmh2 U"RLt3M=lb1y?+VXMHnZiLLSDq=Q.E#?ZQIGiu^KQ*j7:'V=[BiH39]fVi9pw$9Gf U"_apj]-cLY==9>dXMsYwA?/E9>'C&8j,=0G4?/UzxXp8RGx%%up()%9%'%#-%x,R U"1JS8)I0.(.%%A,%%%4%%%%ij%rtxT%ijrt%VSgfCxty:)>jo5]v17xS07>\8Lx4 U"aX7$3YS\U%2[91-AArwJZ.YY#j4E;'Oi8tN/*,:;$ds8tpTS+,Bi_kHeLQVaGp- U"BX4=K:Q-DU%45KNP'G;n/ U"QZ(1Hp^Z+&C7I'HS:XT)O_7Z38::na.Zun-XX4'bt#IUPfQ'K1WQ_Gk0#F*2Rvc#q2ycN=(MfSo8Of^W6zf4p[Hw/=6H/)[V[dU/ U"mT3HoL9IRZgk:mW/&]\t7\(0>9EZ21Yynl[]8nsDm1KKxmU&+k88TGO+Zc+Fku; U"nD*3(_4zX-$VwB19Od1xDlr8UFyH64)Rc$ArU<:k0iKS$qAYKbemUosOXYGmL4f U"=3d$uBZ&;)W=B'*ZV7>IJJ%\6KtND?&^30#iS&*U)*LcRd6CnZ3Ff-\[e[>.IJ4 U"phC1H_0,L(_ZY^T7#%Uffs;]W3oI33duo_nN_[RjV19Y2yPz+B/L2<)SlDe[YJS U"$s445EHH).R8-$EXShz<;8Al(Br_EE0\gQKYDVAp=/d U">B2d-8Nn;&V)SfaH^+&eFsmn9fxvVQKu.$JCREd#P>_4n1]Oh-(+WN\CB2?TO]JuX>sRWg3(,.aE=,Q=)T6En.3Q918Vg6&gkmE/5;PbrhF U"pR+g)-kJ7k><=hVFU8mf6>6H?LpNbw%1627tYVQ2rtuM*5J:Wv:fn*bfMtxJl=k U"RJU&;Z0,t*Hdf#T;#2D&Q>t7FH.^Urd&-E,-JsMqXU',S&%3C\rb1$=,1UYEsbf U"j'v#up%()9%%'%-%(x/1JsV=AH'TH%%)BA%%%4%%%%ithx%Twjf%irjS^y'yM5( U"v=#o26xxhOJVb2px%]1n/b9VeE+diwQf1ab#YM/Rf4$z^/hp=nZ']6&6bDeh U"DA&P(,#Lh4o1/O#Cqe;u[doku;WsDH8UbMxBfus%2.dMF8YmZQaP(^bA*4QwtrW?STM0A)6+ny^8sWrWokV U"xyJKD(']HHncJ;LCv3(ev*L4k\)5Kp30kjGU'Y+,L1&KhS U")2/ap=OA61*iLo.jHHkb^g:=/.Zo<;iTg9N;C+uO:]47iOMJ4\-G-4XI7>hfm%S U";h*BED7tz%;vE1p3[Zb_Ux-KQW&_]yn'(2K_0nv2J,X\RNV\Gn_14BdXd U"#Na].U\_;j;RhMrK__3KEOsQpo%4=HoySiQ=)KNA#df0SB==,9](Ht[/t*&h%xW U"iy[A1nZm_/hAlq-1dfE3bW7Y+o+iaZMJjbCURJ.NZ=+;[qtK,=qUJ\2HLfmhvDp U"U_%/.rVcsXvNm]l3OOc[SKHy)f%sHk;JF_x)A3s:,lgK/+5#+xoh/z?BpQ9G=+% U"1ZEm:*Mg1S\uw6KiS0h=jPL02e\ni,&DpudjvWKpIWbDn6s9X8msiM4m=:\&uw* U"%1,uVA9fq*#>Fq_ofB:KF9?-tY7W\y);Z;K4t\ U"JEXYej2M>Sve$Uk&_xN=a6l#W\,q:2\Ue?7/9p[5:M0fT]d'<;pC18t=6$?XOVu U")d=BY/8K9Mx(H7ZuO*F U"QVlb6JF)*3je/[)TaDKS/AHY U"u]]8^UXVA<%V2,Xg6_kltH=S?lNBNUUD U"C+)7tYL23%hP1U2.C/CU,p.:iQm);QOp:D9]WD#P-dXBViU2&Nls\l5]Qbgm_VM U"TgNWIr;z[dJ3Lq75QQ=N(?8$h+8iKZUgJ7Q9vsE>)TAk$zKZ2g(u+_VwP%uyfde>Z'+= U"7FL1Fp^Zv/e,K-gvShCe8dS*C1-Q)G+Ib+a%3FMrSVMQ=gg6\nZgK(].4QcSoAN U"\0$/m;5]vYwd6;6l-bm/s^sLu)bYrg?BJ1EXTN_I$Se1;[m8k]m]6yOds_.'a15 U"ha?5d-TA#l3ZB=G=[A?;C9fDu9'xksGBMk=dPPi]Bs1ut-h=PcBv:RS)]QhvF]# U"-3FMzR6T;ELD[AtB=/X/3SXnX.L;I]O#;JYWD_<*7VBtrXTCf'CMJp0:##&iSlXYdTsi'-C#WF?w)tyQTQrHgH. U"NSjrIU<9\pPv(*r-bE]KRFs)'&X?SMkCp:lml\Kqm7nrfE,X6VwV7 U"#??fW;rueKjo;d8 U"TBUVYTmq=IHCXoYdG-b/jHXqucTM.KGIZkcNz#H=T/DEDXLp\l#^Wj:5fgj?^>] U"+wc90T7;Oke[O%N[Z5sQj[^?*#To?hZ,V7*)0)F#hS.Ef3&s^:ElW1/%qB?jI7q U"Ma'fGg0xYmTbuh3p&w]__a?9DW/^lrv>*\Zo]&F:Ao[q/&,s#qTM*T8g%ExJyc& U"8G>ehUcgsLH0A18P;\*caUho'0;G34kghh\spiDD8Z#bqocu U"PP3CX3UAGYRgn+GMK5AZnC3]Q&,HYdb\>EV-hbG*8.hp&wc#E7JfE(Ca=Bmzs2= U";cXF&ferf:oxcYObS>V=p0Ob2LoL1LZi]QEE(#EtX#Nq'5jTK8jUxM3bC8lS*wI U"r0XtDtBiwn=\xhuMJV*EvoHkpHskgvu2Tn_j[rNde=.N.m*J1#FK8;HyP9siL(w U"+U?ZCSg^7uW:=S>c'x)/*pf7ncF90.^=hiD/eL$gQvx3\Z$v]vV\EqAp9EMw-)9 U"9#)lYUGXG-F9/OV,3haZ3eS=4>^5/FE?(z8c>K'5p\)5EXZgS2+qfE0eH69brd] U"gX18+ANQ6#A.>XwJbt:ti>-#BKa.Ca88ra?k^cLq'Gp.:W5m>e156Xu;[[d(w5V U"HB-VV-CP&oaR;^BJkmQ]en0MuHwm[djDwvAa(]reajLQ5Yd?a$,4E0oXxv*?>#B U"+O:\SMX%hI=t0j_%M9Z%g:tMa+&cDCsBt,UZprB8ub=cn-7Zak_>OdSg\b U"_IL=b^r3'N;$ciEpHk0\-=cYOT,nBq^jc2*HKZ-vT2-;tyFFR-61^m)A\x)EJU:dHEuS6g>UkV?nvb1r#Fbb#R7mFI U"jW,9c09eV][(mi.U90X[2njLd,m9>_QF1-R,7TX:6VmAIv)_qUX.:i7rL:7o.gH U")s,-frtE(W0IZYem5s&c^7<',2N6%m2Dwte21[4WfZa;<']Krp#/$5E*K]\Ta]x U"t-l6_F25]l2-L+7Q,VEXWU<ssZGvPD>o3QT4*iue_-EJ=,k3C U"?:Ux5vcCw%qV-l&[wn'adj\q*7f'QDrcA:4+tMT)5wK.%AVf>F[LdI.YWFc U"Zen>)Nq68>i=.iod4[3oxk2+U,cKns%acJ_&u#dzKk8lpWKRYPM0:5yC+MP\C$d/hDt7n-p^:$o'oMdzJ$JlsS,p2zJA2Pp%Y6CYm+5Fu U"un#(4%,=5EaJhJR>.[ChJq+RH?m44d+[W\jnN/f>;YZw7gxR:utK6sr> U"hS#,ctwFh1y_>7?'>-;R4hlcU31Y.BL3.SY6KK_,o:#.PMjcD<'WVCHdus?_]cY U"[$B_l,-GF2NN/Eg(04$i'Zw#[ejtOXW)rg\toZL_]bgs&eLEYBmQaE;qSXW#,GV U"Pt$C=q.*eY4g.UswfFt,fvmiL^J4rcd3_tn]\voNTtmsVxM7o2D^W5Ms8,7818# U"G/Q3up=yx&V>=TTAK_bNf#j^/UZHUyT U"-NKs/_H6zTRUao4;?)7iSkwZLfzxb8KVursSh05L?h'-]ls3\>#lgBD[Q=eCtXn U"YE.b5B?Nmj^N*l5u^8l?(MO.T%'^#8JUu:uV+CLx2facL9>^#vt_e6uJ^olz>#A U"[+N;Mh/gFprXLEK,Fx6pWH?uXCO0at U"I9y>>uYTPHV#OLFZh/hoXCo&J(MzGxtG'ZbR6ihcSyC=fb$Rt3on(P.Jyk/-6[i U"c\o6Nmu'OkS-PjtsaHbGhX7+/gHYQ^vz-;1ON/,5siU3CDAI+LH8tsIblZ#Bn62 U"i=$TJe.L^3N'b.F/*LjSFpHeSURab U".db0]7un8*G:F:oE]4,(88<<1#g.=iRd1o5n3:l4xmcX3%tbYi3K4:3y:.]3Y(< U"*CyW0IUV7boG-.G(ZmDMF/nS^BlI2qK]a6VUMZeXxTGK[aTBk-]xcacuD+uL6x= U"uZtXoBxxq/VZw%%ElyUzp^G+gdIcN(gBVAhC245oA22Lm9*=/.olK*N[Gx=guc> U"::fl(AG$U'BJ\8_O6.xVXCSG,VVk,WgR3;sL_iLecXk*;LdTGv#9k;[BTi\<1;i,)jFTY8xAkG U"5l>>3I0/SX*uuOvv1Y'Kk_ffFkEP7BjMe U"p'JZV,JF*8^yhKpQI%QtOzHd?m6,u/<#beR7o5qict]r;K'FG';(7H3Gc$)Y U"F\7;qYaR4mSpt64(lFYFX3'WFf^'j\ZXhgyDWB_#zE6D+Ke=6-&uj.GHr(73Bi] U"?mQgP#-O)n*X,]qmpc<#L3'\2PJzZADt^x'S[.zj6ZA2?q=x*)m(4p[)wxvp-:S U"8b%%+CBdngRCl]\Z?Wvnn:mQ#QQ*vZKUcAd[QdxMeLEQ_p6XMOBbRZ[V)HEf3H; U"o#fjfwy(Si$7=MMK\[5>h,\tvQDtkaN<+Z?AkZLO$?rUtdt_Yrd2zFPR8]'qOq^ U":4EN3:GqHlJ& U"Xg2Wmvmq1AZFbbgPH$ZXC;WhKk3*,KchWsMd,u7tr]un^Jbmnb-xCk*&Pt>3C;_ U"czbUN(,5BhRCxxuK4t$Y,a,WbKxD92a#p U"?+_?6,-l;+>$wcx,Ua6:8gU6w U"QmB%[rkZ\#xo=Iz\95'8G=2705_n9X*$XHmYm;H-Cux+o*RaUx4eDYGX,&q2o$] U"#k<7LR4Qrx%f)qQPN'OtQswsFei\+dlC^?:Rif+?F+8mz;T-or=u_QSs6M5A_vX U"nV5'v#8Wl?M8F$hm3Y9ixs\HIg[K453f$RhMIFbKhD07<5>R>IAgc&:gynpr7?i U"b,;_q>4-EDfN35&s;_W_edpeAb*v&2O7GpoH+'L>KK8bHVsD U"w*=7(cL(Wt+$jytuM/]w+*Z0RE++L5rt.de_7*.r/KD,9M/./M#mORK(^'ObgY( U"R(W2*4DGk/orqlH,wU%e?XW-W&%[;5;;AH*5j'H_NzwM>Tp>T.N,YEJ,v>UQ6d/ U"(9dYI8MNpi7o/au?D^siXe[Gjc>jNUH?GEn5PkM#52ajrOF*lzdsK3FeqfypF_v U"z:.w0tIb#dg1#lwf86t4U1iQK9tnBRHAfZ,??TiEQ1U\S]5jRI.5j'_3qB U"Y?66[?5ASVGW9_YmCMho6^Jqo6xOYoxOoG1K6_PRh5R13PHj;#CgV4u^ql5oF[S U"mP=Z%611AP9/SKjNEp+iW?qm.qqa,5KaxUx]w#/JlIm'0qC<[WY)n,m-mKaulC. U";bC.nn,Zqd?TlLFDDRuNF U"3.6Xl/YrfmrhvV+92ITpxL#dFEBt\GhM?O8S#c8cImhnUbLSKN[ZNkeSjK./*/D U"1TrO[?'k# U"&3,*$^W?s)%I*0tCGtdKJWzL9/)nLjAtc2:o[9KgG[QY-NkCs%u:+z7EcPzAZR/ U"G<6GWhVJC;^,,?2\-Tvx;hQ:KmnHu\T(d6Bc1kw)V#hg#o^'jseY?F9ymCrw&bp U"8>r4\2ILLR3h(mUTMqs-fAeqG*;XSu[/ck\P+8B,S9>Q.db,CIFVHrTH&ZR2;Oh U"9S1hN)g8okZ?960mR\L**YA-D&yGT#:1O'&WYyaEo%skIaHLvB1n.8UaB*oh0&y U"rR&_YfZa'S>sHlC4Z\RHY=a$Y+^1X1ND*/M9<$0mK'Tv;O:7bb^d3wIUvNVOJf> U",i0\3 U"W/a]ZL5j(2^-j6(c6[vRkR1%]PLz/cvtxB[7Pq8T-51..O U"X#VNklc2#ZZtjvuj-o3LOo_XE2xE2='8fPaR*X1.&.[,8]b&t=2#&$i$9w[ff%O U"n6=\^5;'ubxAdwF;^]Sm_UsG:ookkbEUR'bstu?.3m$1%$TDo\-YMQY)[qIFolD U"4:J04lp6OW'B^6PNGB9btp3q[?G%vSbs_6abi%CGf.PA(tY$bO:B,n6Jc^H

pin0Au6_f) U"RusBbrJvnlrMJjE.dcT;o?px;DcEP-6%\vxI)K87Xc8FX,loEFc0tdxl^)or\'SWAAtxHYc*Hwti:L73y$07*#*ihsR.1yv;dKnwx;1XEmS%;D#> U"bt;JoA,44%oQ'%8U'QmR2c*8R'EHj%O#[L2Pr.UC1 U"kit_>OB#cFaxm[h;[CMr*R,^FJf4R7y&u=KoIE)dT97P U"n%4LoeOOiBRVi0TVDtNh30ZuKM(L]*7K>BJDw)blcTE&,pYJc$W;Gm7Es6e1iba U"+f_T-+(jIc-QF71ywWW$g-O7*](^%pVYekRAU:UpQV13hnJ)1s_eeraZk32x0v- U"W$rikOJ%AhuZ/K1/vL67En5YpV[5n4cp)A0AwDxk=<*,0C>Ad4etnX^E[62n8Z& U"+WaeSh%0bDZCEMx/CDIOyI.S4s0:KuidK1Rh_dtRJ8IdI-qd8PYC;xx;5QY)M3Z U"&4;%?fL)L^YfRuwLCRkwRL3U?L'#MHfTuF)bIln)U8h3SG.Rplm[r#9Y>B4jUSA U"(T>*Va1orVk>e8C:^b;k>'US)8g&'YU)E)UmR$LpPzXOa1h:K+0&]N[O*[:ph2j U"J&%7u.H#-KVgY,\xyfastsjkxl%60:$,P3qK*rVgHn4[k;=iCno6ho8K7ol-?pF U"m?rY4yXg]lG,$31]jK_%.I:z>sDMO.TQhDgovu)$MQVPkZ%(N8G]kB0ZZpKBSfn U"mdy1Wnt8nX:5a1dfHOq[O72>V^WHDUe;TTOgs>vX*uJn_'G$&G0rESaT9_rU=:Q U"rND,hTIo&rFp^s&e$2W0T.9H9't0bwfxcciqXjE%159D$&3GoDn'\\0eGA4(\sM U"14fi*6jiAZ/a5Vl8-Yrrmufe3Izj[.U=80fR9U\<(MaLYY)+:xHH77kV+b%ng9t U"lR6A'mf'0aqr&Q1Aq2]UkTo(]C9j$544Fh9;RCHx]$du4vJ18/f/;ao2\.ncv;A U"G^wY,pqNOdl.iYA0g$h%AV8lSuEe:-l.i9a'[kiCCnsph;9pC8P>i'H)4xQUqob U"m=[3hNoPxZqCpxGoL\j_V6NMGAQcN'a#ba-S7<>$-]*=Wt_J^u1cpUdh%\G9l)& U"6xx6#\&4fgbJ*odH-=2;[G9E^3nv*F)cv^Q+^6:1m/)&5c/u(2W?q8E0:jP%1C_ U">S5NE1fW8iF<#EN0GiTN[>o4q.:vms)H\Pe5$mG U"aqsRnEDPetaI4(AOSw#FeGM02-C>p&^%E2as4a4AY.1$DNQEOH-CU*o)[w/vdKn U"%7&8Y:?h'1riJ^%Ylxj5BHg9Q0iK%jf]8c-Zf$'$\[?W*Kj6iB*0IPH\2mS#%]R U"][)Z2U?x6LHxBz-KILbzt?EZcYb>XS2t U"M[jR[:&TTv(UD^#$ss,Y>snH1:)PAJ:kc\1#o*mx:S3PUoY[_0RD&^p-$813J2^ U"uN'W%R6LG%WUL6(\L^fQ9Vw[a;atUa?XcWTfr6w3I]xekaH\J+Ga*V.a>A3LM,< U"bf3jdJ'cpx%rEhLW,/seB(*o,IKCOYwb[N*]g]sfnEmdFp5]-lss)W&O#klRlgX U"%R00py6hKZ]jy=I(Uwk$:*WJyDV9'Q++EaMl5Af5L;-BL):i5N42y5ogwt%jsWg U"=O?GSp-T>DbXGhtZmI2(EI2Mfn1ZS=XMYyo#M]hk[tm?XrW[*bh[;bkOeJ8QH,<2c^BJv)k6Y,nT%ca$$jbtRT%e[Z&QY%'?/ATwdZ U"C:RpXdAS'5HKBE24\c,gc._sjNR]8KWUeOH$UUZkZO86wQwH4G>* U"B%\.4DG?SeiGbplNTa;.J.w$64p5?e=VH_g1\w>tx#I.cknmDvnQm]AAH5Zb/Vb U".WmS.C6m(ABn+9E\3usutA\ft\/VW33nqc#^1Zn6$B6c*>-K32AW'4OVTS-dMLQZcBE3/:0UUs4UnXg5#k U"\'NtPb[k*Tvh[E.B$=2,E^Q>#PwhcaD1]&%\mj[uvH:Jk0-5sP')'L,W1j)iSv0sL##P*ZfYu99JD<(u+XK.\;Q#;u'aJ(f*w12++^K\8 U"r3BuWg:hRJ(38:FQ;3RD+XqJPwn+]+Da6S.E&>T)Ve%qrGL.OE^RA: U"xSw^b:c%c?q-mv;ElI*20#32b[#tP2uy0<4PM#8g;rz\U9f.t*Be&6Iv2)KYEQw U"5#5I/xC1d(MH.j%j,l/zAxnELFDMtMpg\u]]4BZrJ^V U"V^bDruPX6r3q)-t(f/fOXKK9Xc[t/+=?^72\/aF7GB2i0O)0u3.uP($Q^e#P9oP U">7'w4up%()9%%'%-%8qAlIjYvdU&n&%%%L)%%%3%%%%qngx%Tijr%tWSgIfp\b3 U"V9ru:9T(#'A$Qo,MEY8G9Kn<80Su^.Kw:I:[C_o#qkKQ7=V$g_ntTTE6(C0NanVs)+VYD*LF U"m2cIj#EC]C#j/M0#?w_Ob8Zt69RCqVD0ZD2S(tp(xbBN,[l,.Zr-b^aYSU.U$Ei#rBN?W>r'3Ww2Du.pb$XVpdjU5c#XPnGN1zzAao8)?;Ds9%fE>#d&0vrijS71(YeAxPP,xNuDwRR# U"I>Ic7YT\&rX(XtWUlHA6$ou(RV.$=;3*M#0?5jk.d+WLbp\O(q6=-$2JE3j^J9Rmab1cM:3oA55ryBdc=kB(l3L#XRg^prvR[D8EUq'ox[;n*3w[;Kpl:HbN?Jx\X$ U"kRcOW:UD-4T:ioq.TTh\GWUu;d4mv0%ETp3S6F'TE&)eD.DBZPt%ev>]$c;LW[m U"=CYhTp-c3an;vCC?s#0ny(#s$we)7sh./PYp?Wsce^,ONWxWtPJY-7+uFetp)uaN7=s6U(%aVF1#Tl3'j&Q/e-UD#8=y7Q7Bzr;Q0HgR3EOX:EX U"t-A9;FxN#MstHVfQ^'CZ%5Yk,LD?/9*'12vp<#VOk*o2-4\-;oBKS=R,nm0#g-hR3p U"J;4*0b,21B:]:M,XReH7?lve'D__[/\&\N1Xit)#i$#/NCe]sl7$6>fiZJ>T:o5=W1)UP8O]/HZTho;_FJ(;fSo2$Ya>(VZ[h)+\[amj\g>?46c$hY7IMD:jzs^ISIp'?1+sAsg6N(n U"L>^bOoDWoOttIejJbOPYaj.a$K$I2n/xF6L=NKX/*vUIZEm#;-Zx,/NlJJ_/e/' U"mO%PFn)kQSa/X)noQ=x.p5F,U6e]Wdmu%]4;geiX>/9,P,7_/92Y4Q)?^_r^;'S U"IKT;'y16exQdx2R+jwH1C;Z1^>QUN:l#*;JJF'Sn6:/TQ9kn8gVhzU6ZcDi']a4VA)QOo(6QO,]TuENISloBl_ U"1q:*2J,ZDjK2t\[4kKuS5jl5m#nqPX$X3cH=<-wR[%L8PSHzh#BIcfAMiVcbkdj U"yWqFPd+]Q/T5cAodp7g/od-LLRhtfOL&XeP?'FbLA:mUWZ<^6aZL#35B%o\B5/l U"(;brYj$0DWw$n]L-m[eb*B?J1UU?cj*VeeJbbHG/zWkgF7X1_ALu='IfSTh#ktK U"v;#[*fJzh.lYX.fp$YS'Ju[L1xUQ^Wb?^9+Q(\ZQ\^ve3C9kVFii0gQ\8+^H$pv U"B[[Hh,L%_,gbGl$0DW>Ar7/a;EKPU2*CL%xKt56K*%U> U"jp$[EnxbMmJ'$[=Q>jv%+eU'F?6qapcS\MPs/<[sY9Gk)8>H5EhdqBu'[b.Bv%p U"HzY4-cB6S=keN$/63>6gfb'GNT$C3iM(gVSBg-3\cWOO1o][3#q$0Js7LN1U=g? U":3,JUUUJZi6MU;u=?(LNSfT6,f-Pflg:oNAk-.IwMCYRmU.ebz07Nz6DL'azIM2 U"/]Y2y.$^O;Q]P:_Ct&/z[Vc-$KyBu([iSiC*f.GM%y,hqJblJa^-HiZ_4gUWUl9 U"nnz\[p7zA#1TE?gVuU#>X5JK$_BZA>a>(B)]KX6qdO*,o\Du%p()9%%'%-[%$CljINe;&t<(%%%\,%%%6%%%%qng%xTu U"w%nsyV%XmSuRgz&c.rm*ps9#HUP+lpaesn_OBCZ5:&AeF=PT'YKd%eghQQ?tHncCMj1-2G/oHGxM&;\sH5QI]q U"ISN5N>OXHO>mT43&Hql-$J/Wv5C^5FB9=KME(K?bU-,zUM7[4=Wd/qi/X,)nma) U"%SEX#hKby84mIH.$hqC]2=WaiJ8UeYIM9_;*^U1Fzbvb-,5NJ6M;_v\^S^.XR^_ U"VKin<]'m]C2Ot7ghjo?2LW'gd\?7FHPUH0q<*4//3oo2ruVN$>F;zVQe0OBXi0Y U"t'B1_yzn*hw23fm,7V1>I#NOY&X1y:8g3QmUZ U"=Nab'K2>IDNlN'Y+(%2OYf:#C9zraSTi(5mg1)5/;cB9Cyra?]lP7ut]G-3EzF3XobF2lLRo#R*dDWug])5;#\JEg:)Un^vJME((%E];O U"3Gp\yKXJqO\h;qY5;uxK/$MWNea%5tI&0PRPOmr>)5sk U"\P\An/i)g9HROOv]+#%vmA]Jq]_tB^5NEqYfK_W>AGf-:b*iN_H4%DtQVYK&,]X U"tPaqK\\.zkG)):kUJx^>+KEsWltO02.ggsE_.;7)&kL8+=[DnyD8$SL64m5j*8a U"BQG>tWe,^/64&_Zat9Skc&3D(.KbW^BkLqT[;CxQVIe#3rvo)E)anZe8-rmL^fW U"u4/w,4P_PfA[:Ro'o+fY)/6ak;0ef9'I4p3D=xIO$%4jLtm,o;VmPD5I7C8B/My U"tU;Zf(0s,e\=MDb(5BuE+QODP-s71cDoIpxx9+BGF/wGNX?kwPZFQhm*Jtk9(:+%7%%f%%%%2%%%%%%%%%&%%E%%%'R;%%%fxrT%ugVX%mSgf%xu U"p&%'9%9%%'%-.%P%1[JWGA'c.(%(%H,%%%4%%%%%%%%%&%E[%%%/%<%%i%jrtx% U"Tijr%tVSg%fpup%&'9%%9%'%#-%x,R1JS8)I0.(.%%A,%%%4%%%%%%%%%&%%E%% U"%'e?%%%ijrt%xTij%rtVS%gfxu%p&'9%%9%'%%-%x&/1JVu=AHT#H%%B&A%%4%% U"%%%%%%%&%%E%%%%GC%%%ith%xTwj%firj.Sy'y%up&'%9%9%%'%-%8qAlIjYvdU U"&n&%%%L)%%%3%%%%%%%%%&%E%%%%Og%%%qn%gxTi%jrtW%Sgfp%up&'%9%9%%'% U"-%(k&*J;3&dx'#&%%%v*%%%3%%%%%%%%%&%E%7%%nh%%%qn%gxTu%gVXm%Snsh% U"up&'%9%9%%'%-%'Cz1JE)%5<%T*%%%u-%%%3%%%%%%%%%%%E%7%%aj%%%qn%gxT U"u%gVXm%Sugq%up&'%9%9%%'%-%7$ClIWNe;t%<(%%%\,%%%6%%%%%%%%%%%E%%% U"%hp%%%qn%gxTu%wnsy%VXmS%ugzu%p*+%%%%%7%%7%/#)%%X%s%%%%% END SUB V2 V3 CLOSE:IF S=113AND 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