#include "naszvbas.cc"

BEGINBASIC
BASIC 10 PRINT "Fibonacci series calculator in BASIC"
BASIC 20 PRINT "What is the upper bound?"
BASIC 30 INPUT D
BASIC 35 LET I=1
BASIC 40 LET A=0
BASIC 50 LET B=1
BASIC 60 IF I>D THEN 130
BASIC 70 LET C=B+A
BASIC 80 LET A=B
BASIC 90 LET B=C
BASIC 100 PRINT I,"th number is: ", A
BASIC 110 LET I=I+1
BASIC 120 GOTO 60
BASIC 130 END
ENDBASIC