FTN4
      SUBROUTINE DISXB, 92080-16205 REV.1936  790516
C 
C                SOURCE 92080-18205 
C 
C 
C     ********************************************************* 
C     * THIS IS AN EXAMPLE OF A USER DISPLAY SUBROUTINE       * 
C     * USING THE SYSTEM TIME AVAILABLE IN IBUF TO DISPLAY    * 
C     * A FRIENDLY GREETING TO THE PERSON ABOUT TO ENTER DATA * 
C     * AN ALPHANUMERIC DISPLAY OR PRINTER OPTION IS REQUIRED * 
C     * ALL FOUR SYSTEM PROVIDED DATA FIELDS MUST BE SPEC'D   * 
C     * IN THE TS USING THIS MODULE (OR MOD THE IBUF(7) LINES * 
C     ********************************************************* 
C 
C 
      LOGICAL BKSFL 
C 
      COMMON KEEP(5),LUQ,LMQ,IBUF(512)
     .      ,ITSNU,INDEX,IQNUM,ITMTP,ITMLN,IBUPT,BKSFL,INBKS,IQBKS
     .      ,IER,NSTAT,ITEMP(10),ICOMEN 
C 
C     ( USER DECLARATIONS BEGIN HERE )
C 
      DIMENSION MESSM(7),MESSA(7),MESSE(7)
C 
      CALL TMDFN(KEEP,KEEP,KEEP,ITSNU,ITSNU,ICOMEN) 
C 
C     ( BEGIN USER CODE HERE )
C 
C 
      DATA MESSM/2HGO,2HOD,2H M,2HOR,2HNI,2HNG,2H  /
      DATA MESSA/2HGO,2HOD,2H A,2HFT,2HER,2HNO,2HON/
      DATA MESSE/2HGO,2HOD,2H E,2HVE,2HNI,2HNG,2H  /
C 
C     TEST FOR APPROPRIATE ITMTP AND ITMTP VALUES 
C 
      IF (ITMTP .NE. 0) GO TO 90
      IF (ITMLN .NE. 14) GO TO 90 
C 
      IF (IBUF(7) .GT. 2H11) GO TO 10 
C--------PREV. LINE TESTS FOR TIME GREATER THAN 11:59 
      CALL MOVEW (MESSM,IBUF(IBUPT),7)
      GO TO 90
C 
   10 IF (IBUF(7) .GT. 2H16) GO TO 20 
C--------PREV. LINE TESTS FOR TIME GREATER THAN 16:59 (4:59 PM) 
      CALL MOVEW (MESSA,IBUF(IBUPT),7)
      GO TO 90
C 
   20 CALL MOVEW (MESSE,IBUF(IBUPT),7)
C 
   90 RETURN
      END 
                                                                                        