home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / MONITOR.ZIP / MONITOR.BAS < prev    next >
BASIC Source File  |  1994-01-04  |  700b  |  53 lines
  1.  
  2. DECLARE FUNCTION Monitor% ()
  3.  
  4. '        This function will return the type of video card in the system.
  5. '        1 = MCGA Color
  6. '        2 = MCGA Mono
  7. '        3 = VGA Color
  8. '        4 = VGA Mono
  9. '        5 = EGA
  10. '        6 = CGA
  11. '        7 = Hercules
  12. '        8 = MDA
  13.  
  14. Test% = Monitor%
  15.  
  16. CLS
  17.  
  18. PRINT "The Function returns"; Test%
  19.  
  20.  
  21. '============================
  22. SELECT CASE Test%
  23.  
  24. CASE 1
  25.     PRINT "MCGA Color"
  26.  
  27. CASE 2
  28.     PRINT "MCGA Mono"
  29.  
  30. CASE 3
  31.     PRINT "VGA Color"
  32.  
  33. CASE 4
  34.     PRINT "VGA Mono"
  35.  
  36. CASE 5
  37.     PRINT "EGA"
  38.  
  39. CASE 6
  40.     PRINT "CGA"
  41.  
  42. CASE 7
  43.     PRINT "Hercules"
  44.  
  45. CASE 8
  46.     PRINT "MDA"
  47.  
  48. END SELECT
  49. '============================
  50.  
  51. END
  52.  
  53.