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

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