home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / minigen.zip / CURSOR.INC < prev    next >
Text File  |  1988-02-04  |  464b  |  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}