home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / graphic / isclrmon.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  233 b   |  11 lines
  1. DECLARE FUNCTION IsClrMon ()
  2.  
  3. FUNCTION IsClrMon STATIC
  4.    'Captured from post by Joe Negron
  5.  
  6.    'If 0000:0463 = B4, monitor is monochrome, else color
  7.    DEF SEG = 0
  8.    IsClrMon = PEEK(&H463) <> &HB4
  9.    DEF SEG
  10. END FUNCTION
  11.