C	.TITLE	HYFR
C
C  6 MAR 72 - PAUL HENDERSON
C
999   FORMAT (' ERROR CODE',I3,' AFTER INIT')
998   FORMAT (2I10)
      CALL INIT (IER)
      WRITE (8,999) IER
1     MODE=MUXR(IER)
      WRITE (8,998) MODE
      DO 2 K=1,10000
2     CONTINUE
      GO TO 1
      END
