#//----------------------------------------------------------------------------
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)
		puts			"[ṽ^C~O"
	end
		TapSeqCh_Play_(		Bgm,		Test1			)
end
#//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
.clr
		LcdSeqCh_Play_(		FgdAlp,		0			)
		TapSeqCh_Play_(		Bgm,		0			)
		puts			"õeXg"
end
