anchor.diff:  \ pg 38 words
   
   t: $INTERPRET ( a --)
  -  NAME? IF
  +  .S NAME? IF
       DUP CELL+ CELL+ @ 2 AND ABORT" Compile-only"
       EXECUTE EXIT
     THEN
  -  'NUMBER @EXECUTE IF EXIT THEN
  -  THROW ;
  +  .S 'NUMBER @EXECUTE IF EXIT THEN
  +  .S THROW ;
   
   t: [ ( --) doLIT $INTERPRET 'EVAL ! ; timmediate
   t: .OK ( --) doLIT $INTERPRET 'EVAL @ = IF ."  ok" THEN CR ;
  
positive.code: 
  \ pg 29 words
  
  t: abort" ( f --) DROP ;
  ( " to restore syntax highlighting )
  : tplace	dup tc, begin dup while over c@ tc, 1 /string repeat 2drop ;
  : ",		[char] " word count tplace /cell talign ;
  : ~ABORT"	[t'] abort" t, ", ;
  : ~."		[t'] ."| t, ", ;
  
  t: .S ( --) CR DEPTH DUP . ': EMIT SPACE FOR AFT R@ PICK . THEN NEXT ."  <sp" ;
  
  
  t: DIGIT? ( c base -- u t )
    >R 48 - 9 OVER <
    IF 7 - DUP 10 < OR THEN DUP R> U< ;
  
negative.code: tend-code
  
  t: QUIT
    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
  