'===========================================================================
' Subject: Earth Rotation Simulation          Date: 12-01-01 (  :  )       
'  Author: Antoni Gual                        Code: QB, Qbasic, PDS        
'  Origin: agual@eic.ictnet.es              Packet: DEMOS.ABC
'===========================================================================
'>>> Page 1 of EARTH.ZIP begins here. TYPE:BINAA TLEN:11810
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"EARTH.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%#-%pwe&Po+8+m/E.%%za%%%0%I%%F>2A;3XIWS?2kGfJFB(QnEfP#
U"ykid%5VWEWAwt[%%%I2$_F'%1gEC;/.*Ai*'Z+*%eg4QQ(m)W\*#;SSx%OpWH^f
U"5kYEr%ytrugtcpu3tnPdqtF4/6U7kFXQRH;mN88k(0J]j:%'qXz63d(zh6LlGrl
U"XWrW%Z<aJb8ruJp]7dcr<tGA8mgnifXt>k8tu0C8ve*tMf8.dr$ux_[PtM$[Plx
U"Vb8Zx4R>QwtZNiin%8rrnL8WpJR>lu:bhsbrWptmu8xGJ04^j6xN2uhv7$QJwrL
U"sdif,bLx&xWw;xTnK^gtY>ov^Zpv<MO\jZfVJKx)r7G0xt?8TpW4MHvW$BUDGGC
U"hUc4<evrgEhtEVO8FYL0fIsctL7W$2YBN=jjL\NPX[YkVO*V<:5[>d,Wz>Gq%Op
U"qm2Mh&(d2H'&4k;TRsRslVrwZ)hx3'xgk^ig4UVJ$lmniY#_bs$7gv3GF*mbZ.A
U"tkz6[LutVMNZ'ns/Zv?T\QVi\%?/g]-gWx)rZ5iS9q.F3,?qh-#u4VHob';b$=^
U"Bm(5v^ybac[y6HA2:$o0$'rRR90R:I,%zepxbS]cGslZEdsyYz&PuKokJ2L,R^[
U"Q;lo\O?ew[c'.Nqduj<V(OjObSCC\L.SoLHn1a>Ea]9opsB_TogB370N+GkZT$L
U"tMWSt_o&Yv:ogP<LPog_PrI1Xmc(Cc^O8rO,[*Pg:,7CX:Ej6w57qYa1[q/>2kZ
U"<w&7YA=IJ'%B836-uM5oL$uhq8KXnKO284hxd,xZZ7#k.c\RoPZu)tUcR;rN%Oa
U"dMLpKu]3?+bVYJ.y>+?R,h&IVrTFJE1o+A19CZOE<tOPdvsnwWe>6\\VQgol<C$
U")*Y\OiUFp-2e0I&<'F>95kKbZLNduWXh39%Wr5NXz+j]E#MYQ.;AFPT(D]1X<#w
U"qh*2kuYS+nI5Ny%sUBSTZn*k(N]i7C<7J*</zA77f31fVZN?.k,fC6dla0-I5h.
U"*\i-lr_RZC'Jd.U<ti/RCb^p4,.V%fdb6+P_+B<<ewcJbn:ax5PTHkIek3+<+XE
U"18z(r\zU<SS?'Rk6fDN?.HoDohLaVos/dpofELtH&X8v;g>8:J.&3WSfIGd'2Az
U"C5FvBgh)&uAYP?[o_;04C_'^8eK&W&y<cCe0&rS0tAX%Efmf$7narDlBlxFW<$+
U"pJDlJbK&j/8Q3m%UYCurVVWJD%TVJf6fOA=\dGA3Pm=K)A.#e/\CfB12[<k8m<#
U"?<fIf/IXypO-J=FOtpAHb-]euG:^%53fYv//r1yU::ONy;r:#+%[=EPa9bFfY<\
U"TW\+yg:8bPb&FS;(&j-XDNR/H98CPlhm_=O:0ff;Um&gfhgq9AY$n'ldrL/UQui
U"vEsS,*)?i0<J,aLMz[zh/r,0p_xU_5&cAwZn]S58Q5Rn3N%63;YQu'#aaoyg8^p
U":^$VlRaQgjZ#3pN^g2TVTE1d,78fvBx05#z'61ke/?_mko+)[.^E40$E*lvx4K8
U">w4Ka578mN\6SAHw*c.g;6%P?.QJ.;4C7dj'>V)pPd%1)d&zBZOM#\?r$9ADE$o
U"R5faPrsU)gAyNt\:=/B:JGSxSUvKbeP4\8T/UsvbXS>ey=CVQ[C\<X?]:GbFst-
U"-Z%tL_L%('8%RZ%Xaf4_^nj#Xa/_#s7)C%+ob_9-OPT3Fa?8sX(+G7?h=oPcCNF
U"w^sc=dCXh.xs+0XUGp2.(]Xx+3:MAI5?x*M,x]am[xT5JOOK_;hQ/,Y$O\kYZ1c
U"EDQ\+9]PP5+ZbS\mE9]f$p/mPN=)+2F7qOV+5Ha6u5K\r/<D7SPF6qkC(nxb*/.
U"-+;ULkg50a)PluJx=PRfrnoD9IUVp]AQ_.e2k)a<majf0;C]&o_u\)lApduNi7E
U"cnAD[-E$_$nw17Lt9$ZUYf'K5GRQ[OfDU:M'1>&5T197O0_i:rl2Y#RYK$Zj.Ji
U"-efwv%J)c?yL9+xDfBw*2s/YH'm^QHL[1dRI4#g+?c7(G)8jaI<ZB;OfWWF_jCF
U"V;bGLZZ9.Dt',1*h/P?j/l$SSex,C.ce0VUvD^;<iEJQUEDbR2/c#-CGfaOAybF
U"MUE)2'1Lk\Ja$I_mI+q;,<T\mmBCPx+g,DJ:OY;d,)&rkmF?/z:Iwi3d.Dy4>Y>
U"Lue<:jJ'TEf=]Ag<&9:Qp^%o>*NbaKJEnpnS/l;P>?E&DH06/_Te0sm69\bek3;
U"PVu*Q/S7_y^2o6H>,\4//h1''e-NMujqAqCGUD'#dBf6UBoE(kJEyHd7kz0&aY5
U"zdCgssX8;iRp+zK*VE**:o#Rq3cu.m4#ILDq8l91TEJMvmQ<aSIgG?[<GB;YeY8
U".kYG&.kqQ^paFKn\Fjcm?eE981Ef;hhu^,1M,u?TUJSVFjgUF7ze?p'IBMBZoY2
U"l*D_j>3Ajtz.VNbX>tSQP9.ga&O&sW]4:&_Z1v2-Y.b0^(b#Ej)4(MZ*KEu(_EH
U"RfoGR<1A]%ea;/d.sla%%W=\E3A&MKQ/KmE3-bjQUzkjV[vJh:saAhk5U5G:0,_
U"d=u\=TS]j-N+Ij-hb.=)I9$xCOy]&sSLU-^TYNgT#-Q/>M5KZrneF%Dc$qtqUt/
U"Eh4:jtP,&SXF3AzdF+F.S?#z_v'P'5zA&O%xtK]XROCSac<f4(ceDCdH\#FVCP_
U"KrQ+l+m%>\:5,e8T]E5q.:?aXIlgdes>Cv?R^9C^J^;qfI0H-AZlG(LATxrUwzn
U"t$nf-9/_5&iU*_1UGg0ET$Q'HS)xS%K(EI7C[aw%Pt$+6=AF,c*XHs^R\Y:)XTM
U"E?Uh3mx-DQpKUP$_HOCeWF<j^.CA[juRX#86Jd>XYfpDXUeAYX]4'A.eu3IQ1OZ
U"(=M7D(yQyqAzOs2=JN:b*M'jg9Sm/ENPx\)h?WFT(^A,SERE^c0peqmZN^?9m9%
U"m*3',4gIfEBg+5]X.(:TME*<IOn4]RB.^2^;l>QY*R.:d_US7%52F'[XsSUu+.-
U"Zt=[aqly^iR*uW4h4CWBk;'2$;z[Acar&YHcE,wdxuT:k84xfS=I_VL,A'-+_Bx
U"]GV;*0<T/_>R2Ru:$JYui/yWAPtsOEhkPIw1#k/uh--s1.,x=rkl2o;TMP]Rxuj
U"?..O)+yGk.^9<$c?iq)QsJe-*1.o0kyMXfF&b)pICA8d0T[4Y7D_[+x3cE4uOz'
U"LjS(4Ok#xGEl^5anyM%_.IF&i2gQAKEQZcRS?0e=*mJ5-uYL)j(]V4miiUMh<H0
U"tq%aftF&(Mj=_^rz68ySO<G8'xs;j_Zp^*lpKYM]Na2s/P6FiQCPn;x>g>qgYUZ
U"?Or:Pd=fy$g]YCbqr)$k.:6]r35UW_Y=ojZ>ODsIm($1]=clrZ=[h-8L*kFI,A6
U"gECrH#O1Z/3,Uc[:m]H&L<nVAXbeV9MeKHx^Z[AKOW$13X/clc+nl6I))X.-qDO
U"gW0iFljSJQ;dMmo&1W,$$*&koj=Bd4*]AWf:H;%FScyGO,T^\'xld%((P2>TN)1
U"M1j/v+>GU?-b_A(8i$KgRY(^'[e0.c>LM,_GYFk.[N);M)InMrdIC4Z\0A-JmUz
U"h1W%w+#7*lCNrEJ-6=jNEe(+T2M')=B3bOTOk#PTz\A2+X=,T>i+C+TnoIZ+UVC
U"oqOzGhJjxGfsD$(^n%kg0,Z,/\XX1JKBQu#_9J5%md+-h#MS5&YHK-(wWy(gj0U
U"7=MjWl,mbCa9(?TUH=)2CADtnO>>_C58G6&7?6kS2(v=P5N*.*W]khy<D?,K0\Q
U"ofQ2P0QJCRVi;uo)$s7oF/FDwPQp1Jzk4?Oi'uVH<R'KI+kSNcqDpTu&/0WZ9Y'
U"RX)uHc.ZVG]5eY4\iq=NTdr&:,SWMl%1cv*8Uot/F.av_6<d6-Xx\V.KD5E-4Hr
U"0'*(OHS4$3OHLUrQ2$&pujCb?GycpRkP6To9s$8RT/3'q<fgD9B2UkQ[qfe^1;>
U"W2.#rHoR;.8-4dNPJt*.#ugjTIg/:iRBQ>VOxEjFp=_<o9OE_&/cM*mc2l2>wb?
U"XjT7c^$IG2Dqr)N%Un:H+E2[[icnpRJfY:Or:H/$%_pjfmFe.GQak>bLgd^BeaR
U"n*8loe811Q1<oMJOnBFyb^AK,O]e)[<hT;Br/;g1B<vZVRo*4T>ohBqzZhPoOrb
U"aqw7npd2-M:tRsgY(5NA9FVQ=Fqb7w:(HVB'vNaZ&c)RU%_saPtykn^kuku3[e1
U"h1r>kv/[<eA/s\f/8>VFYLh]4EFA-e2#6C1/V_#H0&2^kl&s-N5=%bI<Iam$>I/
U".MsD=El[)_7'ySCRVdqQo'_qFF<h'tO:Q>]:<X'Q'>RI*92[_Q\Zp4s(L(-6]4D
U"7e:)KtD+LqL5jEV+N9h7^(gEz78nywyCFbr].YEe%Fs:y&0A;0#WotQq#*cvT$m
U"M#=1<5R/-sYP(5^S/1bKSje(\QxWH&k)x<Nls.8qk>u47cjh.P>1y=N+Ax9>nRM
U"uR+&aor_+8iA%SXZkLY%gWFW,0-&XeK;TBFB3lbxLM5*#mBH<6t&.&8LkMU4hO(
U"V&Mz;\R+zRG6b\F:i/#pfe)a95y,LFuG]V?[dH=vjqJp<rWZZt?DSP81)LvwCaB
U"/7Zv,_UeIM,^9lV>y;;<WqeEM0NX(L_UG(ap]X]5>B)&:SUM*4)Q&]1:x3#R9UG
U"B<Gg\0oO?mLb%&mQ$I]xi2CQQ^9K]$Gh;koG2Y<Y-^?F<(<Zl2z,jsXn'<j;FAz
U"S?s#;(bE;%t(9MhFLv5k?)j?rv12[GYlw[B^^^0aGFH);H/%#]a;;i[fm.V.4Y3
U"62(.P:yy_Pp9VE7(&USS:S$OkSh[rf-cKP\O)L^+Ed?[SRLIsE^#$Er:&_,jkX#
U"yStVi?1MSik\#)Fo5h-<,'dS/Rcp-0&CWE:=(8n8]d#y->[q>;D>d(9QCoSXMPT
U"RpsQq4^lJNaS1JPShT2B3f9QcD*lBF0hYx/b5Jh.Imi1%0Efm8K1P,6M)M%Bksb
U"OeVc2n=8_GuIh?,tLuZ6^17ttJqbQ(jC3TW9dpTCinW*C;O4A0]Pi#Fl7#55P/x
U"^/,-o(?NOLSah=c+FiM2h/q9m>B%4fK9)-Qs8[IGPWYqCwgm+?nEM]'7UQap]ao
U"3K%'ULKn3Mf77kkV_Q84IY0%Y#2T4LP/:2cFzYGx_I?:[26h.1AT+H_\\v:'[>Z
U"k3jNkoS'5y]S.m8m&i*D:+RL=Vp])+nXAax\T+0m9IVqnCJXm^KYBm>q%h4TS_'
U"UiXXRj-LX/b'U.:,%5w'dYtE76)3hb#=5.LfU\DG3x0ks>*8TP9u>%4iAu[1M1r
U"]T<*sU+C[F6NlVMJ17IUEJV%aEGZC&yR5jn*]i7$wP]buZRw[7,0#?_+('*;u1h
U"d+vpPx(hbcGkn.0mnk]I(GjD1tFORvj?=o'gs5<7vgO<ZqRG^XRCq%IRpYt8R9&
U"LmFTw[FH#Mk,Bw^\,O+9bQK8<00r;1+p5uD4Ot%FbplN4hZr*bb+KO,3o9rd2o9
U"<bO7$kO',sXM9q,uc8S9<VndX%oMf(TG^<d3PHa%e)(b7i+#yeKN)xmOUeR*]l(
U"qE^5&AUB/LH:Y^8o?]\.&yRQ[X]HqM.9.X1J8TA9o;2,#Q2g0Od)3I\mJ8-exX&
U"X_/pugL0XGnF'Z,DF.6H/e3Q+\mn2.1Rn&C].3FkV=*7\_UPiFq/Q%><'U#'g8j
U"osgb8&,]e.SpXV;_[74<Vy/jE24w3:U\R07wTb>#t=Fpj6+I2ebRp9sptc3;=D:
U"_Y)D1;b<E5<U$V75jevy]dp%#4;UyA15xlsok2l2DyC_1e[>hXJ<Y5PFVlPu_2-
U":8_S.3.J;CHe-f'ife2yl3Ha3.4k*l'F-G>IL<hqqfC2+0Aiad*N=MU9yn/x0kW
U"J\KA'mw670xl(G[Mf+]?CIG9pTZ?sa2q)RuHkQ-?JjU90lrWx,g#Rr/#Hku)p%l
U"wbePP?)]);)Hw%uX*:oZ#Xl/W3cquf:]pWQls<UQm;XbconysoBREioU.FJP8%\
U"8WGHpIm\AM%Rhm,]1N5?0Iz>)%c-0XgX:>4DQH_X/\U%9KBy)YH1;VOsOQSbXbH
U"u-ew,)VVwL?kE*Qn0)<+]Wf&\-9iL[evv1*L=>1R4oHYV&'YA:d8x,;LfdV_,zJ
U"JMe0A5vDPI,D3K]HkbQ99e%7RhL#NOfaT)X'PtCJ9Uduj4-LAi477p\K4G/SB&T
U"os%^Ek8-[O0W?zbURW0)<%9dd>ydJQFQ]L>RB2F7a]bzVI8+U/5J1z0wg4,rB_R
U"lR\PheMZpPIQ2(?\am3[dd,*>,e+CsESk+<[%e3(7Emz\d:)&t178rEj[uxR;FA
U"<gIgmgDbG%(j?&SMpt51u?gJ&v=m<LJd:'EaesNaS*DFm)kd=F=7If[jR.Y=$g4
U"H\DJUoopG])%WWTK9hp8i8kjE/3AQLjk/Q)X0Ck;[bGo'BYU(e'9U+yFF8+w.uI
U"KGVUQVP/Xj7gK+4,1ki)l>F=/g8k3Wy.N&rx(=C;/,o$fjA'K6iX/?mA.6pBC>A
U"xY(BobW\Gk4i7]LTojFn/6\mp5i><FW-bf&BXDWNS^dXgkW?NY?<&4E_DeUEjKC
U"SDJWQcD%tlp42;'F:-4e7T-phg,t<YMGp8f+,E$b(Vy=2'%[pSR,;XfU2dNqY8j
U"OD8<70[&h=SRS%A.+q&$C:#che-%9CG0($qrgCi.Y+=.cBe[,y]>rATixD,]4Lp
U"AgCX#snD)4Z;./of?,3cA[bL76d=^.dM<##1+mihV5d7/_V5%kIOZO;)KQ.z[ls
U"N23VZ+)kv$aS11_?7_FK3[9s7J\SFu$1>([b.m9vd5Z2<o$bZOqHg0Ak:<4S=>p
U"^1#>(?.ax8j1Y##84]o6]A$$qbuM^LE#Qj31,l/GCK#DK>)K\HYi:P?Gwd'^p.m
U"X68]5kr2gphnOpEv;XA^(L;PH?07s-PSS?MbI1]zsIo/xG,&UM[F3dqO9E#1'kb
U"Sk')3Z<Q=eY+e6G5ZAFuCbIEjO-0,UTn]C<P(KZZ'28c4]?:d4NzB#Hn%7-C,]x
U"kh?1cH%SEJo\CdAI)F$LVlr[EO$+h>_3#poMWfkC0Bbiw\1r)sE.1f=HIXU3B9s
U"mJP__/mr$;&XQ+\lP8_>O5&O.##DzCm3VucTM*WA$nQ_+;qm&pD,RdS<-g^FbD^
U"1:g;WD\cR>;X3q'tAZ7SKI4fo]l>p\y5SMjk*+(Jg#,TQ=$s-tY*eP\9RqgtsF$
U"G>9m+#F./vjUtXaEO>V0a5cT0%C(a55fXKHCZ-S)ZND-R3D3-Rl<'^M#nmgMr;n
U"yn2#/kbA864eF94#-*Q0V(m;p1e'ZT,m4Ng^iwZ+E8,71RSi&9]iUa)bp8#fq?t
U"?FG4t8'I<d]a(\iYTQc67wAv=F0Dzy.$9dUa;:Fu;]Ce,&y#g<SmW\raM'[e'Vj
U"%+iE4(\RUmC,Lz=iJBbzF\O*<d<_KwlFa$iX;YW-Zec;;w(2c1dDVw\4asj.U#M
U"Z[gDR>:CKDP(UG<&:#K*P?Sig%.2PO&dSr_5krlislC6Ow.5l0Q-Z*eRnM[bKoN
U"m(y&\F/,f1%&pE3f?5Jj:jr97\Xhx]i3.6^zk4S-'%0Sot'eCE,ph$#BJw/c2if
U"A9;P=-6G8Y6-6<F;FsSuYClM3:?\2W4Y\Pc\o34x_9#Si5Enj2i]+?JOblYkFwO
U"3ZDBFVja[kY-)Fj^%+?X<+h5+gB=Gx;a4REO2OH0av\Ho4OLvaB(%,paME\e96Y
U"%IW$%(fUSbD3\*G&VG#_)$Tq0R?%S5dTE\]-WE;\+s/1<6NZD3PwsL4I\l^GOD<
U"OAp*9)wu5e]RM,Y#Tr%19h#S^=qqKNk)4DKnpE4F7;2X)\3emdDy[KER=wuXDV/
U"$3?Z/c:X:goFi*f(jw]C$h$(^'sgDSH/*$BpJP%5JVW5,(TjoRnGy)C/VrcalHb
U"uXK)*rG-bFm1E735+^d6/aHX:K29fg:V:kHp[eX<sePR/pBcodQxXUm5Ro4GCTB
U"6C%/<?//_:_7\J,ORQFarw=M)AbBK0Tntw-GRmb0YN&U#?gj/,MEQiE8T=,F8*G
U"Rwt$NhM+.Bk<RWfkUf(S3PmBZV#jQoLQ9]h-sQRqon\ku,5A1ZETn)</]t58;21
U"vTG,U,UW6HP6G:^n$Tt8URh2o9E2M+AobECewaYIxBEJ9l4BO?+,)+96_bh.[IV
U"H<4%e8Cq/DkAXi.3lN>8F,dQ1/Yp_TW2bdw28/\>c9:B,>S0,=D1=L/fX,6:(09
U"O;bO\5F:,_/V0NJ'c37\:aErW7';O08Si1,$4EoO&O[M^(u&TI6psp:wMOUL_Bf
U"'5h+o)\K_?*Rg#uHWUg>Y;YOnM1<.yP=OX/]8e7++kI%S1rd0at%vr6NkCdPG.^
U"OX&VMsWr<<]U,sA7g/nbIS7r=C.Bs#I/2H&Plb/#$.%s4Os:Mn0l8P.CU0tFAC_
U"_?:4>]7*i_X5\AF0-:5fxmQ*FM-i,l'KnLo),S>8i\+^9iCZ-LzH0T:WQ;T[\kG
U"Qd$*x<#bgyKJuzI0]kt:LRT-BaZL9:h%EAN2K;yqLVxz]iiTvf%OcCWG=l_xX&7
U"0ajR8ep$RfQ;7twmRr+?]cA/=oQ3%7NJ+k:g(mcR[(>a?QE(TSEtwm--_*^SZ>0
U"id>gq);s*+lMieCSG2[ygxXC5HV##Oodk2eM]zqtVhQ=H,i5xH\<qii>%J5US.o
U"[X/;3T2b;jy*:vA>?P]R<dE($puJ:I#w>v&UXc?ePxSnQ6xKG#HMpH$JbndPKu?
U";Ce7i.z?+o-I)IUa$AnH_dHr=A;a<956;'22OMfM*jkWKaOS#R0L)/6NSO[EXO9
U"d*'NGjU]5T?mWFtu40BJ/Bdgp'h=#gaW#N?5C)b^s;>aQEdt)n]my(WPsz1rG6)
U"D4a+(tP^k,Rv5i2aqw(>ZYH/nK+;$h&e51hygL7*<v0byfZfi(ht:&g,v.<h=6A
U"C-,0k#ErVbLH(7ua6*Okm'nO??CvQtSXva2(r:O;]^8FDS*4l'_EbQL%z=.D'uV
U"b0AHNp-PYAEmV^#^62+<P].0wP#9r9Cs87IWck:a:(6Rx2N7qr$4Mp]ST)C)IV#
U",I%AiGXbO<5V_Rh%CzkM^SnxB/Z/nMFgYLmpPTc-5D+?-v2Y0U(QxkLQd-s0)TB
U"r^D>I=3'BG[B5$B?aclMH:sDwx]bV3A%lmYqen9\p%sbxgf1+h:E$;-/)s)2a=n
U"(LADvoAS\:oc4VPQRr#UqcVmuHL%3.PU$;.r+A*)[&J,svqUB==YS9m?\c$)'&d
U"L9>sY7eC<$RPTEJ8+6GMB=Cdvm)>hABF8)SmrRr+83t5(HIPHHrZl3$mc8+J^Bb
U"(YPnZXh*ws5,s])&(ChR6XucQZ.TTB3)O^WWjFz5:m5bY($Jz-(eZvd[:QOSM2?
U"4<'hf'%KV.mo5Q;>3_BcwVu\W3=Y\fr(NInOV1^<&G1$mda7^Tl5WT^,>dX'BJ5
U"-uaq*StSTh'OgD>2skTB&lpt0P8t*N)H.'YSek9JJrV==EA-k#FV03EZb_Jr4rv
U"Cwiq%-(<l0Z=weivZf9LDB+B69re2F3*n8xehZg-a<B>iPA]7<U^uWl-QjjB?fX
U",<Uu[:cFtH<?lGP=$x:\t&+wi'BYp_AUt]S_vd5?%dxnkk6Nw<./q,hRV_Ba+Ol
U"nz^I(BbEg9lzXHLROiEPbSEc0<Mjm+f2W'F)cKhCd#l.\<#VVod0b-wQP:QY5dn
U"mz^HZ[tv5Cw>>)<c\(.I8M3weFy,$-$D+'.+w#b&OGW2f9D'pU&tV8LC?Kkb?0d
U"jeV9^l5+lFJfV=MQUVzkEG%QI>3hxtg]SREF-$c]hXg%[0fwOB$M4W$H&^c#F<1
U"3PB;4shS5[$\f)crAa]iLYvo(Sxiu&rqq7%]4m.3oK<Ap^#5aptEb/la.uCw7E0
U"NScQBLx?xwa,<b$uCphh*sVXUARAlM6Nf;[gIGuY0:A00n8sVN<#/0Hkd9Z=W3_
U".J(5n^g\>(4t=R7u8Y]N8clBGa\l^F=cVQ&GWiVDnhooTHh?bpv9$wmdi]$T_ro
U"b2&lE7[a?_\^;^3Qk;_LxVvG+T<v]oglrrXsPXY3uRkq>HHL29lqTSQu?2m]0<k
U"Zctws=QdrRoQittnHgotFWt&ueG:;z*Ew]lupF%G<2?=NcigV,x/1<MQjJ<?e#F
U"Qv%s^ED$+Ikx<bMFDT[ac_w:SW8\J$Dl?mLBcwn'1qZS]Xp^=?evQ7jTO^ld+br
U"B$niWn?vHDt85,gAp;QG0=<GXIThue8DaCX(T/-7nn*TkrAn$:rlbVwCL01iP3c
U"3TlT,hGiENMq-lD2Z'Qb0D:8EV[%1_#k9O7O_aPlY(4Qu+OGku-T6l)-%lIv3Pb
U"L/$jh[j>H>MMXvfG$AsAM\#hP&pV,3xY.xAW,^8X1lf5X%Z=Rp-RHXlfgF\b;=E
U"a7UPiE=lZn_d]/^G>vF1btLtB\QRXQ1;_8;q]X&oP3H&Td>Q8R2YGj$68qbiUZ5
U"gsvc4l4w]q(PH-8kHU^DMRaYFZ#NoX&]FE\oyV]$4/tZVMxYf=hOUo(c3j1$.n2
U"uq&]PkNbQ8]u5(vKcWplZuxovths0xk0l^wshrvxlKubXZ&xjNsXxu8ZShxMlrT
U"Nmp\Md(lxFNosTxb8rs\xwZt8l>kNh^wWir(.H8qD.6xbndNrzNNunhx\)NN&u%
U"p()9%%'%-C%)0BXPvIu(Ze1%(%uC%%%.%%%%jfw%ymSgRfx&(;0BSmO4wmhKu,t
U"<^7b%:D_s2BQf6cgJUNT+Vo>h='WT+;Z[=Q[n</mPW8^-:n2-62(447UN4a%z\d
U"CnD5xLG=fU:81Juk_S/Pln;0'te$Q>#NcI\OJr#Iun(T>*cUQXN;w1Gy%OuoZ:b
U"6YJZ.nNSFVLMp?Q\vdcKi&iTMDuh$%McSsQR)QBr&qf=d_IvVnIkngYepvWrp]P
U"1KCTKf+f0\?sDDepN\T0?2d&yi,=kjuvUjYU/=rpFdV8\Rt##IjiOlZF>l%?qfL
U"I[5=Q;tRmmP#xN2z:WH(U]N1fuZCp0<Mu/s0&R]FgaG%6\kL9.sHFk;$A#V9Hq5
U"MdswAQkX^2bsqSAn7l0Xr#yoxzu+EcNp:NEU\6JQBuKl6bt2kth&sK8ZsoC+6df
U"m^g8FjZa$j5]6tG'M1m-v,29$Pk7;)IBHjDF42:g0=o]cRs5+:GS>Ib/TwdHy&i
U"I-ZAh$G7$jRh\jQ+NFhTdmWT6:UW.7BFlZIj;Kh$Wt-%?0)Us\]<flZ='5IiN(;
U"Es0YY^uBO0-EY5GQl#NvgEmeaZtOUMx-?\PslaNll\PQex$hv1<&BB'p^+gqUD.
U"P9+S5f^S^NCXI])Hu10YZ3OfpZ\Rd4DVgUm:frM7%FrSG3P0TP.7T*5vR8as]Mx
U"sG$[lF7AS$A<4TFq<d:0^t7p3Ms.Vjv)7Dq;HUgr$6[b#6%l#D<6/>[HqF8;<M)
U"P3\9x-xHtnX>rN?-C3+CVDC^CR5$8wl^v>^k9cgr%Ro=<$ZirM;o39v&FbnIt.+
U"hL8.V.y\Rz;[%b1(tV,UG,%7g#[wO_VWX<hk1QP#p%-[<qRMl:k#33PucMemRxV
U"YW)cN)vkEr)8&-hKGJiSw%Vx;LH$:FF>)k0aakg&'4)9ts]Z]pE(;vhHthfGWiM
U"?T$/(V28.-bZ&CJRNNHE#yhHj)H'MpCJjU,FPYDo&-7[=V79m]fTY-joh7I=H4s
U"3=/[6en\c.4j($blSonsF-)]RR&2Zb^^a_4%?jX?h6Xr320&ope0$)/3*;37Su)
U"StmlU&&DsUk#.\9>08=O7YNmw*#J8=v?_$1RVhaD)c6/9VY1c7n_&FW\J7,w>il
U"Z(c]CA>44o>J.9Kl23Ugrh39_p&;\iZYwdO'%/Tv^IpQK,LX>AgCCIF6?9PnqZ3
U"PL->gH:B#mk:VI%dAZrNZPft+aSM,WH2BRuXBbDf<S(LU0%21CG%a(*V^kj*7Fu
U"722r/xZhy.#Y4o90wR13B5y:OX+2G1rb(Da_FH.afm-$FCGM#,V7I:9q%)S^'eg
U"Tskp/p>tv0hI7:*Y=VX*z'ZBE4t/X&W:(Hezrb'VIYG#%mZnI64KP+<l63Gn(%v
U"*pV]]Sh&aeE^g^.hhiC;9K=LUTm$J3gOdH9)+O\G6rU,$Sw/1>CD1&Jyi,JK9Ev
U"]PL$LthS2Z9<(;PGhFV['20CPG&qzJYlFRg8;13;_b,uxS^,DueaUlj%$(Ox9cZ
U".2,?9;CBrEOd)rQ3I=U\a/V1jdb2[8d?.slkQJGF7b%>tUbLs_vO%81OPWWVFm$
U"*eLWIn94^[ha%F7oy7)+-Yp>Qw90'3'9He_&$<$EE1#jU=r%3;\iF_3jXe-i)'v
U".5-i5X2KBr>=5.Fs*pb*kTWHlnod6ii4-,MEM%bR)sXjdO&86A=/1XvcqVt9:Pk
U"SUTj2rLhi,2s<I'jww$$O%IV02.SsFM1lgIiX<Y1M__QJY.vf]i^;.K$t%iUxv^
U"D9:*9^nbmcm'CE^&vQbn>M;80nG&CA&nFdBGTlZr1Q&L'19IK0>a+)tD#XN[H_k
U"F0H&>Fy,pKOfI>9J+TvE%m'2Qgv(9a$?#&<8xnImrg+A>E/;x3B-PTK;Y'qHRoO
U"f11FpcP6R9n6F]Rnj8#SGXq9DYB37?F;WZ6E,sqK<2buX^$m8+y_?y_f0K)AyT3
U"qlj*>j7UiTLp%^w0'?bd;hhg03eFt.42REV_OsP9Fdd$N6RN-E#.NMv85.aI,&7
U"TUS,E4EpVe0:++0e'^>ao8S[^[:#tuYQMd#w=)Xo.*xbS1'LCg(cnoIG_p(1KJB
END SUB
SUB V2
U"34[oxgNAtiRkjZzFIZGC/vHqbIB6,,&gsm[jJFUW:&<u(VNx$l7G)^:322>&I1]
U"diVP^O\+rbt;XHiQ\,m2G2$273-najo\0R'rht,6tQ)4uV**+NQ*G)Kq2fH21/1
U"1/-y<Jt5=77*MG_1?dv''Gs'eH;KnKNcA]%H<Huk:'q2=/?Wm]+lS7%srSe)I;\
U"c)Ekca0,VoTJ.v5LqC?wf=f4JfZG4>&_oohFpkvLghMqVWoPf4dlM.01hQq;<k+
U"whm?-m?%a0b[.HB=aI9lwevZ4(lg7S2Y52B3-<h,63baWi1$2EPqs'kVOlhc\;6
U"#1,&Z8.A1V4;RyTQCMm3C3t2ZR[UTKYy^B,4hi+);UbBV*n)ReF0;'d&OI9;*&4
U";xaS&r'6?6c&B?O\YcUnThFDEf8M*:CW#)BIJCiaaqT\am85.QG9r0giJCEXZd&
U"Wo=]]F&oGOZ9r5\Bs2vGEPo2NRsfdXyaF-TXo<lGfO16\xur3lo03uO8b^<>x5U
U"S^n3p6JN)wY7W0i5ptk^3.'bft%q7)%=.wE[D>aBN?\uwI\44LW/-K.[IF8a2Vn
U"A<OVAmrOgYNrZ?Ur,bA/nT8oW#=XHEiPmpoiVF?$duOL?OQ#DdDm:u?dfr=L*D8
U"\nDQ*pbfEnhs'7fr8g&b1;y3MVm-iziNidMYDTL#V0JsC6g&cDcdq[:l)*#s,A>
U"0ud7ka0FiLL#lQ%#T1GF^r,DaC:DEvie#RBFuJ0Xl*lj+.hL5>9(_eWx>f#[T1D
U"Bjns=wkoqf\-h[%(\Kdj$_,Slv#lR1qQbF-h#KIQ28C8o+-/9ID2wOoFm'^roZl
U"]\Ob^vQcJMi&6$b&4^jaUkljJZ)nCAk^AY&0JGu>[ms7vA2GPMI-Yd[DCGEU5Q8
U"-$']Q\p;lI[d$,qO>l<wM/riB:iaeLiXF?;&-j8Oao6Hgg)<QI+<9K+<I\ji,J#
U"3r;8l1d6HdH*Bm%g7mB+$1JSj]FD/iFKtOUZx#*(u9)>X-EK*Sr$tl,ASxlB2u(
U"pulqBIiUK-kRe+QY$e82M3;l\6=t(oLa<7oF:tj6#TQLo/F_K:ipj3t'mL1^o%*
U"]a6O;#PRMEv\C9i$I:XQfO8v?P1fxPRh?%gzLZDiF=h7hS2>[epuc%NuHPsWuHj
U"2EaQ,qZ*$ORbR>_GTZfhmA>hE*j5Y24WTGqZdT9-0l]OsL;:(&'etfYuHRd$gZ%
U"L$EevH[nXq#pK$RpHWYwHTi/G&RGsp+r5<X-8j#F3\QSgGj;tl_2surfn4(G#6b
U"FdO7\F%rM#3<Q1/8Tm&.B3obFYa_S1uw?m_9K'm#c00a=Dgebn&:Rwfm\j\PmL*
U"q^6^_aFsxL'WMgeQ\V.vA&IKHiuFS8(kLh$)7I\Kwd[j,;G#(cX#AzF_9-8NiDu
U"mw=A^gT\=_UmQBXIq#++[8\rg#>#7l4>aFVPhTw;nHgcIhfsj_3#b$OZk$$]jgt
U"R]k3w,F/?9Ia?vcna,GbmBQ31X/t)\<E(6qh_k;?IX<:[C0ss=/1/'qO1hPLHp\
U"(qQ/b_[c4>jDRa\8Hn9XO/BQc2>)$\+DB4L=&O%AKRBlWr/QZ3IG=2S,c&mHnN_
U"9oI6/(p>GwLlLZ%KB9Bm]o\puWPo[ClXY?X=EXgkakM9HRxTPXYj$L5?(<CEQ9n
U"Du>\NRUiR\5\+z'GqGDG:+VYf:*:.:Nn0jgGPe0ZK\et9FvrbIusAE,y1beX]-O
U"xwB2Yq3Oj^vosXN]QEV_#9=F[w#kR']dU3U2rJ9<<gWrW5/Ep:5*^.QB&%LI^2;
U"X$o]spA]3\rbxvXZ]RfabPjffV-:gmtf[Iv4SF7ThVu^'C4$LsdG.m,\+f4.&px
U"d=s];,2-KvSHc9KZp#t'c8a9^7w*?Z]gWltR01Usc7;4[BD(.Pg=+;JjfK0N1Vs
U"6g'je2qseDl2^$D$uWxQjZZ4&MWFk2#w^[-CTzVzK6bq(VB$4(Jh6o98oT./oCK
U"D[u^HmO<G(4gEg*z=QL+$aR9lqE$B^:'GF'T.?[:x&%up&'%9%9%%'%-%1pw&P5
U"o++m'/E%%&za%%%0%%%%%%%%%%%E%*/P%%I%%F>2A;3XIWS?2&Gup&%'9%9%%'%
U"-C%)0BXPvIu(Ze1%(%uC%%%.%%%%%%%%%&%Ej%/PX%E%%j%fwym%Sgfx%up*+%%
U"%%%%'%'%&?%%%&kR%%%%%
END SUB
V2
CLOSE:IF S=167AND B&=11810THEN?" :) 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\11810,219);:END SUB
'>>> Page 1 of EARTH.ZIP ends here. Last page. TCHK:167
