anchor.diff:          | ListCommands.Reference -> execCommand listReference subArgs
       | _ -> Some Help
       
  +//-----------------------------------------------------------------
  +// Move Command Handlers
  +//-----------------------------------------------------------------
  +
  +let moveFile (results : ParseResults<_>) =
  +    maybe {
  +        let! proj = results.TryGetResult <@ MoveFileArgs.Project @>
  +        let! name = results.TryGetResult <@ MoveFileArgs.Name @>
  +        let up = results.TryGetResult <@ MoveFileArgs.Up @>
  +        let down = results.TryGetResult <@ MoveFileArgs.Down @>
  +        let activeState = Furnace.init proj
  +        
  +        match up, down with
  +        | Some u, _ -> 
  +            activeState |> Furnace.moveUp name |> ignore
  +        | None, Some d ->
  +            activeState |> Furnace.moveDown name |> ignore
  +        | None, None ->
  +            traceWarning "Up or Down must be specified"
  +        
  +        return Continue
  +    }
  +
  +let processMove args =
  +    match subCommandArgs args  with
  +    | Some (cmd, subArgs ) ->
  +        match cmd with
  +        | MoveCommands.File -> execCommand moveFile subArgs
  +    | _ -> Some Help
  +
  +
   
   
   //-----------------------------------------------------------------
  
positive.code: let listProject (results : ParseResults<_>) =
      maybe {
          let! solution = results.TryGetResult <@ ListProjectArgs.Solution @>
          traceWarning "not implemented yet"
          return Continue
      }
  
  
negative.code:         member this.Usage =
              match this with
              | Solution _ -> "List the files in this solution"
              
  
  //-----------------------------------------------------------------
  // Move commands
  //-----------------------------------------------------------------
  
  type MoveCommands =
      | [<First>][<CLIArg "file">] File
  with
      interface IArgParserTemplate with
          member this.Usage =
              match this with
              | File -> "Move file in project"
  
  type MoveFileArgs =
      | [<First>][<CLIAlt "-p">] Project of string
      | [<CLIAlt "-n">] Name of string
      | [<CLIArg "--up">] [<CLIAlt "-u">] Up
      | [<CLIArg "--down">] [<CLIAlt "-d">] Down
      
      interface IArgParserTemplate with
          member this.Usage =
              match this with
              | Name _-> "File name"
              | Project _ -> "Project name"
              | Up -> "Moves file up"
              | Down -> "Moves file down"
  
  //-----------------------------------------------------------------
  // Update commands
  