home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / rand.utl < prev    next >
Encoding:
Text File  |  1997-12-26  |  116 b   |  7 lines
  1.  PROCEDURE RAND
  2.     u#=seed# * 31.415926 + 0.27189711
  3.     u%=u#
  4.     seed#=u#-u%
  5.     return (seed#)
  6.     ENDPROC 
  7.