#//----------------------------------------------------------------------------
Test1
		on			`set		goto		.set
		on			`clr		goto		.clr
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
.set
		prep_spr_(				OPEN				)
		wait			2
	repeat	3
		LcdSeqCh_Play_(		FgdAlp,		OPEN				)
		wait			SEC(0.5)
		LcdSeqCh_Play_(		FgdAlp,	0				)
		wait			SEC(0.5)
		act			Onloop
	end
		TapSeqCh_Play_(		Bgm,		Test1				)
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
.clr
		LcdSeqCh_Play_(		FgdAlp,		0				)
		TapSeqCh_Play_(		Bgm,		0				)
		act			"õeXg"
end
