      INTEGER NUM,ARR1(1024),LEN1,ARR2(128),LEN2,CODE,TIME
      INTEGER PRIME(128),PLEN
      INTEGER POS,I
      INTEGER NODE(7)
      INTEGER AAAAA0(5)
      DATA AAAAA0/170,243,170,238,0/
      CALL X$STAT(1,NUM,ARR1,LEN1,ARR2,LEN2,CODE,TIME)
      IF((CODE.NE.-1))GOTO 10000
        CALL ERROR('networks not configured.')
        GOTO 10001
10000   IF((CODE.EQ.0))GOTO 10002
          CALL ERROR('x$stat error@. Shouldn''t happen.')
10002 CONTINUE
10001 POS=1
      I=1
      GOTO 10005
10003 POS=POS+((ARR2(I)+1)/2)
      I=I+(1)
10005 IF((I.GT.LEN2))GOTO 10004
        CALL X$STAT(4,NUM,ARR1(POS),ARR2(I),PRIME,PLEN,CODE,TIME)
        CALL PTOC(PRIME,160,NODE,PLEN+1)
        CALL MAPSTR(NODE,1)
        CALL PRINT(-11,AAAAA0,NODE)
      GOTO 10003
10004 CALL SWT
      END
C ---- Long Name Map ----
