%%%
  VERSION: 1
  LANGUAGE: ENGLISH
%%%

MODULE BASEFUN2 (SYSMODULE, VIEWONLY)
 
  ! Instructions CallByVar
  !***********************
 
  PROC CallByVar(string Name,
                 num   Number)
    IF (Number-Trunc(Number) <> 0) OR (Number<0) THEN
     ErrWrite "CallByVar fault", "Argument Number is not an integer or"
              \RL2:= "is negative.";
     Stop;
     EXIT;
    ENDIF
    %Name+NumToStr(Number,0)%;
  ERROR
    RAISE;
  ENDPROC
  
ENDMODULE
