    	SUBROUTINE LAYOUT_CODE( ITT )
C
C  PROGRAMMER: R.S. ZHOU	MAY-1986
C
C	THIS ROUTINE CHANGES THE PICKED LAYOUT SEGMENT "CODE"S
C	TO THAT DESIGNATED BY "ITT":
C
C	ITT = FILL PATTERN FOR BAR,ARC,OBLIQUE,POLYGON,LINE ENTRIES.
C	ITT = ARROWHEAD TYPE FOR ARROWHEAD ENTRIES.
C	ITT = SYMBOL NUMBER FOR MARKER SYMBOL ENTRIES.
C
C	FILL-GROUP ENTRIES AND TEXT ENTRIES ARE IGNORED.
C
    	INCLUDE		'LAYOUT.CBS'
     	DIMENSION	IR(9)
     	DATA		IR / 7, 7, 9, 7, 7, 7, 5, 0, 7 /

     	PF1 = ITT
    	DO  222 I = 1, NLG
    	    IS = NLS(I)
     	    SKIP = .FALSE.
     	    DO  111 J=1, NLC
     		IF(NSN(J).NE.IS.OR.NID(J).EQ.8.OR.NFL(J).GT.0) GOTO 111
     		IT = IR(NID(J))
     		IF(P00(IT,J).EQ.PF1) GOTO 111
     		P00(IT,J) = PF1
     		CALL IFSEG_OPEN(-IS)
     		CALL IFSEG_PIVOT(P00(1,J),P00(2,J))
     		CALL IFSEG_OPEN(IS)
     		CALL LAYOUT_DRAW(-J,1)
     		CALL IFSEG_OPEN(0)
     		IF(BLINK.GT.0) CALL IFSEG_BLINK( IS )
     		GOTO 222
111	    CONTINUE
222	CONTINUE

     	CALL IFINIT_DUMP

     	RETURN
    	END

