[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]

    Uses Crt;

    Var
      Continue : Char;

    Procedure HideCursor; Assembler;
    Asm
      MOV   ax,$0100
      MOV   cx,$2607
      INT   $10
    end;

    Procedure ShowCursor; Assembler;
    Asm
      MOV   ax,$0100
      MOV   cx,$0506
      INT   $10
    end;

    begin
      Writeln('See the cursor ?');
      Continue := ReadKey;
      HideCursor;
      Writeln('Gone! ');
      Continue := ReadKey;
      ShowCursor;
    end.

[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]