1 2 3 4 5 6 7
CREATE repl:buffer 80 ALLOT : repl:read-line repl:buffer DUP 80 READ-LINE ; : repl:one-inner ." > " repl:read-line 0 EVALUATE ; : repl:one ['] repl:one-inner CATCH ?DUP IF ." error " .DECIMAL ELSE ." ok" THEN CR ; : repl BEGIN repl:one AGAIN ; repl