home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / fractrace / FTS-Files / Fibonacci < prev    next >
Text File  |  1990-07-21  |  200b  |  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.