38 lines
730 B
Text
38 lines
730 B
Text
START ;First 10 Fibonacci NUmbers
|
|
|
|
|
|
RECORD
|
|
FIB1, D10, 0
|
|
FIB2, D10, 1
|
|
FIBNEW, D10
|
|
LOOPCNT, D2, 1
|
|
|
|
RECORD HEADER
|
|
, A32, "First 10 Fibonacci Numbers."
|
|
|
|
RECORD OUTPUT
|
|
LOOPOUT, A2
|
|
, A3, " : "
|
|
FIBOUT, A10
|
|
|
|
PROC
|
|
|
|
OPEN(8,O,'TT:')
|
|
|
|
WRITES(8,HEADER)
|
|
|
|
LOOP,
|
|
FIBNEW = FIB1 + FIB2
|
|
LOOPOUT = LOOPCNT, 'ZX'
|
|
FIBOUT = FIBNEW, 'ZZZZZZZZZX'
|
|
|
|
WRITES(8,OUTPUT)
|
|
|
|
FIB1 = FIB2
|
|
FIB2 = FIBNEW
|
|
|
|
LOOPCNT = LOOPCNT + 1
|
|
IF LOOPCNT .LE. 10 GOTO LOOP
|
|
|
|
CLOSE 8
|
|
END
|