[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]
var crstyp: word;
procedure cursoff;
{ Turns the cursor off. Stores its format for later redisplaying. }
begin
asm
mov ah, 03h
mov bh, 00h
int 10h
mov crstyp, cx
mov ah, 01h
mov cx, 65535
int 10h
end;
end;
procedure curson;
{ Turns the cursor back on, using the cursor display previously stored. }
begin
asm
mov ah, 01h
mov cx, crstyp
int 10h
end;
end;
[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]