SET KEY="" FOR  SET KEY=$ORDER(^HASH(KEY)) QUIT:KEY=""  D
  .WRITE ^HASH(KEY),!