home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fractrace / FTS-Files / Sum50 < prev   
Encoding:
Text File  |  1990-07-21  |  182 b   |  18 lines
  1. \ Sum50
  2. \ Calculates the sum of the first 50 numbers
  3.  
  4. var count,sum
  5.  
  6. sum=0
  7. count=1
  8. repeat
  9.  call makesum
  10.  show sum
  11. until count=51
  12. stop
  13.  
  14. .makesum
  15.  sum=sum+count
  16.  count=count+1
  17.  return
  18.