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;

[Sofa5000]

Kannst du bitte mal das ganze machen! Das schaut nähmlich sehr gut aus aber die anderen Seiten bräuchte ich auch nocht!

Danke!

[devnull]

Ich weis nich, ob das jetzt hier noch aktuell is;
falls ja, ich habe eigentlich nur deinen source übernommen und umgeformt ...
du solltest vor der repeat-Schleife noch f := 0; setzen.

devnull