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