home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MGTP4.ZIP / CURSOR.INC < prev    next >
Encoding:
Text File  |  1988-01-05  |  464 b   |  32 lines
  1. Procedure Cursor(ch_in,cl_in:Byte);
  2. Var
  3.   Regs : Registers;
  4. Begin
  5. With Regs do
  6.   Begin
  7.   AH := 1;
  8.   CH := ch_in;
  9.   CL := cl_in;
  10.   Intr($10,Regs);
  11.   End;
  12. End; {Cursor}
  13.  
  14. Procedure CursorOn;
  15. Begin
  16. Case MG_ScreenType of
  17.   'C' : Cursor(6,7);
  18.   'M' : Cursor(12,13);
  19.   End; {case}
  20. End; {CursorOn}
  21.  
  22. Procedure CursorOff;
  23. Var
  24.   Regs : Registers;
  25. Begin
  26. With Regs do
  27.   Begin
  28.   AH := 1;
  29.   CH := CH or $10;
  30.   End;
  31. Intr($10,Regs);
  32. End; {CursorOff}