anchor.diff:     @ 5b emit . 8 emit 5d emit
      space
      ." / Current: " current .
  -   .ansi-attr-off
      cr
  -;
  -
  -\ *************************************
  -\ utility to show first word-lists
  -\ *************************************
  -: .context  ( num -- )
  -   .ansi-red
  -    space
  -   5b emit
  -   23 emit . 3a emit
  -   context @
  -   . 8 emit 5d emit space
  -   .ansi-attr-off
   ;
   
   \ ****************************************************************************
  
positive.code:    THEN
     scsi-open-xt execute
  ;
  
  
  
negative.code: \ utility to show all active word-lists
  \ *************************************
  : .wordlists      ( -- )
     get-order      ( -- wid1 .. widn n )
     dup space 28 emit .d ." word lists : "
     0 DO
  