20 lines
207 B
Text
20 lines
207 B
Text
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
|