[ Passwd @ 09.04.2005. 14:48 ] @
Kako napravit ovo:


Code:

program tockice;
uses crt;
begin
writeln("Loading...");
end;



-da tockice iza loading idu postupno (prva,druga,treca,pa ispocetka)
-al na sto jednostavniji nacin jer sam nov u ovom svijetu
[ Toyo @ 09.04.2005. 16:17 ] @

Code:

var
  i:Integer;
  kraj:Boolean;
begin
  i := 0;
  kraj := false;
  repeat
    gotoxy(1,1) // valjda je ova naredba
    write('Loading'+copy('...',1, (i mod 3)+1)+'  ');
    inc(i);

    // ovde nesto radis i kad uradis
    // postavis  kraj := true;

  until kraj
end.