10 REM PROGRAM TO COMPUTE FIBONACCI TERMS
20 PRINT "0 1 1";
30 A = 1
40 A = INT((A + 1 + SQR(5 * A^2)) / 2)
50 PRINT " ";
60 PRINT A;
70 IF A < 65535 THEN GOTO 40
80 PRINT
90 END