     	SUBROUTINE LAYOUT_HELP( HELP )
C
C  PROGRAMMER: R.S. ZHOU		MARCH-1986
C
C	THIS ROUTINE DISPLAYS ON-LINE HELP FOR INTERACTIVE LAYOUT.
C
    	CHARACTER HELP*(*)

	IK = IFMISC_NEXT( HELP )
 	IF( IK.EQ.0 ) THEN
     	IERR = IFMISC_TYPE('GRAFIT$HLP:LAYOUT_HELP.HLP','HELP',-1)
	ELSE IF( HELP(1:3).EQ.'SET' .AND. IK.GT.3 ) THEN
     	    IK = IFMISC_NEXT( HELP )
	    IF( HELP(1:3).EQ.'ALL' ) THEN
     		IERR = IFMISC_TYPE('GRAFIT$HLP:LAYOUT_SET.HLP',' ',0)
	    ELSE
     	IERR = IFMISC_TYPE('GRAFIT$HLP:LAYOUT_SET.HLP',HELP(1:IK),-1)
	    ENDIF
	ELSE
     	IERR = IFMISC_TYPE('GRAFIT$HLP:LAYOUT_HELP.HLP',HELP(1:IK),-1)
	ENDIF
     	IF( IERR.GT.0 ) THEN
     	    CALL IFANSI_VIDEO(70)
     	    IF( IERR.EQ.1 ) WRITE(6,1000)
     	    IF( IERR.EQ.2 ) WRITE(6,1001)
     	    CALL IFANSI_VIDEO(47)
     	ENDIF
1000	FORMAT('_oops: HELP file is not available.')
1001	FORMAT('_oops: no HELP found for the keyword.')

999	RETURN
     	END

    	SUBROUTINE LAYOUT_HELP_ENTRY( ICODE )
C
C  PROGRAMMER: R.S. ZHOU		MARCH-1986
C
C	THIS ROUTINE DISPLAYS HELP INFORMATION
C	FOR LAYOUT ENTRY PARAMETERS.
C
     	CHARACTER KEYWORD*8

     	ICD = ICODE
     	IF( ICD.EQ.1 ) KEYWORD = 'BAR'
     	IF( ICD.EQ.2 ) KEYWORD = 'BOX'
     	IF( ICD.EQ.3 ) KEYWORD = 'ARC'
     	IF( ICD.EQ.4 ) KEYWORD = 'OBLIQUE'
     	IF( ICD.EQ.5 ) KEYWORD = 'POLYGON'
     	IF( ICD.EQ.6 ) KEYWORD = 'ARROW'
     	IF( ICD.EQ.7 ) KEYWORD = 'SYMBOL'
     	IERR = IFMISC_TYPE('GRAFIT$HLP:LAYOUT_ENTRY.HLP',KEYWORD,-2)
     	IF( IERR.GT.0 ) THEN
     	    CALL IFANSI_VIDEO(70)
     	    IF( IERR.EQ.1 ) WRITE(6,1000)
     	    IF( IERR.EQ.2 ) WRITE(6,1001)
     	    CALL IFANSI_VIDEO(47)
     	ENDIF
1000	FORMAT('_oops: HELP file is not available.')
1001	FORMAT('_oops: Invalid HELP keyword input.')

	RETURN
	END

