anchor.diff:  ;
   
   
  -: analize
  +: to-forth
   
   
   0 CASE                                       
  
positive.code:   "Aqua    tag?  OF Aqua    %C ! ENDOF 
    "Blue    tag?  OF Blue    %C ! ENDOF 
    "Fuchsia tag?  OF Fuchsia %C ! ENDOF 
  
  S" </font>"  ??  OF Black   %C ! ENDOF
  
  
negative.code: 
  
  
  : (FORTHCODE)   ( a u -- s )
  
  
  OVER /cur ! + /lim !  "" /s !
  
  
    BEGIN  /cur @ /lim @ < WHILE to-forth  /cur 1+!  REPEAT
  
  CR  ." {" s. ." }"
  
  