Laserfiche WebLink
REM setup string space <br />20 STRING 235,12 <br />REM initialize strings <br />21 $(0) = "Sens 1 Slope" <br />22 $(1)= "Sens 2 Slope" <br />23 $(2)= "Sensl Offset" <br />24 $(3)= "Sens2 Offset" <br />25 $(4) = "Sens 1 Calib" <br />26 $(5) = "Sens 2 Calib" <br />27 $(6) = "Q Mult1 (K1)" <br />28 $(7) = "Q Mult2 (K1)" <br />29 $(8) = "Q Exponl (U)" <br />30 $(9) = "Q Expon2 (U)" <br />31 $(10) = "View Flumes" <br />32 $(11) = "View Sen Raw" <br />33 $(12) = "View Calc. Q" <br />34 $(13) = "View Calc. Y" <br />35 $(14) = "Yl Lo Alarm" <br />36 $(15) = "Y1 Hi Alarm" <br />37 $(16) = "Rd /Set Clock" <br />38 $(17) = "Chg Bat Temp" <br />REM set first column for edit display <br />40 COL =5 <br />REM set first string to display on menu <br />45 C =0 <br />REM set first register for edit menu <br />50 EREG =7033 <br />REM set the first register for polling data <br />REM data stored in the following registers: <br />REM 7080= Water Level 1 (height in feet) <br />REM 7081= Flow 1 (in CFS) <br />REM 7082= Volume 1 (in Acre Feet) <br />REM 7083= Water Level 2 <br />REM 7084= Flow 2 <br />REM 7085= Volume 2 <br />REM 7086= Charge Voltage (in VDC) <br />REM 7087= Battery Voltage (in VDC) <br />REM 7088= Time stamp (to show change activity) <br />55 REG =7080 <br />REM set print to default <br />60 PRINT USING(0), <br />REM check for keypress at startup <br />93 DO <br />95 K= GET(2) <br />97 UNTIL (K= 0).OR.(K =256) <br />REM ------- - - - - -- <br />REM * main loop * <br />REM check alarms <br />100 IF REGREAD(4111) >O THEN GOSUB 13000 <br />25 <br />