eyvallah bro. C ya hepsin ya hic.. ya TÜRK"sün ya pic!

Bir kod da ben yazıyım dedim... uses crt; var t:char; I:integer; begin clrscr; I:=0; repeat clrscr; gotoxy(I,15); writeln ; I:=I+1; if I=80 then I:=1; delay (100); until keypressed; end. Choose Your Destiny

hojucuk Sorun Degil Brother :) Bylece birşeyleri unutmuyorsun aslında iyi birşey tekrar olayı artiyor.. Choose Your Destiny

Bir başka kayan yazı programı Uses Crt; var a:Integer; Begin Repeat a:=14; While a>=1 Do Begin clrscr; textcolor(5); gotoxy(a,15); Writeln ; a:=a-1; delay(100); Sound(a 100); End; nosound; Until keypressed; End. Ayrıca ses efektleride kullanılmıştır. - Bilginin Adresinden TurkCom. Org -