\ My Outer Interpreter
\ Version Number: 1
\ Date: September 21, 1988
\ Author: Jack Brown

COMMENT:
\ This is the standard version of the outer interpreter QUIT
: QUIT          ( -- )
                SP0 @ 'TIB !    [COMPILE] [
                BEGIN
                     BEGIN
                     RP0 @ RP! STATUS QUERY
                     RUN STATE @ NOT
                     UNTIL
               ."  ok"
               AGAIN  ;
COMMENT;

\ This is my new version of the outer interpreter QUIT
: MYQUIT          ( -- )
                SP0 @ 'TIB !    [COMPILE] [
                BEGIN
                     BEGIN
                     RP0 @ RP!
                     QUERY  RUN  STATUS
                     STATE @ NOT
                     UNTIL
                .S ." > "
                AGAIN  ;