echo.tal

( usage: uxncli terminal-cli.rom )

|10 @Console &vector $2 &read $1 $5 &write $1

|0a @enter

|100

@on-reset ( -> )
        ;on-console .Console/vector DEO2
        ;prompt INC <print-str>
        BRK

@on-console ( -> )
        .Console/read DEI
        DUP .enter NEQ ?{
                ;prompt <print-str>
                POP BRK }
        <emit>
        BRK

@<emit> ( char -- )   .Console/write DEO  JMP2r

@<print-str> ( str* -- )
        &while ( -- )
        LDAk <emit>
        INC2 LDAk ?&while
        POP2 JMP2r

@you-said 0a "echo> 20 $1