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