anchor.diff:  t: TYPE		'TYPE @EXECUTE ;
   t: CR		13 EMIT 10 EMIT ;
   
  -: do$		R> R@ R> COUNT + ALIGNED >R SWAP >R ;
  -: $"| ( -- a )	do$ ;
  -: ."| ( -- )	do$ COUNT TYPE ; tcompile-only
  +t: do$		R> R@ R> COUNT + ALIGNED >R SWAP >R ;
  +t: $"| ( -- a )	do$ ;
  +t: ."| ( -- )	do$ COUNT TYPE ; tcompile-only
   
   \ pg 28 words
   
  
positive.code:   THEN NEXT 0 ;
  
  t: find ( a va -- xt na | a F )
    BEGIN DUP WHILE
      OVER 1+ OVER >NAME COUNT SAME? 0 = IF
        2DROP NIP DUP >NAME EXIT
      THEN
      2DROP CELL+ CELL+ @ -8 AND
  
negative.code: 
  t: init		doLIT accept 'EXPECT !
  		doLIT kTAP 'TAP !
  		DECIMAL
  		doLIT NUMBER? 'NUMBER !
  		0 -8 @ CONTEXT 2!
  		SP@ SP0 !
  		TIBB 80 #TIB 2!
  ;
  
  tcreate testinp
     2 tc,
    '- tc, '1 tc, 32 tc, '2 tc, '5 tc, '5 tc, 32 tc, '6 tc, '5 tc, '5 tc, '3 tc, '6 tc, 32 tc, '* tc, 32 tc, '! tc,
  
  t: !io		0kia 0mgia init
  		CR testinp COUNT TYPE CR CR
  		testinp doLIT $INTERPRET CATCH IF COUNT TYPE '? EMIT CR 0 THEN $FF0000 ! $FF0008 !
  		SP0 SP!
  		BEGIN QUERY CR #TIB 2@ TYPE CR AGAIN
  		;
  
  