Disprove Euler Conjecture in Fortran IV

C SEARCH FOR INTEGER SOLUTIONS OF A^5+B^5+C^5+D^5=E^5
        REAL*8 S
        REAL*8 FIFTH(300)
        DO 10 I=1,300
 10     FIFTH(I) = DBLE(I)**5
        DO 20 I1=1,200
        DO 20 I2=1,I1
        DO 20 I3=1,I2
        DO 20 I4=1,I3
        S = FIFTH(I1)+FIFTH(I2)+FIFTH(I3)+FIFTH(I4)
        I = 1
        K = 300
 11     L = (I+K)/2
        IF (S-FIFTH(L)) 12,30,13
 12     K = L
        GOTO 15
 13     I = L
 15     IF (K-I-1) 20,20,11
 20     CONTINUE
        WRITE (*,50)
        STOP
 30     WRITE (*,51) I1,I2,I3,I4,L
 50     FORMAT(' NOT FOUND')
 51     FORMAT(' FOUND: ', 5I5)
        END