PROGRAM CAMUS
      LOGICAL*1 STATE(16)
      INTEGER IDS  
      INTEGER DUMMY
      INTEGER IPARAM(6) 
      INTEGER IOSB(2)
      BYTE ISB(4) 
      EQUIVALENCE(ISB,IOSB)
      BYTE CLIBUF(80)  
      INTEGER CLILEN  
      INTEGER ILOOP  
      INTEGER FEL  
      BYTE SUCBUF(41)
      DATA SUCBUF/
     1' ',' ','C','A','M','U','S',' ','-',' ','X',' ','X',' ','X',' ','X
     1',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',' ','X',
     1' ','X',' ','X',' ','X',' ','X'/
      INTEGER SUCSIZ
      DATA SUCSIZ/41/
      INTEGER SUCPNT  
      DATA SUCPNT/9/
      BYTE CR4
      DATA CR4/"15/
      BYTE LF4
      DATA LF4/"12/
      EQUIVALENCE(CR4,SUCBUF)
      EQUIVALENCE(LF4,SUCBUF(2))
      BYTE SYNBUF(20)
      DATA SYNBUF/
     1' ',' ','C','A','M','U','S',' ','-',' ','F','\','R','S','T',']','R
     1',' ','E','J'/
      INTEGER SYNSIZ
      DATA SYNSIZ/20/
      BYTE CR5
      DATA CR5/"15/
      BYTE LF5
      DATA LF5/"12/
      EQUIVALENCE(CR5,SYNBUF)
      EQUIVALENCE(LF5,SYNBUF(2))
      INTEGER IOWBT
      DATA IOWBT/"000500/
      CONTINUE
      CALL GETMCR(CLIBUF,CLILEN)  
      IF (CLILEN.NE.3) GOTO 30001
      CALL DRV11(STATE,DUMMY)
      DO 30003ILOOP=1,16
      IF (.NOT.(STATE(ILOOP))) GOTO 30006
      SUCBUF(SUCPNT+ILOOP*2)='1'
      GOTO 30005
30006 CONTINUE
      SUCBUF(SUCPNT+ILOOP*2)='0'
30005 CONTINUE
30003 CONTINUE
30004 CONTINUE
      FEL=-500
      GOTO 30002
30001 CONTINUE
      FEL=-501 
30002 CONTINUE
      CONTINUE
      IF (FEL .NE. -500  ) GOTO 30007
      CALL GETADR(IPARAM(1),SUCBUF) 
      IPARAM(2)=SUCSIZ
      GOTO30008
30007 CONTINUE
      IF (FEL .NE. -501 ) GOTO 30009
      CALL GETADR(IPARAM(1),SYNBUF) 
      IPARAM(2)=SYNSIZ
30008 CONTINUE
30009 CONTINUE
      IPARAM(3)=0   
      CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
      CALL EXST(FEL)
      END