home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / randomize.utl < prev    next >
Encoding:
Text File  |  1997-12-26  |  163 b   |  9 lines
  1.  PROCEDURE RANDOMIZE
  2.     u$=dtime$(0)
  3.     u1%=0
  4.     loop for u%=1 to 19
  5.         u1% = u1% xor asc%(u$,u%)
  6.         endloop
  7.     seed#=u1%/31.4159
  8.     ENDPROC 
  9.