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

diff --git a/forth.forth b/forth.forth
index 2facfc9..0ffbc9c 100644
--- a/forth.forth
+++ b/forth.forth
@@ -1,2 +1,12 @@
-: dothings ^C dup + ; ^E
-5 dothings .
+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