ZXTape! 0Created with Ramsoft MakeTZX**HALLEY**Ø Ø IÚ ÿê ê******************** ê* * ê* COMETA DI HALLEY * (ê* * 2ê* by * <ê* * Fê* GALLERINI FABIO * Pê* * Zê******************** _ê `êProgramma battuto da aê Di Donfrancesco bê Emanuele ck êVia G. Puccini,49 Castri di Lecce (Italy) d"êProgramma principale i í1508ä n1í1420Œ:Ù0:Ú4:ç4:û x0í700¼:í1190¦:í1300:í180´ ‚ í930¢ Œ2õ#0;¬1,7;"""Copy"" altri dati" –ñp$=¦:úp$=""Ëì150–  úp$="c"Ëÿ:ì150– ªÞ0:Ú4:û:ì120x ´êPosizione cometa ¾ñt=a+d1/365.2422‰6Ÿi È/ñmc=2*§*(t-1986.112‹xC•)/76.0081‡%® Ò!ñmc=mc-2*§*º(mc/2/§) Üúmc<0Ëñmc=mc+2*§ æñe=mc ðñdc=e-ec*²e-mc ú6ú½dc>.000001m7½Ëñe=e-dc/(1-ec*³e):ì240ð 9ñvc=2*·(»((1+ec)/(1-ec))*´(e/2)) ñlc=vc+2.9672517‚=çs­ 3ñrc=17.9435…ŒIº*(1-ec*ec)/(1+ec*³vc) "ñpc=µ(²(lc-oc)*.3050570n]) ,ñy=-.952334€sÌ)9*²(lc-oc) 6 ñx=³(lc-oc) @ ñl1c=·(y/x) Júx<0Ëñl1c=l1c+§ T úl1c<0Ëñl1c=l1c+2*§ ^ ñl1c=l1c+oc h ñrc=rc*³pc r-ñne=2*§/365.2422‰6Ÿi*d/1.00004O‹ |!ñne=ne-2*§*º(ne/2/§) † ñme=ne+ee-oe ñle=ne+2*ze*²me+ee šúle>2*§Ëñle=le-2*§ ¤úle<0Ëñle=le+2*§ ® ñve=le-oe ¸%ñre=(1-ze*ze)/(1+ze*³ve) Â3úrc0Ëñaz=360h-az ¨/ñals=gga*µ(²ds*sl+³ds*cl*³(tsl*§/12 -as)) ²þ ¼êInput dati Æ`ö7,175¯:ü248ø,0:ü0,-568:ü-248ø,0:ü0,568: ÐVëi=0Ì6:õ¬i,1;Ú7;Þ1;" ":ói Ú;Ú7:õ¬1,2;"* * **** * * **** * *" ä2õ¬2,2;"* * * * * * * * *" î1õ¬3,2;"**** **** * * *** **" ø1õ¬4,2;"* * * * * * * **" 3õ¬5,2;"* * * * **** **** **** **"  ^ö87W,104h:ü89Y,0:ü0,-89Y:ü-89Y,0:ü0,89Y :ëi=0Ì10 :õ¬9 +i,11 ;" ":ói  †õ¬10 ,12 ;"GIORNO";¬12 ,12 ;"MESE";¬14,12 ;"ANNO";¬16,12 ;"ORE";¬18,12 ;"MINUTI" *GõÛ1;¬10 ,20;"?":îg:ú(g<1Åg>31)Ëì810* 4õ¬10 ,21-±Ág;g >GõÛ1;¬12 ,20;"?":îm:ú(m<1Åm>12 )Ëì830> Hõ¬12 ,21-±Ám;m R$õÛ1;¬14,20;"?":îa \õ¬14,21-±Áa;a f;õÛ1;¬16,20;"?":îo:úo>24Ëì870f põ¬16,21-±Áo;o z=õÛ1;¬18,20;"?":îmn:úmn>60<Ëì890z „õ¬18,21-±Ámn;mn ŽñTML=o+mn/60< ˜þ ¢êStampa dati ¬hÚ4:û:ö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 ÔKëy=0Ì3:õ Ú7;¬y,2;" ":óy Þ¡ëy=6Ì12 :õ Ú6;¬y,0;" ":óy:ëy=15Ì21:õ Ú5;¬y,0;" ":óy èQëy=16Ì21:õ Ú5;¬y,0;" ":óy ò Þ0 ü5õ¬1,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<) $6ñd1=ºdc+1*(dc<0):ñd2=º(60<*½(dc-d1)) .fõ¬8,2;"DECLINAZIONE ";(" "ƽdc<10 );(" "Ædc>0);d1;" ";"0"Æd2<10 ;d2 86ñd1=ºal+1*(al<0):ñd2=º(60<*½(al-d1)) Bcõ¬9 ,2;"ALTEZZA ";" "Æal>0;" "ƽal<10 ;ºd1;" ";"0"Æd2<10 ;d2 Lñd2=º(60<*(az-ºaz)) Veõ¬10 ,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" jÀÚ5:úal<0Ëõ¬16,1;"LA COMETA DI HALLEY NON E'";¬17,1;"OSSERVABILE PERCHE' SI TROVA";¬18,1;-º(al+.5ÿÿÿ);" GRADI SOTTO L'ORIZZONTE.":ì1180œ tÊúalÈ0Ëõ¬16,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ÿÿÿ)) ~húals>0Ëõ¬19,1;"LA LUCE DEL GIORNO NE IMPEDI-";¬20,1;"SCE LA VISIBILITA'." ˆdúals<-18Ëõ¬19,1;"IL CIELO SCURO NE FAVORISCE";¬20,1;"LA VISIBILITA'." ’|úals>-16Æals<0Ëõ¬19,1;"LA LUCE CREPUSCOLARE RENDE NON";¬20,1;"OTTIMALE L'OSSERVAZIONE." œþ ¦.êCalcolo dei giorni passati dallo 00 1980 °úm>2Ëì1250â º ñD=m-1 Ä2úº(a/4)=a/4ËñD=D*62>:ì1240Ø ÎñD=D*63? ØñD1=º(D/2)+g:ì1280 âñD=º(30.6…tÌÌÍ*(m+1)) ì9úº(a/4)=a/4ËñD1=D-62>+g:ì1280 öñD1=D-63?+g AñD=D1+365m*(a-1980¼)+º((a-1981½)/4)+1  þ #êConverscione tmlintmg ñTMG=TML-FUSO ( útmg>24Ëñtmg=tmg-24 2útmg<0Ëñtmg=tmg+24 < ñt0=d1*aa-bb Fñtsg=cc*tmg+t0 P útsg>24Ëñtsg=tsg-24 Zútsg<0Ëñtsg=tsg+24 dñtsl=tsg+ln/15 n útsl>24Ëñtsl=tsl-24 xútsl<0Ëñtsl=tsl+24 ‚þ ŒêDati generali –#ñlt=DDlat:ñln=DDlong:ñFUSO=1  Lñaa=.0657098}’Ü:ñbb=17.409421… F~„:ñcc=1.002738Y¸:ñdd=.997270€M3 ªnñoc=1.014979êÔõ:ñec=.9673€w ù :ñze=.016718{ô/é:ñoe=1.790645e3Úø:ñee=1.7249707\Ë×:ñin=.409138Qz‰1 ´>ñagg=§/180´:ñgga=180´/§:ñsl=²(agg*lt):ñcl=³(agg*lt) ¾!éd$(9 ,6):å1490Ò Èëi=1Ì9 :ãd$(i):ói ÒDä"NORD.","N-E.","EST.","S-E.","SUD.","S-O.","OVEST.","N-O.","NORD." Üþ áâ äÚ6:ç6:û æ[õÚ5;"*** HALLEY * HALLEY * HALLEY ***":õÚ5;"*** Halley * Halley * Halley ***" ð´õ:õ:õ" Il seguente programma vi di-":õ" ce ""dove"" puntare gli occhi":õ" per vedere la nota cometa di ":õ" Halley, che si sta avvicinando":õ" alla terra e verso la fine " ú¾õ" dell'anno sara' finalmente vi-":õ" sibile.":õ" Un'avvertenza importante: il":õ" programma fornisce risultati ":õ" validi per la zona da cui si ":õ" osserva, ma per far conoscere" bõ" allo ZX dove abitiamo bisogna ":õ" inserire i valori di latitudi-":õ" ne e di longitudine."  6:õ:õ:õ" Premi un tasto per continuare ":ò0 Ðû:õ:õ:õ:õ:õ" Le coordinate devono essere":õ" il piu' possibile precise del":õ" luogo da cui osserviamo il cie":õ" lo, questo per l'esattezza dei":õ" risultati e anche per nostra ":õ" soddisfazione." ¢õ" Prima, allora, di iniziare ":õ" introduci i valori dei gradi,":õ" poi dei minuti e dei secondi":õ" rispettivamente di latitudine":õ" e di longitudine." "qî"Gradi di lat.";gggg:î"minuti di lat.";mmmm:î"secondi di lat.";ssss:ñDDlat=(gggg+mmmm/60<+ssss/3600) ,uî"Gradi di long.";gggg:î"minuti di long.";mmmm:î"secondi di long.";ssss:ñDDlong=(gggg+mmmm/60<+ssss/3600) 6þ 'ý:ø"**HALLEY**"Ê1 C