#include <eForth1.h>
///
/// Enter the following Forth code into Serial Monitor input
///
///  1 6 PINMODE                       \ set blue LED to OUTPUT mode
///  : blue 6 IN 1 XOR 6 OUT ;         \ define a word to toggle the blue LED
///  : blink FOR blue 500 DELAY NEXT ; \ create a word to blinking it
///  9 blink                           \ blink 5 times (i.e. 9 on,8 off,..1 on,0 off)
///
///  1 5 PINMODE                       \ now we set the red LED to OUTPUT mode, too
///  : red 5 IN 1 XOR 5 OUT ;          \ a word to toggle the red LED
///  ' red 200 0 TMISR                 \ make red service routine 0, toggle every 200ms
///  1 TIMER                           \ turn on timer interrupts
///
///  19 blink                          \ the blue LED blinks, too
///  
///  0 TIMER                           \ turn off the timer, red LED paused
///
/// Note: For better display, you might want to pull the screen and drawing up a bit 
///
void setup() {
  Serial.begin(115200);
  while(!Serial);

  ef_setup();
}

void loop() {
  ef_run();
}