\ debug 10/18/97 gwj require cstrings require tools \ thanks to Kevin Wood : (--) depth abort" Stack not empty!" ; \ thanks to Rick Hoselton \ wait for an enter : enter ( -- ) begin cr ." enter>" key 10 = until ; : enter.proc? ( key -- f ) dup 10 = if drop true else 32 or \ lower case the char dup [char] s = if drop cr .s else dup [char] a = if drop abort else drop cr then then false then ; : enter+ ( -- ) cr begin ." s,a,enter>" key enter.proc? until ; \ thanks to Rick Hoselton \ breakpoint word : %s ( n -- ) dup 0= if page then . cr .s enter+ ; \ only wait if a key has already been \ pressed : %w ( n -- ) dup 0= if page then . ekey if ( key drop) cr .s enter+ then ;