
' FILE : QuadVideo With Sounds

' -------------------------------------------- Cap Keys Slots
' Slot  1 = CapKey 1      (0 to 1000)
' Slot  2 = CapKey 2      (0 to 1000)
' Slot  3 = CapKey 3      (0 to 1000)
' Slot  4 = CapKey 4      (0 to 1000)

' -------------------------------------------- audio slots 
' Slot 11 = Audio 1 position (0 to 1000)
' Slot 12 = Audio 2 position (0 to 1000)
' Slot 13 = Audio 3 position (0 to 1000)
' Slot 14 = Audio 4 position (0 to 1000)

' -------------------------------------------- video slots are controlled by SoundPlayers
' Slot 21 = Video 1 position (0 to 1000)
' Slot 22 = Video 2 position (0 to 1000)
' Slot 23 = Video 3 position (0 to 1000)
' Slot 24 = Video 4 position (0 to 1000)


Option Speed 7

Label Loop	
     ' --------------------------------------- audio slots are 	mutually exclusive
   	If Slot(1) > 100
		Slot(11) = 1000
		Slot(12) = 0
		Slot(13) = 0
		Slot(14) = 0
	EndIf
   	If Slot(2) > 100
		Slot(11) = 0
		Slot(12) = 1000
		Slot(13) = 0
		Slot(14) = 0
	EndIf
   	If Slot(3) > 100
		Slot(11) = 0
		Slot(12) = 0
		Slot(13) = 1000
		Slot(14) = 0
	EndIf
   	If Slot(4) > 100
		Slot(11) = 0
		Slot(12) = 0
		Slot(13) = 0
		Slot(14) = 1000
	EndIf
	' ---------------------------------- if a video is finished then audio drive = 0
	If Slot(21) > 999
		Slot(11) = 0
	EndIf
	If Slot(22) > 999
		Slot(12) = 0
	EndIf
	If Slot(23) > 999
		Slot(13) = 0
	EndIf
	If Slot(24) > 999
		Slot(14) = 0
	EndIf
GoTo Loop
