George is that Forth your "ATlast" ?
Yes it is. The only other Forth I've ever had (and used) is one for the Apple II that John Drapper (a.k.a. Captain Crunch) in person sold me at the NCC in NYC in 1979.
Edit:
But that code above won't run in yours because I've added some words to mine: e.g. delay.us (delayMicroseconds), digr (digitalRead) and digw IIANM.
Just having bought a Apple II from Captain Crunch makes you a
legend!
Yes I could see your extra Words.
Forth people never copy each others code, for one we don't need to, and 2) our systems are all different.
Your code is:
: invert 0= if 1 else 0 then ;
26 output: speaker
: beep
begin
speaker speaker digr invert digw
350 delay.us
key?
until
speaker 0 digw
;
Mine would be something like:
( not inverts all bits)
: beep
begin
speaker dup digr not digw
350 delay.us
key?
until
speaker 0 digw
;