recommit of old milestones, cleanup pass

[watForth.git] / forth.forth

diff --git a/forth.forth b/forth.forth
index ab2e73f..aa90b03 100644 (file)
--- a/forth.forth
+++ b/forth.forth
@@ -10,7 +10,6 @@
 \
 \ You should have received a copy of the GNU General Public License
 \ along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
 word ' here define
 word word find , word find find , word ; find ,
 word : here define
@@ -20,6 +19,10 @@ word : here define
 ' drop , ' LIT , ' LIT , ' , , 16720 , ' , , ' ; ,
 : ^i ' LIT , ' MODE , ' LIT , ' IWRITE-MODE , ' ! , ' ; ,
 : ^e ' LIT , ' MODE , ' LIT , ' EXECUTE-MODE , ' ! , ' ; ,
-: test \^i 20 20 + ; \^e
-test .
-5 . 
+^i
+\: FINISH-STRING DROP STRING-END ;
+\: " STRING-START
+\: KEYPUMP KEY 34 =? JNZ: FINISH-STRING STRING-PUT JMP: KEYPUMP
+\^e
+" watForth-32 Interactive CLI:
+" .s