anchor.diff:    SP@ >R  HANDLER @ >R  RP@ HANDLER ! EXECUTE R> HANDLER !  R> DROP  0 ;
   
   t: THROW ( err# -- err# )
  -  HANDLER @ RP!  R> HANDLER !  R> SWAP >R SP! DROP R> ;
  +  HANDLER @ RP! R> HANDLER ! R> SWAP >R SP! DROP R> ;
   
   tcreate NULL$ 0 t,
   
  
positive.code: t: -		NEGATE + ;
  t: ABS		DUP 0< IF NEGATE THEN ;
  
  \ pg 20
  
  t: NIP		SWAP DROP ;
  
negative.code: t: CMOVE	FOR AFT >R DUP C@ R@ C! 1+ R> 1+ THEN NEXT 2DROP ;
  t: FILL		SWAP FOR SWAP AFT 2DUP C! 1+ THEN NEXT 2DROP ;
  t: -TRAILING	FOR AFT BL OVER R@ + C@ < IF R> 1+ EXIT THEN THEN NEXT 0 ;
  t: PACK$ ( b u a -- a )
    ALIGNED DUP >R
      2DUP C!
      1+ SWAP CMOVE
    R> ;
  
  t: oldPACK$  ALIGNED DUP >R OVER DUP 0 8 UM/MOD DROP - OVER + 0 SWAP !
    2DUP C! 1+ SWAP CMOVE R> ;
  
  \ pg 27 words
  