FUNCTION MONOCHROME : BOOLEAN;

TYPE REG_PACK = RECORD
                  AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
                END;

VAR REGS        : REG_PACK;

BEGIN
  INTR(17,REGS);
  IF (REGS.AX AND $0030) = $30 THEN MONOCHROME := TRUE
    ELSE MONOCHROME := FALSE
END;