home *** CD-ROM | disk | FTP | other *** search
/ Golden Seven Gentlemen / SOFTWARE.iso / UCDOS70 / 5 / SRC.ZIP / TX / PRG / RANDOM.PRG < prev    next >
Encoding:
Text File  |  1996-09-25  |  62 b   |  4 lines
  1. PARAMETERS N
  2. SEED=MOD(SEED*7+113,65533)
  3. RETURN MOD(SEED,N)
  4.