anchor.diff:  \ utility to show all active word-lists
   \ *************************************
   : .wordlists      ( -- )
  -   .ansi-red
      get-order      ( -- wid1 .. widn n )
      dup space 28 emit .d ." word lists : "
      0 DO
  
positive.code: \ *     IBM Corporation - initial implementation
  \ ****************************************************************************/
  
  \ **************************************
  \ Last change: MiR 13.11.2007 10:55:57
  \ **************************************
  
  : .ansi-attr-off 1b emit ." [0m"  ;    \ ESC Sequence: all terminal attributes off
  : .ansi-blue     1b emit ." [34m" ;    \ ESC Sequence: foreground-color = blue
  : .ansi-green    1b emit ." [32m" ;    \ ESC Sequence: foreground-color = green
  : .ansi-red      1b emit ." [31m" ;    \ ESC Sequence: foreground-color = green
  : .ansi-bold     1b emit ." [1m"  ;    \ ESC Sequence: foreground-color bold
  
  false VALUE scsi-supp-present?
  
  : scsi-xt-err ." SCSI-ERROR (Intern) " ;
  
negative.code:    THEN
     scsi-open-xt execute
  ;
  