SUBROUTINE PROD(AHITS,Z6,ALIMIT,ACRAHIT,
	1		ACRALOC,ALOPMAX,J,IFLAG)
C
	INCLUDE 'EMPIRE.INC/NOLIST'
C
	DO 1000 I=ACRALOC+1,ALOPMAX+ACRALOC
	CALL MAP(4)
	IF (RLMAP(I).NE.0) GOTO 1000
	IF (I.GT.ALIMIT+ACRALOC) ALIMIT=I-ACRALOC
	RLMAP(I)=Z6
	CALL MAP(8)
	IF (AHITS.GT.1) J1TS(ACRAHIT+I-ACRALOC)=AHITS
	IF (J.EQ.1) AR2S(I-1500)=0
	CALL MAP(7)
	IF (J.GT.1) MYCODE(I)=0
	CALL MAP(6)
	IF (J.LT.2) CODEFU(I-1500)=0
	IF (J.LT.2) CODELA(I-1500)=0
	IF (IFLAG .NE. 0) THEN
	  CALL MAP(7)
	  IF (ACRALOC.EQ.2000) RANG(I-2000)=20
	  IF (J.EQ.3) RANG(I-500)=20
	ELSE
	  CALL MAP(8)
	  IF (ACRALOC.EQ.2000) RANGE(I-2000)=20
	  IF (J.EQ.3) RANGE(I-500)=20
	ENDIF
	GOTO(100,200,300,400,500,600,700,800,900) J
100	RETURN
200	CALL STROUT('n Army',1)
	RETURN
300	CALL STROUT(' Fighter',1)
	RETURN
400	CALL STROUT(' Destroyer',1)
	RETURN
500	CALL STROUT(' Submarine',1)
	RETURN
600	CALL STROUT(' Troop Transport',1)
	RETURN
700	CALL STROUT(' Cruiser',1)
	RETURN
800	CALL STROUT(' Aircraft Carrier',1)
	RETURN
900	CALL STROUT(' Battleship',1)
	RETURN
1000	CONTINUE
	RETURN
	END