Что надо изменить.
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)