SUBROUTINE PAINT_SPECTRIG_L15
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Paint the background of the Level 1.5 Specific
C-     Trigger display.
C-
C-   Inputs  : none
C-   Outputs : screen output
C-   Controls: none
C-
C-   Created   8-MAY-1992   Philippe Laurens, Steven Klocek
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
C
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      CALL CLEAR_SCREEN
C
      CALL PUT_STRING(1,1, 'Specific Trigger #   , Level 1.5 Display') 
C
      CALL PUT_STRING(S15_EVENT_TRANS_L, 1,
     &  'Global Event Transfer Rate:           Hz' )
      CALL PUT_STRING(S15_MONIT_STATUS_L, S15_SECOND_COL,
     &  'Level 1:          Information:' )
C
      CALL PUT_STRING(S15_FIRED_COUNT_L, 1,
     &  'Spec Trig Fired Count:' )
      CALL PUT_STRING(S15_FIRED_EVENT_L, S15_SECOND_COL, 
     &  'Spec.Trig.Fired For This Event:' )
C
      CALL PUT_STRING(S15_FIRED_RATE_L, 1,
     &  'Specific Trig Level 1 Rate:           Hz' )
      CALL PUT_STRING(S15_USES_L15_L, S15_SECOND_COL,
     &  'This Event Used Level 1.5:' )
C
      CALL PUT_STRING(S15_INPUT_HZ_L, 1,
     &  'SpTrg L1.5 Input Rate:        Hz=      %' )
      CALL PUT_STRING(S15_SKIP_HZ_L, S15_SECOND_COL,
     &  'L1.5 Skip Rate:          Hz=      %' )
C
      CALL PUT_STRING(S15_CONFIRM_HZ_L, 1,
     &  'Sptrg L1.5 Confirm Rate:      Hz=      %' )
      CALL PUT_STRING(S15_REJECT_HZ_L, S15_SECOND_COL,
     &  'L1.5 Reject Rate:        Hz=      %' )
C
      CALL PUT_STRING(S15_DEADX_L, 1,
     &  'Dead Beam X During Level 1.5:          %' )
      CALL PUT_STRING(S15_TIMEOUT_L, S15_SECOND_COL,
     &  'SpTrg L1.5 Exit by Timeout:       %' )
C
      CALL PUT_STRING(S15_INT_FIRED_L, 1,
     &  'Level 1   Fired Count:' )
      CALL PUT_STRING(S15_INT_EXPOS_L, S15_SECOND_COL,
     &  'SpTrg Expos. Cnt:' )
C
      CALL PUT_STRING(S15_INT_INPUT_L, 1,
     &  'Level 1.5 Input Count:' )
      CALL PUT_STRING(S15_INT_SKIP_L, S15_SECOND_COL,
     &  'L1.5 Skip Count:' )
C
      CALL PUT_STRING(S15_INT_CONFIRM_L, 1,
     &  'Level 1.5 Confirm Count:' )
      CALL PUT_STRING(S15_INT_REJECT_L, S15_SECOND_COL,
     &  'L1.5 Reject Count:' )
C
      CALL PUT_STRING(S15_INT_DEADTIME_L, 1,
     &  'Integrated Dead Time:                  %' )
      CALL PUT_STRING(S15_INT_TIMEOUT_L, S15_SECOND_COL,
     &  'SpTrg L1.5 Exit by Timeout:' )
C
      CALL PUT_STRING(S15_REQUIRED_L -1, 1,
     &  'L 1.5 Term  #: 0.1.2.3.4.5.6.7.8.9.0.1.2.3.4.5.'
     &  // '6.7.8.9.0.1.2.3.4.5.6.7.8.9.0.1' )
C
      CALL PUT_STRING(S15_REQUIRED_L, 1, 'Term Required:' )
      CALL PUT_STRING(S15_DONE_L,     1, 'Term Don Stat:' )
      CALL PUT_STRING(S15_ANSWER_L,   1, 'Term Ans Stat:' )
C
      CALL FLUSH_SCREEN
C----------------------------------------------------------------------
  999 RETURN
      END