ZXTape! 0Created with Ramsoft MakeTZXHalley   ******************** * * * COMETA DI HALLEY * #* * (* by * -* * 2* Pergolesi Roberto* <* * A* G. F. * F******************** P dprogramma principale n)1420:0:4:4: x.700:1190:1300:180 930 /#0;1,7;"Copy Altri dati" p$=:p$=""150 p$="c" :150 0:4::120x posizione cometa t=a+d1/365.24226i /mc=2**(t-1986.112xC)/76.0081% !mc=mc-2**(mc/2/) mc<0mc=mc+2* e=mc dc=e-ec*e-mc 6dc>.000001m7e=e-dc/(1-ec*e):240 9vc=2*(((1+ec)/(1-ec))*(e/2)) lc=vc+2.9672517=s 3rc=17.9435I*(1-ec*ec)/(1+ec*vc) "pc=((lc/oc)*.3050570n]) ,y=-.952334s)9*(lc-oc) 6 x=(lc-oc) @ l1c=(y/x) Jx<0l1c=l1c+ T l1c<0l1c=l1c+2* ^ l1c=l1c+oc h rc=rc*pc r-ne=2*/365.24226i*d/1.00004O |!ne=ne-2**(ne/2/)  me=ne+ee-oe le=ne+2*ze*me+ee le>2*le=le-2* le<0le=le+2*  ve=le-oe %re=(1-ze*ze)/(1+ze*ve) 3rc0az=360h-az /als=gga*(ds*sl+ds*cl*(tsl*/12 -as))   input dati _7,175:248,0:0,-568:-248,0:0,568 Vi=06:i,1;7;1;" ":i ;7:1,2;"* * **** * * **** * *" 22,2;"* * * * * * * * *" 13,2;"**** **** * * *** **" 34,2;"* * * * * * * **" 15,2;"* * * * **** **** **** **"  ^87W,104h:89Y,0:0,-89Y:-89Y,0:0,89Y Ei=010 :9 +i,11 ;" ":i  10 ,12 ;"GIORNO";12 ,12 ;"MESE";14,12 ;"ANNO";16,12 ;"ORE";18,12 ;"MINUTI" *G1;10 ,20;"?":g:(g<1g>31)810* 410 ,21-g;g >G1;12 ,20;"?":m:(m<1m>12 )830> H12 ,21-m;m R$1;14,20;"?":a \14,21-a;a f;1;16,20;"?":o:o>24870f p16,21-o;o z=1;18,20;"?":mn:mn>60<890z 18,21-mn;mn TML=o+mn/60<   stampa dati h4::0,0:255,0:0,557:-255,0:0,-557 ^0,72H:255,0:0,557:-255,0:0,-557 `16,175:222,0:0,-31:-222,0:0,31  1 Jy=03:7;y,2;" ":y ޟy=612 :6;y,0;" ?":y:y=1521:5;y,0;" ":y Py=1521:5;y,0;" ":y  0 51,4;7;"DATI RELATIVI AL GIORNO" ]2,7;7;g;" ";("0"m<10 );m;" ";a;" ore ";o;":";("0"mn<10 );mn  6 |7,2;"ASCENSIONE ";(" "ƺac<10 );ac;":";("0"((ac-ac)*60<)<10 );((ac-ac)*60<) $6d1=dc+1*(dc<0):d2=(60<*(dc-d1)) .f8,2;"DECLINAZIONE ";(" "ƽdc<10 );(" "dc>0);d1;" ";"0"d2<10 ;d2 86d1=al+1*(al<0):d2=(60<*(al-d1)) Bc9 ,2;"ALTEZZA ";" "al>0;" "ƽal<10 ;d1;" ";"0"d2<10 ;d2 Ld2=(60<*(az-az)) Ve10 ,2;"AZIMUT ";" "az<100d;" "az<10 ;az;" ";"0"d2<10 ;d2 `_j$=(rc*149.5):11 ,2;"DISTANZA DAL SOLE";11 ,27-j$;j$;" MKm" j5:al<016,1;"LA COMETA DI HALLEY NON E'";17,1;"OSSERVABILE PERCHE SI TROVA ";18,1;-(al+5);" GRADI SOTTO L'ORIZZONTE.":1180 tal016,1;"LA COMETA DI HALLEY SI TROVA";17,1;(al+.5);"GRADI SOPRA L'ORIZZONTE";18,1;"TERRESTRE IN DIREZIONE ";d$(1+(az/45-+.5)) ~hals>019,1;"LA LUCE DEL GIORNO NE IMPEDI-";20,1;"SCE LA VISIBILITA'." cals<-1819,1;"IL CIELOSCURO NE FAVORISCE";20,1;"LA VISIBILITA'." |als>-16als<019,1;"LA LUCE CREPUSCOLARE RENDE NON";20,1;"OTTIMALE L'OSSERVAZIONE."  *calcolo dei giorni passati dallo 00 1980 m>21250  D=m-1 2(a/4)=a/4D=D*62>:1240 D=D*63? D1=(D/2)+g:1280 D=(30.6t*(m+1)) 5(a/4)=a/4D1=D-62>+g:1280 D1=D-63?+g AD=D1+365m*(a-1980)+((a-1981)/4)+1   conversione tml in tmg TMG=TML-FUSO ( TMG>24TMG=TMG-24 2TMG<0TMG=TMG+24 < T0=D1*AA-BB FTSG=CC*TMG+T0 P TSG>24TSG=TSG-24 ZTSG<0TSG=TSG+24 dTSL=TSG+ln/15 n TSL>24TSL=TSL-24 xTSL<0TSL=TSL+24  dati generali 6lt=43.794642/-:ln=13.111111QT:FUSO=1 LAA=.0657098}:BB=17.409421 F~:CC=1.002738Y:DD=.997270M3 noc=1.014979:ec=.9673w :ze=.016718{/:oe=1.790645e3:ee=1.7249707\:in=.409138Qz1 >agg=/180:gga=180/:sl=(agg*lt):cl=(agg*lt) !d$(9 ,6):1490 i=19 :d$(i):i C"NORD.","N-E.","EST.","S-E.","SUD.","S-O.","OVEST.","N-O","NORD."  /-QTus} F~YM3w {/e3\Qz1g{5ge.ӳ1+8Ʌ; NORD. N-E. EST. S-E. SUD. S-O. OVEST.N-O NORD. gmaom"""dx0m{먴sU9sqtY?1e4ȖbズX|V .{"xPy?=1z0ﴮ~H`(:~O{ȬbyG{6r&E~HVxU$7GtdBu*`D)CUU ^lC/J3004P