/* This program pulls station's IP address */
/* Will also resolve IP to hostname if you have HOST.EXE */

ARG A
LL=D2C(13)
'CDD C:\WINDOWS'
'C:\WINDOWS\NETSTAT -R (STACK'
DO QUEUED()
   PARSE PULL L
   IF L='' THEN ITERATE
   IF ^DATATYPE(WORD(L,WORDS(L)),'N') THEN ITERATE
   AD=WORD(L,4)
   IF A<>'' THEN DO
      G=OPEN(A,'a')
      CALL WRITE G,'I am' AD,LF
      CALL CLOSE G
   END
   ELSE DO
      SAY 'I am' AD
      IF EXISTS('HOST.EXE') THEN 'HOST.EXE' AD
   END
   LEAVE
END
EXIT

/* BREXX version of EXISTS function */
EXISTS: PROCEDURE
ARG F
E=OPEN(F, 'R')
IF E=-1 THEN RETURN 0
ELSE DO
   CALL CLOSE E
   RETURN 1
END