11 lines
189 B
Text
11 lines
189 B
Text
01.10 TYPE "FIBONACCI NUMBERS" !
|
|
01.20 ASK "N =", N
|
|
01.30 SET A=0
|
|
01.40 SET B=1
|
|
01.50 FOR I=2,N; DO 2.0
|
|
01.60 TYPE "F(N) ", %8, B, !
|
|
01.70 QUIT
|
|
|
|
02.10 SET T=B
|
|
02.20 SET B=A+B
|
|
02.30 SET A=T
|