X-Git-Url: https://git.kengrimes.com/?p=watForth.git;a=blobdiff_plain;f=forth.forth;h=e7dc22974c155f5366adf97e19e9d52b049b4446;hp=aa90b03d80ffdbad7549ad72d97400d5b136bfa8;hb=d30761f3974c9a6ccc543392c20060885ca91a36;hpb=b9be17929d350bf4ab9c747e29ae6c1203035111

diff --git a/forth.forth b/forth.forth
index aa90b03..e7dc229 100644
--- a/forth.forth
+++ b/forth.forth
@@ -17,12 +17,12 @@ word : here define
 : IWRITE-MODE ' dup , ' JNZ: , here 12 + , ' 2drop , ' ; ,
 ' 2dup , ' find , ' dup , ' JZ: , here 16 + , ' , , ' 2drop , ' ; ,
 ' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
-: ^i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
-: ^e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
-^i
+: i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
+: e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
+\i
 \: FINISH-STRING DROP STRING-END ;
 \: " STRING-START
 \: KEYPUMP KEY 34 =? JNZ: FINISH-STRING STRING-PUT JMP: KEYPUMP
-\^e
+\e
 " watForth-32 Interactive CLI:
 " .s