home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / FIBON.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  256 b   |  10 lines
  1. 10 REM FIBONACCI SEQUENCE TERMS
  2. 20 FOR X = 1 TO 100
  3. 30 Y = (((3.236067977#^X)-(-1.236067977#^X)))/((2^X)*(2.236067977#))
  4. 35 IF Y < 32767 THEN Y = CINT(Y)
  5. 36 IF Y > 1E+10 THEN 60
  6. 40 LPRINT X;Y
  7. 50 NEXT X
  8. 60 PRINT "THAT'S ALL FOLKS"
  9. 36067977#))
  10. 35 I