Laserfiche WebLink
REM * * * * * * * * * * * ** <br />REM > Edit Menu < <br />REM * * * * * * * * * * * ** <br />REM check for jumps to other displays /menus first <br />REM check for jump to display depth, flow, vol <br />300 IF EREG =7059 THEN 11670 <br />REM check for jump to view raw sensors <br />305 IF EREG =7060 THEN 4000 <br />REM check for jump to view calculated discharge <br />310 IF EREG =7061 THEN 5000 <br />REM check for jump to view calculated depth <br />315 IF EREG =7062 THEN 5000 <br />REM check for jump to set rtc <br />317 IF EREG =7063 THEN 5500 <br />REM check for jump to display charge, battery, temp <br />319 IF EREG =7064 THEN 6500 <br />REM allow register edit here <br />REM get register value to be edited <br />320 A= REGREAD(EREG) <br />REM print edit menu to lcd <br />325 PRINT #2,CHR(12), <br />330 PRINT #2, "Edit: ",$(C) <br />335 PRINT USING( # #. # # # # # #), <br />340 PRINT #2, CHR (254),CHR(71),CHR(4),CHR(2),A <br />345 PRINT USING(0), <br />350 PRINT #2, "F1 =Exit F2 =Lf F3 =Rt" <br />360 PRINT #2, "Up /Dn =Chg, Enter =Set" <br />370 PRINT #2, CHR (254),CHR(71),CHR(COL),CHR(2), <br />REM edit menu- get keypress <br />400 DO <br />410 K= GET(2) <br />REM reset wdt <br />REM 415 REGWRITE 31,0 <br />420 UNTIL K< >0 <br />430 <br />IF <br />K =1 <br />GOTO <br />200 <br />440 <br />IF <br />K =2 <br />GOSUB <br />500 <br />450 <br />IF <br />K =3 <br />GOSUB <br />600 <br />460 <br />IF <br />K =5 <br />GOSUB <br />700 <br />470 <br />IF <br />K =6 <br />GOSUB <br />800 <br />480 <br />IF <br />K =7 <br />GOTO <br />900 <br />490 <br />GOTO 325 <br />499 <br />END <br />REM edit menu- move cursor left <br />500 IF COL =5 THEN RETURN <br />510 IF COL >5 THEN COL =COL -1 <br />520 IF COL<5 THEN COL =5 <br />530 RETURN <br />REM edit menu- move cursor right <br />600 IF COL =13 THEN RETURN <br />27 <br />