/* AHP-Rexx-Test
   Von Jens Köhler, DG2ACB @ DK0MAV
*/

options results

if index(show(p),"rexx_AHP") = 0 then do
  say "AHP ist nicht aktiv, oder"
  say "AHP hat keinen ARexx-Port geöffnet."
  exit
end

address "rexx_AHP"

"Hallo_AHP!"

antwort=result
say "AHP antwortet wie folgt:"
say antwort

exit