Laserfiche WebLink
610 IF COL<14 THEN COL =COL +1 <br />620 IF COL>13 THEN COL =13 <br />630 RETURN <br />REM edit menu- add to value <br />700 IF COL =5 THEN A =A +10 <br />710 IF COL =6 THEN A =A +l <br />720 IF COL =7 THEN A =A <br />730 IF COL =8 THEN A =A +.1 <br />740 IF COL =9 THEN A =A +.O1 <br />750 IF COL =10 THEN A =A +.001 <br />760 IF COL =11 THEN A =A +.0001 <br />770 IF COL =12 THEN A =A +.00001 <br />780 IF COL =13 THEN A =A +.000001 <br />795 RETURN <br />REM edit menu- subtract from value <br />800 IF COL =5 THEN A =A -10 <br />810 IF COL =6 THEN A =A -1 <br />820 IF COL =7 THEN A =A <br />830 IF COL =8 THEN A =A -.1 <br />840 IF COL =9 THEN A =A -.01 <br />850 IF COL =10 THEN A =A -.001 <br />860 IF COL =11 THEN A =A -.0001 <br />870 IF COL =12 THEN A= A- .00001 <br />880 IF COL =13 THEN A =A- .000001 <br />895 RETURN <br />REM edit menu- save new value <br />900 REGWRITE EREG,A <br />REM check alarm status for enable /disable <br />REM check to alarm <br />910 IF EREG= 7070.AND.REGREAD(7070) =0 THEN REGWRITE 4100,0 <br />915 IF EREG= 7070.AND.REGREAD(7070) >0 THEN REGWRITE 4100,1 : GOTO 990 <br />REM check hi alarm <br />920 IF EREG= 7071.AND.REGREAD(7071) =0 THEN REGWRITE 4100,0 <br />925 IF EREG= 7071.AND.REGREAD(7071) >0 THEN REGWRITE 4100,1 <br />990 GOTO 100 <br />REM find menu- up key <br />1000 C =C +l <br />1010 IF C >17 THEN C =0 <br />1020 GOTO 1200 <br />1099 END <br />REM find menu- down key <br />1100 C =C -1 <br />1110 IF C<0 THEN C =17 <br />1120 GOTO 1200 <br />1199 END <br />REM find menu- set register to edit <br />1200 IF C =0 THEN EREG =7033 <br />1210 IF C =1 THEN EREG =7034 <br />28 <br />