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 get register pointer
12010 LPTR= REGREAD(4499)
REM calculate date
12020 MDY =MN *10000 +DM *100 +YR
REM calculate time
12030 HRMN =(HRS *100) +MINS
REM log month day year variable in register
REM and increment register number.
12040 REGWRITE LPTR,MDY : GOSUB 12500
REM log time in next column
12050 REGWRITE LPTR,HRMN: GOSUB 12500
REM print log time to computer screen
12060 PRINT "Log Time= ",HRS, "Hours ",MINS, "Minutes"
12070 PRINT : PRINT
REM log sensor 1 depth(Y), flow(Q), volume(volsuml)
12210 REGWRITE LPTR,Y1 : gosub 12500'
12220 REGWRITE LPTR,Q1 : gosub 12500
12230 REGWRITE LPTR,VOLSUMI : gosub 12500
REM log sensor 2 depth(Y), flow(Q), volume(volsum2)
12240 REGWRITE LPTR,Y2 : gosub 12500
12250 REGWRITE LPTR,Q2 : gosub 125001,
12260 REGWRITE LPTR,VOLSUM2 : gosub 12500
REM log charge & battery voltages
12270 REGWRITE LPTR,CV gosub 12500,
12280 REGWRITE LPTR,BV gosub 1250Q
REM get temp from rtc
12290 A= REGREAD(13)
REM convert raw temp to deg C
12300 IF A <32000 THEN B =A *0.25 ELSE'B =(A- 33280) *0.25
REM log temp in deg C
12310 REGWRITE LPTR,B :gosub 12500
REM check to see if midnite for daily volume log
12320 IF HRS +MINS< >0 THEN GOTO 12400
REM log volume variables in registers at midnite
12330 REGWRITE LPTR, VOLSUMI : GOSUB 12500
12340 REGWRITE LPTR, VOLSUM2 : GOSUS 12500
REM reset daily accumulated volume
REM flume 1
12350 REGWRITE 7049,0
REM flume 2
12360 REGWRITE 7050,0
REM update ytd volume sum logging registers
REM store flumel in regs 23000', (2010) to 23019 (2029)
REM then flume 2 in regs 230',20 to 23039.
12370 REGWRITE YTD,VOLSUMI +REGREAD(YTD)
12380 REGWRITE YTD +20,VOLSUM2 +REGREAD(YTD +20)
REM write "end -of- record" flag to log
12400 REGWRITE LPTR, 13101310 : GOSUB 12500
41