RosettaCodeData/Task/Fibonacci-sequence/Integer-BASIC/fibonacci-sequence.basic

 10 INPUT N
 20 A=0
 30 B=1
 40 FOR I=2 TO N
 50 C=B
 60 B=A+B
 70 A=C
 80 NEXT I
 90 PRINT B
100 END