SUBROUTINE PAINT_SPEC_TRIG()
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Paint the display for the Monitor Specific Trigger
C-      display.
C-
C-   Inputs  : none
C-   Outputs : none
C-   Controls: none
C-
C-   Created  29-NOV-1990   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-   Updated  19-MAR-1992   Philippe Laurens, Steven Klocek  
C-                      Add Exposition Count, Dead Time, and Exposition and
C-                      Level 0. 
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'LV1_MON_SCREEN.INC'
      INCLUDE 'LV1_MON_SCREEN_LAYOUT.PARAMS'
C
      INTEGER COUNT
C
C
C       Reset margins and clear screen
C
      CALL CLEAR_SCREEN()
C
      CALL PUT_STRING(1,1, 'Specific Trigger #')
C
      CALL PUT_STRING(ST_EVENT_TRANS_L, 1, 
     &  'Global Event Transfer Rate:           Hz')
      CALL PUT_STRING(ST_MONIT_STATUS_L, ST_SECOND_COL,
     &  'Level 1:          Information:      ')
C
      CALL PUT_STRING(ST_FIRED_COUNT_L, 1, 'Spec Trig Event Trans:')
      CALL PUT_STRING(ST_FIRED_EVENT_L, ST_SECOND_COL,
     &  'Spec.Trig.Fired for this event:')
C
C
      CALL PUT_STRING(ST_FIRED_RATE_L,1,
     &  'Specific Trig Level 1 Rate:           Hz')
      CALL PUT_STRING(ST_PRSCL_L, ST_SECOND_COL,
     &  'Prescaling Ratio:')
C
      CALL PUT_STRING(ST_TRGAO_RATE_L, 1, 
     &  'Specific Trig And-Or Rate:            Hz')
C
      CALL PUT_STRING(ST_RO_TIME_L, ST_SECOND_COL, 'Readout Time:')
C
      CALL PUT_STRING(ST_L15_INPUT_L, 1, 
     &  'SpTrg L1.5 Input/Rejct:       Hz/     %')
      CALL PUT_STRING(ST_L15_DEADX_L, ST_SECOND_COL,
     &  'Dead BeamX During SpTrg L1.5:      %')
C
      CALL PUT_STRING(ST_EXPOS_L, 1, 
     &  'Expos. Count:                 =       Hz')
      CALL PUT_STRING(ST_EXPOS_L, ST_SECOND_COL, 
     &  'Expos &L0:                =       Hz')
C
      CALL PUT_STRING(ST_PRSCLV_L-1, 1, 
     &  '   Veto Sources            Progr     State    '
     &  // ' Veto Percent   Dead Time:     %')
C
      CALL PUT_STRING(ST_PRSCLV_L, 4, 'Prescaling Veto......')
C      CALL PUT_STRING(ST_LEV15V_L, 4, 'Level 1.5 Veto.......')
      CALL PUT_STRING(ST_LEV20V_L, 4, 'Level 2.0 Veto.......')
      CALL PUT_STRING(ST_GLOBV_L,  4, 'Global Veto..........')
      CALL PUT_STRING(ST_FEBV_L,   4, 'Front-End Busy Veto..')
C      CALL PUT_STRING(ST_AUXV_L,   4, 'Auxilary Veto........')
      CALL PUT_STRING(ST_AUTODISV_L,4,'Autodisable Veto.....')
C
      CALL PUT_STRING(15, 1, 'Geo.Section #: 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(ST_FEB_PROG_L, 1, 'F-E Busy Prog:')
      CALL PUT_STRING(ST_FEB_STAT_L, 1, 'F-E Busy Stat:')
      CALL PUT_STRING(ST_STD_PROG_L, 1, 'StartDig Prog:')
      CALL PUT_STRING(ST_STD_STAT_L, 1, 'StartDig Stat:')
C
      CALL PUT_STRING(20, 1, 'And-Or Terms Required' // 
     &  '.........................................................')
C
      CALL PUT_STRING(ST_REQTERM_NUM_L, 1, 'Req Term #:')
      CALL PUT_STRING(ST_REQPOLAR_L, 1,    'Req Polar :')
      CALL PUT_STRING(ST_CURSTATE_L, 1,    'Cur State :')
C
C
C----------------------------------------------------------------------
  999 CONTINUE
      CALL FLUSH_SCREEN()
      RETURN
      END