--- gforth/cross.fs	2000/09/23 15:46:52	1.87
+++ gforth/cross.fs	2000/10/29 20:27:02	1.88
@@ -802,6 +802,7 @@ false DefaultValue dcomps
 false DefaultValue hash
 false DefaultValue xconds
 false DefaultValue header
+false DefaultValue new-input
 [THEN]
 
 true DefaultValue interpreter
@@ -2202,6 +2203,14 @@ Builder Field
 : cell% ( n -- size align )
     T 1 cells H dup ;
 
+Build: ( m v -- m' v )  dup T , H cell+ ;
+DO:  abort" Not in cross mode" ;DO
+Builder input-method
+
+Build: ( m v size -- m v' )  over T , H + ;
+DO:  abort" Not in cross mode" ;DO
+Builder input-var
+
 \ structural conditionals                              17dec92py
 
 >CROSS