home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fractrace / FTS-Files / Recursion < prev    next >
Encoding:
Text File  |  1990-07-21  |  229 b   |  19 lines
  1. \ Recursion
  2. \ Demonstrates the use of (recursive) subroutines
  3. \ in FracTrace
  4.              
  5. var count,max
  6.  
  7. count=1
  8. max=20
  9. call recurcount
  10. show count
  11. stop
  12.  
  13. .recurcount 
  14.  count=count+1
  15.  if count<max
  16.   call recurcount
  17.  endif
  18.  return
  19.