ZXTape! 0Created with Ramsoft MakeTZXns SA@1LUA}*** STAR CHART *** SC3.08 15.02.84  1984 BRIDGE SOFTWARE  8055w x,y:x,y+2:2,-2:-2,-2:-2,2:1,1:2,0:0,-2:-2,0:0,2: #x,y+2:2,-2:-2,-2:-2,2:1,1:2,0:0,-2:-2,0:0,2: ->x-1,y:2,0:x,y-1:0,2: 7x,y:-1,0: dx,y: Oclls:c=first:n$="n"#0;1,0;"Mags 0- 1 2 3 4+" i=firstlast4 $""Ʀ" "i=last:s=1:i: 4#0;1,28;(i-49996L)/4  d=(i+3):dhdi: ?h=LST-(i+2):h=h+256*(h<0):hhhi: h=*h/128 d=*d/256-/2 sd=d:cd=d:ch=h l1=sd*sl+cd*cl*cH  l=l1  l<0l>/2i: z1=(sd-sl*l)/(cl*l) z=z1 (h)=1z=2*-z z=2*z/-q z>3z=z-4 "z<-1z>1i: $iy=2*l/:x=128+125}*z*(1-y*y):y=20+150*y:k=k+1:n=n+1 .#.05|L,y/5:(i+1) 8 n$="n"i: p$="" /i50312p$=s$((i-49996L)/4)  clls:#0;0,0;"Mag ";(i+1)/10 -2;0,9 ;c$(i);" ";p$'"SPACE to continue- ENTER to halt" *1;x,y:(i+1)<45-1:-1,0:1,1:1,-1:-1,-1:0 4 5 >1;x,y:(i+1)<45-1:-1,0:1,1:1,-1:-1,-1:0 H 5 R=""2090* \=" "clls:i: fclls:i=last:i:s=10 : prp:2090* K"Enter year (1975-2000) ";yr:yr<1975yr>2000rp:4000 leap=(yr/4)=yr/4  B"Enter month (1-12) ";mo:mo<1mo>12 rp:4050 bp ;"Date (1-31) ";dy:dy<1dy>31rp:4060 L"Jan","Feb","Mar","Apr","May","June","July","Aug","Sept","Oct","Nov","Dec" #bp:4080:i=/mo:m$:i: O"Time - hours (GMT 0-23) ";ho:ho=ho:ho<0ho>23rp:4100  bp >"Minutes (0-59) ";mi:mi<0mi>59;rp:4110 bp: 6o0,0;"Latitude ";1,0;" (-66 to 66) ";lat:lat<-66Blat>66Brp:41506 @2bp:sl=(*lat/180):cl=(*lat/180) J|0,0;"Longitude";1,0;" (-180[W] to 180[E]) ";long:long<-180long>180rp:4170J Tbp: hTclls:#0;1,0;"Select aspect - press S,E,N or W" m""4205m ra$=:a$=""4210r a$="N"a$="n"q=0: a$="E"a$="e"q=1: a$="S"a$="s"q=2: a$="W"a$="w"q=3: 0rp:4210r $ :skycolour Hclls:#0;1,11 ;"COMPUTING":1,20:bp jdays=dy+(mo2)*((mo-1)*63?/2)+(mo>2)*(((mo+1)*30.6t)-63?) $5300:i=1975yr:b$:i >Ds=days+365m*(yr-1975)+((yr-1972)/4) Ns=360h*Ds/365.256 SLST=days*0.065709}p-17.38 =p+(ho+mi/60<)*1.002743Y+long/15 +LST<0LST=LST+24:5040 ,LST>24LST=LST-24:5045 LST=256*(LST/24) +Ns>360hNs=Ns-360h:5055 (Ms=Ns+279.04147 N-282.510396 AT )Ms<0Ms=Ms+360h:5070 /Ec=360h/*.01672{a*(*Ms/180) lambda=Ms+Ec+282.510396 AT ,lambda=lambda-360h*(lambda>360h) ;delta=180*((.39768K*(*lambda/180)))/ ;alpha=180*((.91752j9*(*lambda/180)))/  &alpha<0alpha=alpha+360h Halpha=(alpha+90Z*((lambda/90Z)-(alpha/90Z)))/15 =Ar=180/*(((*delta/180))/(*lat/180)) As=360h-Ar (FT=180/*((-(*lat/180)*(*delta/180)))/15 2GSTr=24+alpha-T 4"GSTr<0GSTr=GSTr+24 7#GSTr>24GSTr=GSTr-24 <GSTs=alpha+T >"GSTs<0GSTs=GSTs+24 A#GSTs>24GSTs=GSTs-24 FTo=.065709}p*days-b$ KTo<0To=To+24 Z3GMTr=((GSTr-To)+24*(GSTr24time=time-24 }7:skl=0 OtimeGMTr-.4Ltime>GMTs+.4L6:0:0:skl=6 =time>GMTr-.4LtimeGMTr1:1:skl=6 =time>GMTstimeGMTs+.4L1:1:skl=6 0time>GMTrtimeGMTs5:0:5 (lh=0:ld=lh:hh=256:hd=hh q=1lh=127 q=3hh=128 %lat0q=0ld=127 Dlat<0q=0ld=lat/180*256:hd=ld+128 Dlat0q=2ld=lat/180*256:hd=ld+128 %lat<0q=2hd=128 : >"17.397221","17.413525","17.363611","17.379644","17.395558","17.411473","17.361678","17.377592","17.393506","17.409421","17.359625","17.37554","17.391454","17.407368","17.357573","17.373487","17.389402","17.405316","17.355521","17.371435","17.387349","17.403264","17.353468","17.369383","17.385297","17.401211" p constants uvz$(32 ):bp=8950":clls=8940":clls:20,30;z$;#0;1,11 ;"COMPUTING" zGi=0:sd=i:cd=i:ch=i:h=i:g=i:m=i:r=i:l1=i:l=i:z1=i:z=i  x=i:y=i sl=i cl=i 8 q$="WNESWN"  l$(5) Xstart=8060| `restart=8085 bsdate=4050 dspos=41506 gmenu=8110 jsyear=4000 lstime=4100 vsaspect=4200h {starname=2050 skycolour=5000 smap=1000 save=8630! rp=8960# findstar=8800`" names=8700! conname=8750." z$(32 ) s$(79O,16)  7200  i=179O s$(i) i  "Diphda","Mira","Menkar","Alpheratz","Mirach","Almach","Caph","Schedar","Ankaa","Algenib","Enif","Scheat","Markab","Alderamin","Achernar","Acamar","Algol","Mirfak","Hamal","Polaris" *"Kochab","Pleiades","Pleiades","Pleiades","Pleiades","Pleiades","Alcyon","Aldebaran","Elnath","Rigel","Bellatrix","Alnilam","Betelgeuse","Capella","Castor","Pollux","Sirius","Adhara","Canopus","Avior" 4"Miaplacidus","Procyon","Suhail","Merak","Dubhe","Phecda","Megrez","Alioth","Mizar","Alkaid","Alphard","Regulus","Denebola","Eltanin","Hadar","Menkent","Rigil Kentaurus","Spica","Acrux","Gacrux" >"Beta Crucis","Gienah","Arcturus","Zubenelgenubi","Atria","Alphecca","Ras-Algethi","Antares","Shaula","Sabik","Rasalhague","Kaus Australis","Nunki","Vega","Altair","Albireo","Deneb","Fomalhaut","Al Na'ir" L x: :main @#236099\,99c:49999O J 9100# ^$20,0;:"nsdata1""a" h620,0;:"nsdata2"50000P,4312 k220,0;:c$(88X):"nsdata3"c$() n820,0;:x(4,87W):"nsdata4"x() r 6000p wyr=1984:leap=1 |"mo=1:dy=1:m$="Jan" ho=23:mi=30 !lat=51.5N:long=-0.2~L 3q=2:sl=.78260816HY%:cl=.62251464] n=0:skycolour l$=lat:0,0;m$;" ";dy;" ";yr;20;"Lat ";l$:l$=long:1,0;ho;".";mi;" hrs.";20;"Long ";l$;0,31;("N"lat>0)+("S"lat<0);1,31;("W"long<0)+("E"long>0) M0,16:0,24:255,0,-:0,-24 20,0;7;q$(q+1);skl;" _ ";7;q$(q+2);skl;" ";7;q$(q+3);skl;1;z$ {bp:#0;0,0;" Select Constellation or change Year Date Time Location Aspect " ""8115 i$=:i$=""8120 $i$="A"i$="a"saspect:8085 &i$="T"i$="t"bp:stime:8085 +i$="D"i$="d"bp:8600!:8085 +i$="Y"i$="y"bp:8675!:8085 %i$="L"i$="l"bp:spos:8085 i$"c"i$"C"rp:8120 clls:n=08250: F#0;1,0;"Clear screen first? Press Y or N" a$=:a$=""8220 &a$="y"a$="Y":8085 0a$"n"a$"N"rp:8210 5bp :k=0:s=5 Dc=0:0,0;"Enter constellation name use All, Any or IAU abbreviation";0,25;i$:i$38330 Nwclls:i$="Any"i$="ANY"i$="any"i$="Any":k=0:n$="n":c=1+(*87W):findstar:conname:8380 Xoi$="All"i$="all"i$="ALL"i$="All":k=0:first=50000P:last=54308$:names:smap:8380 b-#0;1,11 ;"SEARCHING " lc=0:i=188X vc$(i)=i$c=i:i=88X i c=0#0;0,0;""+i$+"";" not valid name -";1,0;"see constellation list in manual":rp:rp:8260D names findstar clls:bp:#0;0,k<100d;"Plot halted - ";k;" star"+("s"k1)+" plotted";0,5+(k<100d);"complete-"(s=5);1,0;" Another starchart/COPY/SAVE " Js=5k=0#0;0,15;" ";c$(c);" not visible" ""8385 i$=:i$=""8390 !i$="S"i$="s"save:8380 'i$="C"i$="c"85004!:8380 i$"A"i$"a"rp:8390 ! 8110 !4bclls:#0;0,0;" You wish to COPY on printer? Press Y or N" !>i$=:i$=""8510>! !Hi$="Y"i$="y"clls:: !Ri$="N"i$="n" !\rp:8510>! !sdate !@#0;1,0;"New time ? Press Y or N" !i$=:i$=""8610! !i$="Y"i$="y"bp:stime: !i$="N"i$="n" !rp:8610! !J0,0;"Display name? Max 10 characters";1,14;a$ !a$>10 rp:8630! !=bp:#0;1,0;"Cartridge or Tape ?" !i$=:i$""8650! !i$=:i$=""8655! ! i$="T"i$="t"bp:clls:a$: !-i$="C"i$="c"bp:clls:*"m";1;a$: !rp:8655! !syear !C#0;1,0;"New date ? Press Y or N " !i$=:i$=""8685! !!i$="Y"i$="y"bp:8600!: !i$="N"i$="n" !rp:8685! !Kclls:#0;1,0;" Print details? Press Y or N " "n$=:n$=""8710" "3clls:n$"N"n$"n"n$"Y"n$"y"rp:8700! "n$="N"n$="n" """8725" " ".aclls:#0;0,0;" Print constellation name ? Press Y or N" "8i$=:i$=""87608" "=i$="N"i$="n" "Bi$"Y"i$"y"rp:87608" "LJclls:#0;0,15;c$(c)'" Press SPACE to continue" "V 0 "[clls: "`clls "e-#0;0,11 ;"SEARCHING " "js=14 "o""s=10 :s: "tx(s,c)=08870" "~first=x(s,c):p=first+4 "p=cp=p+4:8840" "last=p-4 "smap " ""8865 "s "9k=0i$="Any"c=1+(*87W):8805e" " "'bp:#0;0,0;z$'z$: " .2~L,16+20*: #1,-20: #("ns"8000@ #2"nsdata1""a",168 #<""nsdata2"50000P,4312 #F"nsdata3"c$() #K"nsdata4"x() #P2,0 #Z 9000(# #6:1:1: #'" * * *** *** * * ***** ** * * * * * * * * * * * * ***** * * ** * * ** * * * * * * * * * * * * * *** **** * * *" #''" *** * * * * * * * * * *** ** *** * * * * * * * * * *** * * *" #7'" WORLD WIDE"''8;"for 48k Spectrum" #*'4;"  1984 Bridge Software " #G#0;6;0,0;"Still loading - let cassette run" # XPscCetAndCasPhePegTucHyiSclCepEriPerTriAriForUMiTauCamRetHorDorCaeOriAurLepColPicGemMonLynCMaCarPupVolCMiVelCncChaUMaHyaPyxLeoAntLMiDraSexCrtCenMusVirCruCrvComCVnBooLupOctCirApsLibTrACrBSerHerScoNorOphAraPavSgrTelLyrSctCrAAqlVulCygSgeCapDelIndAqrMicEquPsAGruLac WP\hpt$(48DHLPTX\dltx| $(,04DTdlp (48DHTdhpx(04<@,H`Lhx|4HP` 4H(8lp@X`lx 0LTl08,@Tp,@"ll"hgmrlzxyHY%]QWNESWN0.2 tar|estardatpo6enyeatimaspechtarnamkycoloumaav!#indsta`"ame!onnam."# ODiphda Mira Menkar Alpheratz Mirach Almach Caph Schedar Ankaa Algenib Enif Scheat Markab Alderamin Achernar Acamar Algol Mirfak Hamal Polaris Kochab Pleiades Pleiades Pleiades Pleiades Pleiades Alcyon Aldebaran Elnath Rigel Bellatrix Alnilam Betelgeuse Capella Castor Pollux Sirius Adhara Canopus Avior Miaplacidus Procyon Suhail Merak Dubhe Phecda Megrez Alioth Mizar Alkaid Alphard Regulus Denebola Eltanin Hadar Menkent Rigil Kentaurus Spica Acrux Gacrux Beta Crucis Gienah Arcturus Zubenelgenubi Atria Alphecca Ras-Algethi Antares Shaula Sabik Rasalhague Kaus Australis Nunki Vega Altair Albireo Deneb Fomalhaut Al Na'ir eaMJanaNon~qnayB 17.409421 \s p3 |٥Tambd Z֤eltᅸlph58Igytva̹stnӁ@st53ϴUOmtmۧmt~´im;~k}'ҨI>Ivnsdata1 Xju>>>~~>>w%Ew?88l88|8w%'?wU%Uw?``````llll<@<B<BBBBB<nsdata2 P= *f({0 ), +,+,C1-.. . . 6F (! '$*)*:'@'<'>(2(:(0&97t%9%;~>8$P RGh9JX D5 %Y+ &b#Q$*aB',u''u'-~'6'%',''(*ds*!k**}-,0*0+L0)2 p3$&3$.3#+40g7<1i='>+@7A ZA%KC.iC)F'OF)ZHƷKӌM4ϧM!U!UV*=(<}*=r)?'F(Cf$JV(LZ,NV *b+!+UG$'V<$(]20,:A,OA(BE)/M+ٹV*=065 =6B31*12(4( 5 2 6 4*l 16x 3 2 3' 1) 2* 3/32;6-'5369|-:1;w142556/?56`57h2:b/:f/M5H'2B4C4G6G5c3CU3K^ 3h# 6m( 2r$!4FB!0H8!2L@!/MK!5OB!1V]#3O$.c1$2e/$0r9'3_'5e'4n'3v(5^(5si(5_(2_*3g*.n*.w*6w-1-4-2-405{&01801K0.405C03<0.D05D111521~212633,44_43h40^6170727/81<80B86F81E:6#<6\aA?<8@l@C@AAA7?@; B ? >:8B<??>9C8< A B=B<;>;AB>A.= 1<:@>?A?<@98=?9CBBCC?#A&=-C"C??C @ V AQ AJ BW A @ ? B 8 < A B 8 > 9 B 96 :6 @< AB =G Be <s > ^ ;#` ?#B :%r ?%a B&F B'J 9'r B(n ?(^ >(L C*] =,v A-u 8-O =.O B0U ;0T =0{ <1k A1c >2{ @3x ?6s > > ; ? C = B >! .@/B/@$C(@3@4>5CBCJ:'#@*(A*'@-+:-C@-6701<;'A="A1DB5M?3:3;4C4?4C4B5B798vB9>9tC9C9?:B:uA;9;B;y@;:<|A<B>>@C@@A?A;5B=>>;?B?@BA7oA7m?8{:=`9=j;>b:?kC@j;:M@?M0?@=DBG8ICI;KAL8M7N;O>O>P?R9R=BwADBDvAECGCH=L=Qr@V{C\u@CAI@O@Y:cADQ?E^AF_=FdBFf:HQCIc>In=I]BIc@Ig=KiCMZ:MY@M\ @F4 @H3 8T4 @\+ B]/ <_) A` 8a, >a' >b. f+ Cf( S>!:SF!ASH!?T;!?T_!`!#BO$=[B$9\4$=\=$=]C$=]>$@_E$9`=$CbJ$8eF$Af9$Bi=$9i2$=mD$Bn0$=q;$@q1$BuD%:X%C\%>]%>]%?_&=X&?Y&=p&Br &@'7Z'=_'9`'Aa'Ca'9e'Be'Be';h'Ai'7m';x'9x':}'<'C(>[(A\(?\(@]l(7](@](:b(Ae~(=f~(Cg^(?hk(Ckm(:ln(=oh(9{R(@~O(7Z(BX)<\M)9\P)>^X*Bd*Ae*:g*=i*8k*Bk*8m*:p*At*@u*Cv*Bxz*=x*-9-B-B-<-C.Ak/>uf/Aw_/:xk/=yg0?x20>})0A}%0C~?0>50>80<;0B:0?:0?G0@90B)0A$0@0@?0AE0@/0>J0AG0=J0=N1:}!1C}!1>1<182>}2:~2B2>2<292Ax2?2?q2>w2Bm2;x2:2B3A&3?$3?%38*3C)3?.4>\4@i5B5A5?6?6C6B7A7?7B7?7=7:7A7;7C7B787C777A8=>8B?8A?8B88=98AB8<=8@?8=:8768@U8@<88L89@8CK8CI8?C8BO8C@8=P88I8?K9C9= 999? :>,:A+;:;;;>;C9>>>;>C>>>C?>?A?9?@???8{?9?;??m?8j?@m?Bz?AɅ@B@B@?@;@:@A@>@8@;@<@A@A@:@7@<@:@A@C@:@?@;Ğ@?ǝ@@ș@BɠAC\AoA=bABbA?dACXA?NA?MA8IA9CA?IBC:B=8CBcCCtC:C@hCBaCCpC?CAbC?]C@CBxC@UCBtC9C7rC;C@C=CCC9D9,D=4D7/D:)DB=D;8E8#E@%E>(E=E@'E< E=E8!E8!E?"FDFBYF@MFBXGB>G:>G=:H?óHAǸH?ǵHAɴH<ɾHA̷HAͶICkI=tICsIAyIHK>ʕK=wK7yKBЊK?~K;ԉKA~LB͞LBϣLAԢLCէLCקMMB٭M=ګM?ݫMAݳMC޿M<ߺM;M:M?M@M>MCM?N@љN@јN:ҚN9ԛOAnO:nO?[O>YO>gOB\O?gO;`OB`OCdO:hP<ۏPC۔P9۔P;ܖPAܕPAݖQC6Q9,QB3QB1QC/R:rRBxRAoRC|R?lR?tR<}RBR@R=R>lR:uR7iR:aR@wRArRBrR>cRAbRBkSCRTBT=U?PUBPU@QU>YUAQU?QVBGV4V?AV=?WBW>WCWBWBWBWAW:WBXCx-1,y:2,0:x,y-1:0,2: 7x,y:-1,0: dx,y: Oclls:c=first:n$="n"#0;1,0;"Mags 0- 1 2 3 4+" i=firstlast4 $""Ʀ" "i=last:s=1:i: 4#0;1,28;(i-49996L)/4  d=(i+3):dhdi: ?h=LST-(i+2):h=h+256*(h<0):hhhi: h=*h/128 d=*d/256-/2 sd=d:cd=d:ch=h l1=sd*sl+cd*cl*cH  l=l1  l<0l>/2i: z1=(sd-sl*l)/(cl*l) z=z1 (h)=1z=2*-z z=2*z/-q z>3z=z-4 "z<-1z>1i: $iy=2*l/:x=128+125}*z*(1-y*y):y=20+150*y:k=k+1:n=n+1 .#.05|L,y/5:(i+1) 8 n$="n"i: p$="" /i50312p$=s$((i-49996L)/4)  clls:#0;0,0;"Mag ";(i+1)/10 -2;0,9 ;c$(i);" ";p$'"SPACE to continue- ENTER to halt" *1;x,y:(i+1)<45-1:-1,0:1,1:1,-1:-1,-1:0 4 5 >1;x,y:(i+1)<45-1:-1,0:1,1:1,-1:-1,-1:0 H 5 R=""2090* \=" "clls:i: fclls:i=last:i:s=10 : prp:2090* K"Enter year (1975-2000) ";yr:yr<1975yr>2000rp:4000 leap=(yr/4)=yr/4  B"Enter month (1-12) ";mo:mo<1mo>12 rp:4050 bp ;"Date (1-31) ";dy:dy<1dy>31rp:4060 L"Jan","Feb","Mar","Apr","May","June","July","Aug","Sept","Oct","Nov","Dec" #bp:4080:i=/mo:m$:i: O"Time - hours (GMT 0-23) ";ho:ho=ho:ho<0ho>23rp:4100  bp >"Minutes (0-59) ";mi:mi<0mi>59;rp:4110 bp: 6o0,0;"Latitude ";1,0;" (-66 to 66) ";lat:lat<-66Blat>66Brp:41506 @2bp:sl=(*lat/180):cl=(*lat/180) J|0,0;"Longitude";1,0;" (-180[W] to 180[E]) ";long:long<-180long>180rp:4170J Tbp: hTclls:#0;1,0;"Select aspect - press S,E,N or W" m""4205m ra$=:a$=""4210r a$="N"a$="n"q=0: a$="E"a$="e"q=1: a$="S"a$="s"q=2: a$="W"a$="w"q=3: 0rp:4210r $ :skycolour Hclls:#0;1,11 ;"COMPUTING":1,20:bp jdays=dy+(mo2)*((mo-1)*63?/2)+(mo>2)*(((mo+1)*30.6t)-63?) $5300:i=1975yr:b$:i >Ds=days+365m*(yr-1975)+((yr-1972)/4) Ns=360h*Ds/365.256 SLST=days*0.065709}p-17.38 =p+(ho+mi/60<)*1.002743Y+long/15 +LST<0LST=LST+24:5040 ,LST>24LST=LST-24:5045 LST=256*(LST/24) +Ns>360hNs=Ns-360h:5055 (Ms=Ns+279.04147 N-282.510396 AT )Ms<0Ms=Ms+360h:5070 /Ec=360h/*.01672{a*(*Ms/180) lambda=Ms+Ec+282.510396 AT ,lambda=lambda-360h*(lambda>360h) ;delta=180*((.39768K*(*lambda/180)))/ ;alpha=180*((.91752j9*(*lambda/180)))/  &alpha<0alpha=alpha+360h Halpha=(alpha+90Z*((lambda/90Z)-(alpha/90Z)))/15 =Ar=180/*(((*delta/180))/(*lat/180)) As=360h-Ar (FT=180/*((-(*lat/180)*(*delta/180)))/15 2GSTr=24+alpha-T 4"GSTr<0GSTr=GSTr+24 7#GSTr>24GSTr=GSTr-24 <GSTs=alpha+T >"GSTs<0GSTs=GSTs+24 A#GSTs>24GSTs=GSTs-24 FTo=.065709}p*days-b$ KTo<0To=To+24 Z3GMTr=((GSTr-To)+24*(GSTr24time=time-24 }7:skl=0 OtimeGMTr-.4Ltime>GMTs+.4L6:0:0:skl=6 =time>GMTr-.4LtimeGMTr1:1:skl=6 =time>GMTstimeGMTs+.4L1:1:skl=6 0time>GMTrtimeGMTs5:0:5 (lh=0:ld=lh:hh=256:hd=hh q=1lh=127 q=3hh=128 %lat0q=0ld=127 Dlat<0q=0ld=lat/180*256:hd=ld+128 Dlat0q=2ld=lat/180*256:hd=ld+128 %lat<0q=2hd=128 : >"17.397221","17.413525","17.363611","17.379644","17.395558","17.411473","17.361678","17.377592","17.393506","17.409421","17.359625","17.37554","17.391454","17.407368","17.357573","17.373487","17.389402","17.405316","17.355521","17.371435","17.387349","17.403264","17.353468","17.369383","17.385297","17.401211" p constants uvz$(32 ):bp=8950":clls=8940":clls:20,30;z$;#0;1,11 ;"COMPUTING" zGi=0:sd=i:cd=i:ch=i:h=i:g=i:m=i:r=i:l1=i:l=i:z1=i:z=i  x=i:y=i sl=i cl=i 8 q$="WNESWN"  l$(5) Xstart=8060| `restart=8085 bsdate=4050 dspos=41506 gmenu=8110 jsyear=4000 lstime=4100 vsaspect=4200h {starname=2050 skycolour=5000 smap=1000 save=8630! rp=8960# findstar=8800`" names=8700! conname=8750." z$(32 ) s$(79O,16)  7200  i=179O s$(i) i  "Diphda","Mira","Menkar","Alpheratz","Mirach","Almach","Caph","Schedar","Ankaa","Algenib","Enif","Scheat","Markab","Alderamin","Achernar","Acamar","Algol","Mirfak","Hamal","Polaris" *"Kochab","Pleiades","Pleiades","Pleiades","Pleiades","Pleiades","Alcyon","Aldebaran","Elnath","Rigel","Bellatrix","Alnilam","Betelgeuse","Capella","Castor","Pollux","Sirius","Adhara","Canopus","Avior" 4"Miaplacidus","Procyon","Suhail","Merak","Dubhe","Phecda","Megrez","Alioth","Mizar","Alkaid","Alphard","Regulus","Denebola","Eltanin","Hadar","Menkent","Rigil Kentaurus","Spica","Acrux","Gacrux" >"Beta Crucis","Gienah","Arcturus","Zubenelgenubi","Atria","Alphecca","Ras-Algethi","Antares","Shaula","Sabik","Rasalhague","Kaus Australis","Nunki","Vega","Altair","Albireo","Deneb","Fomalhaut","Al Na'ir" L x: :main @#236099\,99c:49999O J 9100# ^$20,0;:"nsdata1""a" h620,0;:"nsdata2"50000P,4312 k220,0;:c$(88X):"nsdata3"c$() n820,0;:x(4,87W):"nsdata4"x() r 6000p wyr=1984:leap=1 |"mo=1:dy=1:m$="Jan" ho=23:mi=30 !lat=51.5N:long=-0.2~L 3q=2:sl=.78260816HY%:cl=.62251464] n=0:skycolour l$=lat:0,0;m$;" ";dy;" ";yr;20;"Lat ";l$:l$=long:1,0;ho;".";mi;" hrs.";20;"Long ";l$;0,31;("N"lat>0)+("S"lat<0);1,31;("W"long<0)+("E"long>0) M0,16:0,24:255,0,-:0,-24 20,0;7;q$(q+1);skl;" _ ";7;q$(q+2);skl;" ";7;q$(q+3);skl;1;z$ {bp:#0;0,0;" Select Constellation or change Year Date Time Location Aspect " ""8115 i$=:i$=""8120 $i$="A"i$="a"saspect:8085 &i$="T"i$="t"bp:stime:8085 +i$="D"i$="d"bp:8600!:8085 +i$="Y"i$="y"bp:8675!:8085 %i$="L"i$="l"bp:spos:8085 i$"c"i$"C"rp:8120 clls:n=08250: F#0;1,0;"Clear screen first? Press Y or N" a$=:a$=""8220 &a$="y"a$="Y":8085 0a$"n"a$"N"rp:8210 5bp :k=0:s=5 Dc=0:0,0;"Enter constellation name use All, Any or IAU abbreviation";0,25;i$:i$38330 Nwclls:i$="Any"i$="ANY"i$="any"i$="Any":k=0:n$="n":c=1+(*87W):findstar:conname:8380 Xoi$="All"i$="all"i$="ALL"i$="All":k=0:first=50000P:last=54308$:names:smap:8380 b-#0;1,11 ;"SEARCHING " lc=0:i=188X vc$(i)=i$c=i:i=88X i c=0#0;0,0;""+i$+"";" not valid name -";1,0;"see constellation list in manual":rp:rp:8260D names findstar clls:bp:#0;0,k<100d;"Plot halted - ";k;" star"+("s"k1)+" plotted";0,5+(k<100d);"complete-"(s=5);1,0;" Another starchart/COPY/SAVE " Js=5k=0#0;0,15;" ";c$(c);" not visible" ""8385 i$=:i$=""8390 !i$="S"i$="s"save:8380 'i$="C"i$="c"85004!:8380 i$"A"i$"a"rp:8390 ! 8110 !4bclls:#0;0,0;" You wish to COPY on printer? Press Y or N" !>i$=:i$=""8510>! !Hi$="Y"i$="y"clls:: !Ri$="N"i$="n" !\rp:8510>! !sdate !@#0;1,0;"New time ? Press Y or N" !i$=:i$=""8610! !i$="Y"i$="y"bp:stime: !i$="N"i$="n" !rp:8610! !J0,0;"Display name? Max 10 characters";1,14;a$ !a$>10 rp:8630! !=bp:#0;1,0;"Cartridge or Tape ?" !i$=:i$""8650! !i$=:i$=""8655! ! i$="T"i$="t"bp:clls:a$: !-i$="C"i$="c"bp:clls:*"m";1;a$: !rp:8655! !syear !C#0;1,0;"New date ? Press Y or N " !i$=:i$=""8685! !!i$="Y"i$="y"bp:8600!: !i$="N"i$="n" !rp:8685! !Kclls:#0;1,0;" Print details? Press Y or N " "n$=:n$=""8710" "3clls:n$"N"n$"n"n$"Y"n$"y"rp:8700! "n$="N"n$="n" """8725" " ".aclls:#0;0,0;" Print constellation name ? Press Y or N" "8i$=:i$=""87608" "=i$="N"i$="n" "Bi$"Y"i$"y"rp:87608" "LJclls:#0;0,15;c$(c)'" Press SPACE to continue" "V 0 "[clls: "`clls "e-#0;0,11 ;"SEARCHING " "js=14 "o""s=10 :s: "tx(s,c)=08870" "~first=x(s,c):p=first+4 "p=cp=p+4:8840" "last=p-4 "smap " ""8865 "s "9k=0i$="Any"c=1+(*87W):8805e" " "'bp:#0;0,0;z$'z$: " .2~L,16+20*: #1,-20: #("ns"8000@ #2"nsdata1""a",168 #<""nsdata2"50000P,4312 #F"nsdata3"c$() #K"nsdata4"x() #P2,0 #Z 9000(# #6:1:1: #'" * * *** *** * * ***** ** * * * * * * * * * * * * ***** * * ** * * ** * * * * * * * * * * * * * *** **** * * *" #''" *** * * * * * * * * * *** ** *** * * * * * * * * * *** * * *" #7'" WORLD WIDE"''8;"for 48k Spectrum" #*'4;"  1984 Bridge Software " #G#0;6;0,0;"Still loading - let cassette run" # XPscCetAndCasPhePegTucHyiSclCepEriPerTriAriForUMiTauCamRetHorDorCaeOriAurLepColPicGemMonLynCMaCarPupVolCMiVelCncChaUMaHyaPyxLeoAntLMiDraSexCrtCenMusVirCruCrvComCVnBooLupOctCirApsLibTrACrBSerHerScoNorOphAraPavSgrTelLyrSctCrAAqlVulCygSgeCapDelIndAqrMicEquPsAGruLac WP\hpt$(48DHLPTX\dltx| $(,04DTdlp (48DHTdhpx(04<@,H`Lhx|4HP` 4H(8lp@X`lx 0LTl08,@Tp,@"ll"hgmrlzxyHY%]QWNESWN0.2 tar|estardatpo6enyeatimaspechtarnamkycoloumaav!#indsta`"ame!onnam."# ODiphda Mira Menkar Alpheratz Mirach Almach Caph Schedar Ankaa Algenib Enif Scheat Markab Alderamin Achernar Acamar Algol Mirfak Hamal Polaris Kochab Pleiades Pleiades Pleiades Pleiades Pleiades Alcyon Aldebaran Elnath Rigel Bellatrix Alnilam Betelgeuse Capella Castor Pollux Sirius Adhara Canopus Avior Miaplacidus Procyon Suhail Merak Dubhe Phecda Megrez Alioth Mizar Alkaid Alphard Regulus Denebola Eltanin Hadar Menkent Rigil Kentaurus Spica Acrux Gacrux Beta Crucis Gienah Arcturus Zubenelgenubi Atria Alphecca Ras-Algethi Antares Shaula Sabik Rasalhague Kaus Australis Nunki Vega Altair Albireo Deneb Fomalhaut Al Na'ir eaMJanaNon~qnayB 17.409421 \s p3 |٥Tambd Z֤eltᅸlph58Igytva̹stnӁ@st53ϴUOmtmۧmt~´im;~k}'ҨI>Ivnsdata1 Xj>>>~~>>w%Ew?88l88|8w%'?wU%Uw?``````llll<@<B<BBBBB<nsdata2 P=*f({0 ), +,+,C1-.. . . 6F (! '$*)*:'@'<'>(2(:(0&97t%9%;~>8$P RGh9JX D5 %Y+ &b#Q$*aB',u''u'-~'6'%',''(*ds*!k**}-,0*0+L0)2 p3$&3$.3#+40g7<1i='>+@7A ZA%KC.iC)F'OF)ZHƷKӌM4ϧM!U!UV*=(<}*=r)?'F(Cf$JV(LZ,NV *b+!+UG$'V<$(]20,:A,OA(BE)/M+ٹV*=065 =6B31*12(4( 5 2 6 4*l 16x 3 2 3' 1) 2* 3/32;6-'5369|-:1;w142556/?56`57h2:b/:f/M5H'2B4C4G6G5c3CU3K^ 3h# 6m( 2r$!4FB!0H8!2L@!/MK!5OB!1V]#3O$.c1$2e/$0r9'3_'5e'4n'3v(5^(5si(5_(2_*3g*.n*.w*6w-1-4-2-405{&01801K0.405C03<0.D05D111521~212633,44_43h40^6170727/81<80B86F81E:6#<6\aA?<8@l@C@AAA7?@; B ? >:8B<??>9C8< A B=B<;>;AB>A.= 1<:@>?A?<@98=?9CBBCC?#A&=-C"C??C @ V AQ AJ BW A @ ? B 8 < A B 8 > 9 B 96 :6 @< AB =G Be <s > ^ ;#` ?#B :%r ?%a B&F B'J 9'r B(n ?(^ >(L C*] =,v A-u 8-O =.O B0U ;0T =0{ <1k A1c >2{ @3x ?6s > > ; ? C = B >! .@/B/@$C(@3@4>5CBCJ:'#@*(A*'@-+:-C@-6701<;'A="A1DB5M?3:3;4C4?4C4B5B798vB9>9tC9C9?:B:uA;9;B;y@;:<|A<B>>@C@@A?A;5B=>>;?B?@BA7oA7m?8{:=`9=j;>b:?kC@j;:M@?M0?@=DBG8ICI;KAL8M7N;O>O>P?R9R=BwADBDvAECGCH=L=Qr@V{C\u@CAI@O@Y:cADQ?E^AF_=FdBFf:HQCIc>In=I]BIc@Ig=KiCMZ:MY@M\ @F4 @H3 8T4 @\+ B]/ <_) A` 8a, >a' >b. f+ Cf( S>!:SF!ASH!?T;!?T_!`!#BO$=[B$9\4$=\=$=]C$=]>$@_E$9`=$CbJ$8eF$Af9$Bi=$9i2$=mD$Bn0$=q;$@q1$BuD%:X%C\%>]%>]%?_&=X&?Y&=p&Br &@'7Z'=_'9`'Aa'Ca'9e'Be'Be';h'Ai'7m';x'9x':}'<'C(>[(A\(?\(@]l(7](@](:b(Ae~(=f~(Cg^(?hk(Ckm(:ln(=oh(9{R(@~O(7Z(BX)<\M)9\P)>^X*Bd*Ae*:g*=i*8k*Bk*8m*:p*At*@u*Cv*Bxz*=x*-9-B-B-<-C.Ak/>uf/Aw_/:xk/=yg0?x20>})0A}%0C~?0>50>80<;0B:0?:0?G0@90B)0A$0@0@?0AE0@/0>J0AG0=J0=N1:}!1C}!1>1<182>}2:~2B2>2<292Ax2?2?q2>w2Bm2;x2:2B3A&3?$3?%38*3C)3?.4>\4@i5B5A5?6?6C6B7A7?7B7?7=7:7A7;7C7B787C777A8=>8B?8A?8B88=98AB8<=8@?8=:8768@U8@<88L89@8CK8CI8?C8BO8C@8=P88I8?K9C9= 999? :>,:A+;:;;;>;C9>>>;>C>>>C?>?A?9?@???8{?9?;??m?8j?@m?Bz?AɅ@B@B@?@;@:@A@>@8@;@<@A@A@:@7@<@:@A@C@:@?@;Ğ@?ǝ@@ș@BɠAC\AoA=bABbA?dACXA?NA?MA8IA9CA?IBC:B=8CBcCCtC:C@hCBaCCpC?CAbC?]C@CBxC@UCBtC9C7rC;C@C=CCC9D9,D=4D7/D:)DB=D;8E8#E@%E>(E=E@'E< E=E8!E8!E?"FDFBYF@MFBXGB>G:>G=:H?óHAǸH?ǵHAɴH<ɾHA̷HAͶICkI=tICsIAyIHK>ʕK=wK7yKBЊK?~K;ԉKA~LB͞LBϣLAԢLCէLCקMMB٭M=ګM?ݫMAݳMC޿M<ߺM;M:M?M@M>MCM?N@љN@јN:ҚN9ԛOAnO:nO?[O>YO>gOB\O?gO;`OB`OCdO:hP<ۏPC۔P9۔P;ܖPAܕPAݖQC6Q9,QB3QB1QC/R:rRBxRAoRC|R?lR?tR<}RBR@R=R>lR:uR7iR:aR@wRArRBrR>cRAbRBkSCRTBT=U?PUBPU@QU>YUAQU?QVBGV4V?AV=?WBW>WCWBWBWBWAW:WBXC