[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]