Planetary mandalas 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 MANDALA.CFG # # # # # # # # ### ### $ 0 INFIL 4 CARY Planet mandalaer setup ,,ƒ,„,…,†,‡,ˆ,‰,Š 1 oml,2 oml,3 oml,5 oml,8 oml,10 oml,20 oml,30 oml CANCEL $ ;ki le to wi he ky v - - - 252 25 25 80 25 20 11 0 0 0 ;radiobutton 252 25 50 80 25 21 12 0 0 0 ;radiobutton 252 25 75 80 25 22 13 0 0 0 ;radiobutton 252 25 100 80 25 23 14 0 0 0 ;radiobutton 252 175 25 80 25 24 15 0 0 0 ;radiobutton 252 175 50 80 25 25 16 0 0 0 ;radiobutton 252 175 75 80 25 26 17 0 0 0 ;radiobutton 252 175 100 80 25 27 18 0 0 0 ;radiobutton 2 270 25 80 25 2 19 0 0 0 ;CANCEL-button 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 16 370 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 MANDALA.CFG # # # # # # # # ### ### $ 0 UTFIL $ 30 20 10 8 5 3 2 1 ;get value selected 0 20 27 FOR ;by radio buttons XY 1 CNT RCL BOO MUL ADD NEXT 3 STO $ 387 1000 ADD 13 STO ;table of mean distances 723 1000 ADD 14 STO 1524 1000 ADD 15 STO 5203 1000 ADD 16 STO 9539 1000 ADD 17 STO 19190 1000 ADD 18 STO 30070 1000 ADD 19 STO $ PTMP 12 4 MEPUT ;use noon positions 0 5 MEPUT ; 0 6 MEPUT 0 7 MEPUT 0 8 MEPUT 0 9 MEPUT $ 30 30 30 20 20 12 8 2 1 1 ;table of days step 10 RCL FETCH 4 STO ;pick steps for planet chosen 10 RCL PLA XY DEC 5 STO ;starting pos 6 STO ;previous pos 0 7 STO ;new position 0 8 STO ;sign of curr-start 0 9 STO ;count $ GRON 5 PENW ;draw angles 1004 PENC -900 0 DRAW -100 0 DRAW PENUP 100 0 DRAW 900 0 DRAW PENUP 0 900 DRAW 0 100 DRAW PENUP 0 -100 DRAW 0 -900 DRAW PENUP $ 1 CARY 5 9 120 1 -960 0 0 DRWTT 5 9 120 1 0 -960 1 DRWTT 5 9 120 1 960 0 2 DRWTT 5 9 120 1 0 960 3 DRWTT 10 RCL PNAME 4 SYSTR 5 9 240 1 0 0 4 DRWTT ‘,”,—,š $ 2 MEGET 1 MEGET 0 MEGET NUMS 5 STDEF 11 9 80 0 -1000 -1000 5 DRWTT Start: ##-##-#### $ 8 PENW 10 RCL 1017 ADD PENC ;use color from argus preferences $ 0 32767 FOR 10 RCL PLA XY DEC 7 STO ;current pos 4 XPLA ;distance AU *1000 900 10 RCL 10 ADD RCL ;mean value AU*1000 MULT PTR XY CHS XY CHS DRAW ;Aries to the left 0 MEGET 4 RCL ADD 0 MEPUT DNORM $ 7 RCL 6 RCL SUB 0 < ;direct motion 6 RCL 5 RCL SUB 0 > AND ;old pos in last two quadrants 7 RCL 5 RCL SUB 0 > NOT ;new pos in first two quadrants AND ;= a revolution done 8 RCL 1 = AND IF ;not second time after a retrograde 0 8 STO ;change the sign of half circle run 9 RCL 1 ADD 9 STO ;incr. counter ENDIF $ 7 RCL 6 RCL SUB 0 < ;direct motion 6 RCL 5 RCL SUB 0 < AND ;old pos in first two quadrants 7 RCL 5 RCL SUB 0 < NOT ;new pos in last two quadrants AND ;= some half revolution done 8 RCL 0 = AND IF ;not second time after a retrograde 1 8 STO ;change the sign ENDIF $ 7 RCL 6 STO DEC ;make new pos the old $ 9 RCL 3 RCL > NOT XIF ;exit when chosen no of revs done NEXT PENUP $ 2 MEGET 1 MEGET 0 MEGET NUMS 5 STDEF 3 9 80 0 1000 -1000 5 DRWTT End: ##-##-#### $ GROFF $$$