13 lines
238 B
Text
13 lines
238 B
Text
FIBON:
|
|
REM Fibonacci sequence is generated to the Organiser II floating point variable limit.
|
|
REM CLEAR/ON key quits.
|
|
REM Mikesan - http://forum.psion2.org/
|
|
LOCAL A,B,C
|
|
A=1 :B=1 :C=1
|
|
PRINT A,
|
|
DO
|
|
C=A+B
|
|
A=B
|
|
B=C
|
|
PRINT A,
|
|
UNTIL GET=1
|