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 keep message on lcd when alarm active
105 IF REGREAD(4112)>O THEN PRINT # 2, CHR(254),CHR(71),CHR(1),CHR(2),
106 IF REGREAD(4112) >O THEN PRINT #2," F2 to Clear Alarm"
REM check time
110 GOSUB 10000
REM check battery charge rate
125 IF SFLAG =1 THEN GOSUB 1500
REM reset WDT by forcing count down in register
REM 31 back to 0. if register 31 reaches time
REM set in register 30, reset occurs.
130 REGWRITE 31,0
REM check log flag for time to log or scan flag for
REM time to take sensor readings.
140 IF (LF= 1).OR.(SFLAG =1) THEN GOSUB 11000
REM check for keypress to go to menu
150 K= GET(2)
REM check for and clear alarm on f2 key press
160 IF REGREAD(4112) >O.AND.K =2 THEN REGWRITE 4111,0 : CLEAR TICK(1)
165 IF REGREAD(4112) >O.AND.K =2 THEN REGWRITE 4112,0 : TAG =1
REM check for keypress
180 IF K =0 THEN 100 ELSE 200
199 END
REM * end main loop
REM ----------- - - - - --
REM * * * * * * * * * * * **
REM > Find Menu <
REM * * * * * * * * * * * **
REM print register find menu to lcd
200 PRINT #2,CHR(12),
210 PRINT #2, "Scroll to Item:"
220 PRINT #2," > ",$(C)
230 PRINT #2, "Up /Dn to Find"
240 PRINT #2, "Fl =Exit, ENTER =Sel"
REM find menu- get key press
250 DO
255 K= GET(2)
REM reset wdt
REM 256 REGWRITE 31,0
260 UNTIL K<>0
REM find up key
270 IF K =5 THEN GOSUB 1000
REM find down key
280 IF K =6 THEN GOSUB 1100
285 IF K =7 THEN 300
REM find exit key
290 IF K =1 THEN PRINT #2,CHR(12), : GOTO 100
295 GOTO 200
26