\ SCRUB ( erase existing application program in flash if present.

: LOOPVAR <BUILDS HERE P, DUP , , DOES> P@ ; EEWORD

100 LOOPVAR CNT EEWORD 

: DEC&TEST? 
    DUP 1-! DUP @ 0= IF 
      DUP 1 + @ SWAP ! TRUE 
    ELSE DROP FALSE THEN 
; 
EEWORD

MACHINE CHASELED  EEWORD
ON-MACHINE CHASELED
APPEND-STATE BR1  EEWORD
APPEND-STATE BR2  EEWORD
APPEND-STATE BR3  EEWORD
APPEND-STATE BR4  EEWORD

IN-STATE
   BR1 
CONDITION 
  CNT DEC&TEST?
CAUSES 
   REDLED ON
   YELLED OFF
   GRNLED OFF
THEN-STATE
   BR2 
TO-HAPPEN
IN-EE

IN-STATE
   BR2
CONDITION
   CNT DEC&TEST?
CAUSES
   REDLED OFF
   YELLED ON 
THEN-STATE
   BR3 
TO-HAPPEN
IN-EE

 IN-STATE
   BR3
CONDITION
   CNT DEC&TEST?
CAUSES
   YELLED OFF
   GRNLED ON 
THEN-STATE
   BR4
TO-HAPPEN
IN-EE

 IN-STATE
   BR4
CONDITION
  CNT DEC&TEST?
CAUSES
   GRNLED OFF
   YELLED ON 
THEN-STATE
   BR1 
TO-HAPPEN
IN-EE
 
DECIMAL
: MAIN
     BR1 SET-STATE
     EVERY 5000 CYCLES SCHEDULE-RUNS CHASELED
; EEWORD

HEX 7C00 AUTOSTART MAIN

SAVE-RAM