Option Speed 9

Variable Numeric Time1
Variable Numeric Time2
Variable Numeric Time3
Variable Numeric Time4

Time1 = Infinity
Time2 = Infinity
Time3 = Infinity
Time4 = Infinity


Label loop1
	' -------------------------------- sounds 1
	If Slot (11) > 500
		If Slot(21) = 0
			Slot (21) = 1000
			Time1 = ElapsedTime + 5
		EndIf
	EndIf
	If Slot (11) < 500
		Slot (21) = 0
		Slot (31) = 0
	EndIf
	' -------------------------------- sounds 2
	If Slot (12) > 500
		If Slot(22) = 0
			Slot (22) = 1000
			Time2 = ElapsedTime + 5
		EndIf
	EndIf
	If Slot (12) < 500
		Slot (22) = 0
		Slot (32) = 0
	EndIf
	' -------------------------------- sounds 3
	If Slot (13) > 500
		If Slot(23) = 0
			Slot (23) = 1000
			Time3 = ElapsedTime + 5
		EndIf
	EndIf
	If Slot (13) < 500
		Slot (23) = 0
		Slot (33) = 0
	EndIf
	' -------------------------------- sounds 4
	If Slot (14) > 500
		If Slot(24) = 0
			Slot (24) = 1000
			Time4 = ElapsedTime + 5
		EndIf
	EndIf
	If Slot (14) < 500
		Slot (24) = 0
		Slot (34) = 0
	EndIf
	'
	' quando parte 21 deve partire 31 dopo 5 sec
	' quando parte 22 deve partire 32 dopo 5 sec
	' quando parte 23 deve partire 33 dopo 5 sec
	' quando parte 24 deve partire 34 dopo 5 sec
	'
	' -------------------------- Start SecondSound 1
	If ElapsedTime > Time1
		Slot (31) = 1000
		Time1 = Infinity
	EndIf
	' -------------------------- Start SecondSound 2
	If ElapsedTime > Time2
		Slot (32) = 1000
		Time2 = Infinity
	EndIf
	' -------------------------- Start SecondSound 3
	If ElapsedTime > Time3
		Slot (33) = 1000
		Time3 = Infinity
	EndIf
	' -------------------------- Start SecondSound 4
	If ElapsedTime > Time4
		Slot (34) = 1000
		Time4 = Infinity
	EndIf
	'
Goto loop1


'EXEC v1 = Rnd : V2 = V1 + 99 : V3 = V2 + 1000
