-' 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 , ' ! , ' ; ,
+^i
+\: FINISH-STRING DROP STRING-END ;
+\: " STRING-START
+\: KEYPUMP KEY 34 =? JNZ: FINISH-STRING STRING-PUT JMP: KEYPUMP
+\^e
+" watForth-32 Interactive CLI:
+" .s