setpin 11, fin 'Flowmeter

sub Grey_UD 'run from Dostuff_2 every 5 seconds
local Grey_Freq, Grey_flow$
Grey_freq = pin(11) 'flow meter
if Grey_Freq > 120 then Grey_Freq = 120 'limit extroneous readings
Grey_flow$ = format$(Grey_freq/8.2,"% 5.1f") '82Hz = 10 l/m
print @(380, 180) CLR$(cyan) "GREY l/m " Grey_flow$ " "
if Grey_freq > 15 then 'normally ~ 75Hz when running
settick 20000, Grey_Check, 3 '20 sec time out set.
StatVal(5) = 40 'Stat Graph line high (ON)
STAT$(5) = " ON " 'set stat value. Reset after Data Save
print
Grey_on_Ctr = Grey_on_Ctr + 5 'counter time in seconds
if z1 mod 12 = 0 then 'check for multiples of 12 inc 0
Rate$ = "b:\GREYRATE\" + date1$ + ".csv" 'create a file save string with folder = current date
if (flags and 32)= 0 then 'check SD card is still inserted
open Rate$ for append as #5 'open the file for appending
print #5:print #5,time$; ", "; ' print time to SD card file
close #5
endif
endif
z1 = z1 + 1
if (flags and 32)= 0 then 'check SD card is still inserted.
open Rate$ for append as #5 'open the file for appending Defined above
print #5, grey_flow$; ", "; 'save data to SD card
close #5
endif
if z1 = 5 then Grey_Mem$ = " 0.0" 'reset prior to update
if z1 => 6 then 'wait for pump to settle down
if val(Grey_flow$) > val(Grey_Mem$) then Grey_Mem$ = Grey_Flow$ '82Hz = 10 l/m
print @(380, 192) CLR$(cyan) "GREY MEM " format$(val(Grey_Mem$),"% 5.1f") " " 'permanently Display value
endif
gosub Grey_save
else
StatVal(5) = 2 'Stat Graph line low (OFF) STAT(5)reset after Data Save
z1 = 0
endif
end sub