17 lines
502 B
Plaintext
17 lines
502 B
Plaintext
NORMAL MODE IS INTEGER
|
|
|
|
INTERNAL FUNCTION(N,DEG)
|
|
ENTRY TO MLTFAC.
|
|
RSLT = 1
|
|
THROUGH MULT, FOR MPC=N, -DEG, MPC.L.1
|
|
MULT RSLT = RSLT * MPC
|
|
FUNCTION RETURN RSLT
|
|
END OF FUNCTION
|
|
|
|
THROUGH SHOW, FOR I=1, 1, I.G.10
|
|
SHOW PRINT FORMAT OUTP, MLTFAC.(I,1), MLTFAC.(I,2),
|
|
0 MLTFAC.(I,3), MLTFAC.(I,4), MLTFAC.(I,5)
|
|
|
|
VECTOR VALUES OUTP = $5(I10,S1)*$
|
|
END OF PROGRAM
|