anchor.diff:  
   \ 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< ;
  
positive.code: \ pg 38 words
  
  t: $INTERPRET ( a --)
    NAME? IF
      DUP CELL+ CELL+ @ 2 AND ABORT" Compile-only"
      EXECUTE EXIT
    THEN
    'NUMBER @EXECUTE IF EXIT THEN
    THROW ;
  
  t: [ ( --) doLIT $INTERPRET 'EVAL ! ; timmediate
  t: .OK ( --) doLIT $INTERPRET 'EVAL @ = IF ."  ok" THEN CR ;
  
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
  