ZXTape! 0Created with Ramsoft MakeTZXsc @OG4*** STAR CHART *** SCT.01 1.11.83  1983 BRIDGE SOFTWARE 8050r /n=-:k=n:i=300000u32142}3 8m=(i+2):mnק/,24:n=m:m>4i: ""i=32143}:i: F#0;1,10 ;m;1,29;;i/3-9999'  d=(i+1):dhdi: #h=g-i:h=h+256*(h<0) hhhi: h=*h/128 2d=2.04203523*d/256-0.471238898qF9 sd=d:cd=d:ch=h l1=sd*s5+cd*c5*cH  l=l1  l<0l>/2i: z1=(sd-s5*l)/(c5*l) z=z1 (h)=1z=2*-z z=2*z/-q z>3z=z-4 "z<-1z>1i: $by=2*l/:x=128+125}*z*(1-y^2):y=20+150*y:k=k+1 .(m=4x,y:.1}L,30:i: 8:m=3x,y:-1,0:.1}L,26:i: Bfm=2x-1,y:1,1:1,-1:-1,-1:.1}L,22:i: _m=1x-1,y:2,0:x,y-1:0,2:.1}L,16:i: m=0x,y+2:2,-2:-2,-2:-2,2:1,1:2,0:0,-2:-2,0:0,2:.2~L,12 :.2~L,15:i: i  B"Enter month (1-12) ";mo:bp:mo<1mo>12 4000 ;"Date (1-31) ";dy:bp:dy<1dy>314010 o"January","February","March","April","May","June","July","August","September","October","November","December" :i=/mo:m$:i: <"Hours (0-23) ";ho:bp:ho<0ho>234100 >"Minutes (0-59) ";mi:bp:mi<0mi>59;4110  hTclls:#0;1,0;"Select aspect - press S,E,N or W" m""4205m ra$=:a$=""4210r |4lh=0:hh=256:hd=255:ld=0 &a$="n"q=0:ld=59;:bp: 'a$="e"q=1:lh=128:bp: 'a$="s"q=2:hd=196:bp: 'a$="w"q=3:hh=127:bp: 0 4210r $ :skycolour jdays=dy+(mo2)*((mo-1)*63?/2)+(mo>2)*(((mo+1)*30.6t)-63?) Cg=days*0.065709}p-17.38 =p+(ho+mi/60<)*1.002743Y 0g=g+24*(g<0)-24*(g>24) g=256*(g/24)  p constants 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 s5=.788010754I c5=.615661475 8 q$="WNESWN" Xmain=8000@ ]start=8060| `restart=8085 bsdate=4000 gmenu=8110 lstime=4100 qclls=8400 vsaspect=4200h skycolour=5000 smap=1000 save=8300l bp=85004! z$(32 ) L x: :main @#236099\,99c:300000u J0:7:5: T"SC$" Y>#0;1,0;" Still LOADing -let tape run " ^20:0:20,0;:"nsg""a" h320,0;:"nscz"300000u,2148d r 6000p |sdate stime skycolour:saspect 7:1:1: @0,0;m$;" ";dy;0,22;ho;".";mi;" hrs." _0,42*:255,0,-:0,-24:0,18:0,24 20,0;7;q$(q+1);0;" _ ";7;q$(q+2);0;" ";7;q$(q+3);0;1;z$ Bbp:#0;1,0;"Magnitude Star no. " skycolour:smap clls:bp:#0;1,k<100d;"Plot halted - ";k;" star"+("s"k>1)+" plotted";1,5;"complete"i=32145} ""8105 =""8107 bp:#0;0,0; " Another Time, Date/time, Aspect SAVE/COPY starchart " ""8115 i$=:i$=""8120 !i$="a"bp:saspect:8085 i$="t"bp:stime:8085 $i$="d"bp:8200 :8085 i$="s"bp:save:8110 i$="c"bp::bp:8110  8120 sdate @bp:#0;1,0;"New time? Press Y or N" i$=:i$=""8215 i$="y"bp:stime: &i$="n"bp: 0 8215 lJ0,0;"Display name? Max 10 characters";1,14;a$ qbp va$>10 bp:8300l 9#0;1,0;"Cartridge or Tape ?" i$=:i$""8330 i$=:i$=""8335 i$="t"bp:clls:a$ $i$="c"bp:clls:*"m";1;a$  5#0;0,0;z$'z$;0,0;: !4.2~L,24: #("60000`:*"m";1;"SC$" #2,*"m";1;"nscz"60000`,2148d #<#*"m";1;"nsg""a",168 #"sc"8000@ #"SC$" #"nsg""a",168 #"nscz"60000`,2148d #3,20:9100# LSC$ @րV8888888??88???88N88888???88?? |??8888888??88??0~0`1`88N88888??x8???00???8?888?888888888880 `0?8?888?888888888880~x6?8?888?88888888888??8?888?8888<88888888888?088888A`x?88888```88888@` `8 h0` l?a?` 8?@0€?`0(` ?0~<B@>@>>B `|><>>B`@B @@>>~>>>B>~>>>Z~>~<>~$@0>>          8888888888888888888888888888888888888888888888888888888888888888ynsg Xր>>>~~>>w%Ew?(88|8w%'?wU%Uw?``````llll<@<B<BBBBB<nscz d`րf7ŏd>KQF7'G۝Rx0^kUN!u t~#?!ؒ Pz9yumF^}ZVP9H:9;7<62d'=%C KZ e_'ѝv5mm6) ?c܄4ǃɂ)w}||wwwvGqq(ognBkCkMjih;hwgmfcw\[[ZYGWRQONM3I]II^GD CAA<99979442006.;..%%#)7r:9  5  JRV eI(ezB3(ad5$BhIֶܸ ?h4̯e`Ϋ+-Ш!$N,%&|+ע _֠?!ݛȚߚX'_05ޔƑ==̐ `̍ƌbnȋe܊‰*kӇsHw҂'O؀~~}} |L|||{B{{zz#zzzzQy]yyyxw>wNwwww vvPuuuctthsssrsqqq p'pQpppo'o'o(oo'nlnnn m@mdmm.l1ll.k+jji5i\iih>gJgug}gg@fDf!eeeed/ddd:cc\bbbb.a.aaa```k__M^/]/]]]]]\-\.\5\\0[@[[[ZZAYY4XXGWIW%V1VV*UU_TSxRRQQP0P4P;PFPfPkPP$O;O;O?OWOoOOONN$N-N3NONNMMMK KuKKEJJ|IIIxHHHH*G3G:G[G]GFFFCDD;CCC[B\BBB7A9AAA@3@H@U@a@@@???4>9>}>>>==;&;89L9k9{9999e7f7777;4V440222?2Y2w222;000.3........,,,8,;,B,,-)9):)D)\)))'''6''''%%'%Q%%%%% ####7!!!'7IVjk8]1=>@hxJnIyFTt1FV> I I      # % 8        < E P T v   'Ef*IMPRLLQ