X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=example.f;h=f5215db9b4a08a45562910328f6831578fe25c8a;hb=f0df53c35124c9a5e2b045aba60b513faa344567;hp=41993d73ba877de3f7c7c72491ecee6318a43d80;hpb=a856c7d5b35de1b48bdd948186ec4a03f7c3685c;p=rrq%2Fjonasforth.git

diff --git a/example.f b/example.f
index 41993d7..f5215db 100644
--- a/example.f
+++ b/example.f
@@ -25,4 +25,12 @@ S" 10 FIB = " TELL
 10 FIB .U
 SPACE S" (Expected: 59)" TELL NEWLINE
 
+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