procedure HideCursor; Assembler;   {cursor}
 Asm
  MOV ax,$0100
  MOV cx,$2607
  INT $10
 end;
(****************************************************************************)
procedure ShowCursor; Assembler; {Cursor}
 Asm
 Mov ax,$0100
 Mov cx,$0506
 Int $10
end;