Marks the beginning of a BEGIN...WHILE...REPEAT loop or a BEGIN...UNTIL loop.

: PRESS-S ( -- )
  CR ." PRESS S"
  BEGIN
    KEY ASCII S = NOT IF
      CR ." I SAID PRESS S!"
      FALSE
    ELSE
      TRUE
    THEN
  UNTIL
  CR ." THANK YOU!" CR
;
 

none