FUNCTION data-type func-name [pass-mech] [([formal-parm],...)]

               [statement]...

      { END FUNCTION [exp] }
      { FUNCTIONEND [exp]  }

      pass-mech:  { BY DESC  }
                  { BY REF   }
                  { BY VALUE }

                              {unsubs-var-name            }
      formal-parm:
      [data-type]{array-name([int-const],...)}[=int-const][pass-mech]
                              { [ , ]...                  }