SCRUB                               ( ERASE EEPROM

VARIABLE COUNTS          EEWORD     ( A VARIABLE TO HOLD STATE INFORMATION
                                    ( FOR A PRESCRIBED PERIOD OF TIME

MACHINE LED-LOOP         EEWORD     ( MAKE A STATE MACHINE 

  ON-MACHINE LED-LOOP	            ( TURN THE MACHINE ON 
  APPEND-STATE LED-OFF   EEWORD     ( STATE OF THE LED BEING OFF
  APPEND-STATE WAITING   EEWORD     ( STATE OF THE LED WAITING TO TURN OFF I.E. ON

 
  IN-STATE                          ( IF THE ACTIVE STATE IS LED-OFF
     LED-OFF
                        
  CONDITION                         ( THE CONDITION OF PA2 OFF, I.E. PRESSED, 
     PA2 OFF?

  CAUSES 
     REDLED ON 100 COUNTS !         ( CAUSES THE REDLED TO TURN ON, AND THE COUNTER TO BE 
                                    ( SET TO 100

  THEN-STATE                        ( SET THE ACTIVE STATE TO WAITING
     WAITING 

  TO-HAPPEN IN-EE                   ( MAKE IT HAPPEN



  IN-STATE                           ( IF THE ACTIVE STATE IS WAITING
     WAITING
  CONDITION                           ( CONDITION, WHICH IS RUN EVERY TIME THE STATE IS ACTIVE
     COUNTS @ DUP 0= SWAP 1- COUNTS ! ( PUTS THE VALUE OF COUNTS ON THE STACK, DUPLICATES IT
                                      ( CHECKS IF CONDITION EVALUATES TRUE, DECREMENTS THE
                                      ( REMAINING VALUE ON THE STACK, COUNTS, AND SPORES IT
                                      ( BACK IN COUNTS
  CAUSES 
     REDLED OFF                       ( THE CONDITION EVALUATED AS TRUE, SO LED GETS TURNED OFF

  THEN-STATE 
     LED-OFF                          ( ACTIVE STATE IS NOW LED-OFF

  TO-HAPPEN                           ( MAKE IT HAPPEN
     IN-EE




MACHINE-CHAIN ALL                      ( CHAIN ALL OF OUR MACHINES, ALL ONE OF THEM, INTO A WORD
  LED-LOOP
END-MACHINE-CHAIN EEWORD                ( MACHINE-CHAIN IS THE SAME AS :
                                        ( END-MACHINE IS THE SAME AS ;
 
: MAIN
  100 COUNTS !                           ( SET COUNTER TO EQUAL 100
  REDLED OFF                             ( TURN OFF THE REDLED
  LED-OFF SET-STATE                      ( MAKE THE ACTIVE STATE SET-STATE 
  EVERY  50000 CYCLES SCHEDULE-RUNS ALL  ( RUN AT 100 HZ OR 5,000,000 / 50,000

; EEWORD



 SAVE-RAM                               ( SAVE RAM ENVIRONMENT
 AUTOSTART MAIN                         ( AUTOSTART MAIN

( CHALLENGE:
( MAKE THE LED LIGHT OFTER BUTTON RELEASE FOR AS LONG AS THE BUTTON WAS PRESSED...