#include <nanoFORTH.h>
///
/// Enter the following Forth code into Serial Monitor input
/// 1 5 OUT
/// 0 6 OUT
/// : red 1 5 OUT 0 6 OUT ;
/// : blu 0 5 OUT 1 6 OUT ;
/// blu
/// : xy FOR red 500 DLY blu 500 DLY NXT ;
/// 10 xy
/// FGT xy
/// : xy FOR red 200 DLY blu 300 DLY I . NXT ;
/// 20 xy
/// 1 AIN
/// DRP
/// : lit 1 AIN 200 > ;
/// : ?z IF red ELS blu THN ;
/// lit ?z
/// : xyz BGN lit ?z 7 IN UTL ;
/// xyz
///
void setup() {
Serial.begin(115200);
while(!Serial);
pinMode(5, OUTPUT); // red LED
pinMode(6, OUTPUT); // blue LED
pinMode(7, INPUT); // push button
digitalWrite(6, HIGH); // turn blue ON
n4_setup();
}
void loop() {
n4_run();
}