apl>" <------------------------- sam129.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac cvec


apl>)copy cap2/handbook/wksp/df date dayno


apl>)copy cap2/handbook/wksp/gi if


apl>  17 cvec 1 2 3 5 7 11

0 0 0 1 0 1 0 1 1 1 0 1 1 1 1 1 1

apl>  32 cvec (0=4|I21)/I21

1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1

apl>  date L#z#dayno 5 17 1977

2443281

5 17 1977 1

apl>  date z,z+30

5 17 1977 1
6 16 1977 1

apl>" if the old style calendar was in use after 1752, or the new style


apl>" in use before then, the user must give the style. 


apl>" for example in the usa:


apl>  date L#z#dayno 1 1 1800

2378497

1 1 1800 1

apl>" but in russia


apl>  date 1 2Rz,0

12 21 1799 0

apl>)off