home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG004.ARK / RND.FOR < prev    next >
Text File  |  1984-04-29  |  108b  |  7 lines
  1.     FUNCTION RND(IY)
  2.     IY = IY*899
  3.     IF (IY .LT. 0) IY = IY + 32767 + 1
  4.     RND=FLOAT(IY)/32767.
  5.     RETURN
  6.     END
  7.