Hi, Bek.

BO> A long, long, time ago I had some cursor manipulation routines in
BO> assembler...  I think.  At least, I haven't got any now and I need 'em -
BO> nothing fancy, just on/off.

BO> Anybody gonna volunteer?

Try these Pascal ones...

const LargeCursorNeeded: boolean = false;
const HiddenCursor = $2000;
      NormalCursor = $0607;
      LargeCursor  = $0307;

var CrtMode: byte absolute $40:$49;

procedure SetCursor (C: word);
var Regs: Registers;
begin
Regs.AH := 1; Regs.CX := C; Intr ($10, Regs);
end;

procedure ShowCursor;
begin
if CrtMode = 7 then
  if LargeCursorNeeded then
    SetCursor ($070C)
  else
    SetCursor ($0B0C)
else
  if LargeCursorNeeded then
    SetCursor (LargeCursor)
  else
    SetCursor (NormalCursor);
end;

procedure HideCursor;
begin
SetCursor (HiddenCursor);
end;

Regards, FIM.

 * * Cow's breath attracts mosquitoes and tsetse flies!
@EOT:

---