Option Autorun On
Option Base 0
Option Baudrate 9600

CPU 40

Const Ver="1.5"
Const TrigLightTimeOut=45'light on time when triggered
Const TrigLogTimeout=30 'time between trigger logs
Const Sensor=2,MainSW=14,DaylightTracker=4
Const SensorActive=1,MainSWActive=0
Const LogTop=272 ' FIFO log size

RTC GetTime

CL VER+" System coming up"

Dim OpLog$(LogTop) LENGTH 6
Dim a$
Dim Integer z
Var Restore

OPTION AUTORUN ON

PRINT "Node boot"
timer=0

OPTION BASE 0


<snip>


VAR RESTORE

FlagSet 3 ' just booted

IF MyAddr=0 THEN
DO
DO
INPUT "Enter Node address (1-998) >", a$
MyAddr=int(val("0"+a$))
LOOP UNTIL MyAddr >0 AND MyAddr<999

DO
INPUT "Enter Node Task Name >", a$
MyJob=a$
LOOP UNTIL MyJob<>""

PRINT "Is this correct? (Y/N)";
DO:INPUT a$:a$=UCASE$(a$):LOOP UNTIL a$="Y" OR a$="N"
LOOP WHILE a$="N"

VAR SAVE MyAddr,MyJob

FlagSet 6 ' Just completed setup - need INIT
END IF

VAR RESTORE
DO
PRINT "QQQ"
LOOP

option autorun on
VAR RESTORE
DO
PRINT "QQQ"
LOOP

VAR RESTORE
DO
PRINT "QQQ"
LOOP
OPTION AUTORUN ON

VAR RESTORE
DO
PRINT "QQQ"
LOOP

VAR RESTORE
DO
PRINT "QQQ"
LOOP
OPTION AUTORUN ON