FORTRAN

• INTEGER DATAR(50)
• DATA IFIVE/5/
• READ(7,9)JUST
• 9 FORMAT(1X,A1)
• 5 CALL CHKEOF(I)
• READ(7,10)(DATAR(J),J=1,50)
• 10 FORMAT(1X,50I1)
• IF(I.NE.0)GO TO 40
• IF(DATAR(8).EQ.IFIVE)GO TO 30
• WRITE(8,20)(DATAR(J),J=1,50)
• 20 FORMAT(1X,50I1)
• GO TO 5
• 30 WRITE(9,20)(DATAR(J),J=1,50)
• GO TO 5
• 40 CONTINUE
• STOP
• END