4 lines
83 B
Text
4 lines
83 B
Text
DEFINE PROCEDURE ''ADD'' [A, B]:
|
|
BLOCK 0: BEGIN
|
|
OUTPUT <= A + B;
|
|
BLOCK 0: END.
|