Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/CMPLTPAS.ZIP/CURSOFF.PAS

Pascal/Delphi Source File | 1988-07-14 | 430 b | 20 lines

{<<<< CursorOff >>>>}
{ From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
{ Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
{ Described in section 18.4   --   Last mod 7/14/88  }
{ HIGHLY specific to the IBM PC }

PROCEDURE CursorOff;

VAR
  Regs : Registers;

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