home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / 2d / exam03.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  935 b   |  40 lines
  1. Rem * Title  : Draw A Circle
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 3
  6. rem ==========================================
  7. rem This program will draw a circle on screen
  8. rem ------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),0
  12.  
  13. rem We will draw 100 circle on screen
  14. for t=1 to 100
  15.     rem Get a random ink color
  16.     ink rgb(rnd(255),rnd(255),rnd(255)),1
  17.     
  18.     rem where on screen to draw circle
  19.     left=rnd(640)
  20.     top=rnd(480)
  21.  
  22.     rem Pick a random size circle    
  23.     size=rnd(90)+10
  24.  
  25.     rem Draw the circle
  26.     circle left,top,size
  27. next t
  28.  
  29. rem Set the ink to white and paper color to black 
  30. ink rgb(244,214,210),1
  31.  
  32. rem Print a message on screen
  33. text 200,240,"press the spacebar to quit"
  34.  
  35. rem Will wait for you to press any key
  36. suspend for key
  37.  
  38. rem End the program
  39. end
  40.