home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / TPCOMPLT.ZIP / MONOTEST.SRC < prev    next >
Text File  |  1986-05-06  |  500b  |  22 lines
  1. {<<<< Monochrome >>>>}
  2. { From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
  4. { Described in section 17.2 -- Last mod 2/1/86   }
  5. { HIGHLY specific to the IBM PC! }
  6.  
  7. FUNCTION Monochrome : Boolean;
  8.  
  9. TYPE
  10.   RegPack = RECORD
  11.               AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : Integer
  12.             END;
  13.  
  14. VAR
  15.   Regs : RegPack;
  16.  
  17. BEGIN
  18.   INTR(17,Regs);
  19.   IF (Regs.AX AND $0030) = $30 THEN Monochrome := True
  20.     ELSE Monochrome := False
  21. END;
  22.