10 cls
20 let a = 1
30 let b = 1
40 print "Fibonacci Sequence"
50 rem loop
60 let s = a + b
70 let a = b
80 let b = s
90 let i = i + 1
100 print s
120 if i < 20 then 50
130 shell "pause"
140 end