5 års grafiske KOLLEKTIVE transitter
$
PTMP
1 CARY                      

E,W,,
$ 
1 0 MEPUT 1 1 MEPUT
0 19 FOR 1 CNT MEGET 1 CNT STO NEXT             ;save menu
CALL                                            ;get radix time
0 11 FOR 1 CNT MEGET 1 CNT 20 ADD STO NEXT      ;save it
0 19 FOR 1 CNT RCL 1 CNT MEPUT NEXT DNORM       ;get current back

1R.
$
; Print header line with radix name and date:
31 RCL 29 RCL 28 RCL    ;zone/E/W minutes hours
26 RCL 25 RCL 24 RCL    ;seconds minutes hours
22 RCL 21 RCL 20 RCL    ;year month date
2 NAME 2 NUMS           ;Name

@@@@@@@@@@@@@@@@@@@  ## ## ####   ## ## ##   ## ## @    5 års tunge kollektive transitter
$ 5 year x-transits 1 dgr. orb
12 60 GTR

IfjfjI``fj
|...........|...........|...........|...........|...........|
             >Y           Y           Y           Y           Y    r       Y
$$$