home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / bitmap / exam03.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  812 b   |  32 lines

  1. Rem * Title  : Save a Bitmap
  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 save a bitmap as a BMP file
  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 clear the screen with a random paper color 
  14. cls rnd(32000)
  15.  
  16. rem Print this is bitmap 51 times
  17. for y=0 to 50
  18.  
  19.     rem This is the message to print to the screen
  20.     text rnd(640),rnd(480),"THIS IS A NEW BITMAP"
  21.  
  22. next y
  23.  
  24. rem Save a bitmap 
  25. save bitmap "pics\newpic.bmp"
  26.  
  27. rem Will wait for you to press any key
  28. suspend for key
  29.  
  30. rem End the program
  31. end
  32.