home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / maths / exam01.dba next >
Encoding:
Text File  |  2000-04-09  |  678 b   |  31 lines
  1. Rem * Title  : Random Numbers
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ===========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 1
  6. rem ===========================================
  7. rem This program will use the randomize command
  8. rem -------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem This command will reseed the random command 
  14. randomize 100
  15.  
  16. for t=0 to 100
  17.  
  18.     rem Pick a random ink color
  19.     ink rnd(32000),1
  20.  
  21.     rem Draw a dot on screen
  22.     dot rnd(640),rnd(480)
  23.  
  24. next t
  25.  
  26. rem Will wait for you to press any key
  27. suspend for key
  28.  
  29. rem End the program
  30. end
  31.