apl>" <------------------------- sam130.txt ---------------------------->


apl>)copy cap2/handbook/wksp/df dates dayno days H


apl>)copy cap2/handbook/wksp/mo ndates


apl>)copy cap2/handbook/wksp/su shape


apl>dates L#days L#ndates L#aa#' 'shape'081118 021926 031354 062758'

081118
021926
031354
062758

8 11 1918
2 19 1926
3 13 1954
6 27 1958

700392 703141 713390 714957

8 11 1918
2 19 1926
3 13 1954
6 27 1958

apl>L#a#dayno x#4 3R8 11 1918 2 19 1926 3 13 1954 6 27 1958

2421817 2424566 2434815 2436382


apl>L#b#dayno 1 1 1

1721424


apl>L#c#-1+a_b

700392 703141 713390 714957


apl>L#d#days x

700392 703141 713390 714957


apl>a # 1 64 R ' r#payday mdy;Lio                                               '


apl>a # a,[1]  '" friday, on or before mdy                                      '


apl>a # a,[1]  ' r#(days mdy)_I7+Lio#0                                          '


apl>a # a,[1]  ' r#dates r[(7|r)I5]                                             '


apl>Lfx a

payday

apl>payday 6 30 1977

6 24 1977

apl>)off