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

6010 PRINT #2, "Set Clock:"
6020 PRINT #2," Hour = ",HRS
6030 PRINT #2, "UP /DN to Change"
6040 PRINT #2, "F1 =Exit, ENTER =Set"
6050 DO
6055 K= GET(2)
REM 6060 REGWRITE 31,0
6065 UNTIL K< >0
6070 IF K =1 THEN GOTO 100
6075 IF K =5 THEN HRS =HRS +l
6077 IF HRS >23 THEN HRS =23
6080 IF K =6 THEN HRS =HRS -1
6083 IF HRS<1 THEN HRS =1
6085 IF K =7 THEN REGWRITE 4792,HRS : GOTO 6100
6090 GOTO 6000
REM ,
6100 PRINT
6110 PRINT
6120 PRINT
6130 PRINT
6140 PRINT
aet clock- minutes
#2, CHR(12),
#2, "Set Clock:"
#2," Minutes = ",MINS
#2, "UP /DN to Change"
#2, "F1 =Exit, ENTER =Set"
6150 DO
6155 K= GET(2)
REM 6160 REGWRITE 31,0
6165 UNTIL K< >0
6170 IF K =1 THEN GOTO 100
6175 IF K =5 THEN MINS = MINS +1
6177 IF MINS >59 THEN MINS =59
6160 IF K =6 THEN MINS = MINS -1
6183 IF MINS<1 THEN MINS =1
6185 IF K =7 THEN REGWRITE 4791,MINS : GOTO 6200
6190 GOTO 6100
REM ;
6200 PRINT
6210 PRINT
6220 PRINT
6230 PRINT
6240 PRINT
,et clock- seconds
#2, CHR(12),
#2, "Set Clock:"
#2," Seconds = ",SECS
#2, "UP /DN to Change"
#2, "F1 =Exit, ENTER =Set"
6250 DO
6255 K= GET(2)
REM 6260 REGWRITE 31,0
6265 UNTIL K< >0
6270 IF K =1 THEN GOTO 100
6275 IF K =5 THEN SECS = SECS +1
6277 IF SECS >59 THEN SECS =59
6280 IF K =6 THEN HRS =HRS -1
34