C150227 Final Report

• Applicant: South Platte Ditch Company
• Grant Type: Non-Reimbursable
• Fiscal Year ‎(i.e. 2008)‎: 2006
• Project Name: Canal Modernization and Radio Telemetry Demonstration Project
• CWCB Section: Finance
• Contract/PO #: C150227
• Grants - Doc Type: Final Deliverables

REM determine if time for poll
REM also calculate number of minutes to next poll
REM register 7095 = polling interval
REM include seconds in polling interval
10100 pmins = mins /regread(7095)+ secs /101
REM see if time for poll. set lflag if time
10110 if pmins - int(pmins) =0 then lflag =l
REM calculate number of minutes to next poll
10120 pmins = mins /regread(7095)
10130 pmins= regread(7095) *(int(pmins) +l) -1
REM update display only when changed
10190 IF (59- SECS) =TUPD THEN GOTO 10250
10200 PRINT "Next Log: ",PMINS -MINS, "min ",59 - SECS, "sec ", CR,
REM display poll time to lcd
10210 PRINT #2,CHR(12),
10220 PRINT #2, "Next Log : ",PMINS - MINS, "m ",59 - SECS, "s"
10230 PRINT # 2, CHR(254),CHR(71),CHR(4),CHR(3), "Press any key"
10240 PRINT # 2, CHR(254),CHR(71),CHR(6),CHR(4), "for Menu"
REM set flag to scan every minute, increment charge
REM minutes variable.
10250 IF SECS =O THEN SFLAG =1 : CMINS= CMINS +1
REM update time to update display variable
10260 TUPD =59 -SECS
10290 RETURN
REM ************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
REM calculate depth, flow & volume for poll & log
REM ************** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **
REM read and average depth sensor
11000 X =0 : DPTHSUMI =O : DPTHSUM2 =0
REM send update message to LCD
11020 PRINT #2,CHR(12),
REM turn on excitation voltage to sensor
11030 REGWRITE 4823, 1
REM get sensor warmup value
11032 T= REGREAD(4103)
11033 IF T =0 THEN GOTO 11070
REM sensor warmup routine
11035 PRINT #2, "Sensor Warmup On..."
REM clear tick timer
11035 CLEAR TICK(0)
REM set sensor "warmup" delay (seconds)
11040 TDLY= TICK(0) +T
REM let user know sensor warmup is starting
11045 PRINT INT(TDLY), "Second Sensor Warmup active"
REM loop here until delay expires
11050 DO
11055 PRINT "Seconds left > ",TDLY- TICK(0),CR,
36