Appendix B. Example Programs
B.1.2 CR200(X) Series Program
'CR200(X) Series
'RM_Young Tipping Blk > P_SW
'
Wht > ground
'Cabling for heater goes to 24VAC power supply
'Declare Variables and Units
Public Rain_mm
Units Rain_mm=mm
'Define Data Tables
DataTable(Rain,True,-1)
DataInterval(0,60,Min)
Totalize(1,Rain_mm,0)
EndTable
'Main Program
BeginProg
Scan(1,Sec)
'52202 Rain Gage measurement Rain_mm:
PulseCount(Rain_mm,P_SW,2,0,0.1,0)
'Call Data Tables and Store Data
CallTable(Rain)
NextScan
EndProg
B-2