X-10 What2Do.WBT

Keywords: 	  X10 X 10 X-10 What2Do.WBT 

---

;Param1 is the Unit
;Param2 is the Function

;********* Time Date Section ************
Now=TimeYmdHms( )
status = ItemExtract(4,Now,":")

Switch param1  ;Which Unit

case 102 ;******* A1 ********* ALARM ACTIVATED ******

   If param2 == 98 ;A1 ON
	;only between 9:00 AM and 5:00 PM
	If status >= 9 && status <= 17 
			run("Alarm.exe","")
	Else
		PlayWaveForm("Hello.wav", 0)
		vmail = FileItemize("c:\faxworks\voicenew\*.*")
		count = ItemCount(vmail," ")
		If count > 0 
			For x = 1 to count
			PlayWaveForm("Doorbell.wav", 0)
			Next
		Endif		
 	Endif
   Endif
   If param2 == 99 then	ClipPut("Alarm OFF") ;6 Minute auto-shutoff
Exit

case 110 ;******* A2 *********
	If param2 == 98 ;A8 ON
		
		
	Endif
		;only between 9:00 AM and 5:00 PM
		;If status > 9 && status < 17 
	Exit

Case 109 ;******* A8 *********
	run("cdplay.exe",param2)
Exit

EndSwitch

---

Article ID:   W12585

Filename:   X-10 What2Do WBT.txt