home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
minigen.zip
/
CURSOR.INC
< prev
next >
Wrap
Text File
|
1988-02-04
|
464b
|
32 lines
Procedure Cursor(ch_in,cl_in:Byte);
Var
Regs : Registers;
Begin
With Regs do
Begin
AH := 1;
CH := ch_in;
CL := cl_in;
Intr($10,Regs);
End;
End; {Cursor}
Procedure CursorOn;
Begin
Case MG_ScreenType of
'C' : Cursor(6,7);
'M' : Cursor(12,13);
End; {case}
End; {CursorOn}
Procedure CursorOff;
Var
Regs : Registers;
Begin
With Regs do
Begin
AH := 1;
CH := CH or $10;
End;
Intr($10,Regs);
End; {CursorOff}