INTEGER ADRL,ADLL,AVCL,NAML,VCDL,I,J,NUM,CODE,TIME
      INTEGER ADR(1024),ADL(128),ADP(128),AVC(128),NAM(128),VCD(128)
      INTEGER AAAAB0
      INTEGER AAAAC0(23)
      INTEGER AAAAD0(32)
      INTEGER AAAAA0
      INTEGER AAAAE0(43),AAAAF0
      INTEGER AAAAH0(15)
      INTEGER AAAAG0(13)
      INTEGER AAAAI0(41)
      DATA AAAAC0/238,229,244,247,239,242,235,160,238,239,244,160,227,23
     *9,238,230,233,231,245,242,229,228,0/
      DATA AAAAD0/248,164,243,244,225,244,160,229,242,242,239,242,174,16
     *0,211,232,239,245,236,228,238,167,244,160,232,225,240,240,229,238,
     *174,0/
      DATA AAAAG0/198,242,239,237,0,215,233,244,232,0,212,239,0/
      DATA AAAAH0/14,1,6,6,6,6,6,6,6,6,6,6,6,6,11/
      DATA AAAAI0/170,172,163,232,160,168,170,178,172,172,176,233,169,16
     *0,208,239,242,244,160,170,179,233,172,160,246,227,170,173,178,233,
     *160,170,243,160,170,172,163,232,170,238,0/
      CALL X$STAT(1,NUM,ADR,ADRL,ADL,ADLL,CODE,TIME)
      IF((CODE.NE.-1))GOTO 10001
        CALL ERROR(AAAAC0)
        GOTO 10002
10001   IF((CODE.EQ.0))GOTO 10003
          CALL ERROR(AAAAD0)
10003 CONTINUE
10002 I=1
      J=0
      GOTO 10006
10004 J=J+(ADL(I))
      I=I+(1)
10006 IF((I.GT.ADLL))GOTO 10005
        ADP(I)=J/2+1
      GOTO 10004
10005 I=1
      GOTO 10009
10007 I=I+(1)
10009 IF((I.GT.ADLL))GOTO 10008
        CALL X$STAT(2,NUM,ADR(ADP(I)),ADL(I),AVC,AVCL,CODE,TIME)
        IF((NUM.GT.0))GOTO 10010
          GOTO 10007
10010   CALL X$STAT(4,0,ADR(ADP(I)),ADL(I),NAM,NAML,CODE,TIME)
        J=1
        GOTO 10013
10011   J=J+(1)
10013   IF((J.GT.AVCL))GOTO 10012
          CALL X$STAT(3,AVC(J),0,0,VCD,VCDL,CODE,TIME)
          IF((CODE.NE.0))GOTO 10014
            AAAAA0=AVC(J)
            AAAAB0=1
            GOTO 10000
10015     CONTINUE
10014   GOTO 10011
10012 GOTO 10007
10008 CALL SWT
10000 CALL GMETR$(4,LOC(AAAAE0),43,AAAAF0,VCD(2))
      CALL PRINT(-11,AAAAI0,33-1,AAAAE0(5),VCD(2),VCD(5),AAAAA0,AAAAG0(A
     *AAAH0(VCD(1)+1)),NAML,NAM)
      GOTO 10016
10016 GOTO 10015
      END
C ---- Long Name Map ----
C printcircuitstatus             print0