Appendix B. Example Programs
B-2
'Calculate Time Fraction Wet at top of each hour
If
IfTime
(0,60,Min)
Then
'Interval must match data table interval
TimeFractionWet = ScanIntervalWet / ScanIntervalSum
ScanIntervalWet = 0
ScanIntervalSum = 0
EndIf
CallTable
(Wetness)
NextScan
EndProg