X-Git-Url: https://git.kengrimes.com/?p=watForth.git;a=blobdiff_plain;f=forth.forth;fp=forth.forth;h=db765e05ec5c5b2b195be5cf096facb37c7b5395;hp=0ffbc9c57ce2ad326c5572ef3b2e875a5ba7caed;hb=9a5c53df66d6f68395d9b11084482a7b1edf265e;hpb=5d787df4e2ff2a70cde1b599a3ff99faf9136179

diff --git a/forth.forth b/forth.forth
index 0ffbc9c..db765e0 100644
--- a/forth.forth
+++ b/forth.forth
@@ -1,12 +1,12 @@
-5 . 
 word ' here define
 word word find , word find find , word ; find ,
 word : here define
 ' word , ' here , ' define , ' ; ,
 : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
-' find , ' dup , ' JZ: , here 12 + , ' , , ' ; ,
-: i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
-: e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
-: TEST \i DUP + DUP + . ; \e
-5 TEST
-2 . 
\ No newline at end of file
+' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
+' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
+: ^i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
+: ^e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
+: test \^i 20 20 + ; \^e
+test .
+5 .