Option Speed 7

Label Loop
	
	'Slot (1) = 1000
	'Wait seconds 0.5
	'Slot (1) = 0
	'Wait seconds 6
	'Slot (1) = 1000
	'Wait seconds 0.5
	'Slot (1) = 0
	'Wait seconds 2
	'Slot (1) = 1000
	'Wait seconds 0.5
	'Slot (1) = 0
	'stop
	'Wait seconds 10
	
	s1 = Format(Now, "HH:mm:ss")
	If s1 = "14:40:30"
		Slot (1) = 1000
		Wait Seconds 5
		Slot (1) = 0
		Beep
	EndIf
	
Goto Loop


