FTN77
      PROGRAM YAMCL(3),AMIGO CLEAR
C
C  RU,YAMCL
C
      IMPLICIT INTEGER (A-Z)
      DIMENSION COMP (24), BUF (200)
C
      DO 10 I=1,24
10    COMP (I) = -1
C
C
      LU = 20
C
C
      WRITE (1,1)
1     FORMAT ("BUS ADDRESS? _")
      READ (1,*) BUS
C
C
      CALL XAMCL (LU, BUS, COMP, BUF)
C
      WRITE (1,20) BUS, BUF (60)
20    FORMAT ("AMIGO CLEAR ADDRESS ",I1," QSTAT ",I1)
C
      IF (BUF (60).EQ.0) GO TO 999
C
90    WRITE (1,91)
91    FORMAT ("REQUEST STATUS RETURNS:")
      WRITE (1,92) (BUF (I),I=2,11)
92    FORMAT (9(K6,2X),K6)
C
C
999   CONTINUE
      END
      END$
