18 lines
210 B
ObjectPascal
18 lines
210 B
ObjectPascal
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. |