`Tank Timer

clear all

screen command
screen scroll all

vari t,h,r,h0,m,vpm,q

macro fill0 `%1 is load fraction, %2 is volume rate per MINUTE
 set t={t} plus 1
 set h={t} divide 60 | set h=trunc {h}
 set q={t} divide 15 | set r={q} minus trunc {q}
 set h0={h} times 60 | set m={t} minus {h0} 

 if {r}=0 then \After {2}{ h:0}{7} hours and;;
 {2}{ m:0}{7} minutes, tank {pname} load fraction is {load:3}.\

 if {load}>=%1 then \ |;;
 \{+b}{4}Tank {pname} load fraction is {load:3}!{-b}{7};;
 Fill time: {2}{h:0}{7} hrs & {2}{m:0}{7} mins\ | \ |  exit

 load vol:*+%2
 exit fill0 %1 %2
/

macro fill `%1 is load fraction, %2 is volume rate per HOUR
 set vpm=%2 divide 60 `volume per minute
 set t=0 `set time counter to 0
 .fill0 %1 {vpm}
/

read fv
cls

tank WT2.S `set tank name
.fill 0.875 100 `fill at a rate of 100 ft^3/hour up to a load fraction of 0.875    
tanks off