home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / MADTRB21.ZIP / MONOTEST.SRC < prev    next >
Text File  |  1985-06-09  |  293b  |  14 lines
  1. FUNCTION MONOCHROME : BOOLEAN;
  2.  
  3. TYPE REG_PACK = RECORD
  4.                   AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
  5.                 END;
  6.  
  7. VAR REGS        : REG_PACK;
  8.  
  9. BEGIN
  10.   INTR(17,REGS);
  11.   IF (REGS.AX AND $0030) = $30 THEN MONOCHROME := TRUE
  12.     ELSE MONOCHROME := FALSE
  13. END;
  14.