Wie kann ein Zeichen Spiralförmig am Bildschirm laufen?

[devnull]

Schreib so den Code so:

Delphi-Quellcode:

  clrscr;
  for i:=1 to 80-f do begin
      gotoxy(i,y);
      textcolor (white);
      write('*');
      delay (75);
      textcolor (black);
      write('*');
  end;