Extra planetinformation: hastighed, latitude, dekl. mv. $ PTMP 3 FONTS 10 0 0 10 2 0 12 1 0 $ 0 12 FOR 1 CNT PNAME 1 CNT SYSTR NEXT 1 12 FOR 1 CNT SNAME 1 CNT 12 ADD SYSTR NEXT 25 STDEF 26 STDEF N S $ 2 FONT Extra planet-information: $ 1 2 FOR 683 1 CNT 1 < IF RECH 64 SUB 1 DUP 0 2 4 5 6 7 8 12 IN XY 15 SUB 0 1 3 4 5 IN OR IF RECH 601 ADD ELSE 529 ENDIF ENDIF CHS 27 NAME 27 0 FONT NUMS 0 PAD @@@@@@@@@@@@@@@@@@@@@@@@@@ - @@@@@@@@@@@@@@@@@@@@@@@@@@ $ 9 1 CNT 1 XPOS ITOM 900 DIVR XY 4 MUL 60 DIVR 3 FETCH NUMS Sid. Time: #### #### #### $ 75 TABLN 1 Længde Hastigh. Bredde RA Dekl Helio $ 75 TABLN 1 $ ZZO 0 10 FOR 2 CNT NUMS @@ \ $ 2 CNT 2 1 CNT SUB 20 MUL ADD PPOS ITOM 1800 DIVR 13 ADD ;longitude XY 60 DIVR NUMS ## ## @@@ \ $ 2 CNT 2 1 CNT SUB 20 MUL ADD PV ITOMS 60 DIVR XY ABS XY ;speed NUMS ### ## \ $ 3 1 CNT 2 CNT XPOS ITOMS ;geo latitude 1 DUP 0 > 25 ADD ;sign N or S XY ABS 60 DIVR ;degr. minutes NUMS ### ## @ \ $ 5 1 CNT 2 CNT XPOS ITOM ;RA (right ascension) 60 DIVR XY ABS XY NUMS #### ## \ $ 6 1 CNT 2 CNT XPOS ITOMS ;declination 1 DUP 0 > 25 ADD ;sign N or S XY ABS 60 DIVR ;degr. minutes NUMS ### ## @ \ $ 2 CNT 0 2 11 12 IN NOT 1 DUP IF 0 1 CNT 2 CNT XPOS ITOM 1800 DIVR 13 ADD ;heliocentric longitude XY 60 DIVR NUMS ## ## @@@ $ ELSE 75 TABLN 1 $ ENDIF NEXT 75 TABLN 1 $ NEXT $$$