anchor.diff:  tend-code
   
   t: QUIT
  -  ( RP0 RP! ) BEGIN
  +  RP0! BEGIN
       BEGIN QUERY .S doLIT EVAL CATCH ?DUP UNTIL
       'PROMPT @ SWAP NULL$ OVER XOR IF
         CR #TIB 2@ TYPE CR >IN @ 94 CHARS CR COUNT TYPE ."  ?" CR
  
positive.code: \ COLD is the Forth half of the cold bootstrap for the
  \ Forth runtime environment.
  
  t: COLD		BEGIN U0 DEPTH tmp ! PRESET hi tmp @ $FF4050 ! FORTH QUIT AGAIN ;
  
  \ __RESET__ is the RISC-V half of the cold bootstrap for
  \ the Forth runtime environment.  It's responsible for
  
negative.code: 
  \ pg 29 words
  
  t: DIGIT? ( c base -- u t )
    >R 48 - 9 OVER <
    IF 7 - DUP 10 < OR THEN DUP R> U< ;
  