Laserfiche WebLink
11750 PRINT #2, " Dpth = ",(Y2 +0.001), "FT" <br />11755 PRINT #2, " Flow = ",(Q2 +0.001), "CFS" <br />11760 PRINT #2, " Vol = ",(VOLSUM2), 'W" <br />REM pause <br />11770 DO : UNTIL TICK(0) >10 <br />11772 print #2,chr(12), "YTD AF summary" <br />11774 print #2, "Flume 1: ",regread(ytd) + volsuml <br />11776 print #2, "Flume 2: ",regread(ytd +10) + volsum2 <br />rem delay for 5 more seconds <br />11778 do : until tick(0) >15 <br />REM if sent here by menu selection <br />REM reset menu selection, return to main loop <br />11780 IF C =10 THEN C =0 : PRINT USING(0), : GOTO 100 <br />REM save the depth, flow, volume to polling regs <br />11800 REGWRITE REG,Yl <br />11810 REGWRITE REG +1,Q1 <br />11815 REGWRITE REG +2,1 <br />11820 REGWRITE REG +3,Y2 <br />11825 REGWRITE REG +4,Q2 <br />11830 REGWRITE REG +5,VOLSUM2 <br />REM read the charge & battery voltage registers 11840 <br />CV= REGREAD(8) : CV =CV *.007326 <br />11845 BV= REGREAD(9) : BV =BV *.007326' <br />REM print charge and battery voltages to computer scrn <br />REM save the voltage readings to polling registers <br />11860 REGWRITE REG +6, CV <br />11865 REGWRITE REG +7, BV <br />11870 PRINT "Charge Voltage = ", CV," VDC" <br />11875 PRINT "Battery Voltage = ", BV, ", VDC" <br />REM calculate and add time stamp <br />11880 HRMN =(HRS *10000) +(MINS *100) +SECS <br />11890 REGWRITE REG +8, HRMN <br />REM set print to default, skip'one more line <br />11895 PRINT USING(0) : PRINT <br />REM reset scan flag to false <br />11897 SFLAG =O <br />REM get data logging enable value- 1= enable <br />11900 T= REGREAD(4104) <br />11910 IF T =0 THEN RETURN <br />REM if log enable true, check log interval flag <br />11920 IF LFLAG =O THEN RETURN <br />REM--------------- - - - - -- <br />REM * log data subroutine <br />REM--------------- - - - - -- <br />REM record contains the following items <br />REM date, time <br />12000 PRINT "Logging Data..." <br />40 <br />