C	.TITLE	HYR
C
C  3 MAR 72 - PAUL HENDERSON
C
999   FORMAT (11H ERROR CODE,I3,11H AFTER INIT)
998   FORMAT (2I10)
      CALL INIT (IER)
      WRITE (8,999) IER
1     CALL RACO (MODE,IER)
      WRITE (8,998) MODE,IER
      DO 2 K=1,10000
2     CONTINUE
      GO TO 1
      END