$ PTMP ;Preserve system variables 4 PSTAT MACR 5 PSTAT ;calculate radix chart invisibly 1 CARY ;define new system variables for: ,0,1,100,100 $ 71 -1 SYSTR ;set left margin to 0 6 -2 SYSTR ;set right margin to 1 15 -3 SYSTR ;set plot scale to 100 % 18 -4 SYSTR ;set vertical margin to 100 % $ 950 1250 SCALE ;define plotting area and scaling to millimeters GRON ;switch to graphics mode $EE-Logo -950 1240 -600 890 BMP ;stretch the logo bitmap to this rectangle ARGUS.BMP $ top frame -475 1060 ORGIN ;redefine origin 0 180 DRAW ;draw square frame 1425 180 DRAW 1425 0 DRAW 0 0 DRAW 0 180 DRAW PENUP 7 173 DRAW ;draw the inner frame to make it double line 1418 173 DRAW 1418 7 DRAW 7 7 DRAW 7 173 DRAW PENUP $ 1 CARY ;get name, place and below strings into stringlist 0 NAME 1 PLACE ,,Ascendant on 1st,Natal Chart,Tropical,Siderial $ 8 0 33 0 30 140 0 DRWTT ;Draw the strings inside the frame 8 0 33 0 30 109 1 DRWTT 8 0 33 0 30 78 2 DRWTT 8 0 33 0 30 47 3 DRWTT 8 0 33 0 30 ;Draw "tropical" or "siderial" 16 4 7 0 0 XPOS BOO ADD ;according to ayanamsha<>0 DRWTT $ 1 CARY ;Define directions into string list ,N,S,E,W $ 6 MEGET 5 MEGET 4 MEGET ;define time string; picking templates below NUMS 10 STDEF 13 MEGET 15 MEGET BOO ;define latitude string 1 ADD 12 MEGET NUMS 11 STDEF 9 0 0 XPOS ;ARMC ITOM 15 DIVR XY 4 MUL ;convert to hours, minutes and seconds XY 60 DIVR 12 STDEF 13 STDEF 7 0 0 XPOS ;ayanamsha CHS ITOM 60 DIVR ;convert to degrees and minutes 14 STDEF 8 0 33 0 505 140 10 DRWTT ;draw the strings 8 0 33 0 505 109 11 DRWTT 8 0 33 0 505 78 12 DRWTT 8 0 33 0 505 47 13 DRWTT 8 0 33 0 505 16 14 DRWTT Standard Time: ##:##:## Latitude: ## @ ##' Local Sid. Time: ##:##:## R.A.M.S Ayanamsha: ### ##' $ 2 MEGET 1 MEGET 500 ADD CHS ;get date into string list 0 MEGET NUMS 10 STDEF 17 MEGET 19 MEGET BOO 3 ADD ;get longitude 16 MEGET 11 STDEF JD XY 10000 ADD XY 3 FETCH ;get julian date 10000 ADD 3 FETCH 3 FETCH 12 STDEF 6993 2 MEGET 13 10 MULT ;calculate obliquity of the ecliptic SUB 3600 10000 MULT 60 DIVR ;by multiplying year by factors 13 STDEF 14 STDEF 8 0 33 0 980 140 10 DRWTT ;draw the strings 8 0 33 0 980 109 11 DRWTT 8 0 33 0 980 78 12 DRWTT 8 0 33 0 980 47 13 DRWTT 8 0 33 0 980 16 14 DRWTT Date: ## @@@ #### Longitude: ## @ ##' J.D.: ####-####.#### Obl.: 23 ## ## Geocentric Ecliptic $ top left frame -950 200 ORGIN ;draw new frame 0 530 DRAW 350 530 DRAW 350 0 DRAW 0 0 DRAW 0 530 DRAW PENUP 7 523 DRAW ;and inner frame 343 523 DRAW 343 7 DRAW 7 7 DRAW 7 523 DRAW PENUP 7 473 DRAW 343 473 DRAW PENUP $ 10 STDEF ;define strings - could have used 11 STDEF ;cary, but this will leave string 0-9 12 STDEF ;if needed 13 STDEF 14 STDEF 15 STDEF 16 STDEF 17 STDEF 18 STDEF 19 STDEF 20 STDEF 21 STDEF 22 STDEF 23 STDEF 8 0 33 0 30 485 10 DRWTT ;draw aspect glyph explanations 8 0 33 0 30 435 11 DRWTT 8 0 33 0 30 400 12 DRWTT 8 0 33 0 30 365 13 DRWTT 8 0 33 0 30 330 14 DRWTT 8 0 33 0 30 295 15 DRWTT 8 0 33 0 30 260 16 DRWTT 8 0 33 0 30 225 17 DRWTT 8 0 33 0 30 190 18 DRWTT 8 0 33 0 30 155 19 DRWTT 8 0 33 0 30 120 20 DRWTT 8 0 33 0 30 85 21 DRWTT 8 0 33 0 30 50 22 DRWTT 8 0 33 0 30 15 23 DRWTT Aspect Glyphs = Conjunction = Opposition = Sqiare = Trine = Sextile = Semisquare = Sesquisquare = Quincunx = Semisextile = Decile = Quintile = Tridecile = Biquintile $ aspect grid frame -950 -845 ORGIN ;new origin 0 0 DRAW ;draw frame 1040 0 DRAW 1040 70 DRAW 130 970 DRAW 0 970 DRAW 0 0 DRAW PENUP $aspect grid -870 -838 ORGIN ;replace origin slightly 0 14 FOR ;draw a grid - vertical bars 1 CNT 63 MUL 1 DUP 0 DRAW 1 DUP CHS 14 1 CNT BOO ADD 63 MUL ADD DRAW PENUP 1 CNT 63 MUL 1 DUP 0 XY DRAW ;horizontal bars 1 DUP CHS 14 1 CNT BOO ADD 63 MUL ADD XY DRAW PENUP NEXT $ aspecting planets 1 CARY ;define planet symbols into string list ,,,,,,,,,,,,,M,A, $ 1 15 FOR ;print planet symbols 5 0 50 0 -32 976 1 CNT 63 MUL SUB 1 CNT DRWTT ;vertical column 5 0 50 0 -32 1 CNT 63 MUL ADD 976 1 CNT 63 MUL SUB 1 CNT DRWTT ;sloping planet row NEXT $ aspect glyphs 1 CARY ,,,,,,,,,,,,,,,s,bs,ts,n,bn,u,bu,tu,t,bt,tt $ fill into grid 1 14 FOR 1 CNT 1 ADD 15 FOR 5 0 50 0 ;mode,style,size,color -32 1 CNT 63 MUL ADD ;x 976 2 CNT 63 MUL SUB ;y 0 ;defalt aspect number 1 CNT PPOS 2 CNT PPOS SUB ITOMS ABS ;angle in minutes 1 0 00 8 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 22 26 00 27 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 9 28 00 31 43 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 19 31 44 33 44 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 10 34 00 37 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 17 38 00 42 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 6 43 00 47 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 14 49 00 53 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 23 54 00 55 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 5 56 00 64 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 20 64 28 67 28 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 11 68 00 74 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 18 78 00 82 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 24 82 03 83 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 3 84 00 97 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 21 98 00 99 59 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 15 100 00 104 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 12 107 00 109 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 4 112 00 128 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 7 133 00 137 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 13 142 00 146 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 8 147 00 152 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 16 153 00 156 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC 2 172 00 188 00 XY 60 MUL ADD 5 DUP > NOT XY 3 FETCH 60 MUL ADD 4 DUP < NOT AND IF XY 3 FETCH ENDIF DEC DEC ;discard angle DRWTT NEXT NEXT $lower left frame -950 -1155 ORGIN ;new origin 0 0 DRAW ;outer frame 1155 0 DRAW 1155 238 DRAW 0 238 DRAW 0 0 DRAW PENUP 7 7 DRAW ;inner frame 1148 7 DRAW 1148 231 DRAW 7 231 DRAW 7 7 DRAW PENUP 7 190 DRAW 1155 190 DRAW PENUP 220 7 DRAW 220 190 DRAW PENUP 438 7 DRAW 438 190 DRAW PENUP 655 7 DRAW 655 190 DRAW PENUP 870 7 DRAW 870 190 DRAW PENUP $ 10 STDEF 4 0 33 0 560 190 10 DRWTT Symbols of the Planets and Signs $ col 1 10 STDEF 11 STDEF 12 STDEF 13 STDEF 14 STDEF 15 STDEF 8 0 26 0 35 145 10 DRWTT 8 0 26 0 35 120 11 DRWTT 8 0 26 0 35 95 12 DRWTT 8 0 26 0 35 70 13 DRWTT 8 0 26 0 35 45 14 DRWTT 8 0 26 0 35 20 15 DRWTT = Sun = Moon = Mercury = Venus = Mars = Jupiter $ col 2 10 STDEF 11 STDEF 12 STDEF 13 STDEF 14 STDEF 15 STDEF 8 0 26 0 250 145 10 DRWTT 8 0 26 0 250 120 11 DRWTT 8 0 26 0 250 95 12 DRWTT 8 0 26 0 250 70 13 DRWTT 8 0 26 0 250 45 14 DRWTT 8 0 26 0 250 20 15 DRWTT = Saturn = Uranus = Neptun = Pluto = North node AC= Ascendant $ col. 3 10 STDEF 11 STDEF 12 STDEF 13 STDEF 8 0 26 0 468 145 10 DRWTT 8 0 26 0 468 120 11 DRWTT 8 0 26 0 468 95 12 DRWTT 8 0 26 0 468 70 13 DRWTT MC= Midheaven = Pt.Fortune = Chiron R = Retrograde $ col 4 10 STDEF 11 STDEF 12 STDEF 13 STDEF 14 STDEF 15 STDEF 8 0 26 0 685 145 10 DRWTT 8 0 26 0 685 120 11 DRWTT 8 0 26 0 685 95 12 DRWTT 8 0 26 0 685 70 13 DRWTT 8 0 26 0 685 45 14 DRWTT 8 0 26 0 685 20 15 DRWTT = Aries = Taurus = Gemini = Cancer = Leo = Virgo $ col 5 10 STDEF 11 STDEF 12 STDEF 13 STDEF 14 STDEF 15 STDEF 8 0 26 0 900 145 10 DRWTT 8 0 26 0 900 120 11 DRWTT 8 0 26 0 900 95 12 DRWTT 8 0 26 0 900 70 13 DRWTT 8 0 26 0 900 45 14 DRWTT 8 0 26 0 900 20 15 DRWTT = Libra = Scorpio = Sagittarius = Capricorn = Aquarius = Pisces $ lower right frame 240 -1155 ORGIN 0 0 DRAW 710 0 DRAW 710 570 DRAW 0 570 DRAW 0 0 DRAW PENUP 7 7 DRAW 703 7 DRAW 703 563 DRAW 7 563 DRAW 7 7 DRAW PENUP 7 500 DRAW 703 500 DRAW PENUP 90 7 DRAW 90 563 DRAW PENUP 325 7 DRAW 325 563 DRAW PENUP 510 7 DRAW 510 563 DRAW PENUP $ col 1 10 STDEF 11 STDEF 12 STDEF 13 STDEF 14 STDEF 15 STDEF 16 STDEF 17 STDEF 18 STDEF 19 STDEF 20 STDEF 21 STDEF 22 STDEF 8 0 40 0 30 500 10 DRWTT 8 0 40 0 30 450 11 DRWTT 8 0 40 0 30 410 12 DRWTT 8 0 40 0 30 370 13 DRWTT 8 0 40 0 30 330 14 DRWTT 8 0 40 0 30 290 15 DRWTT 8 0 40 0 30 250 16 DRWTT 8 0 40 0 30 210 17 DRWTT 8 0 40 0 30 170 18 DRWTT 8 0 40 0 30 130 19 DRWTT 8 0 40 0 30 90 20 DRWTT 8 0 40 0 30 50 21 DRWTT 8 0 40 0 30 10 22 DRWTT Pl. $ col 2 1 CARY ,R,+,- $ 2 PAD NUMS 10 STDEF 1 PV 0 > 1 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 11 STDEF 2 PV 0 > 2 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 12 STDEF 3 PV 0 > 3 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 13 STDEF 4 PV 0 > 4 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 14 STDEF 5 PV 0 > 5 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 15 STDEF 6 PV 0 > 6 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 16 STDEF 7 PV 0 > 7 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 17 STDEF 8 PV 0 > 8 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 18 STDEF 9 PV 0 > 9 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 19 STDEF 10 PV 0 > 10 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 20 STDEF 11 PV 0 > 11 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 21 STDEF 0 PV 0 > 0 PPOS ITOM 1800 DIVR 1 ADD SNAME XY 60 DIVR XY 100 ADD XY 22 STDEF 8 0 40 0 110 500 10 DRWTT 8 0 40 0 110 450 11 DRWTT 8 0 40 0 110 410 12 DRWTT 8 0 40 0 110 370 13 DRWTT 8 0 40 0 110 330 14 DRWTT 8 0 40 0 110 290 15 DRWTT 8 0 40 0 110 250 16 DRWTT 8 0 40 0 110 210 17 DRWTT 8 0 40 0 110 170 18 DRWTT 8 0 40 0 110 130 19 DRWTT 8 0 40 0 110 90 20 DRWTT 8 0 40 0 110 50 21 DRWTT 8 0 40 0 110 10 22 DRWTT Geo. long. ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ ## ##' @ @ $ NUMS 10 STDEF 1 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 11 STDEF 2 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 12 STDEF 3 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 13 STDEF 4 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 14 STDEF 5 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 15 STDEF 6 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 16 STDEF 7 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 17 STDEF 8 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 18 STDEF 9 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 19 STDEF 10 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 20 STDEF 11 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 21 STDEF 0 PV 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 22 STDEF 8 0 40 0 340 500 10 DRWTT 8 0 40 0 340 450 11 DRWTT 8 0 40 0 340 410 12 DRWTT 8 0 40 0 340 370 13 DRWTT 8 0 40 0 340 330 14 DRWTT 8 0 40 0 340 290 15 DRWTT 8 0 40 0 340 250 16 DRWTT 8 0 40 0 340 210 17 DRWTT 8 0 40 0 340 170 18 DRWTT 8 0 40 0 340 130 19 DRWTT 8 0 40 0 340 90 20 DRWTT 8 0 40 0 340 50 21 DRWTT 8 0 40 0 340 10 22 DRWTT Motion @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' $ NUMS 10 STDEF 6 0 1 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 11 STDEF 6 0 2 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 12 STDEF 6 0 3 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 13 STDEF 6 0 4 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 14 STDEF 6 0 5 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 15 STDEF 6 0 6 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 16 STDEF 6 0 7 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 17 STDEF 6 0 8 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 18 STDEF 6 0 9 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 19 STDEF 6 0 10 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 20 STDEF 6 0 11 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 21 STDEF 6 0 0 XPOS 1 DUP ITOMS ABS 60 DIVR XY 100 ADD XY 3 FETCH 0 > 2 ADD 22 STDEF 8 0 40 0 530 500 10 DRWTT 8 0 40 0 530 450 11 DRWTT 8 0 40 0 530 410 12 DRWTT 8 0 40 0 530 370 13 DRWTT 8 0 40 0 530 330 14 DRWTT 8 0 40 0 530 290 15 DRWTT 8 0 40 0 530 250 16 DRWTT 8 0 40 0 530 210 17 DRWTT 8 0 40 0 530 170 18 DRWTT 8 0 40 0 530 130 19 DRWTT 8 0 40 0 530 90 20 DRWTT 8 0 40 0 530 50 21 DRWTT 8 0 40 0 530 10 22 DRWTT Decl. @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' @ ## ##' $bottom frame -950 -1260 ORGIN 0 0 DRAW 1900 0 DRAW 1900 60 DRAW 0 60 DRAW 0 0 DRAW PENUP 7 7 DRAW 1893 7 DRAW 1893 53 DRAW 7 53 DRAW 7 7 DRAW PENUP $ 10 STDEF 4 2 50 0 950 0 -69 DRWTT EFAS - BM 7470 - London WC 1N 3XX - 0171 700 3556 $ chartwheel 200 230 ORGIN 73 RSIZE 0 3 WHEEL GROFF $$$