If flag is true, stops execution, resets stacks, and displays the string. If flag is false then no action is taken.

: TEST ( -- )
  CR ." Press S to stop" CR
  BEGIN
    42 EMIT
    KEY? ASCII S = ABORT" You pressed S!!"
  AGAIN
;

TEST

none