BeaT//10 Q-Sldftwrk

IfNot >SS>ThVblPrdcSng<SS< ##-li-##  ^^4Bet6 //-8+ AND XX-fo-## ^^^3Ca9 //-8+ Then
	DoUntil >SS>ThVblPrdcSng<SS< ^^4Bet6 //-9+ AND XX-fo-## ^^^3Ca9 //-9+
		##-li-##  ^^4Bet6 //-10 ((-(ThVblPrdcSng)-))
		XX-fo-## ^^^3Ca9 //-10  ((-(ThVblPrdcSng)-))
		If NonEco Then
			Exit Loop
		EndIf
	Circulate
EndIf