diff --git a/blk/382 b/blk/382 index 63a0d47..e2ff367 100644 --- a/blk/382 +++ b/blk/382 @@ -3,7 +3,7 @@ 16 0 DO I 1+ DUP 10 < IF SPC THEN . SPC 64 I * BLK( + DUP 64 + SWAP DO - I C@ DUP 0x1f > IF EMIT ELSE LEAVE THEN + I C@ DUP 0x1f > IF EMIT ELSE DROP LEAVE THEN LOOP NL LOOP ; diff --git a/cvm/forth.bin b/cvm/forth.bin index 086d78c..6b97f0c 100644 Binary files a/cvm/forth.bin and b/cvm/forth.bin differ