DECLARE STRING FUNCTION concat (STRING, STRING) !Declare the function
      .
      .
      .
  DEF STRING concat (STRING Y, STRING Z)
  concat = Y + Z !Define the function
  FNEND
      .
      .
      .
  new_string$ = concat(A$, B$) !Invoke the function
      .
      .
      .
  END