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

5755 K= GET(2)
REM 5760 REGWRITE 31,0
5765 UNTIL K< >0
5770 IF K =1 THEN GOTO 100
5775 IF K =5 THEN YR =YR +l
5777 IF YR>2099 THEN YR =2099
5780 IF K =6 THEN YR =YR -1
5783 IF YR<2000 THEN YR =2000
5785 IF K =7 THEN YR =YR -2000 : REGWRITE 4796,YR : GOTO 5800
5790 GOTO 5705
REM
5800 PRINT
5810 PRINT
5820 PRINT
5830 PRINT
5840 PRINT
;et clock- month
#2, CHR(12),
#2, "Set Clock:"
#2," Month = ",MN
#2, "UP /DN to Change"
#2, "F1 =Exit, ENTER =Set"
5850 DO
5855 K =GET (2)
REM 5860 REGWRITE 31,0
5865 UNTIL K< >0
5870 IF K =1 THEN GOTO 100
5875 IF K =5 THEN MN =MN +1
5877 IF MN>12 THEN MN =12
5880 IF K =6 THEN MN =MN -1
5883 IF MN<1 THEN MN =1
5885 IF K =7 THEN REGWRITE 4795,MN : GOTO 5900
5890 GOTO 5800
REM
5900 PRINT
5910 PRINT
5920 PRINT
5930 PRINT
5940 PRINT
;et clock- day of month
#2, CHR(12),
#2, "Set Clock:"
#2," Day = ",DM
#2, "UP /DN to Change"
#2, "F1 =Exit, ENTER =Set"
5950 DO
5955 K= GET(2)
REM 5960 REGWRITE 31,0
5965 UNTIL K< >0
5970 IF K =1 THEN GOTO 100
5975 IF K =5 THEN DM =DM +1
5977 IF DM >31 THEN DM =31
5980 IF K =6 THEN DM =DM -1
5983 IF DM<l THEN DM =1
5985 IF K =7 THEN REGWRITE 4794,DM : GOTO 6000
5990 GOTO 5900
REM set clock- hour
6000 PRINT #2, CHR(12),
33