DO 10 J = 1,3
       WRITE (6,35)
   35  FORMAT (1x, ' Please enter an integer and hit return ')
       READ (5,36,ERR = 29) I
   36  FORMAT (I4)
C       I = 5
       GO TO (15,26,43,56,12) I
       WRITE (6, 13) I
   15  WRITE (6, 14) I
       GO TO 17
   26  WRITE (6, 14) I
       GO TO 17
   43  WRITE (6, 14) I
       GO TO 17
   56  WRITE (6, 14) I
       GO TO 17
   12  WRITE (6, 13) I
   17  WRITE (6, 16)
   16  FORMAT (1X, ' HI THERE')
   14  FORMAT (1X,  'I is not 5 , it is ',  3X, I6)
   13  FORMAT (1X,  I6, 3X, ' is the value of I')
   10  CONTINUE

   29  WRITE (6, 20)
   20  FORMAT (1X, ' HAD AN ERROR IN THE INPUT DATA ')

       STOP
       END