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

    {
    SEAN PALMER

    This is an example for the cursor I talked about to someone on here...
    }

    program spinCursor;

    uses
      crt;

    var
      cursorState : byte;  {0..3}
      i           : integer;

    const
      cursorData : array [0..3] of char = (#30, #17, #31, #16);

    procedure updateCursor;
    begin
      cursorState := succ(cursorState) and 3;
      write(cursorData[cursorState], ^H);
    end;

    begin
      for i := 1 to 100 do
      begin
        gotoxy(1,1);
        updateCursor;
        gotoxy(1,41);
        delay(100);
      end;
    end.

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