C**********************************************************************
C
C  THIS SUBROUTINE WILL DISPLAY A PAGE OF INCAM1 AND/OR 4 OTHER ITEMS
C  REFERENCED BY THEIR TAGS.  A ZERO FOR THE PAGE NUMBER INDICATES
C  NO PAGE DISPLAY IS REQUIRED.  A ZERO FOR ANY OTHER ARGUMENT
C  INDICATES THAT NO MORE ITEMS ARE TO BE DISPLAYED.
C
C**********************************************************************
      SUBROUTINE DISPM1(IP,I1,I2,I3,I4)
C                                            THE SUBRTN WILL ONLY
C                                            DISPLAY PAGES OF  INCAM1,
C                                            BUT CAN DISPLAY SEPARATE
C                                            ITEMS FROM ANY MENU.
      DATA P1,P2/5HINCAM,4H1BIN/
C                                            CLEAR PREVIOUS DISPLAY.
      CALL MENCRT(P1,P2,0)
C                                            IF IP=0, NO PAGE DISPLAY
C                                            IS REQUIRED.
      IF(IP.EQ.0)GO TO 1
C                                            OTHERWISE DISPLAY PAGE.
      CALL MENCRT(P1,P2,IP)
C                                            NOW DISPLAY THE SEPARATE
C                                            ITEMS.  THE FIRST ZERO
C                                            INDICATES NO MORE ITEMS
C                                            ARE TO BE DISPLAYED.
    1 IF(I1.EQ.0)RETURN
      CALL CRT(4,I1)
      IF(I2.EQ.0)RETURN
      CALL CRT(4,I2)
      IF(I3.EQ.0)RETURN
      CALL CRT(4,I3)
      IF(I4.EQ.0)RETURN
      CALL CRT(4,I4)
C                                            ALL REQUIRED ITEMS ARE
C                                            NOW DISPLAYED.
      RETURN
      END
