Невидимый курсор Опции

[inet007]

Курсор всё равно не исчезает, а становиться жирным и поднимается на одну строчку выше!!
Что здесь не так??


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.

[AlaRic]

FAQ

[GLuk]

Или ПОИСК

[trminator_offline]

Эти процедуры, кстати, в окне не работают. Только в полном экране