Курсор всё равно не исчезает, а становиться жирным и поднимается на одну строчку выше!!
Что здесь не так??
uses crt,dos;
var h,m,s,ms:word;
procedure CursorOff; assembler;
asm
mov ah,1
mov cx,2020h{Убрать мерцание за пределы знакоместа}
int 10h
end;
procedure CursorON; assembler;
asm
mov ah,1
mov cx,0607h{Установить мерцание 6й и 7й строк}
int 10h
end;
Begin
clrscr;
repeat
gettime(h,m,s,ms);
gotoxy(20,10);
CursorOff;
write(h,':',m,':',s);
until keypressed;
CursorON;
readln;
end.