home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fractrace / FTS-Files / Fibonacci < prev    next >
Encoding:
Text File  |  1990-07-21  |  200 b   |  15 lines
  1. \ Fibonacci
  2. \ Calculates the first 20 numbers 
  3. \ in the Fibonacci sequence
  4.  
  5. var old,veryold,new,count
  6.  
  7. veryold=0
  8. old=1       
  9. for count=1 to 20
  10.  new=veryold+old
  11.  veryold=old
  12.  old=new
  13.  show new
  14. endfor
  15.