'=========================================================================== ' Subject: EXTENDED PB GIF VIEWER Date: 06-10-96 (00:00) ' Author: Bob Ellis Code: PB ' Origin: www.voicenet.com/~rellis/ Packet: GRAPHICS.ABC '=========================================================================== ' To extract GIF3S.ZIP, please load/run under PowerBASIC ' Add DIM before SHARED to extract under QB DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GIF3S.ZIP",4^6:Z&=16505:?STRING$(50,177); U"%up()%9%%%%-%e>RFCR,(CLx&7%%S)%%%1%%%%wj%lsfr%jxSgRfx&c:r9HW+I\Q:PG[0.)?D*n^-.;%>U* U"1F3[vgIq+$<\':Mi7>J5yE.8',CESfaY;d>rM#c4b&C1oX&\J/2)+gR7NK9TadS U"DV)kcN++T+p$r1zn%gRXSM]Fd:oA(hZILCY(QgC+XpX'Cm#0O7$+8hc92aI\<%> U"0C)cqWi46otTgWr*.&Sd1&dkv-Am;[l\_L=SCvH79U)cwsyMB>uutsF8b^67^Z: U"W1QVX.Jlx:VhZrWZ,d71Baf:V#it/Gb:p.#XjpN#aqq U"[GYq/k]^Rh.gH#Mf5>9urCE$5e(XHo#\7p%*up(%)9%%%%-%E-+BEa.KLcj#T%% U"Y'+%%-%%%%l%nkXS[gfxF2L:F#s^'Yp7cLx&T\s0t$/sm/rlA[]ZC/e7c?(PBpn U"KhU$JpJSDy\yt8xOrVgL6Nt47YrmD%dQvOX4zm)XtG.#'E.O4%A)diXRrg4FM09 U",T0asor='\n7+x2lPgFp^FX;j;WZ;VeVYQl+gEHr]TG:JQXA5A[.]7wus;n^SUF8=/'&\kh602<,f#l%noa3&KunD6;TD& U"'+l.>0u$^5BQv,^TM=Nj_v\dvYr[pT.7e+%9IrB$$T-?UVVZ]eOTw<0;pg9MBi) U"e(TWDJ'1*\ZF_,.tmvk5MNE#Is%(/ja,9f$E)J_OtEv8]lhX5e]w[=lI-6V,AGp U"4rrd:j6jN8V[D:ZeD4tp^T73_)[AJm;&rBZ]o_UXT&]?:pO=9ug.KebsKh>#LFV U"27pp4daDtG^Y4SXFDH2SMBU&N/j>.:z:IKp8eKkz-E U"W:yDt8VE^HbHC_s:#pyGyGbFoBPv.,d\71SHa$i>b#_6ZVlbBFO/3vR0GvvL]DSpD^_v,MRnkn6R[2?urDYH;JiY U"kn?S6G&SK;8*>j>kVH<(XE,.LdSf>4zCA,532HG?D U":c_dUZm\DNh]4]m2Ev,;)I%kZG2Wt&Q?Z8PET5t,n,%.Tfp]]gs?:8iN[cdad(f U"O(*/RX_h+4Ri48yym4s-)Y-ilDOXEeER;'pk[X2ZUiz_w,:c?&+/r3cB*[iOZx% U"oDc+8$.R4pt^tq$E5V74R2Z:0=U^i^]Y')U[/U]r-/OqJb;8dZ2r>VvZU860[)j U"Y$iH\sq(HgJ U"p0NZ?Y\mDH[uDYcwC_SD60=tE9a6^.x;S]''V4xGo_wYD_yHCT'<-iIat2NXwQ+#W0o7yinx U"JU>Px)PR0]8NM9-Z^=GEETA+*fGk2Hv.kFixlBn^y;=5AFBpvsT\PIVnKaX6L85 U"HnDjgfg)TJU1zNR[?jHQC'uK%RP8rn+*jW.X4+uYq:bMNH<1fSI_BxJ6Yl\Qtc\ U",RBm3uQj.6mo&3ANSa7I4L6o;1*^N6#dQ_9)Mx5Sw2f*CSGZniR&rMb-5arcbQI U")qw*Eu[.dopA.gcMC%;S-$-hM:N&NJ;byPM8LK[q+p()F#c54*&u,\sne)n8j-& U"Lg*/X:E#+cZt><6o#7[RaQG0>sEB_*pL9X:?S=O*X/#lg#Ln$Kfq#N9tMPBq\Dd U"lKJitoZBeBr'>Gjj^aY>C=F9&g(Jh6=(+'H=e#]0jT0L:(hb'2 U"6PrG8v0PcUhJcJV6r6bo9H^BkLWr6F(gxBYc2Vc\ U"aK9hl(nemX]YBRM3_8j9x.=EZ7?,R.9o8q*F;_(dR42?s(qhJ4tPZ2dA2RqmEJ[ U"W.H_c$C>tf<$v-6gt^8n_;a)#)Z^X^>F U"fun7dW9gb81M7fRK&_^6fABeV;_2<+%6p9)aYGyhCl]/,<6J]LQ.0frQ<<[NBkxIQiM6ZUj0oSQ\w$:%:3)r3q%90 U"rFm4WQ]/o.Kr?=:$dN)*8W1sX[)#=ZG.So%SI-t/.$YycSj*P;rutM;)YHFd'*q U"7dHS,j0)kYDi_Mk8=\Dt4NY$B/wg-T4nU;i/2)q3K4LLN+#W8H]_V)(,(?AO U"MCr%)9zi'T9LCnkdy(eXhCP:-=RC],-Y U";t>aB%c8]kQ1tC8(0u4'#I_]#WK+JE':jN/[0-JM/Rib\,nC.OOLlR738g]X<1F U"]Hfk.4c/HB,oJ2.YVF'lMk\pRC>pU^^g3L=H\6ZQ%<%*.RL)>y3W^KYT6NGN-CM U"JlRF?9hRM[:IlZE+(V*CIYr&;+C=8Ui6'Dt6jSqj&naP%Upzq8xmo-fr7[L:n%d U"G1qQju4Xq#j9,y9SLf?B4d)d#SGnu=Qe*d[YVE5d3tN^$vd^#L\e2^'BI,4MnYB U"b;(i&nf^b[Q8V?U=JGmAPl*p#]r6W'TSBK.S-d_F#CUTlN-t>_a*YPWe)z_C0re U"gA.ENX[OW%=1Ir'/VxE(8I3f*Eb2'.-/FA9%^xGmhg6Tz&=SxOu6'F#)_ai;>D=L0nK4.^t7gNJ4[w#=J&Zs[JALbhrqGLNN\ U"fJmRKUv\N^;%'&E+(wf2NQ?Q&?m6%h8.a,[H?2_^1*CG%$-IB'P)M&2Yo_B,fh8 U".b?Y*,%>D,Qc^L,1V]uajKF4ctF4-VW5L*87+^97c*^ry?15s$).BNr>i&G,5'a U"Z.3])A^K*3+/m:>xB)bD'(fAYppb=neAnDY+<<49=z1.GjM#su*eWN9,O3&Nkn/ U"jM'Rd>/=;9<'QM%JJmHrrcz>H[mfGfK;Ko'1d\Yk%n3iwKlML3?v_rE3)n#;X+Z U"Fc1LX2pGJK&#D8frg\QnwDp2&w,_CWWMB'X07 U"L\=qt_aLwI6?:773[E;.89/t?,?U3-hy$^[K4f[U:*jUrCGFg7Z;J,:i)&%6go; U"h*'JI-Bg.M*.$M:B$[VFqoE07>fLn*c-jW/4ZNI,,)kjos/DqGqb$=QZ_cAo)N7 U"kUa[ok>\xSX$H8oC_P>r%Z&Q)m/ U"2Y/>]XARcK.JRTLmb7Its(:3AI)I8fxB[>Fekgflq%;qko;:Aw6Lfdoo,Rb4,bv U"EA,x9YjNncFO,V+NVt%,3D%y^;0p6W%H[BR2uI#o(^4(h2H[MSTfaAs.zCh+O1I U"D_ha^bL+3R+J_4m;5/hadH2)Rg*^.Vr=lc8B_7%Fg=ZlIsn%+eln)WcQ^Lf''w2 U"?#Ve^.9ZB;mXDW'B;[??JGtk/z:E:NVAA+CRu1apm=sNdyr/=9MqHn:jik\(_SZ U"xVhCSzje+WoKN5SQDUAX3o?iD>/+X00Vuk^<;asMMo2jD-mirPN]XEyMa;SNG\3 U"MYEs?]PB\D7IOj-L;D^(Z7'D;DHqAt^oK(kV5/KwvCz&&Eo*Vx?3HPJ+KD]aJvr U"L<^r9EF-/h-+;W,mC0f[KYK[16PnAp;UN:CK-3V;eckhh_BS6=Dcs?jZH\a-Uup U";m2(NI9&h):8jMn[1Ms&mz];#u=;[QNH&&l/rB>%,bPqG,O:fqB=m(^*mqgxn*& U"b0'$4aRToC&v[o-n+/TXMHJ:P\,yoATehIULX*&Uw=vBL6tPtgHW,dWWes]F[(] U"hX%PES8t%q1f2In)$TQmL U"K=j_hEs0>-5SsRL^8jPrBk,JUX:Q:uIT6[bf.2:zfe3U?\Ff#T.5P)F[w^K_)yP U"MPMbu,HMbAkM[;Eu\Z9]88Kr-__lpsFoOor8crhB:AkUs(ONMTf8>tP'y%RVDP>pu;O(G?i9wg=BqLmio$ U"5S7yG;/4-+boQNRJdG:,T)P.NrIvEYio$xE%O#iJt'V$_nq*CO>VLSoTX U"Iu4-oD:\E/y[-cmmPn(x_pf)#p+f59h0JXM.B-g3UW+R+GTx;,4ZbBwtY+#wtE9 U"H$Vb;Ewrw=W7<-yKRWE,Wn6$RlgR8t9qB)yX?]ayFTY7)N>hF-VQ)cquxlwrV\, U"pr-u*pa]lbcG,IC$0M;6;X?#4ADM>AX?uUC9(g'KXD8M4PrO>edO7<^cRo/-;wC U")?0'pV*C90(%KVJ.;1od[2bd+uXuZBM^.+qx^.w(&Au>]v=^(P.6M3PcD/J]90K U"817E;YgvI+4\dka13^3,NL(nJ*=.\UD^rr)f&O>p*F9SirXjagoKv=s4Y:bFPAt U"Rq'\Do&W]Ra/B&SU?'U=+#[WkkJ1I1n%v%oio7EAj7qEaxYzC_=3dEFfTz4'ufn U"t_kE2e/%b(UzQ:yXZnx942'u16\2X%8&8xzOn?q?Y-EYP&b0?02*>iZEuN8J4^M U"j(Oj/#Eqx',CdGscP:Fl)53W3MPV^M^zl9obY[+B]K(jq\pmAlJM_ul+>mz&3CK U"cf6f+YgIM1_r3XdCbTj8RA=.5Z#F-gi0X\2-WvCgc\u*])IC0?K1c3ah%.g;S$-WD$NW>ZW]0\QaPvWv[FVcMf,Q,Tp+:lne^F/fT.y=[ U"xjc%i/ceu6^253.z76MBC9]7;V27&1;KxA2BPnULa>u7xb;.D<+yO<7?LC4I?D] U"$'$HcJiRu8PEsZ;/*CAo'#y;2#kJgA'&oX/p4XBj%3gfC0*h=ub8ppR:HUJyeq& U"X[GU-&Jel8wnG]1 U"9meBC,K2\\qM>w)52;-b$,8K:Ou(=SK/9Nv2$VU7*),H--D0(1qp>$?J/GVAB(' U"qbKf-ueDqSp5\K*7\#aY^38O9Xp>2ioV%]l_MpA4Clgp&\?pdh]i=7v=up^s4(R U".QcR1FG[4vWoYL].Z.1>\62IDUui9D8o2j.PjHHgDOC;_RZ/,W)1b'WqY5#Jn=U U"*0*<)?\Th\p0;Q#(=j,>Mbqkz-6&(%/G]Y;*1?)9Z1[blYXVcbVj8JCP U"tI$YUN)OFkMLYtR;T;l[Xuvxc;(P^Kd&K>\YKRssdwTu+s/H5N2DT73:[':j_1n U"h\3a'Id>Okl5ACheB,.lGCnL7^/2q'W/e8tTRJ]8cfTeH5=O#vb9b='Sr#3d#bX U"QS=8>5FR-DgNY:;Cjw>=X$Pavpim>.2apBezkQ:k.wybltI%EE2$P$hXm7#Ngwu U"%K=IzlC;n>?k&LzKoD0xVmneqbRaGBgPxikY7;3CPeRLlkKhMhhN>YxGwe$5%b7 U"U18XA4L6),'[qU'77%ikuxrF)XP#-*[&PQap3wSDTwvsMAC+#FivUbEGex]\y4nkDG]Y U"(tQd.1Fi3qZpospM^RhxwRyP$?gPEwrp-J'.g7ICckJ(Lwbx44th6vRWfRVC7d3 U"_vvlgRxJ4b%0ya:3S:[_y)t$cI&\-2Cae_()QRAH7;4D0yY16-,g.-vD=IIcHv] U"'eK>jSBJXR?=3Xsl+cGgi.c=hS,\Do'E]Harsu42I^]_.NqZz3=T[.7ugw] U"oDh8]jTFVP$o%JipX)VQ8'^Vg+,<93f?2fiSxWStCx+z7SL6WAYb_,&2a*jNS'$ U"-*y3nE(YF)*ez>:ZoxEFEV$%NBnE^1::TJlG*[*D,\evoa;4*;et_;OH-,]]I U"%\E/BkvWul2+x'_FQakb-)0e5fd]QGoGQT#K#-TxtCJ?>\%vi;u?;TLn]RS)2?T U"me(3Z/KvgfT4wg;2MW;m(?S*J\w;Ts3U8kPJM8SgRMlBo80KfRP//oD?Hb]s9$Y U"h\G*W;[Bkx0t#i3>LD0Q_bS$]Rx2tqJJ]EQeF?t<0^%AVzF&bNsk*YR^S0;J5Zk U"/PxC*Dqk;UI9'Q-0Z=bBU=M-8s9u36;JCV$OxnwC'?sID'hFtZEWox?1&_K*%lt U"k;P1o%Ho*>re&vRS#VK1=H#kutVse[3MhfHT.ILyq*Ag1=S8waKmPTfNTxED1E& U"1vnr,>ad8G%bvD-m_D.el?9p/+odEIY9qG(3aJ^Ocs)-+7[f%Cdrw*kfi*GH7(L U"&]n,$jDD'[R=cbmKaq2QuO)EJ$%*C\'f= U"N4qDgN]2tiBy^Jn$-l0g3?mYK6?If96h2DI$9qttcHGEvZ$MWh.&??Lar6ET9sR U"%<^'kY7#34Q)9epzlBB6h$czXPs2])18E+fZg/RmMq2-*eDTNt-.]K<'Fshc(7a U"&5U\rwa>Mkv9;y-q U"B0?riCM)+'?JPHt;fiEK2:J\eTn0YlV?9'ojC_c,%IfKnkH9D'02vc[2*cZ&k/uYlvT'5r.-swM8YAlPT\k;^o-slwLe3 U"3k2J4/?D4RA%ee#b#GUz('JdBr[jEM;9aq$2+Jp/]hCVx2:iBbpA#_h*18YXMB' U"r.n$p^Odrkr6/.a3QB?rH)ALo?[2r*kh^6_ZeOt9DM^wfWNKXCN(mZ U":8J]7Dab2es#)Ch,MrdHU)J,7WM+Dv^ji'l]^QS*6b=c5e^VD?qCdww_72rst)0 U"_va)+OR;GR7lUAnXi2,]2Oe\Dkl;'Gq(U49j2P>TuOB[2TA/R\zL_l*[ U"J48EZcK\u4>8j)eF9OQSf+eM_A+y>tp16Cmmflqmf&qAHbaj+t/orqaVvs>f_b) U"b>S(eO0mG*'Z*Kl.%Qcm;e3ii)SSa,2r\DXYrc^Z#mtzH_-jybx>CKNiA$\7qad U"P8i\;(Y5c258,1&0wV)PYkoujR9#.UvViSi_n- U"+EbG8W\.CxY4jlkQevt9v=+dH((gL]\l7%U U"_A[C_g1Y\/2^Df3WxXZf)fitwceH> U"Td=QiYS&^ZuRRU,89TD$cdq+V84w\Ds$3>XR%vIqL($1ib[/+n5Y6=ZKQW\/9c9 U"4\wor3VV7&j8G?XZ*Pbk[$mzugj>1=\d)T%Pz)g&gN6;CUx-&x4(5Wii5gv/>p$ U"9jQ^'Bt53S[WJ[.T1#'djF+MqrS%Cw+8&C/S.=AB-kMJTH;N0snD.Q0Hg8sM?II U"8a_hmSU3.OU7W;(TgHsBj]nrn>aBSTI+V;sEnrwM#_['gaefqC:$c?(7z5S8tiB U"6GeT,>p9FU2pJFt_2kU[&n4f*uN[?jN\Yi6]sAZsqNQ1]0WZQ4?Kmq#pklX+E_: U"?V(W\lfF+$c+).fCIl&*T[zqmUXa=E%:fJCtWvDCzk U"og$f_F]$tj(Q>p%$jefPe%(flAKt5Dl?As=r0Gl38at_&3.OLiRpqe7u5PDTma] U"9kG8?N3U<:SF2oNCMN>W%alVh.7o.qfE0fLKS&u\+)Czk9Mz_D?V\eI.d9Vl\/M U"l&Y&O;X&u^)PbfYJm3-meAT_HDu;ut0p3>vfWJk9X.&lo_mR-(V&AMnll6p1apA U"NC6slI$(v8U29OX#GpKpdMG>=bc(LO$ryE:\=7j*Sh&JGDm5ZtA59%XK8 U"64h:%pFUN:o)UP5ixiTVR,[sDsH++IcdQh-JG4Xr-,ZSi2L9UJLiNW[9=XPuD)7 U"Fu.Mp_CRN?s^3s8ViHFo&5oU93Mr'CVK3du\GZY_HTb(Cfz/CXZqSt/k1/R^if2_WgZuwv,RLCFHA%Q8[.3N(AKm$O>, U"Qd3_o1&iuG5NYbDNgZ?AGgotDo-5kN3J18s#.=%:=Af'Rmbudc,\'j)Y+7M+(Ut U"W3kqDK,/NVEOzOmlp-oD(]9+3kH_Fj+3OU2EC2=5Y6&ExB&l]Tu9E?DW$hVb0DQ U"cOj3,qI'<76DEGHac>=1Vlt(nS$5_;e7E:-mv.#Wx5u7L.3L,2Wv+9IlP\./uKH U"Ghs.Dqp?*1bI/0]4ys2]VWywo9AO+US4\QgC4Pe3)J'M'Lu.M2(5x'r0A:JXthO U"GDRhaKNekzD0Gvr,X7md:CivIrR#k)4X?.^zJPqwekE.rhD]N9L6x+GR_g8p%cf U"d'6jLd,mrj3gSH(8[M>tHS$_6a;mn6DRo9AwXC%:_R0-ZU?NqlrAK-w>CAEjCma U"22GQ>5d]Fe6HT?nSV*Nm]KVBv3QTB[,Lg8O]LFzqOh6K6$Gaip_YL3(ca._pBMjWMhm U"[1w+I+JnDG:Z*m=)\Olg2/ShOwIVeo3,He'p>ubo3NxiBflNC$NUx U"fI\$(]>[VE#s0PI-R;l#Lr(cU,nE4OWOvHwA^C?1,qF%I/-[E'ypmmqK3s7&7=] U"J,1+>HYYi)mJ9hwhO.t6e<*B[s;Z,AMna0XRjl U"^9uVG_kqBBSu(Fe\0%1P-^SC#=P53,k:)pWtCKghdhJjTe7#=9;i\3bi54[)m,o U"k=(Cc'^fh0)A#sZ3H#AlVqe++2LqQ06&l;V2rWTWgpr8\i,hv4g5\9lC6j-<55KJd%tojVIcE&p*/NNZT4rjtx7QUJo';Zz-0e,x%.-Zt/Qi2xCIN U"P,i#ooR+Syo/M&q8-o4L[#2rD-Gjmp^+nKW't&c'nwVT69%6NZeyBe+$qd:lDsW U"Lie7Icf,T+;^fNYXx&=m[*W4In]=FkV%QpIl,NUZJdCUQo_[rguTN-&F%cR:c[p U"#PTcYH*Q>,t?eFz]_uDc+>T^=39GT^\+NO;*4u#^f2&+GC\GNiz:AL>686ppC;glg7SHFVkRT-k_G'kjr.qpuB2,3E3SnwLg^8mJNyDK?4='wSRtJCIqtmzE' U"b%Ls'(jPXNrL7(KmR)pZZIENER]o-P5V5Nf*aw4M_cO:uDEp1)Dlp2cA=B-r?f( U"Oj/r6tyNkB\hrcxgJZ]oZH6>xfqJ_DM+4,D+_TiE*M,6f-a6sQ1X'BT;39RTP3C U"DcJNVb>bZQ[%7_sX7c=MRLN>P7_qf]-e-[FQ[kaZmek'_clYe;Kfn\naK8+0mp9 U"L9RCSV(B0K%)DV7p*h0L0kf\jNvl(b26lEaXTB_?]e9q(z>ePmd>UWL0)6)Z5%6 U"TM(0J6NqQK8tFIb.+,mSO68IL0G)rXPb1j59j,Si.eij[B>'lw,EQaVu>wn\q)H U"[RpR>xEU(7UnH:*61P:]YiO]#N4ShNq.Z6bh/hp:Q=\QfqQ0/wY#zQ1(2P5DIwH*LAfzzMZrxjKKiY)AF,_+.M%$gu.Dl?;ogGltsN]t$]oV U"yQWly0ARP&5VS5:GI6qnR$jaNQjg^F.N4NR8nW+Kh^R8<]x(OsPdZWghK[5nB;I U"jdaKUb9DJ^b90X8Ip(iZ%cSs+mPGi0=,$jM7E)GThP;1Z*j U"[P%FhPsPT'Z\3aDmCO7x&<,Q0ycIhAR7*Jhq&C-h0-D U"/%y+KF>ais(V\cxsgrdpXhHg6TG6KBaJ8FTeg^K,VMDJf U"MH9hQN/4wZ%DX.nLBfgm+PIEOaQ-^5n>rc,ub1Yb805gtk'%mKJmths3?3hkMxC U"GzE3HXtQ1<='omujgE<=krH4?X/=/\%m68/+#Jwz1^2TcHtbw'vkaOJhLKD,2Pr U"4'1Wi\'L1Ss4,V2x?tv'd[KS^O(=y;*c<1'h9I+e U"G?X.vd^]RKmg,lBP'[Y8gcNK\4wdi4vNd U"8+cPC#hZ.3mF+BP>[IP2dAZ--Oh=gfME#ZE]kLjI[c_Y_3ul:LGP7$Pi[5GWFj^ U"vhU$kE\qFCQ.UE_/(As/zOfEpDE,r-IDfK1i'e2J=s0:foi?+1n<Qm]Cc3)1gvP:?,cqdi4'2,mnbJ(UbTTMd&.jQ98M/e9q-Zx8( U"KaRa2,5,.\0gr$\tpX\jfFnCoZmdZNYFzAu END SUB SUB V2 U"g&\5D;3,rX%xkfl_Kw4Z136CA='f>rO:Oap=UMsj^l&XeY[dwsHvn\wb7$nL=7m U"CHbLKb>F/]&$[>NhmCF*:#nRK:6Vf]^kPG3CJo4QaFQ114NMfENf2=NAxq6I5MR U"bo<\Uqm6rGvC]a[/s-m;h2ln/Pf0vuEG=8/.c03X7_1/2M)J%+$ijY09G>k1-K^ U"*tM14iG+&&urjaPI]ebWEG%Gz:a0Ccd.Exe083 U"H,EiM.fWF]43bh75:,DYXabne\Z_)y)poa$eOVNYTxk9)ZF/EpPg69,KwN(G:BS U"K_e(naZCw.d5X_kZCNL&%/L?.q8*TrkWw[K;?6eCRLSvyjh>i4Wad:[ktF;C%P_ U"oS2^t,',507Jd;2.xIrYKDt7qcJ*iDN2Q(D8o+IUA64/wUR.sIGPOun>odR-NDK U"sSp\,MO0)SlGoiZ0jt$9h)vckG;FDSaPZuA*LnK/M7y,I+xF8*VHQfx25 U">.p6JkBu3:y6J(3%HYZ4)xXA1>Rzp#FG2s3V#Q9+s7K65h/onfi[f3Hc;A0 U"lY5H2::G#\NI#_RAO8NTS?,yBfhyU.R*BjjjEXFlK[%?e16u:Nmv20bUoV$h1X: U"JAFSSF.TS#UCS#Ve[_>B;N+h9>m)/6(HPPzfmYYvb\?5C4ke72.WW)cSNWhLg#( U"4#wNkuDoQGVF6?R+W>g06n(IH/6Nq,BFRfuKMF-+60wTdZ>3RydttLI4>6/8O]1 U"sua]YfKx52=I'+([:\HgmI2$vX)T/n[ekXCNtd(5#Ojm-35q-34'TIDEu'Khenj U"eHj9/CB>aE*wT#mGx]h7s#^pL,Bh9SvR.b1%;QmxvS;f;6ZXXe-slXpiFV5zN9s U"[B2N-xMbA:%)ghOjOTTOED5X27SCWClKZU\=LidngNMd5o6l2^^if U"9oq#+_95T,b<)?.KGQh-V6?JrV3ia.B8HxSG^U U"%jC'KL/-][^N,s].7Wqq26>FB]VchF^Pp+(]g/-^#MZ#pq\vHx_kcEp1$pSvQ,J U";M])?&=*$p'grFMebL#9Ay%(>TaS:Jri=[Wpk:euB.ray)'j^CR5hhX/2%pc]gw U"Ke'CwaQbzm.mzMw2fU&l%V0'NxF&W9p-[60%Hn##KW U"je3XVtYO1aCUt:WhSHq0q&D#Pp0,SWW[c_CCj'-[fh=gGYC:8S+n5bdOJG_-YwA U"cT[Z:QQkwWTQ#qmpWpyY:0(]>u9,;T68>85R)tP&zgjv.d2% U"N^(u+),57xd;.nzr,i2kx2(c&^?Nbll%qs\ddR1TG'hnH-lokj3SATHhlhmipkc U"oT2g$N]*0n*D'JJ-;Orw*1D)Z;ZXcrmiSrgTptF55:DE[eE3pXL^qqE*,xaZiS1 U"%w6I:h^%UhQ_0t#-Kh_Bsx4FS;=f=5FRZ;o\x3w+mTfhsmNFeJ:W1SAKWY,SG#H U"V_b-BLbiDnRCdX54'rScu)0ZML9fI8vE.d=/ffTLf7)%YZ3S_\PuI4/YsG,W-n[ U"3H1gNDIPbOgW%PP,C_9sEPyUO/9#Zm/o3BP:FlS>Sd7g,7ou%[F2i^%6qnK3C)# U"C8poxax+WR(MhmJN+Bt:(ow]>CSm5D3#Ih(+xTQ(YUvDG&Gv:0:F6=%t+ck:\F= U"4x%U&?og7J=?]b59x)BNh=#lvN'JuS.w^3x?.sNNnb4iSqiM_amnxX'gHilc(#( U"iPpa\k:-bTr3,)ZYqTBnV4gL1WNAC3KFR,%9OuH_1g0,rIU/M3d1,Q[scPFYWvq U"Q/f=LU?9Ys2N5eTG2bK(?xVzk&=Uo*F02Nuf,=5HCWJuk*0zrV#,[55x&u4oCX1 U"UP9plHcZBj:(qr/misZ6mTgl$hl1e*vOqP# U"Vef(;q/X4oGe9,q#d/FYS+K9&f45uSk%pLq6,e?b%U6AaDz)cgjC)L7UexE'd*x U"/0vxQ),PfpOxpZF2vhRW)jO$kWILF5hlng^_m]xn:T:cQ)6EY=4(^Mo-P\Lm]v# U"FU^8t[J/CBz\u^it7%vL<]lOb*cb(j%$#\eXPNV-#9r0KlNSoji^nrgeiDBc>>^f0 U"J)^q:;6LSwSK6'Dm*edfe*$gv5*t:rc:HlQ[q*IyFr*D](Pm&'f;7(Nc^B7z.e]o<_cGK_J;L**Y9.s*>J%/y8meb3Y9fs]Q' U"L_Qd?J=\$TEq;S/YfuQ>.Q7To&Nx)Y++-)rw-an%GYR_/-3jrhw3mD5igcO#_O6 U"bAU9gN0Q=/jqFF/dOZU?z:#]uD%up()%9%%%7-%H*K#Ek65-O7.%%%:M%%%1%#% U"%x%%lfxz%gVSgRfx^);<>T]+7wCENx0E#]VK]#dP$8/lV>qispKqY^rR]F*oO*' U"_)qR[#IvJxc174piT>UM,z&YTZff.FgfO%]_?5]l3ihp94%>2]YORnju:eV)BPB U"35EqG1NoD7a6qID541xY3N2&OAEj7.fkb:Y6^L;v\2DTGa U"h71&&6L'$Y0ul?b&9s5JQB;CE+Z<$C]'$$2y494hx;(GLNKi^-R^Y;puKN4,HMtiePIX) U"eKszeCZ*n#nAQc+.1\QNP.'SPdsGn?d\W(0 U"k>jJkNWH+QN?;16*%'Hg#PTPAD%C1xyVw)2ha\ZY0B=2Rr.3^2#mP-:j2Jir_a5 U"2KII4OV6Yj#qJRHD,Ms-66OwDRcJ7dsD>=iT8Cqrg#&HUm&xu<:28*i+]H;0<'= U"_i,JsNn#^/$oc,rf,j;^8KWeexw'1[w:OV0eB<,o>doD)OU>qIj4X>'\PV*oD+Z U"[U%u[ZlgAjy)1q_7t0ZY-4i?*kE+&aX%NV)>fC4mkr2B U"c&c0]c:_g(N(3E71'gek&)g_\'TM/DrLktwTE&y,%QMl+$eNQQ0QvwY?8+P$2jA U"4pU-nMMOuf\XXM-]n%-?0vrqTlY5bhfb6'xY)d+-24h$eLm6^,p9'=]L?WIL8XT U"D0Mg(75M'Z-YaO9\Mmu.J0Mp)F)YX/uSTVr73G'F15lix3X'H$<3x0V\NS_t_eB U"\auA:Yb^MLM>1cg,Dae%4\EMVEEMp3+0Q/IZQ:R0r1?eoxLl)tqJFF%iA2b3#.D U"+IsttMoqgKYj:FqoH=vo&[V^pJ>'JJ3E&TbX;FU6VhE'^7*oTQSh+/lIOC$YB<3 U"-ES'ZT+t;_Onat/if)l[a'OQ:pE+WN0$O_J;0U&y>5aaYOQ?:D#[px U"xKE;/#EFcWM>+'ri.k[f39fw(WnfXxvmPlhb7J.PgG0AUo/gj$e7Ockm=\0o[1X U"E>(n)V,YP:lS5;V:l%$vioq,jg#b47T\S'+'tRZZ$an U"ApG4s3)=6(5/Ss/j't>J&:HOL/#>r3p,j/g\yP^#s6rC2/4HKF-ANXqBx-XFca0 U"We;u)#_yFV.IgI>YcfONm7yOAd__CM1QE70R9WF*?V$pEqbOuae,JMF#$$v8cn> U"/6mT3[PTltO32]lR/PUU6S=:BN,yOK2^z1osw&.j]\YAwFL=M$7KY2Wd#?E,=6/ U"%T9GljyGwO6ZFYf-5DGRaN?G)'dMaIjoigMAn$^RNPx,VGEX0P3?45^+CuqN>]j U"ohnuUn1M#n2qCBGrw,3/1FDp>$$*6:^T:0^IqAkjks-JSz+pH1g;r1\-K&S+GB2 U"YeTBi^k80$CpL8)1\MV1pp#nr03-\_SiGyTq\5nP U"59AwdR>.Ivt(J=TSo1j+e-^H[%^^1w/-UGCfd)2/SEf#mx$e2K-<(s>cW2T>I?dY=;rx\vg4FF?hi*.?116IWhox)h%Q:^&uq(GSjhk.VP+4&5JvNKn;SW U"Ornw'[wP#AQEke+LAO2[31UqE<>ZH%R-+YAFN<>Mg U"ez:CrZb<5RQi1x:T^I:ofq57De?XgJ6TM5B4Ll:6TjLPWEJDd>^Q8^Qjj7;#bPd U"/v*slw,HQ6'onhZGn'j,)fTe9GujWP95^hZD_7uJ-k(k$15E$23+9n?RNJrP)?\ U"htq'QVrP[Wb>NA>W[IiaAdLJ&&73:uahM^iSTciH:'(8T#DD1UQI0;#2SG2Z*QB U"v_#OJ1ES),zAW-.v>_A;$1&s>%KMaN>-Fn3qJ5YxB9gA9]PCwpz3WU;$t(ND?j*2]-SXBd/[yGzK]x U"3woz_W3-1n?,B_[]U#JEghki_RPI#Kj#MbXog/O0nKs.=r2,t,pW<(EacfU[P=D U"]M#N5Iz'CTo270B$vhHT[]by5U4;A'Qfk\2tC6COl_ZX.[i9C#64BT]5 U"KsTIx)>rSoaELB'T4l=7+%%N'hU#HI,$+&mP0*aJYsmKH]hKp$0Ug0La(\SEGZJhJg4sY.MfZcKxno6 U"h2VcNDzfEofrg^.DSU\yb6crzD''W(D*QRRU:Gn2,D9$,P_KSvv-=.\08dm*>j6Ie2ST/=Knivd(B%M$aGGv8 U"MHsZ^DD:YVbkELomp]0N]P4/X0S[2K3gJDkg\9=Q.r2QfgcI.$;>_'8w.7j+LoF U"KjWUso_=]MMHp)92T%DJ9Pj'+DD6?PY_Fa]v?*uT(6%S.C1q_hAE$(#R8lkGH:H U">7<_dI0da3J7C4fG&>V6lu%*WjoMS-OsOO\0rtb^58?Zd9kl3z;Z\,L+K)LiRMO U"\-t:ro(&Ts^d=rwx8r=rx_DZU$I#-,EmujvJy/i''l+jN$nM-O_nA*I;zt+Nq)XF5PEKHH680B_u;vS U"S%DqM?_(_mnv\PbrN3MPo[xE#8:;.y0N1e'6ej/y:fi5M7qBMa$H6M6_>5nKVDl U"qz7Ld#u77eb)XT&_m$bF4CR,C&Lx&%+%S)%%%1%%% U"%%%%%%&%E%%%%%%%%%w%jlsf%rjxS%gfxu%p&'9%%9%%%%-%E-+BEa.KLcj#T%% U"Y'+%%-%%%%%%%%%&%%E%%(%L&%%%lnk%XSgf%xup&%'9%9%%%%-a%H*#LEk6-*O U"7.%%%:M%%%1%%%%%%%%%&%E[%%%a%U%%x&%lfx%zgVS%gfxu%p&'9%%9%%#%-%7 U"G/?Ev?AH)k%(%%e%/%%1%%%%%%%%%&%%E%%(%I_%.%x%l.fy(u%VSgf%xup&%'9 U"%9%%%%-m%o6CdESJd'\V&%+%Z&%%%1%%%%%%%%%&%E[%%%c%b%%F%wjfi%rjFS% U"Vxyu%p*+%%%%%*%%*%C%&%%j%d%%%%% 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