home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / factrl < prev    next >
Encoding:
Text File  |  1989-07-20  |  74 b   |  7 lines
  1. DEFFNfact(N%)
  2. LOCAL M%: M% = 1
  3. FOR I% = 1 TO N%
  4.    M% = M%*I%
  5. NEXT I%
  6. =M%
  7.