" <------------------------- sam130.txt ---------------------------->
)copy cap2/handbook/wksp/df dates dayno days H
)copy cap2/handbook/wksp/mo ndates
)copy cap2/handbook/wksp/su shape
dates L#days L#ndates L#aa#' 'shape'081118 021926 031354 062758'
L#a#dayno x#4 3R8 11 1918 2 19 1926 3 13 1954 6 27 1958
L#b#dayno 1 1 1
L#c#-1+a_b
L#d#days x
a # 1 64 R ' r#payday mdy;Lio                                               '
a # a,[1]  '" friday, on or before mdy                                      '
a # a,[1]  ' r#(days mdy)_I7+Lio#0                                          '
a # a,[1]  ' r#dates r[(7|r)I5]                                             '
Lfx a
payday 6 30 1977
)off