  .
1.   big_string     
(   )
390:CREATE big_string 256 CHARS ALLOT
396:  big_string 256 CHARS + bighld ! ;  \ Haydon p 67
405:  big_string 256 CHARS +     \ One past end of string
741:  >R big_string R@ MOVE        \ move characters from input stream to buffer
742:  big_string R> make_big_number ;

. :
a) USER-CREATE big_string 256 CHARS USER-ALLOT
b) USER <big_string>
: big_string ( -- a)
    <big_string> @ ?DUP 0= 
	IF 256 ALLOCATE THROW DUP <big_string> ! THEN ;
!!! 
  ( , ݣ )
: DYN-USER-CREATE 
		( n -- )
		( -- a )
	USER
;
    .

2. big_digit_pointer  to_pointer   USER (   
   )
   
3. big>here, reposition ( -> USER)