uses crt;
var
a: integer;
b:longint;
begin
for a:=1 to 70 do
begin
gotoxy (a,12);
writeln ('SeLCuX');
for b:=1 to 1000000 do b:=b+1;
clrscr;
end;
readln;
end.
(Yazının hızını ayarlamak isterseniz 1000000 sayısını değiştirebilirsiniz...)
SeLCuX
selcux@hackermail.com
selcux
selcux@hackermail.com