17 lines
172 B
Smalltalk
17 lines
172 B
Smalltalk
PROGRAM Demo
|
|
VAR
|
|
a UINT := 0;
|
|
b UINT := 0;
|
|
i UINT := 0;
|
|
END_VAR
|
|
|
|
WHILE a < 5 DO
|
|
a := a + 1;
|
|
END_WHILE;
|
|
|
|
FOR i := 1 TO 10 DO
|
|
b := b + i;
|
|
END_FOR;
|
|
|
|
END_PROGRAM
|