Campbell Scientific CR800 and CR850 Measurement and Control Systems - Manual (Page 219)

Section 7. Installation
219
Case Is < 121
Month = 4
Date = DOY + -90
Case Is < 152
Month = 5
Date = DOY + -120
Case Is < 182
Month = 6
Date = DOY + -151
Case Is < 213
Month = 7
Date = DOY + -181
Case Is < 244
Month = 8
Date = DOY + -212
Case Is < 274
Month = 9
Date = DOY + -243
Case Is < 305
Month = 10
Date = DOY + -273
Case Is < 336
Month = 11
Date = DOY + -304
Case Is < 366
Month = 12
Date = DOY + -334
EndSelect
EndIf
EndSub
'//////////////////////////// PROGRAM ////////////////////////////
BeginProg
StationID = 4771
Scan (1,Sec, 3, 0)
'/////////////////Measurement Section////////////////////////
'PulseCount(KWH_In, 1, 1, 2, 0, 1, 0) 'Activate this line in working program
KWH_In = 4.5 'Simulation -- delete this line from working program
'PulseCount(KVarH_I, 1, 2, 2, 0, 1, 0) 'Activate this line in working program
KVarH_I = 2.3 'Simulation -- delete this line from working program
KWHH = KWH_In
KvarH = KVarH_I
KWHHold = KWHH + KWHHold
KVarHold = KvarH + KVarHold
CallTable OneMinTable
'////////////////////Serial I/O Section/////////////////////
SerialOpen (ComRS232,9600,0,0,10000)