'=========================================================================== ' Subject: TRUE COLOR TGA VIEWER FOR PB Date: 08-09-98 (18:32) ' Author: Erika Schulze & Gunther Ilzig Code: PB ' Origin: 100775.2275@compuserve.com Packet: GRAPHICS.ABC '=========================================================================== ' Load/Run under PowerBASIC to extract TRUE.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TRUE.ZIP",4^6:Z&=17667:?STRING$(50,177); U"%up()%9%%%%-%B(I/Jh-);]z(7%%5+%%%/%%%%wj%firj%SVxyB&yr>'Tk5bnj% U"x<#AJe5J<*],Anon;6;;c)pvYLWZO]A)GgUzFtfsA(QHEaATNYox.')?dY5_FJ; U">E2fp5uQAjB;A*poq8K.^9)^:Fd64JRU'M_Yr]H%SSSSbP7F/j;dvc%-4gbF\[> U"0M:CP4t2I/0uLbqn]/yjNJc-:()0J_#]v&dw+S:63OcZJoHPIzt#5+ZY3lnVQ^r U"RUOnd[7S+s[Crp=KFk:Qm/eLSP%_%.ju2NI%Vt]4hjrrG^n4(xQ%b&z#xERmpVS U"s&5r\sA$./9[*V%qE7%Mp/UJ)3x)EcY)v%n0r-%o]3X)UQsxZ/5$=bQYX'l4KT] U"4<7>F+NjC%-496Umj7LQgs_e''e>tT-J09_poV07,ci/wS%,x;bM#B+98)SA7N\ U"ey&++m0C%#w+gT)V6_G?CE_fI^aFLJSm-w#=/;P#Ii>9yA*;l*4NYx#0dEOzZ U"XmS;)6e-$3V0Gl$u?h]$CSETz^/m5e+kh:P'+jxB&*Km*aTO'x;=s:?&dHJSmfM U"14uMh=)g#wFj)/kgtyo2Hru3Cx$mHgv4^FaQ?CxEnNZTDMZa/;5RiaefNl-cE>?ck1=$OB U"b\sbW&.NA(\IzgRW7SIvJ\^?\BiVI\Dx.#b;oKS$KyBN=UqMMjdo8nmrct9-=A<&PH*8yM>S#kQ U"_p?LMDDJJ#X=3>,>;EzBm5MCkvfW0hN2BJ);jBk]m>+X%&up(%)9%%[%-%oa8dI U"<-c;55#3%%O%^%%,%%%%y%lfSfRxrf*;<>T]=7w%'Tr4uAWQf3,-TF*^+#R_nNL U"=?w- U"#5)xmaIRRT4D;nQ1s4(yJ0>6xWUH;ktn0$#VV>$;#[(S$BkjG'DaTa0rk=6AX7Y U"QH1WLUd-e]dD[3Tt_cq]KG,s1/'*j6:1Er?]+#&$a(5Z-3\\#IW/)wepvU58/+& U"9wr.14s?.%dS0>]xJY^bA2IK*-)TiH:+J*$Udg+OAwWG'B>4h7FJ*Ns;FxLJ7Tg U"U&(v-7YhVis17;h:JIGe6V#)[S)\/DT7tSGe+2q1+*Tcj?qK+DjC*.t-UD-YG]r U"B$R/cG\i'=333qM5(G'$2V5;]P:GkUPYGq?(l6rx?moEmGsZVInVYQ[a?M_I[)g U"?g]NGYXd/$Zyo(.b[[;9 U"8Q+Z1P&Qj7Us$I/BvmzRng?)CW_n*m:q:&blkriss%,[A]Ru2*eO2$r$G#lEph) U"]gmOh&o\yI3Cw#0upL2M4/N+?yA?-G-'la,h>ZPuoom.ld-Bu5\OzBRkN9'3Hj6 U"\%Zt*SlGRFS:K-TuJaG0dcmo\ii[GW U"13\[$Ct-B-.C+P+,$Y[P(G%nVuSLEe7$Iq3RNkOly=.:)f<.Ds?)';eTVg_FQW9_ U"ss?t_q=)H7'wTT\pQAGqwETI)z_#0Hj#8)V/c+sF:q

KMXA'lO#LUJAeh>h%'kaPos U"66U_]qH::\;[KpTCKe^>9fJz/%)KZ6YGo=$3fz[sBm(t=,Nc>F&JBwteZ'OMrRD U"%snBIw]I-kh6^^<Be+=gA70elA_IJQ(155ih U"GCrXDJ./6n\pNYjZx?=eioq:<'Fu?]KzkRYjG+=21]tg_R*fI:%e:>SZ&aQ,o:8 U"h&plXN\02OoCycg1-2Te(?Eue9l,5qC[p[CvF'(3bkz%WDrN)bxd7w+)E::FAhl U"v>[tD.?=mwL904eEG/\8RIt(W%8]iSuamO^4+X^gOuR,2&SgqNcmCVXIK+?MGsOFTeS:jI6_8e6&&IRR4RV**+$^ U"ej&o.O%?%,tgV3f<('+i4^/+J:aAJtAFB-^s&$)s[nU;($[4.T(yhG U"jbRD'V/fH)xm*RD3aslh'dOh(G^0MziAKjn=;GZj2X9*BHF?JOMO$8GTc(]O:K6 U"?S'.w0i-Hwx69em(l]&2p+P]&HM2HE;GyY\k+/YoTXrlqLOoj$9nb4R1jOSQ:K; U"sN&/hg9[lm9%i;3_O.GmP_SlY*q9z?aZ,,w[q<#/6C9[yLN.&bnwkvmy U"V30h+^>##5mgRsYN^g1EUhQU/#IoNPQL%T9\Vx_V:7\3/U*[t0pw5H* U"XN%eKNO8+Mbs;_),Hl857&DmDu$*;lfqEdKKN9;usRZ94n:Y?/Y]j]#xT5EgL+6N;R'ATu=gB? U"koS.$9wD%pB.3MbcLjer^foxa&EP6BUpe5wn U"<:p9ZW[JsP]mjPd^APa(AfVtgUymw5CG9\nTaKE-^]CZ[.3ejIAWEtp*'[I2ADb U"?FLdq1N?n/<#(>cdsmoK?2E,24#]-\7,&da62t)oCQLEPHK%?c>J^n4_[>y0'GJ U"6Y.(FqO98E-?8=9qLmqm1l3W%P=hS/wT>]1V6P1b-Qr>8q&QazT:'p,EDGl)M%P U".9?UHe2dW>sXSWr.]:QW0&',XOSqV9)?mK/ U"nvU>9cG/^ce*IjGjp02h==2'jCJA#jM?b?W]=;+^d9AA2l/sK9aZP<)bID\J.b6 U":f;Wee?&9K/uEs5%snM_GN*(L1AD8<4K>8Lubzl/7?A9#kHeV6mtg*Ht6rJj6+Q U"\'U[o:0_k'Fi(u(fQQVC$VafDhOFp8MP:%YkKB*nPNp_Tew,'*Isj%,TJ9%_CH> U"9\jJ^RvP<5qOS4K['bq3WvwRf6hp7htBfj'h5?(Sg;(=G^YZOQt U"OUbJaewks_IV##:.Pm4PH4xDG'-41\(e\IBGf(+*:6B/vLhy)g]QBkp]z?[ITh# U"O>U7;?:So&kh3Kj?k^DKt36c5GU:_=J+MZrny5&GWX]O]Pt[_1J*u^z+$iY\,gA U"Br(*xvgRls3IKJBV/b*0sDR1ztYPX2V1n2d&OJ&P=ZUVjJAZTYXe.e,W[6q1Gb7?RTl7mU%yJplCd$YAfZPt3qI:>5u U"DtDSeK^#gUT*\AazGJM&Mb$J/N4XsC+XqDdqDAtu>$-VZC)5qKw)H=lpkc5CjRm U"TV>6E(dtbitk?m$#'2YJxABMGLednz]6SC[KA%M.CABqprLl1^:IV,rZT$FtEO9 U"an9hi.\^X[A,DSPc7b\eEN?]KijZH';iB6lnp=E7'XD'%FLN_d7([wLB^tdGBEL U"z6V#rZycn5z__p'4h0B:7bQ'M=q5>ga^fBcb24-\41EY'D:Ep-Q7=38H_Y?C3fk U"5X0,,PCcx?Xtcl*c^o'Vjbl#ezIv4aiV\e,9eul3_ZJr]]XSfomjO#O+O#JsXS# U"0rnd8?U]]6&-xMro5)m4v1.EkJt(J^H5\F'N1:\QNp:]8L5Bxsc&A)3KG>\W+J$ U"LZwCOIhwYj8:a)ji3llT/'.(O)7[F2%P_u/J;9LRjDskqsUOVxXo*1LvMVBUUaE U"O+'2$t)q01,6k>Zkba<]rs.=wpvJ+FR_[4_7.Isa5w:TH%ZfBc&zAZ)h&]Z'C;?1LNwP+p,*Kf U";xg/ISDE3dp0Lq,:\zG#gZ_i3u>#?dfSHQCvzj%pNp%KaDMQ,ttIeKew+%t]R91 U"7*=J4kd;DbaPW97*%rkkZ2=N8hR^4i[R(rWG%4.N$B/N[jW(^xjcFJ>+0DzWa4% U"23y.\z/_dZjLPVgkM4[)#3A^IwFa2v#y$2Si>y'UR$[sVgSUY]vt9ktY2(>8g0% U"W3l_g40a%A\r;h4r7wh2,]lL'x(up%()9% U"%%%-%7Q9dIogD.Q&S&%%'\(%%%,%%%%ylfS#nshTPaX=QmU9?(+ZZBsBE;V#\J* U"(;U1j;qQa+ztDbR[c;ec3dk>8eYO9:\zWKKvlITiQN3j&:'tP&O9/JJQ4Oo9Z%+rA7pdyZtV%oO6flfjkL>KhJWnZJZ^a.IYb>,1eU U"(Q$Iz%:80uU3[Alc'2diN%;e*Ap/4[PD$BM/S\z4^B.pfWNl-aV*_[(VcbBsiL% U"VB)rl):3CkA)D]nuW)a%.wG-K):M\#jbGq9)7UsEQC4>\fWg#/^-+y$x2albpAU U"jQ&X5;udx9B#&BTTVh\PqSxZC21msjpmcfqE'$$s0]O5a(;=]/g0x\kR-bSYZH9 U"'u,([?V&YwEf'6dn&Iidu%p()9%%%%-[%29d#I0dl-.Y'%(%p(%%%,%%%%ylf%S U"tgo.zu,mCx0=Mu8,\R4aGHo0kw(fBIr4,,BA4eXc∋hFmz%XS(A7SAkv_\I8=+GeD[Bz/q9#0S2rMJ#?(x]0/ U"FA.k'AqZ=UhRjID.;5[5GM2&>\B\%2+T.ns)fw_>]ZDoYk9(3L:auO/ARpXBv)[ U"YCWn7&.7[dwD4C'/LQ(Xs]I6#j=1#f)]+n.dqANXi$1BUO)z;6U%JRm>6JWt3[1 U"5'B*[j[JZJZ-lU)7w*1,Us\ U"B0-Adl1Z$dB>isO%8xaY.bIFwm75qh)BvI33PFXB1-lh.RF2gkYCW&%MYJ9H8ie U"M=HW_f-9XdK:HWGY#gXfW;5QCQOLv&DpjqI4X(v%pb2M>6U.$K3Kf=j/9VbEF?E'(]GBO5ie#_vtKqMBW'm6eKRMqP U"gA/k50fnuj5_WpzjLA=#kM6GI:F>WSY4Ut$jgQ87Ek(dW93<3\%A?+V(JZTm:Cz U"skS$'UR.Y;k#0W[(0maF5RwS8lnM^'ZmE;4pk3g0i$lOuXLLG&sz$MsUfC0SF7S U"(vLhpOC_QV>nCdyKGXVhdji)n_Gb?i(6Jp\97m-l4DOb[[es/6Xk.#nH_UQQHDe U".d&5;U*-ns_qTO5W-whY4KZ<0IQR+O%qOeWgpW4 U"=Fx=O1C2$j;[FcEk;W,=CB[EeAfOEfTg4aj0k#LXX%up()%9%%%[-%t37.JT4,Z U"I_DI%%:=%%%-%%%%yw%zjSg7fx-$$vB?B&]d$zTrDs#]B'.ZU&E5;E+(j?aJY(fH4ST(cS*HWUT4a)?dH?#K U"a'=-t7Oa]Dz1aKB+.QNJ:TB'oG*4/WRAD U"ftF/4J^]&\\*ZCYM:kA\B44e4C6dsE]u615wq+[_VWl/fGp4H5Ro5\q,M3R03+R U"hq9ay(;D\M%J]:v%<;EjI2Qg*z?6S7Pi68B5$l-OFvEC']:;nG=:+REqI;+#Vg) U"f-Os3(+SVlN_B>F?<^,O*XVWQK69fa*j.:1$$CyNP&;?=Z8ettV6]%&cl%g5?)RM>?Wm(,=VFt*ujB U"&\&C==lGim6F&l9Yghr5/HG#(#9R=*U*uMX&%3dFY=w'TSa$p$z.dTas,GT7 U"L%UrqNweU-09B'\.)A'Gec,c#ECrayfZT/JVB^mu,S5N:KV*pe82.0U26[]A%ZZ U"Ne[L/CR+mx0B?qh\=l0#EbA4 U".Bf=nkefW/;=m1#kuR?95=HG$9W*_.LhGETD]?U.Pl;=/F:&._M>A_6c1TqQQ$t U"p)7Y>g*T*bnR#P='l\g+]6>8s;lc]hwYGs<2S8*#>H2u0Zd.tTH*%KVU_PKI\Hj U"i1iPUa#lu_Q\XarIYjdZg7.u=#t'7.)mB$+:?0_jwe^fMSrtApW[3aQ+[p$I].^CfacUES(c[V'i>/^L8OYtlp^'C9aMiS5QMMLZOaTQ?i U"eYl0&*isVdLe0Di#RJM>:B0GVH^p^$9S$Ir*Ud]^R*/oBn>#+7R*RkQ(P:L[5+3 U"('e2-6AFAiLP<0QEkR6MuL)uaLGRA9;+^1,&KbtqZAlslZ,%33b;+sbYFRY5 U"W#LbpZIAC+I9>/pS^_uP6ERT=^Geo)]jaVS=FtCy7MYY_B6-sHI6lUVk$3)VIF# U"eMJ]=nH'>uDI_//%7*v\$F\-,F:m5>CP8Ag1]A3m6gBr8-Ls>90EKj#IUb?O7> U"64]/3a4oOSLKcWbohG)^)CpsvR5VjI^b#Q04eN,B^Wtpi^.]3P5]i;LLmy/Irf5JL..rlc U".Z8qVN';f8\%Elm-X_._Z&/ECuVmU\8IfE%3]iydv%(TEUP0-=RYx#6 U"-YFV2wd$JoR&HZk.fj^E1>pbk+?pj;3 U"l+12KJHbm#c?q3V(JKQ(&kcRwUgBw5S57J7)-D&k\t%S-Rx>_.o._Y[YoGI*ISgHVyppu/pN\<3x5[r-uQiZK(P_[_ptf U"]Hffrn?u1ozq9$$HSyHiH:C%ggoe?=Y;)gYk[MV8VA\=01g4*J2JTHQ;$OEh5M1 U"R,(ZY/9B,=;+5jXgqhBQP+f(yyY2J6b#fHLpfOFZ>K/Z2d>j5<'c+e:jCN7Ri;* U"tSIP)Ll//4DV_q9kBKZdbiQ%dTAIKuZbROZIXm=8mhE*(-M.B7LLF;(ZerL8X_qKS=TwipG576 U"_G:OSMOCmOIuL/zlm%%h0UT$8Y[pSqiYEr$HEWlU(6CkfjvMGci+uH9/uu6GIZ\.:H,IoIgb%ZLjEMT[:>CfQ3N U"Gh;t#/UpMGto$HIFX5Q*g/&*?1fOz>Fv#cSeO]]$Qr9&[f:>e)Z7R4GSVmfe91# U":4&?zvrpfboG8E8YGBS)uQ[q<;AX#DqrqMT1NR%y5BQ.JX1-g-\+1pE&,dmuI2k U"aaA>i9JG;eY&euC/f$O[TN]a#l&13J^o[8WE(*U)ghC:I28fZ>)hq,[4#&-$jPO U"s*>A]W1/a1PnqG2icfV&BDhDq$[--YoiAv)T]>=l5+mn7gc5K_oXBU[Oo>_'e-X U"8y+,e%g^Q'CjsaKD9K[u#e/[Dhkl^Fm&UPAh+p;qTtY&]e-l>%biD;qm103cnt4 U"oe.[)b#CJL8Oe[kD*D1pF?4uyOpv1C=Z15^UD%7[>6\Wz=8w%u7D\[%d7.x;,^] U"Gg7(Cor69Hn2^S6I1dJiDIY1esX,*6^h/SNg-ofO>>T_S?NpT7+Hh+Cr&;WXM%0 U"kXiFbqi[3Y/w[MlY#6eqFEE_hnU&):Am3'.Xk\Y^za7YEJ4k+2RlC6VoVTq:yxN7ub'_Inm8B1vB]Q6?1oa%vu<\ U"A&(A[PG#ukg+%_q=%K8%.wgi4.X/)ePk(Me9-wf[,9V>b3c&vLHn8URM_*-)fG7 U"2*A#,ph-=L1.W4Es_9Gbo%TpzdmILOikg>4sM*F<\$Ncg3N^v\0uP]bDz:H^_D2 U"9u5fEm7Cf8AsdcHlcb\NHP2XLyE=+5=a-HGiooU_3Yc_UpG,> U"7Bc[mUf=3q;(=&f6=6KjL=QjVF(%[KkW+NN(w^^da#N-IVf-l;NH,rWnW'O(oE/ U"0A)bU$zBx8r_/GFDQS-d;9';J[hdZ-pYsp\2*JUGf:bjC:gcinYTPW3Vx=ELpSmF)3rX2'#_<*k8E U"Ant[8r&%M73:*OkLEBc&(ja-rFtKJ#M:$l/iXBd;FM+jAT?oJ4]_AKbID:s\8iu U"Cc#k68f9(5p-U^s,6&%-V*t;Ji3Aa5ahJ'3).MYWGy&kZ2UVYP6dL=ZT#Y.*o]z?0O0I192U1[J4$sDuLZqsPEqq5E67yilJ?yM U"(pm&r2Ku[k/dS=+f6>PM4nH8g_bsik,RL5b8TJA[=q)Gljx=0(AhK15D/ch3#;R U"MHe'>^VeaMC^hPEOC6&>Gdo9bBt,b#A]Y-A:4B[w*=h,TX;U9T_Z=FOqC:sGLam U"x7]*8%Fv6rb_Dq)I\F:N4qaS6.=z%nb;*.\Q:?g+B>4z$ah2$I50:>Us*qx^LtC U"kjo1u7dmR8GR<;G0:8AVu2my(1$>wnhFMA&.5y6Pq7KCwn_THBs8wno5?QYqzgX U")^O_U_tJ^sAg52mO*8VVZjp=d3crr81btXd9BRT8n'y:-c(uh,-.I?Q*:.Iz<[Q END SUB SUB V2 U"79]8)C\xIps&n_lt8&Va?M,qk_(8PD%ogNakNXv;[yr<:U?y5t\)^_+S)G/uEd( U"wh8brus(6$wQ3Ig7To2Ro]/XQw>,Ridr2tb=Q2GR:ma&Z1aPEeTX4ykItVsvU)R U"vZ+eES+H$SaFvk9='9[ejiP0RpPwbS=cK)l1Sd3.Y:>KKJN/>E=NO3>Yka+U4 U"N_ZQ^)*)u-&>HA-wSa7VTSb*0z3?0LO8HoOc8PDlj:p#jD)t&3D0Wr,/NfOS$TW U"+l\On2MjlD$Q5\8cFGtTM5v*IAig)^Zfl1Jgwoz#Xd)HM;Mn#df+t< U"K^X]Ja4,V%<*rWoy9wB4n9HqdzNk[J3N4/qp+G^_e*KMqxf+7*8?%Yw U"mO64g.mw#?ffcDF23;$6SXF05=oh8heMsBWAHMb\w5+ai8285[_g5pbhbKfwxib U"q233>Y5lZS<68x1$_bsQAFWdpnfEb;Nu$-9,DEWQ='Cml#K[/7%kzA8*o,j(8LM U"xy'+)TDJLZ[Lbw5LJ:e4na4Ar^:b4^>Fa3^->Y]3-pTdu6-(I$ U"%cR.dLpMJrSJU,M.PpOIeN;v3_]e5*Z\xXYmXda)C']t9D[QjlC_Q.$_u(k-mW< U"2\0(b4gnC+.YU<<9fx+[/B,0D(1mB)SP9n%I5pf4oYESjDvg>3=P'2VUnL9q*rv U"0.=C5okR4C9ttLnQaoSLMk7FIXkXaE[EaZU9qIt(R+i/yxZx*gY65 U"=;e[Bm)r)EpQpXdZswU*xCcGGGy:>L9bnnkB$UE5l2CN,]1'&A67B*4sMP>Yw?A U"4,F(#7TI6Vpa-v(Fs'>'XY[jSCBd3P]MYX(*FdVDUM'2;g[SEjaZ80Z8D4hhp3] U"uIXKMkiYfPbT+p/v_q>aGdD.h7H_D+mcKIaYkRTfR3V.ODaj6AT<#K+8Y[Fb2vn U"&\#M-xt1/k<#G^ld(=jEkA%*Y%v+r*69MJW8r#xbxwwjKI/Gc9%_7OL_QNnN7LJ U"KM)Nl&G$U07GhJ;s:K.P9=\4<_3jsIz6RAZQlM-4*6nK*GI4]rc79Nb:tDkNR5a U"dr0-Lt\5E?#sOB_Tv,$G9jk5IL%c)eqCrrF=&ml9%V3.kUuOX8JE/E5+-=]&\YwkABuAZ$(5gC_hy[nR=LMmzW1l5->]x.p=;IKd[YSTIU U"+AQjBw)IhDga:;DnBslc+K'VB)r_;H.n3v]B7QPPq$dIWFcOpN[sj%wV(eVu+&I U"xqQtaZ3v/KLP_Kt5j?;x_[46d>1o U"_1]4^U17]]G#]HSc*^88[M\)4]_DIiVsI59O[bfkn(%ee]d,,40zAr.o-+Ge[+5 U"W1)vU_aYKs/DH[K5QHc$bcv8MsG#lge1dHPqW%qG'\qwJ#_uIj1A6%dX1k(bBFA U"Ef]N4e;5%Zf.<$F,<1ZR-H)p&\-KcOGE$8q8jc]ZP#L3ux5K.y2hsY,=gA#7*2d$Chfw*U_wcf)M U"M03WR7$GuAPIWRDkPnIPDX;a;J6i]EZiAowc+[8hhIsd1ZxQdW9JfSkQiG6x0&R U"G,mK-6QF2.IlDeq$YC:,x9z:$[R84sJP5Bod9lhV>5o<*OEggIOc+s8%.4X%$$X U"$?teeQh$,RF+u,Cx4\R#qlcwKolwsR80X1q[QoQ>yL8hK)X7.j/:HeOX2n.mAV, U"ns0#5+KT1Wg6yt17s&aAZfKQrKaAND)%=Q$a(*DPp U"ZY]eyCPLX;I[$lE.5jl[cD_vj1tiFzfl#;wJb[NImb2tO>G:+/iUDTD4/^%C,=C U"sT%vs3 U"_hKCN-LDBu%^>0t:*qW-.DA#eSdn]*<$rwmEOPh_idsW-YuGR>#fLT*4us?^,^2l\#M5 U"=u)seHGlZA'Bstc+>6W3^I9+:q;_3D72#GSMOWzb46KmY U"dnDs:2xR\EeCF0%0q,Fbqy[VOonnSnnU)oi_im^]%/=CF4k7\tG*==0_\D+PHV. U"Q91PDkcap#5s1Nme:Fu$w5&;O2gbYCoTl=^/^Lo^Rx=z_-qa:.C39Aj62iUB U"22zZRLFmoIX-F9w*64SDyVqai7YT+6[?KgaZqc>VF,_$(P8L$+T7Ajb+V?(PLf\9wf.MODDvk]vY?cJXvPDZwf$K3# U"7Ske7gGf,fyiH<73mK.-tcg<1e-MgPjF:[t#-Bcg;;2>Ag9$-G=a U"3]n6)5c'lDb#9KkI&-JJGm5hHd7J'4yj=AhA=4mb'>vXWVC;ryO%9&S;&/' U"0[np3K4QJ*kwV6HpZeo%jnKs*536N^wW9VSh=%<&SP]a?M]jm2l_:s+cDj11te6YP^O4vQGIy U"BPbqpY9mN1%p,2HtAlFvKHi+kxNnC,oUChtC_B#qqz*6(uNL2xvD+moZ^f/EnR\ U":hbnjrud18DS-zna^[9fMR'(e6[I\&=0f1CAtc U"RY.(80[?s#tfLUJk;_ad7RA[(dq?=pJDg8pa[+1ew/DCO5dtP4qA01V4nCvoOOs U"9lT&IMLf2%pS^VUB46Ii]4kb,%UONl-:)%K[CzZP#WDrF=;,+r U"D%up()%9%%%I-%sD9cI%8&JXA'%%%C,%%%/%.%%'r%xrfs%SnshNFd,>BSU9U9( U"f[d(Aps&bxTjh[>omC0+fon6a#tnCs(i1jxTcjEhF7/IJN8s#6I U">p$M8Lk=J2=/wv5.#l][L.b5fXoUo=Zc)pUlcfw>sdqDRl.pH^V/UN5gHgDv5=# U"]=x2]JB'#*4+47<6L-M[&8'0Ku4^\ryMEGjmNFqp;_G'757=Qp?Vz'>% U"IL[JWh55Yjx#=1+..dcNmSCh;NAdztj[gq.WQDW%5ixtq-tw,4<.W(FyVB.]E[l U"oF8mVCL^B,_d?(t.nsdO*gH_R[o3VNwD>%up()%9%%%I-%sD0cIjN7Bog).%%N. U"%%%/%.%%'r%xrfs%Stgo2\dNq\*z9#uHtJP+w3,HETkpkd>Oq=k8O3?(]fFBeoH U"r-At*?YP3o=3:u+TQ%SK]h21GJ=pF(/b%U(VSni=$+CdiR9A$w12F7j4\+?RIp) U"ya=7hr5jY6p6&o^FzgkONpkJog^XWVB-X#g#(.gVWC-U-/0k_U3m[Xa3n--Y6a] U"x\K7B^qmAv\JPX5ydSK-Y0_ZNjr&2(wT*rl>\$i8p_J>N&BT#3F2Uz*hXT/0T.3 U"w-zOUc]U&:_4uH7*Q>_>VvWn&m=$(ZCiAlZ/r:dU6LK'0CSPYq5:?,s&Xy7qyOL U"E<6kg%$=aaUnCF?E1)$E$9(TKQJ7D?#mUu25SA0)-M791B:r7)(Gmns0D_6^T;5naapAICoC/(pIq/XSxiuRQK]&>U\tBQm0C3r13V$[[be U",WS3W]=MtnOoS5MUai(;'+7s[Otis;u.bDgtS-1Lgk>:k+5(GG=kOm&d66&L,$V U".V=8a7g)sizD6hPcW%LxPJ7[q=?$KdJ_>Ct'9X6,#daOj'HI9X*cVWU%sCy(6=/ U"4od2YIfjaL8u0$#cUT'H/^0k*O'11FF0pug;>2U0*P'VGUH(rQi4i4,uYXSDS_2;-L6ga]E/,3xo%;Jy&h\/+N^%Ck8v-K2I;x]dRPG]T U"g/5G+/opq;g/H>Uoa0(]LOR3Mck&/(-'SPJ4Sok6mUIT=HNWFA3c\*&Tfb;6oWH;9C6iYJPT U"B\-M-N3EfYvw;9sR%,<9HiVE97L5j%?C%19cPL%fP],%c)<&CkB1#G2l=6(3;+= U"TbI[bptH1(qEH2ddLUdJ&N&up%()9%%%%-%;sDcI/E?FJ'o*%%'33%%%/%%%&'r U"xr%fsSuRgz&e)L;xz^=Vt4(W/e+M*hor+CQ1H394$Fs)rce;?R&qF[A7?-g'bPV U"&=h-E+4UiH/g=3+%n1+r5W?_%[fI=x;_/A7B9Q6wr$k0 U"V7b,iTpb:tdut5Hvj_pCf$_g0Z%QqD-r261U>m$O)CO_XQKaJ3H15A\5[DOi%F+ U"Kfn&T^-RTGfKWiJ62Opu-_(FN8N.p[EijmyF')OQLi]U#9c?^pz6+=ZL9Rhyubi U"5CQU_PBxL;j*$#5XW,*0iS'Z?AC7JUXr;CMLUKGLh'Z>?P0KuTI-3*)O#*748b5 U",seOzOvF+od,&Y.$R_;Ug&O;f-Sog9e#(615p]NX$Y/mWc^3LDUjIgK%z2Zgc;1^:ILI5hM<)g'do.;tO=X%ZS2z0 U"Wd?s/FQ9&#q.YgJ;m3Y)'Os[#;\>w2sagia3%rrz5aT>VNUwrmQURtVju7SmwiQ U"kx3)=Uy[pA)/E=2:i4W(>UR U"K7jL/7%++\nA+Emo1Pd(bVJF9HcZoiWEMOe^z8X6*\PX&M7Fr[I^mdS.k:O%sVRPcycYlSMD(h?8N3_*'5Vx<1=.h#G<[02E_VMF U"S%fu2ydF5p%],#lOr%b+.M\(T]m:%d5>;6AQ$e'c)2U4:FE,YB U":TqC0u:re%nfEO#%5n:iLe*\+M5i\'lE:)R*_6gzc5'(R:k$&RE:OB%KW)EA%2Q U"(ZAe:V'vo+z#%:J]^*idc;Fb4O/#N3Hf*2&3:YK,']Da;%$+2D\L_.OBz4E%#*a U"XZA%9*#I:QVn;f4k%&2&L,:x;PhEyFT%w)yM4zY(12]d(/eN*jZESa'l8xl4[b< U"2g8cQwDG1Y&C=YdtDrUWxw:#Hu(%up&'%9%9%%%%-%%B(/JMh-;]%z(%%'5+%%% U"/%%%%%%%%%&%E%%%%%%%%%wj%firj%SVxy%up&'%9%9%%%%-%9o8dI?l.Y'.%%p(%%%,%%%%%%%%%%%%E%%%&*8%%%ylfS%tgou%p&'9%%9%%%%-%t]3. U"JT:4ZI_#D%%:&=%%-%%%%%%%%%&%%E%%(%/;%%%ywz%jSgf%xup&%'9%9%%%%-g U"%sDcFI%8J%XA'%%%C,%%%/%%%%%%%%%&%E[%%%9#Z%%'%rxrf%sSns%hup&%'9% U"9%%%%-g%sDc(IjNB+og)%(%N.%%%/%%%%%%%%%%%E%%%%)#]%%'%rxrf%sStg%o U"up&%'9%9%%%%-g%sDcCIE?F+Jo*%+%33%%%/%%%%%%%%%%%E%%%%?#b%%'%rxrf U"%sSug%zup*%+%%%%%-%-+%.&%%%]h%%%%% END SUB V2 CLOSE:IF S=71AND 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