CR1000 Manual - Campbell Scientific

Section 7. Installation
'Measure Two Thermocouples
TCDiff(TCTemp(),2,mV2500C,1,TypeT,RefTemp,True,0,250,1.0,0)
CallTable TempC
'Call data table
'Menu Item "Make Notes" Support Code
If CycleNotes = "Accept" Then
CallTable Notes
CycleNotes = "Accepted"
Delay(1,500,mSec)
SelectNote = ""
EnterNote = ""
CycleNotes = ""
EndIf
If CycleNotes = "Clear" Then
SelectNote = ""
EnterNote = ""
CycleNotes = ""
EndIf
'Write data to Notes data table
'Write "Accepted" after written
'Pause so user can read "Accepted"
'Clear pick list note
'Clear free entry note
'Write as a null prompt
'Clear notes when requested
'Clear pick list note
'Clear free entry note
'Write as a null prompt
'Menu Item "Control" Menu Support Code
CountDown = CountDown - 1 'Count down by 1
If CountDown