;Tertiary echo
;(c) Laurids Pedersen aug 1999
$
PTMP
1

Tertiary echo - Relativity theory by Gilbert Tjørnum
$
53 TABLN
22 MEGET 21 MEGET 20 MEGET NUMS


Radix:      	## ## ####
$
2 MEGET 1 MEGET 0 MEGET NUMS

Event:      	## ## ####
$
2 MEGET  1 MEGET  0 MEGET
22 MEGET 21 MEGET 20 MEGET
DDIF 0 STO				;age in days

$
0 RCL 0 < 0 RCL 32767 > AND IF;less than 89 years age
0 RCL 8111 16577 MULT 1 STO	;lower echo age (days)
0 RCL 16577 8111 MULT 2 STO	;higher echo age (days)

$
20 MEGET 1 RCL ADD 0 MEPUT
21 MEGET 1 MEPUT
22 MEGET 2 MEPUT
DNORM					;lower echo date
2 MEGET 1 MEGET 0 MEGET NUMS

Lower echo: 	## ## ####
$
0 RCL 16383 > IF
20 MEGET 2 RCL ADD 0 MEPUT
21 MEGET 1 MEPUT
22 MEGET 2 MEPUT
DNORM					;higerer echo date
2 MEGET 1 MEGET 0 MEGET NUMS

higher echo:	## ## ####
$
ELSE NUMS

higher echo:	xxxxxxxxxxx
$
ENDIF
ELSE NUMS

Lower echo: 	xxxxxxxxxxx
higher echo:	xxxxxxxxxxx
$
ENDIF
53 TABLN 1


$$$