GRAPHIC VELOCITY EPHEMERIS for ARGUS $ 0 28 STO 29 STO 1 INFIL ;get default parameters DEC 29 20 FOR ;place in STO 0-30 1 CNT STO DEC NEXT 28 RCL 29 RCL = IF 1 20 STO 21 27 FOR 0 1 CNT STO NEXT 228 28 STO 4 29 STO ENDIF VELOGRAF.CFG # # # # # # # # ### ### $ 0 INFIL 4 CARY Planet velocity graf setup ,,ƒ,„,…,†,‡,ˆ,‰,Š 1 måned,2 mdr,3 mdr,6 mdr,1 år,2 år,5 år,10 år CANCEL $ ;ki le to wi he ky v - - - 252 25 25 120 25 20 11 0 0 0 ;radiobutton 252 25 50 120 25 21 12 0 0 0 ;radiobutton 252 25 75 120 25 22 13 0 0 0 ;radiobutton 252 25 100 120 25 23 14 0 0 0 ;radiobutton 252 175 25 120 25 24 15 0 0 0 ;radiobutton 252 175 50 120 25 25 16 0 0 0 ;radiobutton 252 175 75 120 25 26 17 0 0 0 ;radiobutton 252 175 100 120 25 27 18 0 0 0 ;radiobutton 2 300 25 80 25 2 19 0 0 0 ;CANCEL-button 10 350 150 50 25 0 10 0 0 0 ;key Pluto 9 300 150 50 25 0 9 0 0 0 ;key Neptune 8 250 150 50 25 0 8 0 0 0 ;key Uranus 7 200 150 50 25 0 7 0 0 0 ;key Saturn 6 150 150 50 25 0 6 0 0 0 ;key Jupiter 5 100 150 50 25 0 5 0 0 0 ;key Mars 4 50 150 50 25 0 4 0 0 0 ;key Venus 3 0 150 50 25 0 3 0 0 0 ;key Mercury 17 420 210 0 MENUX $ 10 STO ;selected planet 2 = IF RETN ENDIF ;ESC pressed, exit $ 29 20 FOR ;save STO 0-30 1 CNT RCL NEXT NUMS 1 UTFIL VELOGRAF.CFG # # # # # # # # ### ### $ 0 UTFIL 888 11 STO ;background color 000 12 STO ;grid color $ 400 33 STO ;Mercury max speed 235 34 STO ;Venus 141 35 STO ;Mars 45 36 STO ;Jupiter 25 37 STO ;Saturn 13 38 STO ;Uranus 7 39 STO ;Neptune 7 40 STO ;Pluto $ 120 60 24 12 6 3 2 1 0 ;get value selected 20 27 FOR ;by radio buttons XY 1 CNT RCL BOO MUL ADD NEXT 1461 48 MULT ;convert to days 3 STO $ PTMP 1 0 MEPUT 0 MEGET 0 STO 1 MEGET 1 STO 2 MEGET 2 STO 12 4 MEPUT 0 5 MEPUT 0 6 MEPUT 0 7 MEPUT ;make sure JD gets correct weekday $ 1000 600 SCALE GRON 1 2 11 RCL COL 2 2 11 RCL COL MAC. $ 8 0 90 0 -900 205 10 RCL DRWTT ;planet chosen 10 0 50 1 ;mode col siz style -900 ;x -310 ;y 2 RCL 0 NTOS 0 ;start year number DRWTT $ 12 RCL PENC -900 0 DRAW 900 0 DRAW PENUP ;x-axis -900 200 DRAW 900 200 DRAW PENUP ;100% line -900 -200 DRAW 900 -200 DRAW PENUP ;calendar line $ 1 CARY ;draw grids ,jan,feb,mar,apr,maj,jun,jul,aug,sep,okt,nov,dec $ 0 3 RCL FOR 0 RCL 1 CNT ADD 0 MEPUT 1 RCL 1 MEPUT 2 RCL 2 MEPUT DNORM 1800 1 CNT 3 RCL MULT ;days to x-offset 900 SUB 4 STO $ 0 PENC 3 RCL 400 > IF ;draw day lines 4 RCL 1 DUP -200 DRAW -220 DRAW PENUP ENDIF $ 3 RCL 2800 > IF JD 7 DIVR DEC 4 MUL ;check for sunday XY ADD XY 4999 < ADD 1 ADD 7 MOD BOO NOT IF 800 PENC 4 RCL 1 DUP -200 DRAW -230 DRAW PENUP 3 RCL 400 > IF ;sunday date numbers 5 0 30 0 ;mode col size style 4 RCL -250 ;x y 0 MEGET 0 NTOS 0 ;date string DRWTT ENDIF ENDIF ENDIF $ 0 PENC 0 MEGET 1 = IF ;check for month start 4 RCL 1 DUP -200 DRAW 200 DRAW PENUP 3 RCL 800 > IF ;draw month names 6 0 40 1 ;mode col siz style 4 RCL 15 1800 3 RCL MULT ADD ;add 15 days offset -270 ;y 1 MEGET ;string no DRWTT ENDIF ENDIF $ 0 PENC 5 PENW ;draw year line 0 MEGET 1 = ;start of year? 1 MEGET 1 = AND IF 4 RCL 1 DUP -200 DRAW 200 DRAW PENUP 4 RCL -750 < IF ;do not overwrite init year 10 0 50 1 ;mode col siz style 4 RCL ;x -310 ;y 2 MEGET 0 NTOS 0 ;year number DRWTT ENDIF ENDIF 1 PENW NEXT $ 3 RCL ;draw planet speed curve 0 XY FOR ;max days to run 0 RCL 1 CNT ADD 0 MEPUT 1 RCL 1 MEPUT 2 RCL 2 MEPUT ;add days DNORM 10 RCL PLA DEC ;planet veloc 100 10 RCL 30 ADD RCL MULT ;percent of planets max veloc. 1 DUP 0 > IF 29 RCL ELSE ;retrograde color 28 RCL ENDIF ;direct color 1 DUP PENC BRCOL 1800 1 CNT 3 RCL MULT ;days to x-offset 900 SUB XY 2 MUL 1 CNT 1 AND IF CHS ENDIF 2 DUP 2 DUP DRAW 2 DUP 2 DUP CHS DRAW POLY 2 DUP 2 DUP DRAW 2 DUP 2 DUP CHS DRAW NEXT PENUP GROFF $$$ $ -12 11 FOR NEXT 2 MEGET 12 NTOS 8 12 RCL 60 1 -900 -180 12 DRWTT 2 MEGET 1 ADD 12 NTOS 8 12 RCL 60 1 0 -180 12 DRWTT