aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

langs a-z

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Fibonacci-sequence/OPL/fibonacci-sequence.opl Normal file
View file

@ -0,0 +1,14 @@
FIBON:
REM Fibonacci sequence is generated to the Organiser II floating point variable limit.
REM This method was derived from (not copied...) the original OPL manual that came with the CM and XP in the mid 1980s.
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