apl>" <------------------------- sam138.txt ---------------------------->


apl>)copy cap2/handbook/wksp/ac add can


apl>)copy cap2/handbook/wksp/df div fdiv fix float fmul format


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


apl>)copy cap2/handbook/wksp/pr rounds


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


apl>format b#0 222 3333333 4444444 5555555

222 3333333 4444444 5555555.

apl>format c#-2 12345 6789012 3456789

12345.6789012 3456789 

apl>format b fdiv c

180090 0016298 1001574.

apl>a#0 47152 2357206


apl>format half#-6 5000000 0 0 0 0 0

0.5000000 0000000 0000000 0000000 0000000 0000000 

apl>a fmul half

-1 23576 1178603 0

apl>format c fmul half

6172.8394506 1728394 5000000 

apl>format two#-5 2 0 0 0 0  0

2.0000000 0000000 0000000 0000000 0000000 

apl>format L#two fmul half

-6 1 0 0 0 0 0 0

1.0000000 0000000 0000000 0000000 0000000 0000000 

apl>format (b fmul c)fdiv b

12345.6789012 3456788 9994910 

apl>format b fdiv half

444 6666666 8888889 1111110.0000000 

apl>)off