![background image](http://html1.mh-extra.com/html/campbell/0871lh1/0871lh1_instruction-manual_3754707012.webp)
1: 2 X Loc [ IceStat ]
2: 1 =
3:
0
F
4: 30 Then Do
13: Do (P86)
1: 10 Set Output Flag High (Flag 0)
14: Set Active Storage Area (P80)^10755
1: 1 Final Storage Area 1
2: 20 Array ID
15: Real Time (P77)^8112
1: 1220 Year,Day,Hour/Minute (midnight = 2400)
16: Sample (P70)^5446
1: 1 Reps
2: 2 Loc [ IceStat ]
;If there is ice on the unit, start a looping sequence that ends only when ice is no longer detected.
;***************************************************************************************
17: Timer (P26)
1: 0 Reset Timer
18: End (P95)
19: End (P95)
9.2
CR1000
'Declare Public Variables
Public PTemp, batt_volt
Public TimeCount
Public IceSignal
Public StatusSignal
‘ice signal: 1 = no ice, 0 = ice
‘status signal: 0 = okay, 1 = fault
'Define Data Tables
DataTable (Stat,True,-1)
Sample (1,StatusSignal,FP2)
EndTable
DataTable (Ice,True,-1)
Sample (1,IceSignal,FP2)
EndTable
DataTable (Info,1,-1)
DataInterval (0,15,Sec,10)
Minimum (1,batt_volt,FP2,0,False)
Sample (1,PTemp,FP2)
EndTable
'Main Program
BeginProg
10