X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=example.f;h=41993d73ba877de3f7c7c72491ecee6318a43d80;hb=8bceaf6620b213b2ddc9344448494af6d97dfb27;hp=547887f2894b1be397683889ffd475c87904a2f0;hpb=fbd07fa0c1aaad0cca46f9b1fc4839e053454f03;p=rrq%2Fjonasforth.git

diff --git a/example.f b/example.f
index 547887f..41993d7 100644
--- a/example.f
+++ b/example.f
@@ -25,9 +25,4 @@ 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
-
 TERMINATE