anchor.diff:  		DECIMAL
   		doLIT $INTERPRET 'EVAL !
   		doLIT NUMBER? 'NUMBER !
  -		65536 CP !
  -		$FF0000 NP !
   		doLIT mgia-type 'TYPE !
   		-8 @ DUP forthVoc 2!
  -		CONTEXT 9 CELLS 0 FILL
   		TIBB 80 #TIB 2!
   		doLIT _PARSE 'PARSE !
  -		-16 @ /GLOBALS !
  -		-24 @ /USER !
   ;
   
   t: QUIT
  
positive.code: \ COLD is the Forth half of the cold bootstrap for the
  \ Forth runtime environment.
  
  t: COLD		BEGIN PRESET hi FORTH DEFINITIONS QUIT AGAIN ;
  
  \ pg 40 words
  
  
negative.code: 	next,
  tend-code
  
  t: U0		-24 @ /USER !
  		-16 @ /GLOBALS !
  		SP0 /USER @ 0 FILL
  		65536 CP !
  		$FF0000 NP !
  ;
  
  t: PRESET	SP@ SP0 !
  		doLIT ?rx '?KEY !
  		doLIT EMIT 'EMIT !
  