UniBasic Commands Reference - Rocket Software

The preceding program calls the following function. The name of this cataloged file
is yourfunc. This is the name that must match the DEFFUN statement in the program
above. Notice that the function definition uses yet another name for the function
(anotherfunc).
1-199 UniBasic Commands Reference
FUNCTION anotherfunc(a, MAT b, c) ;* Start function
definition.
DIM b(-1) ;* Declare array.
r = 0 ;* Initialize return value.
c = 1 ;* Initialize value passed
back.
FOR i = 1 TO a ;* To the upper bound passed
in:
r += b(i) ;* Sum array members.
c *= b(i) ;* Multiply array members.
NEXT i
RETURN r ;* Return value.
The following screen example shows the command that runs the program and the
output from the program:
:RUN BP FUNCTION.CALL
r from FUNCTION: 3
c from FUNCTION: 2
The following example calls a user-defined function named CALC.SALES.TAX:
PRINT @(-1)
DEFFUN CALC.SALES.TAX(arg.1,arg.2)
PROMPT ''
PRINT 'Enter county name':;INPUT COUNTY.NAME
PRINT 'Enter sales amount ':;INPUT SALES.AMT
TAX.AMT=0
TAX.AMT=CALC.SALES.TAX(COUNTY.NAME,SALES.AMT)
PRINT 'County name =':COUNTY.NAME
PRINT 'Sales amount =':SALES.AMT
PRINT 'Tax amount =':TAX.AMT
END
Related Command
UniBasic
FUNCTION