micro(A)v11

[aurel]

more modification to BASIC like syntax:

''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