C	.TITLE	HYFS
C
C  6 MAR 72 - PAUL HENDERSON
C
      LOGICAL RSCS
      LOGICAL LOG
999   FORMAT (1XA5)
998   FORMAT (1XI6,L3)
997   FORMAT (I2)
      DATA BEGIN/'BEGIN'/
      WRITE (8,999) BEGIN
      CALL INIT (IER)
      WRITE (8,998) IER
2     READ (4,997) MODE
1     LOG=RSCS(MODE)
      WRITE (8,998) MODE,LOG
      GO TO 2
      END