PROCEDURE CURSOR_OFF;

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;
      CX := $2000;   { Set CH bit 5 hi to suppress cursor }
    END;
  INTR(16,REGS);
END;