uses crt;
const 
m:string=('MeslekForum.com');{sabitimizi oluşturduk}
var{değişkenlerimizi oluşturduk}
i,x:integer;
begin
clrscr;
for x:=1 to 3 do {Kaç kere satırı başa sarmasını istersek o kadar isterseniz kısır döngüye sokabilirsiniz}
for i:=1 to 80 do {satırımız 80 sütundan oluştugu için 80 kere dönecek döngümüz}
begin
clrscr;{ekranı temizledik}
gotoxy(i,1);{imlecimiz i. sütun 1.satıra geldi}
write(m); {mesajımızı yazdık}
delay(100); {bekledik}
end;
readkey;{işlemler tamamlandıgında programımız kapanmaması için bir tuşa basımı kontrol ettik}
end.