12 lines
193 B
Text
12 lines
193 B
Text
|
PROC my_molt(a,b)
|
||
|
|
-> other statements if needed... here they are not
|
||
|
|
ENDPROC a*b -> return value
|
||
|
|
|
||
|
|
-> or simplier
|
||
|
|
|
||
|
|
PROC molt(a,b) IS a*b
|
||
|
|
|
||
|
|
PROC main()
|
||
|
|
WriteF('\d\n', my_molt(10,20))
|
||
|
|
ENDPROC
|