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