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.
|