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

  1. Rem * Title  : Load Bitmap Hidden
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ========================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 2
  6. rem ========================================================
  7. rem This program will load a BMP file into bitmap 1
  8. rem --------------------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(255,255,255),0
  12.  
  13. rem This command will load a windows bmp file into bitmap 0
  14. load bitmap "pics\bitmap0.bmp"
  15.  
  16. rem This command will load a windows bmp file into bitmap 1
  17. rem and make this bitmap the current bitmap you can see
  18. load bitmap "pics\bitmap1.bmp",1
  19.  
  20. rem This command will set the bitmap you can see to bitmap 0
  21. set current bitmap 0
  22.  
  23. rem Print a message on screen
  24. text 150,240,"PRESS A KEY TO COPY BITMAP 1 TO THIS SCREEN"
  25. suspend for key
  26.  
  27. rem Now we will copy the picture from bitmap 1 to bitmap 0
  28. copy bitmap 1,0
  29.  
  30. text 150,240,"PRESS A KEY TO QUIT"
  31.  
  32. rem Will wait for you to press any key
  33. suspend for key
  34.  
  35. rem End the program
  36. end
  37.