World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/PASCAL/MADTRB21.ZIP/CURSON.SRC

Text File | 1985-06-09 | 310b | 17 lines

PROCEDURE CURSOR_ON;

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

VAR REGS        : REG_PACK;

BEGIN
  WITH REGS DO
    BEGIN
      AX := $0100;
      IF MONOCHROME THEN CX := $0B0C ELSE CX := $0607;
    END;
  INTR(16,REGS);
END;