X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=example.f;h=38cd6e4e69921d16fb6e9171b3129796161e085f;hb=9b08decf6a8f5d454c90dbcbf12d42cb8954a022;hp=547887f2894b1be397683889ffd475c87904a2f0;hpb=fbd07fa0c1aaad0cca46f9b1fc4839e053454f03;p=rrq%2Fjonasforth.git

diff --git a/example.f b/example.f
index 547887f..38cd6e4 100644
--- a/example.f
+++ b/example.f
@@ -1,6 +1,3 @@
-( vim: syntax=forth
-)
-
 : FIB ( n -- Fn )
   0 1                            ( n a b )
   0                              ( n a b i )
@@ -13,21 +10,12 @@
   DUP 4 PICK = UNTIL
   DROP SWAP DROP SWAP DROP ;     ( a+b )
 
-S" HELLO-ADDR" CREATE
-S" Hello!" DUP ROT
-STORE-STRING
-: HELLO
-  ' HELLO-ADDR LIT, TELL NEWLINE ;
-
-HELLO
+: HELLO S" Hello!" TELL NEWLINE ;
 
-S" 10 FIB = " TELL
-10 FIB .U
-SPACE S" (Expected: 59)" TELL NEWLINE
+: TEST-FIB
+  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
+HELLO
+TEST-FIB