anchor.diff:  t: !io		0kia 0mgia ;
   t: FORTH	forthVoc CONTEXT ! ;
   t: DEFINITIONS	CONTEXT @ CURRENT ! ;
  -t: PRESET	TIBB 80 #TIB 2! doLIT _PARSE 'PARSE !
  -		-16 @ /GLOBALS ! -24 @ /USER ! ;
   
   \ Shell
   
  
positive.code: 
  \ pg 29 words
  
  t: DIGIT? ( c base -- u t )
    >R 48 - 9 OVER <
    IF 7 - DUP 10 < OR THEN DUP R> U< ;
  
  t: NUMBER? ( a -- n T | a F )
    BASE @ >R 0 OVER COUNT ( a 0 b n)
    OVER C@ 36 =
    IF HEX SWAP 1 + SWAP 1 - THEN ( a 0 b' n')
    OVER C@ 45 = >R ( a 0 b n)
    SWAP R@ - SWAP R@ + ( a 0 b" n")
    ?DUP IF
      1 - ( a 0 b n)
      FOR DUP >R C@ BASE @ DIGIT? WHILE
          SWAP BASE @ * + R> 1 +
        NEXT
        DROP R@ ( b ?sign) IF NEGATE THEN SWAP
      ELSE R> R> ( b index) 2DROP ( digit number) 2DROP 0
      THEN DUP
    THEN
    R> ( n ?sign) 2DROP R> BASE ! ;
  
  \ pg 32 words
  
  
negative.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
  
  