	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
