diff --git a/8086/msdos/src/vf86core.fth b/8086/msdos/src/vf86core.fth
index 9a8285e..4ed0186 100644
--- a/8086/msdos/src/vf86core.fth
+++ b/8086/msdos/src/vf86core.fth
@@ -997,7 +997,8 @@ swap ]?  C >in #) add
   : (        Ascii ) parse 2drop ; immediate
   : .(       Ascii ) parse type ; immediate
 
-  : \        >in @ negate   c/l mod   >in +! ; immediate
+  : \  blk @ IF >in @ negate  c/l mod  >in +!
+       ELSE #tib @ >in ! THEN ; immediate
   : \\       b/blk >in ! ; immediate
   : have   ( <name> -- f )  name find nip   0<> ; immediate
   : \needs   have 0=exit  [compile] \  ;
diff --git a/8086/msdos/src/vf86file.fth b/8086/msdos/src/vf86file.fth
index 2d8f0b1..d0dfa04 100644
--- a/8086/msdos/src/vf86file.fth
+++ b/8086/msdos/src/vf86file.fth
@@ -87,22 +87,3 @@
   : (stashquit  stash[ stash> !  (quit ;
   : stashrestore  ['] (stashquit IS 'quit ;
   ' stashrestore IS 'restart
-
-\ *** Block No. 7, Hexblock 7
-
-\ \                                                  phz 25feb22
-
-  : \  blk @ IF >in @ negate  c/l mod  >in +!
-       ELSE #tib @ >in ! THEN ; immediate
-
-\ : \needs  have 0=exit
-\      blk @ IF >in @ negate  c/l mod  >in +!
-\      ELSE #tib @ >in ! THEN ;
-
-
-
-
-
-
-
-