set EXPERIMENT "FridayTest"
proc process_event { clock input0 input1 input2 input3} {
    global startevent
    global myfile
    global datavals
    global triga trigb trigc trigd trige
#    puts "$clock $input0 $input1 $input2"
##    puts $myfile "$clock $input0 $input1 $input2"
    if {$input0 >= 128} {
	# new event TRIG
	incr triga
	set tmp1 [expr $input0 - 128]
	if { ($input2 < 32) } {
	    # valid event start (TRIG)*!C2
	    incr trigb
	    set startevent $clock
#	    puts "Event at:$startevent"
	}
    } else {
	# looking for hit in middle input for final phase
	if { $input1>=32 } {
	    set difftime [expr $clock - $startevent]
	    if {($difftime < 5000) && ($difftime > 1)} {
		# got one
		incr trigc
		if { [info exists datavals($difftime)] } {
		    set datavals($difftime) [expr $datavals($difftime) + 1]
		} else {
		    set datavals($difftime) 1
		}
	    } else {
#		puts "Too long at $difftime"
	    }
	}
    }
}