23 lines
369 B
Text
23 lines
369 B
Text
|
data:
|
||
|
|
n is number
|
||
|
|
|
||
|
|
procedure:
|
||
|
|
sub multiply
|
||
|
|
parameters:
|
||
|
|
x is number
|
||
|
|
y is number
|
||
|
|
result is number
|
||
|
|
procedure:
|
||
|
|
in result solve x * y
|
||
|
|
end sub
|
||
|
|
|
||
|
|
# call the bare sub-procedure
|
||
|
|
call multiply with 3 4 n
|
||
|
|
display n lf
|
||
|
|
|
||
|
|
# create a statement for it
|
||
|
|
create statement "multiply $ by $ in $" executing multiply
|
||
|
|
|
||
|
|
multiply 3 by 4 in n
|
||
|
|
display n lf
|