SUBROUTINE NACCEP() C THIS SUBROUTINE CHANGES THE STATEMENT LABELS IN A STATEMENT LINE C THAT CONTAINS AN 'ACCEPT', 'ASSIGN', 'DO', 'PRINT', 'TYPE' INCLUDE 'X:RESINC.FOR' CHARACTER JX C LOOK FOR INTEGERS (LABELS) IN 'STMENT' STARTING AT THE POSITION C WHERE THE MAIN PROGRAM FOUND THE 'ACCEPT' LP= L+LL LM= L-1 JX= STMENT(LM:LM) IF ((JX .NE. ' '.AND. JX .NE. ')' .AND. JX .NE. TAB) .OR. 1 STMENT(LP:LP) .NE. ' ') RETURN C TEST FOR "CALL ASSIGN" INSTEAD OF "ASSIGN" KR= INDEX (STMENT,'CALL ASSIGN') IF (KR .NE. 0) RETURN J= LL+L ! POINT TO START LABEL SEARCH IN LOOKUP. CALL LOOKUP() RETURN END