1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROGRAM test_while_do;
 
DEVICE = mega1284P;
 
{$I mega1284_Register.INC}
 
VAR
  Kursor_Schleife : DWord;
 
BEGIN
 
  Kursor_Schleife:=5;
 
  while Kursor_Schleife<100 do
    Kursor_Schleife:=Kursor_Schleife+10;
  endwhile;
 
END test_while_do.