set EXPERIMENT "Count Triggers"
set TRIGGERNAME1 "Process Events"
set TRIGGERNAME2 "Channel 1"
set TRIGGERNAME3 "Channel 2"
set TRIGGERNAME4 "Channel 3"
set TRIGGERNAME5 "Channel 4"
proc process_event { clock input0 input1 input2 input3} {
#    global startevent
#    global myfile
#    global datavals
    global triga trigb trigc trigd trige
    
    incr triga
    set temp $input0
    if { $input0 >= 128 } {
	set temp [expr $input0 - 128]
    }
    if {$temp >= 32} {
	incr trigb
    }
    if { $input1>=32 } {
	incr trigc
    }
    if { $input2>=32 } {
	incr trigd
    }
    if { $input3>=32 } {
	incr trige
    }
}