Quote:function doUserFunctionAssignment() {
' //IJ.log("doUserFunctionAssignment0: "+pgm.decodeToken(token, tokenAddress));
putTokenBack();
int savePC = pc; ' pc is program counter
getToken();      ' // the variable
getToken();      '// '='
getToken();      '// the function name
        'example in BASIC way ... -> v = myfn()
bool simpleAssignment = isSimpleFunctionCall(true);
pc = savePC;
If (!simpleAssignment)
getAssignmentExpression();
Else {
getToken();
Variable v1 = lookupLocalVariable(tokenAddress);
If (v1==null)
v1 = push(tokenAddress, 0.0, null, this);
getToken();
If (token!='=')
error("'=' expected");
getToken(); // the function
Variable v2 = runUserFunction();
If (v2==null)
error("No return value");
If (done) Return;
int type = v2.getType();
If (type==Variable.VALUE)
v1.setValue(v2.getValue());
Else If (type==Variable.ARRAY) {
v1.setArray(v2.getArray());
v1.setArraySize(v2.getArraySize());
} Else
v1.setString(v2.getString());
}
}

Quote:''user functions

function setupArgs(int nArgs) {
getLeftParen();
int i = topOfStack;
int count = nArgs;
If (nextToken() <> ")" ) then
do {
  getToken()
  If (i>=0)
  stack[i].symTabIndex = tokenAddress;
  i = i - 1
  count = count - 1
  getToken()
} While (token = "," )
putTokenBack()
}
If (count <> 0)
  'error(nArgs+" argument"+(nArgs==1?"":"s")+" expected");
getRightParen();

end function