Campbell Scientific COM320 Voice Communications Modem - Manual (Page 15)

COM320 Voice Communications Modem
If Flags(mykey) Then
VoiceSpeak("ON",0)
Else
VoiceSpeak("OFF",0)
EndIf
VoiceSpeak("50MS PRESS POUND TO TOGGLE 50MS PRESS STAR TO RETURN", 0)
If VoiceKey(KeyTimeout) = POUND Then
flags(mykey) = NOT flags(mykey)
Else
ExitDo
EndIf
Loop
EndIf
Loop ' Port loop
EndSub
DataTable (Test,1,-1)
DataInterval
(0,0,Sec,10)
Minimum (1,BatteryV,FP2,0,False)
Sample (1,PTemp,FP2)
Sample (1,TCvalue_F,FP2)
EndTable
' <<<<<<<<<<<<<<<<<< MEASUREMENT PROGRAM >>>>>>>>>>>>>>>>>>
BeginProg
Scan
(1,Sec,3,0)
Battery (BatteryV)
PanelTemp (PTemp,250)
TCDiff (TCvalue_F,1,mV2_5C,7,TypeT,PTemp,True,0,250,1.8,32)
' Add measurement code here *******************
CallTable
Test
NextScan
' <<< VOICE CALLBACK CODE that executes when alarm conditions are met >>>
SlowSequence
' Slow Sequence do loop forever possibly doing alarm call out
Const NUMPHONES = 3 ' 3 phone numbers to try
Const PHONE1 = "1112223333"
Const PHONE2 = "1112224444"
Const PHONE3 = "1112225555"
Dim i,Phones(NUMPHONES) As String
phones(1) = PHONE1
phones(2) = PHONE2
phones(3) = PHONE3
Alarm = FALSE
ArmAlarm = TRUE
Do ' Forever
Delay(1,1,sec)
If (TCvalue_F < 85) Then
ArmAlarm = TRUE
9