anchor.diff:     THEN
      scsi-open-xt execute
   ;
  -
  -
  
positive.code:    @ 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
  ;
  
  \ ****************************************************************************
  
negative.code: \ utility to show all active word-lists
  \ *************************************
  : .wordlists      ( -- )
     get-order      ( -- wid1 .. widn n )
     dup space 28 emit .d ." word lists : "
     0 DO
  