home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / CURSON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-16  |  470 b   |  20 lines
  1. {<<<< CursorOn >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 18.4   --   Last mod 10/4/88  }
  5. { HIGHLY specific to the IBM PC }
  6.  
  7. PROCEDURE CursorOn;
  8.  
  9. VAR
  10.   Points : Byte;
  11.   Regs   : Registers;
  12.  
  13. BEGIN
  14.   Points := DeterminePoints;
  15.   Mem[$40:$87] := Mem[$40:$87] OR $01;
  16.   WITH Regs DO
  17.     BEGIN AX := $0100; CH := Points-2; CL := 0; END;
  18.   INTR(16,Regs);
  19. END;
  20.