C THIS SUBROUTINE CHANGES THE STATEMENT LINE NUMBERS IN A 'READ', C 'WRITE', 'DECODE', 'ENCODE' STATEMENT C IT IS PART OF THE MAIN PROGRAM 'RESEQ.FOR' C SUBROUTINE NREAD() C LOGICAL*1 STRING(81), SPARE(81) C COMMON /A/ JJ, J COMMON /C/ LL, L, STRING, SPARE C DO 100, J=L+LL, LEN(STRING) IF(STRING(J) .EQ. ',') GOTO 110 100 CONTINUE 110 J = J + 1 !STARTING POINT FOR LABEL SEARCH CALL LOOKUP() 120 L = INDEX(STRING, 'END') IF(L .EQ. 0) GOTO 130 J = L+4 CALL LOOKUP() 130 RETURN END