diff --git a/blk/060 b/blk/060 index 25b341f..2fa1807 100644 --- a/blk/060 +++ b/blk/060 @@ -4,7 +4,7 @@ I/O result in n as well as whether parsing was a success in f (false = failure, true = success) -(print) a -- Print string at addr a. +(print) a -- Print string at addr a. Stops at 0x0 or 0xd. . n -- Print n in its decimal form .x n -- Print n's LSB in hex form. Always 2 characters. diff --git a/blk/102 b/blk/102 index fabf2da..210a603 100644 --- a/blk/102 +++ b/blk/102 @@ -2,7 +2,8 @@ 1 5 LOADR+ : BROWSE - L BEGIN + 0 ACC ! L + BEGIN KEY CASE 'Q' OF EXIT ENDOF 'B' OF B ENDOF diff --git a/blk/438 b/blk/438 index 0da95a7..1fe79e5 100644 --- a/blk/438 +++ b/blk/438 @@ -4,10 +4,10 @@ : (print) BEGIN - C@+ ( a+1 c ) - ( exit if null ) - DUP NOT IF 2DROP EXIT THEN - EMIT ( a ) + C@+ ( a+1 c ) + ( exit if null or 0xd ) + DUP 13 = OVER NOT OR IF 2DROP EXIT THEN + EMIT ( a ) AGAIN ; diff --git a/emul/forth.bin b/emul/forth.bin index c93de26..c928a49 100644 Binary files a/emul/forth.bin and b/emul/forth.bin differ