home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB4.ZIP / CURSOR.LIB < prev    next >
Encoding:
Text File  |  1984-12-03  |  913 b   |  28 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5.    In monochrome mode, the cursor has 14 scan lines, with 0 at the top
  6.    and 13 at the bottom.  In color text mode, it has 7, from 0 to 6.
  7.  
  8.    To kill the cursor, set the topLine to 48
  9.  
  10.    Normal cursor for monochrome is 12,13.
  11.  
  12.    NOTE: programs INCLUDEing CURSOR.LIB must also include REGPACK.TYP
  13.    }
  14.  
  15. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  16. procedure Cursor_Control(topLine, bottomLine : byte);
  17. var
  18.   registers : regpack;
  19. begin
  20.   with Registers do
  21.     begin
  22.       ax := 1 shl 8;
  23.       cx := topLine shl 8 + bottomLine;
  24.       INTR($10,registers);
  25.     end;
  26. end;
  27. {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  28.