;ephemeris generator for ARGUS
$
1 CARY

,Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Okt,Nov,Dec
$
12 4 MEPUT 0 5 MEPUT 0 6 MEPUT 0 8 MEPUT 0 9 MEPUT
2 MEGET NUMS
90 TABLN


EFEMERIDE for planetpositioner for #### MIDDAG
$
90 TABLN
1 12 FOR 1 CNT NUMS


@@@						�						�						�						�						�						�						�						�						�						�						�						�
$
90 TABLN NUMS


$
2 PAD
1 31 FOR
1 CNT 1 MEPUT
2 CNT 0 STO 0 MEPUT
DNORM
0 RCL 0 MEGET = IF
12 1 FOR
3 CNT 12 MOD PLA
XY DEC
ITOM
1800 DIVR
XY 60 DIVR
XY 100 ADD XY
3 FETCH 1 ADD SNAME XY
NEXT
1 MEGET 0 MEGET
NUMS

##	##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##
$
ENDIF NEXT 1
0 TABLN

$
NEXT

$$$