C_TEXT($1;$0)
C_TEXT($hostname;$IPHost)
C_LONGINT($err)
$hostname:=$1
$err:=NET_Resolve ($hostname;$IPHost)
$0:=$IPHost