scrp 2 19 6 9
	stim shou 100 255 0 0 27 100 25 50 0 0 0 0
	setv rnge 700
	setv var0 0
	esee 4 1 0
		setv var0 1
	next
	targ ownr
	doif var0 eq 1
		setv thrt 255
		snde gon3
		pose 1
		enum 2 19 7
			pose 1
		next
		stim shou 100 255 0 0 27 200 25 100 0 0 0 0
	else
		setv thrt 20
		targ ownr
		pose 0
		enum 2 19 7
			pose 0
		next
	endi
	targ ownr
endm
