RosettaCodeData/Task/Fibonacci-sequence/FTCBASIC/fibonacci-sequence.basic

20 lines
149 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
define a = 1, b = 1, s = 0, i = 0
cls
print "Fibonacci Sequence"
do
let s = a + b
let a = b
let b = s
+1 i
print s
loop i < 20
pause
end