19 lines
149 B
Text
19 lines
149 B
Text
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
|