;Draco  chart  for ARGUS
$
PTMP
4 PSTAT MACR 5 PSTAT
11 PLA                          ;node
1 3 MEGET BOO 2 MUL SUB         ;+-1 AD/BC
2 MEGET MUL 3 MEGET BOO ADD     ;year, signed
1900  SUB                       ;years since 1900.0        
2546 1000 MULT                  ;intang precession
SUB ITOM                        ;node-precession
AYA                             ;set zod offset
1

DRACO-HOROSKOP
$
MACR MACV                           ;call radix calculation

$$$