/debugger/test/examples/testcntr.pp

 1program testcntr;
 2{$mode objfpc}{$H+}
 3uses
 4  TestWait,
 5  SysUtils;
 6  
 7var
 8  m, n, x : Cardinal;  
 9  w: TWait;
10  S: String;
11begin
12  m :=0;
13  x := 0;
14  w := TWait.Create(2);
15  while x < 3 do
16  begin
17    repeat  
18      S := Format('[%.10d] ', [m]);
19      Write(S);
20      Inc(m);
21      for n := 0 to 79 do 
22      begin
23        Write('*');
24      end;
25      WriteLN;
26    until m mod 10 = 0;
27    W.Wait(10);
28    inc(x);
29  end;
30end.