WORLDglobeQ &1:0:0:0: w"":#0;5;4;a$:20,0;:"":"":#0;5;6;a$:20,0;:"" ALOADING ~WORLD GLOBE~ @} =| ? {~@p? P[) ` ?X ?_H ` ssgg`Ǐ ?>p( ~~sgoÏ  <?_$ O@ pHv$|Vgsggg@?' /@\x\tggg?rY@9O;~#+~@?/ p@< p?H ?$p8I" ϫ1 Z0!||KpB ?@ p8JD0@ ϫ F00}!||+ߙ` X8(*((( HA(((*( T~8o>>|>>|B8"8 (*((( ?(((*( 83? 0nffffB 8D p   ?x7RDn< D&p~fffD 8"H@p  *"` ;`8 >@PBp@|~ffDD8$p J ((@ RD!>cC ?(Ӟ @@H<p?<H8E`J ((@ T|wA?(|a(7<!ZTOx~|")$F"I"DD  (?V@ZRDa'H$)"HA"""$"0p(o0x )"`hD$D D" (uR8ҥ (ƂI%$" PD"` |8#5*Bz)$ !(|8d?)U*RD!!I$@ `CD`0RU*I"@<|AI$H A6ک3U)I I"DD@ 9?FFFFGGGGGGGGGGGGGGGGGGGGGFFFFFFFFFGGGGGGGGGGGGDGGGGFFFFFGGGGGGGGGGDDGGGGDDGGGGGGGGGGGGGGGDGGGGGGGGGGGGGGGGGGGDDGGGGGGGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFVVVVVVVVVVVVVVVVVVVVVVVVVGGGGEEEFGGGGGGGGGGGGGGEEEEGGGGGGGGGGGGGGGGFFFFFFGGEEEEGGGGGGFFDFFFFFFGGEEEEGGGCCCCCCCCGFFFFFFFGEEEEGCGGCCCCCCCCFFFFFFFFEEEEGGGGGGGGGDFFFFFFFFFFFFGGCGGCCCCCCCCGFFFFFFFFFFFFGGCGGCCCCCCCCGGGFFFFFFFFFFFFGGGCGGGGGGGGGDDGGGGFFFFFFFFGGGGGGGGGGGGCCCCGGGGGFFFFFFFFFFGFFFGGGGGGGGGGGGGGGGGFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGDEEFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGwg Z(&r\( ----------------------- - WORLD GLOBE II - - by J.M.Weightman  - - - -ECLIPSE SOFTWARE:1984- ----------------------- To restart press GOTO 1 ENTER POKE 09685:MK2 0:0 =" "0 =""0  09\,0d:0:0:0:0 ::0j\,0:instr=0:add=0:hp=0:instr:st=0:0 0"":0 :b$="":hp=0:0}L,0:#0;0 ;0;0;"   Listed location? (Y/N) ",:0:0:"N"0  2 0 >&b$=a$(f,0 ):l$=a$(f,0 ) ?5lat=l$(00):l$(0)="S"lat=-lat @2lg=l$(00):l$(0)="W"lg=-lg AIlat>0Zlat=0-lat:lg=lg+0*((lg0)-(lg>0)) FKlat<-0Zlat=-0-lat:lg=lg+0*((lg0)-(lg>0)) PL0,(lat):0,(lat<0):lg>0lg=lg-0h:0Z Xlg<-0lg=lg+0h ZDh=(lg-0h*(lg/0h)):0,0:h0Z0 n!h0h=h-0h:0 xh=h-0:0,0 0,(h<0):0,h:::RDC=(*0):0;"Lat.";0;RDC;0 ;"WORLD GLOBE";0;0;0;"Long.";0;lat;"";("S"lat<0)+("N"lat>0);0;lg;"";("W"lg<0)+("E"lg>0):0;0,0;"";0,0;" ";0,0;"";0,0;0;0;(0+C$-00C$<"9"):0;0,0;"start @";0,0;"Lat:Long";0;("fast"add=0-)+("norm"add=0)+("slow"add=0);0;l$;0;0;"mode";0;b$;0;""+("45"add=0-)+("15"add=0)+(" 1"add=0):#0;RDC;0 ;"Press to rotate WORLD GLOBE":st=0:0 :0:0 0,hp;"KEYS";0,hp;0;"";0;0 ,hp;"Fast";0 ,hp;"Norm";0 ,hp;"Slow";0 ,hp;"COPY";0 ,hp;"Pick";0,hp;"Quit";0,hp;"Help";0,hp;0;"":hp=0 0A=0:B=0:c$=:c$="Q"0 0c$="H"st=0:hp=0:instr:0 c$="P"00 ^c$="C"f=00 :0+f,0;" ":f::"ECLIPSE SOFTWARE:1985":0 c$="F"add=0- c$="N"add=0 c$="S"add=0 'B=0C$="5":lg=lg-add:0A 'A=0C$="6":lg=lg+add:0A )A=0C$="8":lat=lat-add:0A )A=0C$="7":lat=lat+add:0A st=00 i0:0~,0V:0,0:0,0:-0,0:0,-0:0 0 :0,0 ;"Press  P  to start":٥*0+0;0,0;y$:0 :0;"J.Weightman:ECLIPSE:1985":0;0,0;0 ;"INSTRUCTION PAGE",:0:0,0 ;"(5678)to rotate globe";0 ,0 ;"mode:45(3hr/long)";0 ,0 ;"mode:15(1hr/long)";0 ,0 ;"mode: 1(4mn/long)";0 ,0 ;"from printer";0 ,0 ;"location";0,0 ;"program";0,0 ;"from instruction page":0 : %w"":#0;0 ;0;" 1=Cities 2=Countries 3=Islands 4=Features >Select 1,2,3 or 4 " &00:<"1"Ŧ>"4"0}L,0:0& 'cc=0<*(-0):0 ::"WG >1< >2< >3<":f=00:f,0;(f+0@);0;A$(cc+F,0 );0;A$(cc+F+0,0 );0;A$(cc+F+0(,0 );0;(f+0@):f:cc=0x0:0:f=00:0+f,0;" ":f:f=00:0 +f,0;" ":f:0:0 0gcc=00:0:f=00:0 +f,0;" ":f:0:0 1f=00:0,0-F*0:0,0:f:0,0;" Select column by number(1,2,3) " >80}L,0:0:q$=:q$<"1"q$>"3"0> Cec1=q$-0:0,0;"WG",,0,c1*0 +0;"";c1+0;"":f=00:f,0;0;0C1=0;" ";;0 ;0C1=0;" ";0;0C1=0;" ":0,0-F*0:0,0:f:0,0;" Select place ~row~ by letter " J80}L,0:0:q$=:q$<"A"q$>"T"0J M(f=(q$-0@)+0*c1+cc:0> E$="Latitude":0:0 :l$="":0::0,0;٥*0+0;Y$:val=0Z:len=0:0,0;"Range 0 to 90(N/S)";0 ,0;0;"Enter "+e$+" in the format",;0;0 ,0;e$+"=52N (or 34S)" T0;"Latitude=";Q$:Q$<0űQ$>0q$(q$)"N"q$(q$)"S"0  q$(̱q$-0)>val0 0:l$=q$+":":0:e$="Longitude":val=0:len=0:0,0 ;"180(E/W)";0 ,0;e$;0 ,0;e$+"=0W (or 154E)" U0;"Longitude=";Q$:q$<0űQ$>0q$(q$)"W"q$(q$)"E"0  q$(̱q$-0)>val0 %0:0:l$=l$+q$:0? q$>0~~0 ~~ <~~<ls ߀666666 ?go{s>< ?>c>`>cc> >`~cc> >c>cc>>cc?>0  ??gsysg>c >o`>>cccc~c~cc~>c``c>|fccf|`~```~```>c`oc>ccccc? ?cc>flxlfc`````cwccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c>ccccc>cccc6cccc6c66cf< 0 `0 xx<~3|00<>f>00>33>000>ff>>ff><``|fff8<60<88<6~|ffffff>0000<`<|<ffff<ff<<ff<<~ 0~ 8  xx<>@@>Nmc `߀ ňɂ{tmf^WPHA:3-&  xpib[ T NHC> 9&5,23/:-A+H*P*W*^+f-m/t2{59>CHNT[bipx #(,059=BFJOSW[_dhlptx|<3-%(/(4%8+6+A)G1M1X1c3n3t-y'{ }u opxŔə#Ӛ&ՠ(נ.ڧ+ק3ܬ3+ܛ4@@FG907:|C|RPwZj__o\tSqEfCl7`HVNGP;O3L.I&J OPWSZ `nu{ria XK@2!-)#1:<;=   5ߪ<ߴ>5ߪKIT]VRKVsTxaoctVsR`otyc^URŭ1/x/r2SO gnw  j ^VhxwvfdldxYw\O u|¶ʧӞؘވyi^TKG@66GZew}nc[^blueTIIT\eͫѥ՜ޡ毻ⴿ߸ݴӾԿۺ޼฾涶궭{wqllgacgj_WY^]O߿FKNIB>DA>FLLDJ>63?CKvLTVaessx~|qpu|ljrslrxwrr{}}w|x{~zfVC;=C973964<8/26AB:A;8<56<CVte{^t^itFAwJyNTFrZpLkLpZrZi?kFkBk>tBt>>::@6@tBy3y-1{},y%{"tini"t!w(},ryr i gG2'21<86SPQa5^0g*e$^'Z"g,0,.(1,0,161/,, *!"*#), R ^ ZEZMSO`_uRu\tݶڷؼμھݶ,(|)݇%ڃ!Մ%ڇ#׋&ڐ,#א$ו&ؖ#א!Չ!Ս$ד!ՉÀǀ{{À>2.20<2&[!~2[!YR~2[!~2[!YR~2!Y"2&::G>|24:G:4ƀ:4G>2.: G>|24: G:4G>X:4X20J*2'<2&!_"_Ç:.G:6O>_:8G:0G>Wç:0G:8G>Wͺ$û:0G:.O":.26:028>2&>~ހG><>>22 2"2$Ϳ: G:42 :42:GC:,G5:4G: 2 N:4G:2N:,G'5:Gb:42$h:42": Gʗ:,Gʉ:4G:"2"â:4G:$2$â:,G{É x2 y2 $x2y2: G:*|24:G:(|24:G:*|24: G:(|24G G>OOxAOX!)0}