Progressed table for ARGUS
$
PTMP
0 5 CONFX
1 CARY

,Jan,Feb,Mar,Apr,Maj,Jun,Jul,Aug,Sep,Okt,Nov,Dec
$
2 PAD
12 4 MEPUT 0 5 MEPUT 0 6 MEPUT 0 8 MEPUT 0 9 MEPUT
0 NAME NUMS 
97 TABLN 0


@@@@@@@@@@@@@@@@@@@@@@@@@@@@@                                           	PROGRESSIV EFEMERIDE
$
97 TABLN
1 MEGET 0 MEGET NUMS


##	@@@			MC					ASC				�						�						�						�						�						�						�						�						�						�						�
$
97 TABLN NUMS


$
0 MEGET 0 STO
1 MEGET 1 STO
2 MEGET 2 STO

$
ZZO 13 14 1 2 3 4 5 6 7 8 9 10 11

$
0 60 FOR
1 CNT 2 RCL ADD 2 MEPUT
DNORM

$
4 PSTAT MACP 5 PSTAT
12 0 FOR
2 CNT GET PPOS
ITOM
1800 DIVR
XY 60 DIVR
XY 100 ADD XY
3 FETCH 1 ADD SNAME XY
NEXT
2 MEGET
NUMS

#####		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##		##@##
$
NEXT 1
97 TABLN


$$$