home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / RNDTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-06  |  446 b   |  18 lines
  1.  
  2.     'Test the random number generator to see if it can draw
  3.     'uniformly random dots!
  4.     WindowWidth = 410
  5.     WindowHeight = 440
  6.     open "random generator test" for graphics as #draw
  7.     print #draw, "trapclose [quit]"
  8.     print #draw, "down ; size 2"
  9.     for x = 1 to 5000
  10.         print #draw, "place "; int(rnd(1)*400); " "; int(rnd(1)*400)
  11.         print #draw, "go 1"
  12.     next x
  13.  
  14.     wait
  15.  
  16. [quit]
  17.     close #draw
  18.     end