* Script  9 TIMER
scrp 2 9 14 9
	tick 10
	doif ov00 eq 1
		gsub wout
		setv ov00 2
		setv ov01 0
		base 9
		anim [123210R]
		stop
	endi
	doif ov00 eq 2
		gsub ctch
		doif var0 eq 1
			setv ov00 3
			setv ov02 1
		else
			addv ov01 1
			doif ov01 ge 50
				setv ov00 3
			endi
		endi
		stop
	endi
	doif ov00 eq 3
		gsub w_in
		setv ov00 0
		tick 0
		doif ov02 eq 1
			inst
			targ tcar
			setv ov00 2
			tick 1
			slow
		else
			inst
			targ tcar
			setv actv 0
			slow
		endi
		stop
	endi
	doif ov00 eq 4
		tick 0
		etch 2 20 3
		doif tcar eq ownr
			mesg writ targ 5
		endi
	next
	wait 10
	setv ov02 0
	stop
endi
subr wout
	base 0
	sndl dog1
	anim [123456789]
	over
	stpc
retn
subr ctch
	setv var0 0
	etch 2 20 3
	doif rely ge 106
		doif rely le 126
			mesg writ targ 4
			setv var0 1
		endi
	endi
next
retn
subr w_in
	base 0
	sndl dog1
	anim [876543210]
	over
	stpc
retn
endm
