18 lines
464 B
Plaintext
18 lines
464 B
Plaintext
NORMAL MODE IS INTEGER
|
|
|
|
INTERNAL FUNCTION(N)
|
|
ENTRY TO FIB.
|
|
A = 0
|
|
B = 1
|
|
THROUGH LOOP, FOR N=N, -1, N.E.0
|
|
C = A + B
|
|
A = B
|
|
LOOP B = C
|
|
FUNCTION RETURN A
|
|
END OF FUNCTION
|
|
|
|
THROUGH SHOW, FOR I=0, 1, I.GE.20
|
|
SHOW PRINT FORMAT FNUM, I, FIB.(I)
|
|
VECTOR VALUES FNUM = $4HFIB(,I2,4H) = ,I4*$
|
|
END OF PROGRAM
|