19 lines
270 B
Smalltalk
19 lines
270 B
Smalltalk
(* motor.st *)
|
|
FUNCTION_BLOCK Foo
|
|
VAR_INPUT
|
|
in : BOOL;
|
|
END_VAR
|
|
VAR_OUTPUT
|
|
out : INT;
|
|
END_VAR
|
|
VAR
|
|
persist : INT;
|
|
END_VAR
|
|
VAR_TEMP
|
|
tmp : INT := 100;
|
|
END_VAR
|
|
tmp := tmp + 1;
|
|
persist := persist + 1;
|
|
out := tmp * 100 + persist;
|
|
END_FUNCTION_BLOCK
|