/* Abfrage der TNC-Parameter fuer AHP4 */ 
/* V1.00 (15.12.1994)   DG6SDB (aka Dominik ;-)  )   !*/


 if ~show(l,'rexxsupport.library') then do
  if ~addlib('rexxsupport.library',0,-30,0) then do
    say "Konnte rexxsupport.library nicht öffnen"
    exit 10
  end
 end


if index(show(p),"rexx_AHP") = 0 then do	/* Checken, ob der ARexx-Port */
  say "AHP ist nicht aktiv, oder"               /* von AHP aktiv ist. */
  say "AHP hat keinen ARexx-Port geöffnet."
  exit	/* ...und tschüß! */
end


address "rexx_AHP"			/* neuer Arexx-Port: AHP4 */

options results				/* Ergebnisse zurueckliefern */

port=0					/* Werte fuer diesen Port anzeigen */

say " "
say "***********************************"
say "*** TNC-Data-Requester for AHP4 ***"
say "***                             ***"
say "*** written by Dominik (DG6SDB) ***"
say "***  Version 1.1 (04.01.1996)   ***"
say "***  modified by Jens (DL6OCL)  ***"
say "***********************************"
say " "
say "Beschreibung   TNC-Befehl aktueller Wert"
say "----------------------------------------"
"tncparam "||port||" I"
say "Rufzeichen         (I):   "||result
"tncparam "||port||" O"
say "Maxframe           (O):   "||result
"tncparam "||port||" T"
say "TxDelay            (T):   "||result
"tncparam "||port||" P"
say "Persistence        (P):   "||result
"tncparam "||port||" W"
say "Zeitschlitz        (W):   "||result
"tncparam "||port||" F"
say "                   (F):   "||result
"tncparam "||port||" M"
say "Monitormodus       (M):   "||result
"tncparam "||port||" N"
say "Retries            (N):   "||result
"tncparam "||port||" Y"
say "Max.Ports          (Y):   "||result
"tncparam "||port||" V"
say "Firmware-Version   (V):"
say "   "||result
"tncparam "||port||" @B"
say "Restl.Speicher    (@B):   "||result
"tncparam "||port||" @I"
say "IPOLL-Framelng.   (@I):   "||result 
"tncparam "||port||" @T2"
say "Timer 2          (@T2):   "||result
"tncparam "||port||" @T3"
say "Timer 3          (@T3):   "||result
say "----------------------------------------"
say ""


exit						/* Man sieht sich...hi */