X-Git-Url: https://git.kengrimes.com/?p=watForth.git;a=blobdiff_plain;f=forth.forth;fp=forth.forth;h=dce37c5b7833fcff87ea467ecf2be56b1bf3878c;hp=cb6090f20113adc87f86ec7be54589961374bb54;hb=7946a78988064b7ec67e8d27763a962cebb29515;hpb=fb7946e17777ee389e3eaf742e6ff87a5d832710

diff --git a/forth.forth b/forth.forth
index cb6090f..dce37c5 100644
--- a/forth.forth
+++ b/forth.forth
@@ -36,6 +36,8 @@ word BYE 25 define
 word WORDS 27 define
 word CHANNEL-IN 35 define
 word CHANNEL-OUT 48 define
+word CHANNEL-OPEN 51 define
+word CHANNEL-AWAIT 50 define
 word !HERE 36 define
 word HERE 28 define
 
@@ -139,6 +141,7 @@ here define-does then compiling ;
 
 \ Set the number conversion base
 : BASE 14348 swap ! ;
+: BASE10 10 base ;
 
 (
   End of bootstrap process