procedure HideCursor;assembler;
asm
   mov ax,0100h
   mov cx,0100h
   int 10h
end;

procedure ShowCursor;assembler;
asm
   mov ax,0100h
   mov cx,0607h
   int 10h
end;

begin
   HideCursor;
   ShowCursor;
end.