PageRenderTime 22ms CodeModel.GetById 10ms app.highlight 7ms RepoModel.GetById 1ms app.codeStats 0ms

/debugger/test/examples/testcntr.pp

http://github.com/graemeg/lazarus
Pascal | 30 lines | 28 code | 1 blank | 1 comment | 2 complexity | fe3145343623ed1c8a5dc14f816ca5cc MD5 | raw file
 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.