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

5270 PRINT #2," Sensor 1> ",Q1
5280 PRINT #2," Sensor 2 > ",Q2
5290 PRINT #2, "Press F3 to Exit"
REM check for user keypress to exit
5300 K= GET(2)
5310 IF K =3 THEN 5350
REM reset wdt
REM 5320 REGWRITE 31,0
REM do again
5340 GOTO 5005
REM turn off sensor power and return to main
5350 REGWRITE 4823,0
5360 PRINT USING(0), : GOTO 100
REM --------------- -
REM * read /set rtc *
REM --------------- -
REM read clock
5500 SECS= REGREAD(4790)
5510 MINS= REGREAD(4791)
5520 HRS= REGREAD(4792)
REM 5530 DW= REGREAD(4793)
5540 DM= REGREAD(4794)
5550 MN= REGREAD(4795)
5560 YR= REGREAD(4796) REM print current settings to lcd
5570 PRINT #2, CHR(12),
5580 PRINT #2, "Current Clock:"
5590 PRINT #2," YMD: ",YR +2000,MN,DM
5600 PRINT #2," Time: ",HRS,MINS,SECS
5610 PRINT #2, "F1 =Exit, F2= Edit"
REM wait for keypress
5620 DO
5625 K= GET(2)
REM 5627 REGWRITE 31,0
5630 UNTIL K< >0
5640 IF K =1 THEN GOTO 100
5650 IF K =2 THEN 5700
5690 GOTO 5500
REM set clock- year
5700 YR =YR +2000
5705 PRINT #2, CHR(12),
5710 PRINT #2, "Set Clock:"
5720 PRINT #2," Year = ",YR
5730 PRINT #2, "UP /DN to Change"
5740 PRINT #2, "FI =Exit, ENTER =Set"
5750 DO
32