diff --git a/blk/090 b/blk/090
index a6ca6df..156d5a5 100644
--- a/blk/090
+++ b/blk/090
@@ -1,15 +1,10 @@
-4. Call INTERPRET
+4. Call INTERPRET which interprets boot source code until
+   ASCII EOT (4) is met. This usually init drivers.
+5. Initialize rdln buffer, _sys entry (for EMPTY), prints
+   "CollapseOS" and then calls (main).
+6. (main) interprets from rdln input (usually from KEY) until
+   EOT is met, then calls BYE.
 
-In other words, BOOT interprets bytes directly following
-CURRENT as Forth source code. This code will typically
-initialize all subsystems and then call RDLN$. As soon as
-this is called, INTERPRET will begin reading from RDLN< which
-reads from KEY.
-
-In the "/emul" binaries, "HERE" is readjusted to "CURRENT @" so
-that we don't have to relocate compiled dicts. Note that in
-this context, the initialization code is fighting for space
-with HERE: New entries to the dict will overwrite that code!
-Also, because we're barebone, we can't have comments. This can
-lead to peculiar code in this area where we try to "waste"
-space in initialization code.
+In RAM-only environment, we will typically have a
+"CURRENT @ HERE !" line during init to have HERE begin at the
+end of the binary instead of RAMEND.
diff --git a/blk/405 b/blk/405
index 33eb3ba..8977d54 100644
--- a/blk/405
+++ b/blk/405
@@ -1,5 +1,6 @@
 : WS? 33 < ;
 : EOT? 4 = ; ( 4 == ASCII EOT, CTRL+D )
+: EOT, 4 C, ;
 
 : TOWORD
     0 ( dummy ) BEGIN
diff --git a/blk/417 b/blk/417
index 931cc51..11037da 100644
--- a/blk/417
+++ b/blk/417
@@ -2,8 +2,8 @@
     H@ 0x3c ( BLK(* ) RAM+ !
     1024 ALLOT
     ( LOAD detects end of block with ASCII EOT. This is why
-      we write it there. EOT == 0x04 )
-    4 C,
+      we write it there. )
+    EOT,
     0 BLKDTY !
     -1 BLK> !
 ;
diff --git a/blk/421 b/blk/421
index 3c7e85b..4ac1c29 100644
--- a/blk/421
+++ b/blk/421
@@ -11,6 +11,5 @@
 : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
 : CRLF CR LF ; : SPC 32 EMIT ;
 : NL 0x0a RAM+ @ ( NLPTR ) DUP IF EXECUTE ELSE DROP CRLF THEN ;
-: (ok) SPC LIT" ok" (print) NL ;
 : (uflw) LIT" stack underflow" ERR ;
 : (wnf) (print) SPC LIT" word not found" ERR ;
diff --git a/blk/432 b/blk/432
index 079e6de..f3883ca 100644
--- a/blk/432
+++ b/blk/432
@@ -2,7 +2,7 @@
     BEGIN
     WORD DUP C@ EOT? IF DROP EXIT THEN
     (find) NOT IF (parse) ELSE EXECUTE THEN
-    C<? NOT IF (ok) THEN
+    C<? NOT IF SPC LIT< ok (print) NL THEN
     AGAIN ;
 ( Read from BOOT C< PTR and inc it. )
 : (boot<)
diff --git a/blk/436 b/blk/436
index 04580fb..c03e900 100644
--- a/blk/436
+++ b/blk/436
@@ -9,4 +9,6 @@
     ( 0c == C<* )
     ['] (boot<) 0x0c RAM+ !
     ( boot< always has a char waiting. 06 == C<?* )
-    1 0x06 RAM+ ! (main) ;
+    1 0x06 RAM+ ! INTERPRET
+    RDLN$ LIT< _sys [entry]
+    LIT< CollapseOS (print) NL (main) ;
diff --git a/blk/618 b/blk/618
index 3c5949f..eabcb41 100644
--- a/blk/618
+++ b/blk/618
@@ -12,4 +12,4 @@ RAMSTART 0x70 + CONSTANT ACIA_MEM
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !
-," : _ ACIA$ RDLN$ (ok) ; _ "
+," ACIA$ " EOT,
diff --git a/emul/forth.bin b/emul/forth.bin
index 2ea7d55..85666f4 100644
Binary files a/emul/forth.bin and b/emul/forth.bin differ
diff --git a/emul/xcomp.fs b/emul/xcomp.fs
index 4551be1..82ead99 100644
--- a/emul/xcomp.fs
+++ b/emul/xcomp.fs
@@ -28,13 +28,9 @@
 ( Update LATEST )
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
-," : INIT "
 ," BLK$ "
-," ['] EFS@ BLK@* ! "
-," ['] EFS! BLK!* ! "
-," RDLN$ "
-," LIT< _sys [entry] "
-," LIT< CollapseOS (print) NL "
-," ; INIT "
+," ' EFS@ BLK@* ! "
+," ' EFS! BLK!* ! "
+EOT,
 ORG @ 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!
diff --git a/recipes/ti84/xcomp.fs b/recipes/ti84/xcomp.fs
index a550a36..8313ea2 100644
--- a/recipes/ti84/xcomp.fs
+++ b/recipes/ti84/xcomp.fs
@@ -68,6 +68,6 @@ CREATE ~FNT CPFNT3x5
 (entry) _
 ( Update LATEST )
 PC ORG @ 8 + !
-," : _ LCD$ KBD$ (ok) RDLN$ ; _ "
+," LCD$ KBD$ " EOT,
 ORG @ 0x100 - 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!
diff --git a/recipes/trs80/xcomp.fs b/recipes/trs80/xcomp.fs
index 53becd9..e69a94a 100644
--- a/recipes/trs80/xcomp.fs
+++ b/recipes/trs80/xcomp.fs
@@ -15,6 +15,6 @@ RS_ADDR 0x80 - CONSTANT RAMSTART
 PC ORG @ 8 + !
 ," CURRENT @ HERE ! "
 ( 0x0a == NLPTR. TRS-80 wants CR-only newlines )
-," : _ ['] CR 0x0a RAM+ ! BLK$ FD$ (ok) RDLN$ ; _ "
+," ' CR 0x0a RAM+ ! BLK$ FD$ " EOT,
 ORG @ 256 /MOD 2 PC! 2 PC!
 H@ 256 /MOD 2 PC! 2 PC!