home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / graphic / getclr.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  323 b   |  14 lines
  1. 'Date: 05-19-92 (02:38)
  2. 'From: RICH GELDREICH
  3.  
  4. 'To get the original red, green, & blue color values from a VGA
  5. 'adaptor, you could use this:
  6.  
  7.     Out &h3c7, Attribute
  8.     Out &h3c8, Attribute
  9.     Red=inp(&H3c9)
  10.     Green=inp(&h3c9)
  11.     Blue=inp(&h3c9)
  12.  
  13. '    Where "attribute" is the color you want to inspect.
  14.