* Script  1 Activate(1)
scrp 2 19 3 1
	setv thrt 140
	doif ov00 eq 0
		setv ov00 1
	endi
	doif ov00 eq 2
		setv ov00 3
		stim writ from 0 255 0 0 18 50 0 0 0 0 0 0
	endi
	setv actv 0
endm

* Script  9 TIMER
scrp 2 19 3 9
	doif thrt gt 50
		subv thrt 10
	endi
	doif ov00 eq 0
		rndv var0 0 9
		doif var0 eq 0
			doif rtyp ne 2
				setv ov00 1
			endi
		else
			setv ov00 0
			base 0
			anim [01234567]
		endi
	endi
	doif ov00 eq 1
		base 8
		anim [01234]
		over
		setv ov00 2
		stop
	endi
	doif ov00 eq 2
		doif rtyp eq 2
			setv ov00 3
			stop
		endi
		rndv var0 2 5
		reps var0
			base 13
			anim [01234567]
			over
		repe
		setv ov00 3
	endi
	doif ov00 eq 3
		base 8
		anim [43210]
		over
		setv ov00 0
		stop
	endi
endm
