'=========================================================================== ' Subject: PB TGA VIEWER Date: 05-26-96 (07:08) ' Author: Erika Schulze Code: PB ' Origin: 100775.2275@CompuServe.com Packet: GRAPHICS.ABC '=========================================================================== ' Please load/run under PowerBASIC to extract TGAVIEW.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TGAVIEW.ZIP",4^6:Z&=5823:?STRING$(50,177); U"%up()%9%%%R-%u/T3Eo91\%l&.%%;'%%%/%%%%wj%firj.Sy'yCr$t>\je5>Khm U"KPhmmAbpD(M:tA&sMNM#*.A1NEtBP&+Ja9Qj4nZntbC$Z8x(,%$?c_6\8=RH[&G U">TU$J2E%Rf,<81#&K.6pEk.ZL(hU+eRkKVt$meuO;?uX%3_WfHQ<_k:kI&;//B6 U",AM>_xsJ=/m,I$KpebWy/-Kb>seC6m+)YK1e_Wd3/d_UiSioR2hmZurlRs:asV% U"1K3:3%eCcpt,YbEn0qQ)CfniktMd[TDXY=5Wdgq]xdwnw#r)Fe>Z\Pm\)8[W]V. U"s1M:R^VWv^3A0A7.'#D&MxB.D[?l&E=Q7X:eVB9T*)ur8V:qoki^uDM3l\%;>wN U"m2rW'6B26WZPW[bwY6B36DOxQP,bc278[d;0YQbi?N/KOOz$oAR8c'$5#i[BmZ) U"/ctt+f%v.5yM/+g9h-0ZImJMkU%l%$u,Oq7Do.BcVuYkMnU=3+'N&b,>LIr0osm U".^jLC4K8o9v]HU;esS5>ftA2R%UvB:);EU<;hG<3*TjR7j5AOPqr(8kg%D U"up(%)9%%[%-%Y,+3Eu[Z5qS[(%%h%0%%,%%%%y%lfSyS'y.%:f^L_j57&cgDGvZ U",OQjJLT<('e%'xD%GegEmf*[a??g?GS\PTpZftn>Z?\/8Hc)LIkw%G_Tl\X[&6a U"T:?9uv13Y1=#O*XdD-SMU^vNSjVTS\LM*Cp+F,0'Y*KI[A^^D:KhoBj>.sQg U"4X7#9KNA9IiDC36SMCd$%AsB%m+e/>^Mr7&/)9g17ir_$XgI)In[ywbcvP/]0rB U"LGuIxqm88ZD9Q;kabi54[/GSydt\cxq-knSQj1Oo'?t.X=UP^KBmNn.VHPNw*H$ U"jM>,Fb_3S%,[?T*WG2c\BT2X%(3KT)%d5T.-6r/VwQ8045xuB9SCk&QESq+KUQ6 U"/)kjXG#5]^uQQDdSxi#OhI\IXUZ-PD U"[c66:aQb-E'a5[6FBq1C[d%>Ao5zPmpAkB+CERVK]sYQo0DbNe U"EslpBP;IkKH\GDfp\\YA=<$*E7,HJ1B':Gc\BSI6WWF#*>4cRmjHsrju4Rn](Ga U"g:MbX\PO%Tb'5OV9KM0/6o,w2)1As+-dhShlTHS3w;kTq?e_c. U"ERV.NVIW*4#HbR)*.WwaA=r.)&gjl&e-ZrlcmZn.Fj>%l5z'4_Y_6$.>2llt=6' U"OKpc*Av;l&Ld]YZE92vVsDD41\_*^4;F53,91Z5UC/1PA&KTIb#dEvn[6p3aCwLb-W.;d:Kht U"==WBvkv+(\^T1hj7-V#YSr1Ww=[vO&66/)u'IbBI&ukYinTB8Az4FZF,, U"s\Kx<8Q[V4rLsOb-4_(8JRXxsegN,g&O8&GHHLJo\Vj%\)f6U*&V5ZMjl0PvfrE U"zdT=P,N]QB5:MLX*omihhffXsf]zVKRkes2e-$E\_41HH*M)s'b?6IC0Ou2\<$/ U"^7T(c'319\6m<_4sha#a0H.<,[ib<==:k.c)]OI/jAh]1lE4Zsnk+T(/edMgMyy U"s9=lM3luFw1'\,Zsi%82'_(30E>-*#CB[];&20I]JYCELkVhA3jPZ]]3B2(>hZl U"R*dtGWFQf#+gXMJ^0#J'S.piI..)GL%brotcihok$FlNab9RfJV'RWq^HYX:*CS U"Isuqe%t)/n.EG^#bCiF9UEX5&i\X=??d*:>PfP-#5JmTtOYh.wrGR9E;75,I>TI U"$?XVQP-F'Pl(I9Y+'DOi\0)sxhK_58fSi\wC'CVxn0W>/:Ti5uL:G&I*Q1Dh\z2 U"7tPTYnqF+is($GjYcQXjH&L1Z8m89m[UT/?REahAgG^cVJZ,,Srfqck+#mD$.>, U"0Fs8G7d1i0#\jidpl7k+U]jz[jpN U"JEsi.7'T>4>k)t8\FoSY%cOEC%Q7$G(2r..8fxgEpu^Dj0M)zX&4Y7bTY?9 U"hn)K:rvd[FU[p/y$D,ZjV:Gn_i7?pBTZ[;=;ff4InH$[P+l;d)W38qS,((*j1kU U"rBx56OR85sao8;B_cKjOcUk)dB+Q.%+]*:yQO%DLs2$pp?#hG#6&D,-?>XZq#m, U"q04a5aF&OE:%MqGv?[wi0*>vf+2UfIS;O8jqWQUkV2H-'4Q/g#iIoSD[75<:A&qi'H0=-auTk U"M#xBqiV-.\PMW3szIl=^/;%m>Pq2CL1hP/1Y([YkVn2BYP#'MJ8)['bBC_&CDb+ U"N?P83JH0#iBLfk<'1I%K:c4O=?gfsZa/Ro2W(/nE3opupDYE75es5A0WW/R(D_$ U"n-%dCn;q07cO5V(%C)9BOeoox3_l6VTJ\t9fbf])3k-$-)MtkD*K&NCf%I43j8Mn>x=L5h)TM0*y[ U"Kvnh8*njQXNhXe&eC%s%0j'^%&Z8?jf5;*ay>[-mEk'RI[vfK6mu_:*ps*ART]s U">jr-)K2uia[&zqmHG6('<_8MM$eoIIr,(7mG)$.dnf7;D&TQjthjAJ8'nj[md_m U"+i?Aaf_#ld'l>/]1*BnYw78gI/v=6MSg'\%=#E\M[0i(Zve&-FctO(k-vx3I-?v U"p-nutXjd^;4s2(CdH)_ZND%yi>lCEULFr+<(Kff',6?h)2<-fFagsr,KPx9DS_W U".'_tkwC*6cWPDtasgS=?bR*kxLIOtVd)?_A[.ku&1O\x.OOpq%YeHJ1B%:a^i;3 U"SLv<(z0w400;db0=OSbmUeObDzS^5A&:v;1EQ.rB22AaXW>)9,&uLkd6Z]+$_,>NaM0dga1TUMGuMo4NTN99v U"Peq;y/xV6.us[L%Ml)9p?[#;jFG($L1GK#*'CN=/EHq\^,DDI6'Brg/7w2_%yNc4Ee?BW9.gAYcU,cI':\1LP4Zt0wm9B#x?jB6t% U"HD'OST5O+ZY7:ZpIpgI.mHgKHOT>(eBq=Qc8BAF(dU20kbyus4ssluuDkX%0oC3L8[HG U"l+k2fO,c6E[KZc'vL\3bZGv(?Amd,yY'p-u&KcpZ[<7h0VI:K U"J/p%WaX8eG:\)LPS459up>BfojbK9=;M'BO?9tS%rgJ$da1ltN/k,t6OUCY]QOh\C,ofa,yl%&#?+g5 U"V^9ZNnvpce2de4Jx[y:F')XPTiVJ&$qXuZS^Ws'ZXK;Mvu^gi>&WH3J(jD*2Gufz\\rV3Kh3R>BO2NYB(NjOYOWbU U"k/0]Dn#_Pml%V^T8\q;rGN)Aexbu>>eG<9W2/);=S#(*)8e\l#q&66.wL[AEN:+ U")7-I%IXYl;B,v6VTg_NFzX;fg)lB#vRn- U":km\^Bt3,#Sa4t:%:.PSPw]1'rPc0bA1st%HIQ7?vi+HBO'Z^SPS]$'i\vK/j#i[7 U"=9c22Ki(cf^0mWZ.:V7r=r6+'e.>l8;Cz*[&HC3uhd*YEg>$f%[feVHJ/i);tQ^C+bHa/saxB:skAm U"#\%i'x$j61v*=pbMD0,aBp'd*B8l/bYOFeC%.=o_9eLwXTg=R=:S0E<5W U"__q/qFv=tT2Cwxg/#'Q6pSe)VcJ?T\2\n0aJ^*Ys2c]6>/yf U"+5Gx>f0)jgb.F4x-lFdl0_Sc+X_\095aokD/l+L%m7p'm:^WAl(Xe:/,^Y'/l4k U"xV:l'p31[j;q.e?qTS=[vlEApXmE?[-U1^R..*IN^&,K%4lwdlr)*=3^TATubjD U">U>WUZ8]T+<_Bh9$&-Qd-tgn-vM8?tfd(VSB$b(c;K>l0Ed0iH7f^K^S]]n3j%aZ6Yk>86R7)v/* U"9Eu)uFt,]tr)GX_1NXuJ*oqwzTFrZSML$iy*]Y]rr3V#Mlvnruj7rQr%y]qr3g&v&e3K89Y&.$KL9;l-1[H7m=bRpB5Ep U"h)$nL7o>cddCX9A$56Ts2nlOi[hvBbM5)qpTXvLK9DhwURiR[5Ci&Ls5N*=;Tpx U"zRTWmRehPTUKR]Zf5N9Q<_V'v?oi8DNan=:7T*MO9e:Sh9ioymN&boH-,EfEPmy%cPM;#Mrf*5Fw\$L$+?9kRMIa.xOfdNWq#t$dxh.w+CIqL;%4'KXd-=^wa]=v]q=m7OVj% U"G+(0]#;*&&3we%o=4PsaE9,xu75=dp?J6UeD29lZdFKsN2VW*hz9Da3sYbmZB-&G0G& U"li%JK16a:R+d$k*6)6;Ms62J$XSW,a+l[s&Wn,c[2]bl,iMiIKN%H1By4BHaQBa U"5^=-BnMt0Wtd-]311VPU)dp8pmUa)SgS#:$5T U"C(l4rYGJmbrJ<(GNEhJT5pNvq#8.'+LZGN5dMrp]8[g&%%%ylf.Sy'y%u U"p&'%9%9%%%%-%:b,3E>ntNV%;5%%%py%%%0%%%%%%%%%&%E%7%%=*%%%yl(f%nj U"&&Sgf%xup*%+%%%%%(%((%u%%%%(;%%%%% END SUB CLOSE:IF S=252AND 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