( my first FORTH program, trival and simple )
( I test it in Win32Forth environment )

: lecho \ -- ; runs until CR pressed
    CR ." line echo program " CR
    BEGIN
        KEY DUP 13 = IF CR ." exit " EXIT THEN
        EMIT
    AGAIN
;
lecho