home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / bitmap / exam07.dba < prev   
Encoding:
Text File  |  2000-05-22  |  940 b   |  39 lines

  1. Rem * Title  : Bitmap Deleting
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem =============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 7
  6. rem ============================================
  7. rem This program will create and delete a bitmap
  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 create a bitmap
  14. create bitmap 1,640,480
  15.  
  16. rem Set all drawing to bitmap 0
  17. set current bitmap 0
  18.  
  19. rem This command will check for bitmap one
  20. if bitmap exist(1)=1
  21.     print "THERE IS A BITMAP NUMBER ONE"
  22. endif
  23.  
  24. rem This command will delete bitmap
  25. delete bitmap 1
  26.  
  27. rem This command will check for bitmap two
  28. if bitmap exist(2)=1
  29.     print "THERE IS A BITMAP NUMBER TWO"
  30. else
  31.     print "THERE IS NOT BITMAP NUMBER TWO"
  32. endif
  33.     
  34. rem Will wait for you to press any key
  35. suspend for key
  36.  
  37. rem End the program
  38. end
  39.