'=========================================================================== ' Subject: TRUE COLOR TGA VIEWER FOR VESA Date: 07-20-97 (20:43) ' Author: Erika Schulze & Gunther Ilzig Code: PB ' Origin: 100775.2275@CompuServe.com Packet: GRAPHICS.ABC '=========================================================================== ' Load/Run under PowerBASIC to extract TRUEVIEW.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TRUEVIEW.ZIP",4^6:Z&=17590:?STRING$(50,177); U"%up()%9%%%#-%Z7'kGUL*^%k(.%%Z+%%%/%%%%wj%firj%SVxySLyT=BT]5Ln]% U"v+fQ/AHF-bZrxs_ktTB+dR1okr6_S-V#vArFUlrACvIZOT*0rXq,#0j*&.,s3yrbT U"Zu4.$#Lbu<&]Kg/J;B6oK>'DI:rX:z2J*?e)A87,'5dB U"Y38hKgL#^oR2MveTw1+\TOw(P=[\a^sRGS=D99)<%a_5pWLGYrZUBSY03KQ]Ese U"<;BK>#7N$R4Klo54%VXE(A&pN]#Esn>9qS)G?8k_H+rb(r6-)mKBi)]l%r)QO]7 U"e'G0A,.pZ2dCt7o+kdg)xX]G8s:Sp0c+WDiO\Gv&N.m1#y<4*RJpbHY.Om]dz'+ U"37;C&9gO]wk*C1#v]\5_,YvJP;11b8c9EC4._ZLeK#m,*7:n8[fd5<-;8MHD2_r U"+5ts3r/x1]I>%bC;Q*DNKBsC+r6UArV:#L2E*\B,[o]<;0ct-I6y/MeGqs71NERh)D;v\r%hGYBu0$U;:MmFg5'puZ'pbog+?,O U"La_K]*Y$eK?6kNF-ZfpS?Cs_t^S]ioYvlUEM'#JouB1.&uYa/CgJENE0cF(V)X& U"vWs0kg*sfQ5&CwF)Vm%l)6.DL;VvHwxWHbcVRQtls6q4OflKt\K2oBcr70m2$Z# U"X.MUWOGKYi0dk'9TJ+;G4^3k<0\k2HcAnMm1Z3%eBQ06bE'?9kr,cKE4N18sK0K U":y6NuH-'Ire8j&u*r7L*J0[Q;SaKf4kMvY9uWQhgQxqpp1WeXSKZJJk^q./q8cA U";D-ql_U(sZd+#fmAt)%MT.[5M\QYx?Jp=e%/#L$riF*A%va2K%=>/kFXF=\F+D8$C3HZc(=Qg_%IL0,?3qb:H#y+0u+DRN-5bv3F U"P%d+Y2g(mqL%F7]C0oW(#'#37kFC(;(Zw:qLT0()D=/H;%/qo59RobZK,-:OdRz U"0:Vq&*5h^KQT,#g2->FwkPg#H3l[KHqA:JzrW1l9*L(>sK# U"Q^=zmYtI&8Bhea+as?3i7',=-/98ErPIV,<8qnt;zdZ;p%M$R[HC%Y7(\*;+^JD U"3u'V9($&X#-CdYcQ.#\NTP=VS]>^II>-poL(e_P2a'%He_Jw&*(g9agf,cmqhp5 U"mqAkh(S]:=xEW.f_6r*V0Nz'uY.f[QwyV*(^mM4%74=/=IcOeh=?Y-*CpR#Cx#Q U"/7]i5[E,lURT%?Rq4S\9\J3G6'SzqgNEr8*NQgQ>BDaM=:iPr2OCg=KNGS;u?W? U"&h]CuYqCUN4en0]IZ'%8nWieB'b=m$W*MpH]%$[VEs/oPmjFkpuBD2Gw$I&mg4] U"NzHkLf'NmHg;QO(pQvKkTeNnZo3AyV?#UhEYu;XV-^Lw:40h[g_z3x?dL<,.\v) U"akY%.mY\KB-)Bnd.uXOB-O7S'C)3D>sV-6.rI2L:4'%QF_Gt%$>i,XdEYYnKdbZ U"7QaOWk*W5aD)x'22f5R8t>,4K_yiYu%8WSV<^t)Wb0o9#Di9lhSxeE]'/:;QvqG U"Z73sw:W>Q6S8'lICN4KgB,Q:9R1A6;XHR;YBtE3i:Jc]01cE+pe3ujKN+ U"4cJKj^a6G5sbdgw4pH0]Usfl[ZkU-ZkJW)GX5f*6Xfc^Y6AgIt/]P1DtbHm/2b8 U"AOLl>O5J&ZK-l?9rJjZc%ED4;[uag;]B0FcqAu[:y^-P1%wvmN9x9Oe83f90+)u U"<>pF4?uW02C#Zg]j'Zn_T[jwbZYyhKATQ:MUu*4fN.J+eIAQ/^b^lme\9s1;Yrf U"-<41]/BH#QiUUK,PyNrKXb897JUP;/A'*V&bVsRI4<%.Eb+xgc)QTx= U"-Pt,6Y$,6lv^a%l_4r0G*0kbdnb=F?/Vd1X,'RP,ROzuXL/%)&VKn)Hk_]xOPDs U"5g6=rA$-py\rFB6uqYIbvdzbl966>^wAyrXLVh4V%&iZ/BP#7yJ-^7f-ID U"#>ic_XmZ^#vU3pBNmK=[#0(WlraV9_yFwqeV4asSs'+56Cmgt/-EPn;PO>33Qr/ U"+0PU$^dFLsHHUNOB'F$ptU4wZbChhS%JX,N_[t5W'UbyzeD)k>aSF__8jyYo?%- U"_KY&MP*9^S7XWggP8f59EFHkBV4oodccVYn+6#sdf(QAUFj1wxvGcX.qxJ*7KuQ U"$%M6hy:rNg+ett0PFbJl)K9fmTOLA$Wa]'UEC2j1ZbaqWC#%c7si?Q3h&u?f]]R U"\+NOYDjtxlr?e._e/d:-r6_ti8Tp%lfoE(35&3CBZ&Nz:#U3=.Ge1S.ghY[-B&N U"%up%()9%%%%-%:$7kGQoPl<%H&%%%b*%%%,%%%%ylfS[nsh&PcJ9RdU9U(1:KVh U"lR)T.G>)02RW.LCtwfQNM?*;tV9U_1,JtJWK*gD['_eE^Yklrnmd=pWS+]/j4+W U"UW+D'4rpXyF*8>gCC:<)[8I/*nbZX33K,j0+jD#v0btGn9 U"-vd/k&Ou.#^[KMHa>)aLBQcNfBmKif^ohLkARE_1mdToVtV[VaBlx3e45?2Ol]E U"X5-o--cHT=XO2Td2>*S_(MfoyOQO27y.q;q+pyYpL)4/iv(4sQJU&XHgU8G&I5] U"(vpMc%aGEVOHK:49.sszJJ?H6wVz#4aQ9VMHMXaR5_oo=zGn=33GZrYqvusx:Q* U"KwYx26'b.-EuJHu2N*fU%1G,(:TZjL'^,up%()9%%%%-%:$7kG(ojcf&x&%%%N' U"%%%,%%%%ylfS#ugq<4vH:87f9wKQ,VS.U+?(C,vI2)j\&Y0HW[oF^d;=^s%q(h9%[+A*W8m,(lkjuB'EW'+BxPKG U"=]473pNW66+,=;u9:);%aI;'h\?0F4,Wi8:VYfnZHxuHjSIc_qkW3K'bX2K_'Z# U"-/Xp(-eqc#,GX$TrBr>KcTX(_HI:XoiJjaE%VPZE]T$L2N*v8o2HSt^::GSw;_N U":C*&.?cXh=*rGN1hNQ_/i9^)Fl8]Z+nf2F_W=6_dL*r2\6:B)DVf.Arys+pMhnU U"9BBf*fId+7.THzK0hLz\hEdNKvj]iZTAfabneMmljLF7uB8Ud3=v*8jjd3/eSBK U"ou$(MtPxjg&Y'h7tx%up()%9%%%#-%P60kG'8 U"&thA-7%%:Q%%%/%%%%yl%ffxr%SfxrWf)X>BT]7M;5Ou4Ql/F,&>FLfX5QA,?[m U"#?CmijlBUb9HAoJO%(PZ'nu>CwnE#pM*9/nRsGlg:FMMw0U*l#]A5Ml$QgF>^H# U"s.FL2iuK+;6Pw..nKdM:gdiqmCC9Cu$soc*kI)Z U"fox\u9jDpRdHZN-1+SY4c221?^L?-0V=zI5=Avn-?f#oD<1HEGe+mNkcsWn(:_J U"n.w$r5]iiwHs&*X^SPIqtnza.FCRhDaH4F%5p3,-n]al13Lp8m5BCAvQx3B?j)T U"t3VL3olTQZC6Ljb]lI)Z0o]m- U"UN=h5V*VSMnA*VYr U"plIoi3uzD\h0C[SFq>ISIsrb3ru4Lp-Q\2iTL)oEgPu2_B)qW4Z74:3>x6( U")uvYKo7(jcUN3T3#WMDQYw/L4jT_I4nii1rQWnC; U"BVt*AkUskHqP'ZYLY0Nhqz7bGAG-H2u U"Qus$3>NP[$Z_Zrep$HG47[;xl1f1ECKJpPo0NA3+s+sId\YRSiChDv6%s,1Z_U(BQ0H:RQhAu#_2#jM3Ojssz;e;IhI*tn&R]/5UlpBIbQK*X4l'7mLrX/PUlplU[KL:MZGDM01.\IqJn9)(g2fAmhKA0ka::4Do;Y1(%Jf+*rK+80:q3*TuCdIe.)II/p3j:h&[r$_Y U"V.3kOITQIS)kuqNY%#UxVbZMQG04C(_0r:3G,%-D&g7q>pe; U"Iy'g9\2)CuZD1MF&?xaq/$jC<,_H=JIJO8ejMHauIMfh2#>4'V^Q*;JNx7RGJ6n[=V,o[nV;-CONKotO1XT?WZym%dA1WTUy U"qbkp6\b?R2?*_DSUV'gMgp*P4C#nk,4GE#1xSzL]rX*bw3m59fMbQd8RQ0GJ+yy U"SM7:*Xd8;M'W].f$9ccPqYf#DDID]tn^c:SnIi%(cl?YtL+Aewh?1-iA'y-v?p& U"SWAtwF&d;xB<_:OYqX0.^yYYGn^daN(s:GZgI6uFH(/tm12#x_4f-n6Ou>w'6kj U"J_lO+_'ZPo?)#NoGi?0+=0*tNV-R*jjPjr9m+:NlMC/48N[PnABA]Rc7PhET90l U"3FS;8fp+5UPyikji%6U[aWJmbXPZ%k'S[?'#LG^J%Bpb[:X53R73;M4p.zT4oXq U"AIib<+Mg:tU202,s2$S/Y+kL6jw>INXzMSpB7K,CIaJ'sJUC5 U"m?tbeoZ=tdw;yCRdB#NUL(=65?bG()o8oG3lNvu^.%*->>Ff;0NE*ChzMoeP.O[ U"jZm.Z$WsO&re>Y5.-a&47/ash.tO\V;rYeoN=gx)OB-ZL)W50*B8KIkXMj+)&kLd*,$Th[AC:\8^;TsNa=GXv%0.Xi]K*<#PI)96# U"don^r7QK,TpBAhJI,?bT3qI4rU$39+po)&oTP2MICQWanxdaZOJJVa4h# U"froVp]QR5d=]nhs\__Ar&s.MwL/0fcK4Y7vrb#r).>>*#^a2nqxOPn&s?nthDEA U"Zdw7FQ-^nDZ.jk4pqX1H6rf/vdK^u.K&D/S7^\\WbtNoNa^=,4ZCL,BX3Mpnb_, U"_xlFWYQ>0cDb-q,_^>e'PsoyEjOal7]WlulW;S#xL(eio+jkJJ\]W]kYaHb:ul/ U"6.KL#.a;br0LQ#.)+u=;\6vfHx(;hT;d?vT/)%m'$GX094tLF\<'ef1#Ubd U"x#Af.bxNY-aqx#pnYF9ba6Z&5)W6\;?m.\)S-:M4_Um\2p*ii6H;#qzu?t6KRO, U"1t=2$;)IG?be.6DSI'dy\Oze4SI'fz4Zb<=/C[]pR?1W1 U"Na]b4\Z(G59x^s,n#H=/Kb3JSClYf<,xhXnrH8(?3.q#eM2?l;T1_6G^)XKv;+) U"BsU2b7e^dD'rP:_AMVsq%\?gt85iRT<_WCuObv*_0Q.0&l$8*QMdWc#d'Jpl5%0 U"l5C*oVn'jAqFw[t6>bwi05HT-H/P9K$*7t.=]4asT%s75'SX-gWePmGKeDE2,9X&tZmJ\QXPEqMIfq#xc\TV>1 U"uAH[BTp?I^O_5VlT*6H9:SxN1V4EXo/-8.PfME8U1#>3a^n6o U"3.\Xz+mO:Wk^J00[+*oRj\o]enLKBnP896[e6+D&v)](-i_6lCZ#E)-0'VT8G4n U"YgeACXKS)dgK.&D&Z2t\h'F]f)m)?Q4nguFo0JH]%e1-Z>.L=Y]jopU^LGTqv5V U"e8UViV.T'm'**sW)\boGpmMgjDsI?A8CY^Ole#JT=tb?>maCC$&89.s,K3%\g8V U"AJn%t\'km;Li_+mTqO?'+?^%)'m;aI0p0wB7.j)Y$pLmLkAetmA25qQO$B=%y&N U"fv'+\XOlCtP/0%fZ>h&=G36*0'o9Yeo?Y86$KT<=o.POaTxtaZf$H/5L]yXhh). U"oH^fK7EsP+1&Zj3Y&mroesZ)%0Hf7fe3g#XQe_egrd14VfGij:&8f;jbsq^,$2<=.Xf U"cv#.k/P_OV.$%3'WXWz%^N^)WF:m?Qhu+[nf#C.&V#v)=/B5TYf>='MBn77S.nblNK6**H+'3(^,LEnGjFn[7>^ U"Q&i%athL-l;jt<56=WRjHPLLg/N$D[8aD-ei'Q9&]cA1C23t7)%j*5SZP\cc?Xm U"d/YvN,;$Ztl92mI,SrN\VQ.gynfQowfGg=tsIG:5CutN_&,_p$r?T7R[q-+8SvV U"pko$53gqXzKkC#I+?T/([D>whDiLPvSk35WOoBI/93[aAR?K7B%wMImTx%e>FAX U"S'#0G<#eyt1en%mr4N.6<43B9:mq%a%fB#U)zpz2uv'/oi^#mFs)J_fD;4+IJC6 U"XKoD,bK(cs\52j&mTK273A->&S=>hERE,P/tBCA2ms+D,jks+I8=hcUtZ8z,8*?A.Z6Z8=9FGUH.p+gqNROt8iPg^;SCK\( U"IH-wX>d;rR[plgPs8Fnqo0EO%e_&GF0*&)ehOO?ch]B]K2tgha$.4]s9cW2K0(eUZNQ)19&d3IR2X<$q:/Oj8[YoM1t22?t3EU3_ycr9M0mGyo+ij65(Em3m5-l=CxdJ%R'z^X,jkbuMk,r+Xjwv: U"bzN;qcQPi.$[[-3DKJ0yls+EmR>[Gvo]mf3ikQa'me&ao1;I.M'cEaE\c910/;J U"62Ti)l[lf&gS<'K7Pr2JTwciw-.]svet33qy=7%z4CUqXoO\X_Efk3K]HoD$NPyG4z(Sv[K7]3g-p?/T07Ax/AoA U"yV\:-pjFxabU<1]CeAOQPY,+GJdJ6VrS8gV,81G]pO(Hsz+n]yX**%rz%/>K/Va U"d=R4UBXDK8Pa&F%)+(LPLJ:OCrU9:Omk1R9=Pz3_s#1MXAO,*&H9b;TWbr:Z5EC U"_aQ^5.$NA/#%J[#*/1+*\(p6AVH8<_HC?>#o6Ikf-No;2BVAV*7K$BU(r/IN-?( U"=lNULA_gAz92A?eE0G1Vh\??70bD.*t(GnZ>%AO6YBHAqRsWMtg6uUIwW&=BD:8 U"tMPg['fL=,v/Q(ALLEx(Zb(sp_Rf&T#EBh_Kir^KlV_$.;>C64$$cM_-*LH0Zze U".#Id:cf2DBq&QLT^=YY)+E[K_Hj=%mbLbEiWo%h1MYACK U">9D\'mWPQWicnbw6m5BVc.AHjctDulO2S):KI8,Y&oEEW2F^&h4l>EE#;Q1]Dj*DKD%YXua7U]efb.V U"U6A9/3c-w#MShq]KdTT]sN1URY0+>uAjtpV>^Nk4BTFwdDi,f['U4?W/5xkR9nx U"T5c5RF%o5?2;(I4Ylfth+g#e$.Cn93n1Py+Msxd;c9Fm(X0>_NXc(sO^DuNIc%rkd.LPgGD_61*F4BbEU-u4&oK>h:1ossg3(g)<*9?VaDQo>,CG=L:Pe?I/ U"(Jk+dT7d1i&RLOX&P+Qu6bgbDD_Q1LoF4>D'zO5-ccI'Fa?y(J#t9*S,p/)UbK9mu&UU8uTU9qiZF9KUJ5mfo4bS,H)Q2;G;j)95#3LS.+2,]8z5 U">Q>q*8GAEgCou:b'R'+6bHq9g/DG#R/IR%igM:e/xPUZT7$59TW+4g,3(C3j*0)./?OK9P9I,;jU+ U"C2<7-JRDn))2r$N+=\$v0t:Lpu5uel6?e U"#)wF\5DOn%O3r\3>St$i.dz)P%-oo1gs]uZC+n_3IInltRA:Z-2=>'s4^Ekr,-R U"N?NZ2_KlwuHxKae=Lb9c=AFhe.sAKlT\$[IUVfW?\&;piP^:A)d4($b#MQ?u*zH U"/#G)-Wj<0UAv]1>C7X_2'Fqk-2W:2t6.EX%\;peQ1i\u;I=7=s\'gp/FI2-aco=3o&\x^2-\irHaXbkd% U"is6r/.:&Mm(gH8->5y,AIj#pVGG U"B>>>J42*dRh0cKV[KD^Q_0%$4xq_<8h%r'o[%d_(bY?G>>-^:4nfnIC28wyX:]= U"/)A_jqmWk_0d]$Cd;,^-T:9.xMp\,M[Ilh U"Lj)\%E\wwaAGE]\m854Gu*kvHi#IEPpQ)a4HR4Ct[HQ;N[d>>knv_E6q-P U"%GLvhvus52)bpSrpn#ckK]6Vw7ODb6ql15,.&dBc2Jaq4 U"yxi4/7E-D?'nZ&R#;B7inNypesv&Kc1Rqk71z>lIt&BTa7G\ U"eEJ?<; U"A,eA[B'Q.6LIaeZdqjSRiM)[-km\0ZF#+Q.JzO=HUP$5B_g U"lm%lvG;Q(r1itEG6?_$=c&MxaKZh&,BK_UvAwUz^9NeNL[W*OmfS:9/sq9JntgK U"4bcG7FH#kSrlrK1O&6.>;#ZD=O%+Q]/u9]>?_:UbxOP],-Af?Tq6uAO#/*xKxLi U"x,0$,/x2bVRU_x,$(iHDf;*>4T+JY&J-PEB[Yy>'3vzPEC-lHA%F6Z/<^mOEr5I U"N#nrhfTd6hjZfZdkRz^$RVGu95$m$hmAx>FXit%_q[JGX2bEnt):Incx?c)IruOKVRp7]iVB)9pIdNS1o_MM*- END SUB SUB V2 U"Fvq9fX4k.T U"Uo9;is\Ge;#>9ikefIXL#]^#B\x:FOk&+<&QE*TS*Ws^Aj2j<9u2dfG(UoE[/Q\ U"h)OF],v4*7&67=hrNRR%GzfjAme2\\qTUTF511.0F\KL&7lHLj(kp+B[n3DYdqv U"&N+NAC=)hZBkZx?h+(tbT*B-6QmTp^7B_*D282is03aLw]FB'mafWg?CY-YoQpM U"5pq\IfK5^'P)oEJ8g;bl76Gpcahm&pr'dck,)>=Nu9TC6g)M1sW5[W40#.,hYc^ U"adN3P6&ia\FP3X4>T35-cWenKIzRz&+c*%aQ5GxTn&d*i0CdCW-6ec:pS-q<[8X U"$2(X;,-[LI22l$\Abo7:JhY7S]]0'ONbp'wnrVcj]Mb1Kef1 U"WpXV]LFHLSCC,cYJZ,-6^vTd)Y0QN9]-+a_N02pctE*5Jp$ncAbuS>6KulUqN/s5m$xKC*1o9>rZWklz3Ho'jrfl:T)ZWzw/JT U"xz-57+Phpj8cia'p=n,jf1%qR$v0u9trTMcAa8[c\Rh.FIil1,cLbD,<>8nXL8A U"DS,:s[?jo:DY17MnTU^#JdC#r*'K9iFrM.rincal+k5p3_yB&H?Nu&Zfec<(jph U"b_If&6QH']4*nBz]Ih36nl:5K?sG[9TFMk*gT#GMIL/^).Z?[?:=+>0(QCv)S([ U"-UuIn)y<;EW5y$0*drb[wb;3ST=XM&drPq0tusBFBQ=L::UoAQCj:Q&d6u:WgcpoXRp^zTL,_O6q&IF*cd-*l U"7CoM5)bj?,ocBI\?/mfk_0Ece7(Vp$(f[_P)k8l(\BT;LDP]5y1]K U"39Wpq(jY7CApFpp#zV?$\=(M#^_;NEhE#9K63[Y$&=gBbTNzS)pDbHkzVN.n/d/ U"v>aRviMAy1LYpjik(e.osVD_Hjcu(6]\003-5MgF.DD_TkPqq#9WhAW-4idhfow U"^jv7D<]vP=cTMxM((d>Mf4EERd;cJYjI3>Xl>4sFclfe U"cLs_Q=%5mrNU*Jgog?%?>J*8ZYE1[6Vv*;U$OW,1=UN5/p=W+#ffoFY=Y0,Q?ei U"&vrD2=:*vD7r2A)AgUyx[G\5m%TENi,SS?7;xoI9CCgn0DEFcQm^?g-SD6cT7[Y U"Lb<1aSeIki$_0A9YO)\_s_E.SCW2qoZaB$0EOnK_fj*^v>qD_SS(e]LJ6:sJ=^' U"Qdb'\w#6G7Rz#fiJJ5F.O=,]ogk;iNeq:li+]#W/8P9N=-uJ_g*r^)AzN*2^hem U"G]^(8pLEsp7u'L7/&NB(+CY&Wq:[?CX0j*gk$p2YKi0n>'_0E$3]va$'? U"tJ+xsY<4%D;#Zu*t1ptd0k=/PCB0%a5Q(X,b*>8;Tq+ko+7NWV+rSR*2&OEAq;4==Dk?;2*SrgNdOq(%P_Bg1'+T*5GgC,yr?rR^^ U"N_a$Sgw#7RF0Ix1QG+R%9E'c688DpE9dt4H%LCmcnt<#/?x5>CxHOTLvaByKYw' U"TN%)Kj&tlD.J%s(Ls$tqM]ou5:DgV5A^>LhJ?T(L.T7jq#TrH9,Um6e-15+Cz_O U"5U4?625cux#).qR/Ft4ow]OQ0[o$uxvLFTtw/IMVan77[XC78m?Nm]7lvuDJ6O, U"l<94jD8A*tOMcla2kS[X<<;[[in%-Da)g:B1x;-y3EhaG0,nBi1V>&[Ao4nIBqTot^?k+?'J+2& U"$=#KAe(+:ZIdPPVyYvU]G\gC=URaz5hG)9(9lXT$OFy=gw,b%PCq(6Jl=ok1t^cdGzT5Eh%Z%G/zC]:[jRZSp*5c_W[D,_ke9r&lKG'NZ37W,jj=5*eXALG(e_o0'b.S_hi-'2k97v] U"Pd8H/rC+KmstJx4;-Ph/b]3OCL9M:1<6uE,B;].62nleP7VN/_e]:?)p,6f./H2 U"xm;;?K7p=^]D8:M>NYaA)s]4d$)tgZ2q1+X]#duDa2v:/[X#fB; U"=$GiZ)ST-rMu=WAgbk\bj:B>tjn_58Cr,d87tN0eN#iNNLqw*A,(9I9CsY\0\]; U"X=b6a$$%c%ER1=y#WKm45l9M%?4v=c&8^zK3^W#ZKIIAGKO4%6Pedh-I2B>n4md U"1U\->nq_I4KvZqRB?qb9)bgh2]qLA:7F1Z%[+5exU*CVNux0sHr(xvr4)vbWYrT/59((,t:uQvJJodnmDm;E U"Erdm5pJI5SGOgP=>o8Sp2Q(#8mf8=lcI.An.T?N6I#OxK3ecOhJ>d.uwCI'WY:I U"fc(WV#+iOAV,F15'A.D)mdL]?:=(G97AELKOuJ/ U"(Ge4]c'USh*^7#t4XEM>4Hqj>k0)-F&9ZoS(sk.o#9I/F2S0$IFy69,5n?k_25Y5)PL-3dfz,*ma6#f0C4sl5G4p1oaw+ola$Y\<&Y1vJ=sC U"zPv3lK5HCwUJe,=OQj;U5+oNQG0[H=rk%&Uqg?Az'e#L[nW\l_mWVB5o(E?l7om U"+^v%7C>uc$D2N8a9aq=\6,x)Y:;qOTlU_j1jZ]TUzpM4g6b(]SDY U"W77qqK)o.A*s=Ug42nPn4kgbQMwzn-Z>u%qAciH6G:EpBCdWrGa0YehV0ui:)Jc U"[F>gMtJ0<^;ZopqT0>Cf=5'd.d*XPD:E6&7\N(W-\8YlMjYrU_oQJEY1J?UPdBo U">7jXoFca?p-23]VnV(b.TeNgUwM'dM::_90#8l9B2ls;N\9tKETP+jfiQ'648le U"\7J\etrs3xsd*XYu1ibr4kmn0&MzU#a>)5(Ps)QTg=4p2C_z4N%ckzhuDFgCY;t U"TIWkoP.ZfBLC,p#ixtN7q\l>7E&Yc=*DYxu+$D?1[EL>na3F;2wrbhv#h1Pmhx< U"^W,V&an'_gO:tRHRr]D?C5WsgW(WfrSg*Y]<=/J(QkW,[(T/WMd'NH1Ju7k;gWD U"S$,E[p-h=k'%SXa#s6D:tP=IDM;(fD4dZ3qPk8Xu=leadT>S:>VlE%o4O]o=c:s U"X4+f(dqaP2u[Agw9;Dof=Xscpm\nabMBZ=*.sJ4evh*t%E[rN-( U"ptrxb-QHUy&MC4(bUu%XJqkF3sFwR*jU]q*:[.hGL)8*6#fp6iD)x8BnDs+M^\pWwUZ-:NUX>(\' U"NxaJh:B1WyEY8ku=.=lgg'5c'xup(%)9%%%%-%$G7kGrL$4c U"l['%%A%/%%,#%%%'%rxSnRshF%SUC5N+XcxZy.#/m*D,LT(h2Ks,YI-:p*?t U"a9f[b7#RnU[tdDFEo&%coLfetkY]s]pt1ZD>/&+dWzOVIF6w1;S<]6u+;lEn%Om U"qERi#kX.GL*cm9/R*TZ1F+_&PmKFZ*S1O,$5-nG<0*rcq]&iXcHNacoOON2J#P: U"$Mc4TAq_?D#/AVfdS04yF9).q_P&&/CVw.d2wcY**t,muD]gf/o;6=moqoP[WTXM U"7[.O9(c)s3]H.N#xg#\Un,yIQ9,t.u/_TPl>)X/SZu0R'd#6Sgk;d*pdqj,au'c U"4_:Ctr&P2^JP(Me-)ns^I[Gi0UlF*jy5Hj^H/E^1Rf,j,nIvejr=D0RJXAgO/Z_ U"I)m8*EY.+*ayxn4cftkGh?RCao(=_mR7==ho:rQ?h6'VJ0D\/i==%Z[/iS&9<9T U":NeyByt9Zsrrg]$FPQYVMG36$;Gi>C^ugCKmn%caNi5:q7]F-/A7kr1ggWs<%P* U"aCl49eQ<0WJV&tE&5yrWtB't?/]7w%wbUVCsw54rPrY2k6M=H%f#%NP9Fuw(doy U"peu]Z&iUSSet^1+l[>o:m0YND0+Sozi9c1R\Blv&aYK1;H^>OOQC U"nm6A^tEbI05W2Umt;BSgLAWJ9i4g(G?xOhaRcv_eyv8B)wp1Q/tk'SsV2_a8qCm U"$u-R35^k'S5+e=fN6WzJR>YxRe6sxYlR*Lv*+&&#cX6$o%%.EEG*]^QaZtelLXdHtJWR,/;Mr)fo.Fi:I'e5m. U"5kxbr0[l5xYl6K7(\'P#TgXR;g;*\*Q7C+*n.rK%:[bVsC[F/S89Nu7DqhT7)Cz U"Rz#KGD%]Kg[c>'>I-N0HsWm\Iik=C)'qdgG/CSr8Eq]vITj0,FNhr7ia$H#;G9[ U"/+(:#7/btJmSN*9Q#ixY^DdbfUJg,n?3.sCI&mqbaXr4^(,fS7>1-,\,BJTg6GO U"':n3s(t0cfaBmnBa7dQ22C,$Moas0\-8hcd/Fv09eWS'RjD'%m\MM9Kw8ko%LsY U"IOO::SK.CQlr\<-,kpgff^3,RWRw75^x$ U"UETuZo;ySc^2TN-Q]^0VQDh9f3UC2\\n(=S4;(*/a?_;ilUtH'd\i,7Po]AFOx( U"nESTI#r5Kg]5gmdP7I;E'w[RNS,U'6-?Ogw U"WO#:8a;oW;Y=Rf-oQ*ir,K8bK.GXu6)(O1[O'cmZpwofiK4J.NQil3d/&e#0UmN U"Vq_+\3[BD?4SGYTbVN:m,U4x[lXF(j)<*.X9,^7xKQJcLD]4Xbh4XQUW;G4'K9t U"2MDdK#L8z7'8.=XKf U"n&%1jM7MBNk?0K3k'5m296FFNnFD;;cQC>?S<*w,qtItEv&&s1$HXd7QnbX+Sfu U"oV.?bHntiqF]/lNb61-&N2tB8ugN4#bg*tcD/tD=,^jF0> U"S^V3ZmShD>%'Rs4-3^McD]$6,((Y#U89lpHg9NYJ+%3HM>m9a1$3#9xGYJZC:Dp U"q>dkVCr[_S;dV?IILF,>O[3OPRRNnL,[[QE+k1)HYm#Iqs$^0?H=P10*Por]O29 U"jW5no'=*;ljf$JO;*;&+srltY+GbJ[gx*9)ylv_\hOhcIpZ43+y3q6Gs_;wkw2[CMaxFv4^.-rHVN%dIPx6$ U"AIkr,/4yPqfff98Si_Gw9RW..Mxb9y&fvjWpzXM12i959DdxGsYuMMr)[)ExVnM U"Bxcr,yM#qkRe&xdHz2puu)qoeCMfdm(NBMJkd'DyDwIcZDg[v:WNPQMOiWc5M2+ U"Wn=wPvMcl.vP4OL4xZ9J9>r%QBMV.P?cui0KXyoku?_sS+rV//Fl\qI2Fd*2wqU U">M4exfQ+J-6o)y'NWwHbJ U"(IB:alA:cLUOcT\Wn:ByOHt-m4&hGk2V$no+4anrO6J7TJNXlL-rlx.iLNr U"Nnt.F4&zx_hF76FASF-oV#I$ia.bGXSff?Sx(n77X[$-t6$:+5]^N5TY5RpP9>n U"dF?]+u6PJ9YyAPJ/e;o<_\D'i]aDpvW(#;0GrA'E'&R%(o\^+sk^D&o)SDPkku_mD,TYgFYXETH4/_mDKCih54:rmJYb.Bw_jkmkI0>.$Jk6?b,aKtwjDcuU& U"0G5b20&r3[T+yWt9L?AurNogUiaE76;;&SV4B2oHh$nW4,*LLZL?guCdzjh5UGD U"0HsgOgO?eB8-+uH6B+Ndtp;3MfCEY[yZPb4TcGv,K*Uw8V8QVP;w$mz2bE U"wNhFCn1SkXUA+72id>7WA\][k&<-(,L8&s0I>u*ph^rr83PQmb?a\.iO4qXr01uDsV)j^K^__ U"CcU#/7r32/:BadPc\wTD8VmNGI:0kslGZZ0M[<+JVK U"aR&<4DM(M[d;]SJ%7vm#\,E/[0aWWCm6*Va>FZ;']OE/s]JK]6-Le9k:\P[(Wd5 U"cBFqV&9[dM,:2]Pl%%$0[3ToCQ<)V?N#]%(%'rx%Sugq%up*+%%%%%%.%.%'b&%%'0g%%%% U"% END SUB V2 CLOSE:IF S=39AND 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