DP Tool Club 8/CDASC08.ISO/NEWS/554/JUIN/SPINCURS.PAS

Pascal/Delphi Source File | 1993-10-07 | 812b | 32 lines

{─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
Msg  : 303 of 355
From : Sean Palmer                         1:104/123.0          11 Jun 93  00:38
To   : All
Subj : Spinning text cursor
────────────────────────────────────────────────────────────────────────────────
Yes, more meaningless drivel from the bowels of my mind.

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

program spinCursor;

uses crt;

var cursorState:byte;  {0..3}

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

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

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