36 lines
671 B
Plaintext
36 lines
671 B
Plaintext
;
|
|
; Fibonacci sequence for DBL version 4 by Dario B.
|
|
;
|
|
RECORD
|
|
|
|
FIB1, D10
|
|
FIB2, D10
|
|
FIBN, D10
|
|
|
|
J, D5
|
|
A2, A2
|
|
A5, A5
|
|
PROC
|
|
;----------------------------------------------------------------
|
|
XCALL FLAGS (0007000000,1) ;Suppress STOP message
|
|
|
|
OPEN (1,O,'TT:')
|
|
DISPLAY (1,'First 10 Fibonacci Numbers:',10)
|
|
|
|
FIB2=1
|
|
|
|
FOR J=1 UNTIL 10
|
|
DO BEGIN
|
|
FIBN=FIB1+FIB2
|
|
|
|
A2=J,'ZX'
|
|
A5=FIBN,'ZZZZX'
|
|
DISPLAY (1,A2,' : ',A5,10)
|
|
|
|
FIB1=FIB2
|
|
FIB2=FIBN
|
|
END
|
|
|
|
CLOSE 1
|
|
END
|