
' FILE : VascaVideoLoop


Label Loop       
	If Slot(1) < 50                   '< 50 valore impostabile
        ' ------------------------------ select first Video
		If Slot(11) <> 0
			Slot(11) = 0
			Slot(10) = 0			
		EndIf			
        ' ------------------------------ loop video from 0 to 1000       		
		If Slot(10) >= 1000
			Slot(10) = 0
		EndIf
	Else
        ' ------------------------------ select second Video
		If Slot(11) <> 1
			Slot(11) = 1
			Slot(10) = 0			
		EndIf
        ' ------------------------------ loop video from 0 to 1000 and 900 to 1000
		If Slot(10) >= 1000
			Slot(10) = 900
		EndIf
	EndIf
	Slot(10) = Slot(10) + 3.1        ' + 3.1 velocita' dei frames	
	Wait Seconds 0.03   
Goto Loop

