begin
  integerfn blah(name fred)
    printstring("Address of %name parameter is "); write(ADDR(fred), -1); newline
    result = 0
  end

  string(255) jim
  integer rc
  rc = blah(jim)

endofprogram