home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / system / exam01.dba next >
Encoding:
Text File  |  2000-04-09  |  1.2 KB  |  47 lines

  1. Rem * Title  : Check Graphics Cards
  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 check for graphics cards
  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 Has the computer what graphics card it has
  14. perform checklist for graphics cards
  15.  
  16. for t=1 to checklist quantity()
  17.     rem find out what the graphics card are called
  18.     print t," ",checklist string$(t)
  19. next t
  20. print
  21.  
  22. rem What graphic card is dark baisc using 
  23. print current graphics card$()
  24.  
  25. if emulation mode()=0
  26.     print "USING HARDWARE ACCELERATION"
  27. else
  28.     print "USING SOFTWARE EMULATION"
  29. endif
  30. print 
  31.  
  32. print "HOW MUCH VIDEO MEMORY IS FREE ON THIS COMPUTER ",system dmem available() 
  33. print 
  34. print "HOW MUCH SYSTEM MEMORY IS FREE ON YOU COMPUTER ",system smem available() 
  35. print 
  36. print "HOW MUCH TOTAL MEMORY IS FREE ON YOU COMPUTER ",system tmem available() 
  37. print
  38.  
  39. rem Will wait for you to press any key
  40. suspend for key
  41.  
  42. rem Delete from memory the checklist string$
  43. empty checklist
  44.  
  45. rem End the program
  46. end
  47.