* Script  1 Activate(1)
scrp 2 13 8 1
	doif from eq pntr
		doif ov02 eq 0
			setv actv 0
			stop
		endi
	endi
	setv ov02 0
	stim writ from 10 255 0 0 36 100 42 100 45 100 46 100
	targ from
	setv var0 relx
	doif from eq pntr
		subv var0 19
	endi
	targ ownr
	doif var0 lt 0
		base 0
	endi
	doif var0 gt 0
		base 9
	endi
	doif from eq pntr
		snde pb1_
		anim [0123456780]
	else
		snde pb2_
		anim [06780]
	endi
	setv actv 0
endm
