The program demonstrates how to pass an empty, unassigned pass-by-variable parameter (VAR Result:REAL) to a procedure, which will then populate the parameter and return a value back to the calling procedure.
The link command looks like:
LINKER V1.0
*D2:EMPTYBOX,FPLIB,PASLIB/S
When you run the program, it looks like:
No comments:
Post a Comment