RosettaCodeData/Task/Fibonacci-sequence/ZX-Spectrum-Basic/fibonacci-sequence-1.basic

10 lines
145 B
Plaintext

10 REM Only positive numbers
20 LET n=10
30 LET n1=0: LET n2=1
40 FOR k=1 TO n
50 LET sum=n1+n2
60 LET n1=n2
70 LET n2=sum
80 NEXT k
90 PRINT n1