Xylem STORM 3 Basic Programming manual - Manual (Page 46)

REM Respond to simple commands on the RS-232 Com port as a Listener program
OPEN “LISTENER” AS #3
PRINT #3 “Enter Command > “
50
REM Ten seconds of inactivity causes the program to exit
INPUT #3 “\n” 10000, reply$
IF (reply$ == “”) THEN
END
ELSE
REM Trim trailing carriage return or line feed
DO
last_char$ = RIGHT$(reply$, 1)
IF (last_char$ == “\n”) OR (last_char$ == “\r”) THEN
reply$ = LEFT$(reply$, LEN(reply$) - 1)
ELSE
BREAK
END IF
LOOP
ENDIF
REM remove case sensitivity from command
reply$ = UPPER$(reply$)
SWITCH reply$
CASE “BATTERY?”:
GETVALUE SYSBATT, var
PRINT #3 “Battery = “, var USING “##.#”, “\r\n”
BREAK
CASE “LASTSTAGE?”:
GETVALUE SENSOR “Stage”, var
PRINT #3 “Stage = “, var, “\r\n”
BREAK
CASE “ANALOG1?”:
GETVALUE ANALOG1, var
PRINT #3 “Analog 1 = “, var USING “##.###”, “\r\n”
BREAK
DEFAULT:
PRINT #3 “Unknown command \””, reply$,”\” \r\n”
BREAK
END SWITCH
GOTO 50
Listener.bas
44
EXAMPLE PROGRAMS