Implement BUF"

[rrq/jonasforth.git] / example.f

diff --git a/example.f b/example.f
index 547887f2894b1be397683889ffd475c87904a2f0..f5215db9b4a08a45562910328f6831578fe25c8a 100644 (file)
--- a/example.f
+++ b/example.f
@@ -25,9 +25,12 @@ S" 10 FIB = " TELL
 10 FIB .U
 SPACE S" (Expected: 59)" TELL NEWLINE
 
-S" Word:" TELL NEWLINE
-SYSCODE POP-WORD TELL NEWLINE
-S" Remaining:" TELL NEWLINE
-TELL
+SYSCODE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
+S" Word: " TELL POP-WORD TELL NEWLINE
 
 TERMINATE