#Draw patterns using fibonacci
clg
cls
a=0
b=1
color yellow
rect 0, 0, 300, 300
while b <1000
n=a+b
print n
a=b
b=n
gosub fibonacci_draw
fibonacci_draw:
for i=a to b
color red
line a,b,i,i
next i
endwhile