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

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