anchor.diff:  
   t: abort" ( f --) IF do$ THROW THEN do$ 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" ;
  +
   \ pg 38 words
   
  -t: .S ( --) CR DEPTH FOR AFT R@ PICK . THEN NEXT ."  <sp" ;
   t: $INTERPRET ( a --)
  -  NAME? IF DUP COUNT TYPE CR
  -    DUP CELL+ CELL+ @ 2 AND IF ABORT" Compile-only" THEN .S CR
  -    EXECUTE .S CR EXIT
  +  NAME? IF
  +    DUP CELL+ CELL+ @ 2 AND ABORT" Compile-only"
  +    EXECUTE EXIT
     THEN
     'NUMBER @EXECUTE IF EXIT THEN
     THROW ;
  
positive.code:     'EVAL @EXECUTE ?STACK
    REPEAT DROP 'PROMPT @EXECUTE ;
  
  \ I/O device drivers.
  
  S" v-mgia.fs" included	( MGIA video )
  
negative.code: t: find ( a va -- xt na | a F )
    ( TODO Find a better way to scan the dictionary. )
    BEGIN DUP WHILE
      2DUP >NAME DUP C@ 1+ ( a va a na l)
      SAME? 0 = IF
        2DROP NIP DUP >NAME EXIT
      THEN
  