{<<<< CursorOff >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 17.2 -- Last mod 2/1/86   }
{ HIGHLY specific to the IBM PC }

PROCEDURE CursorOff;

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

VAR
  Regs : RegPack;

BEGIN
  WITH Regs DO
    BEGIN
      AX := $0100;
      CX := $2000;   { Set CH bit 5 hi to suppress cursor }
    END;
  INTR(16,Regs);
END;
