                                                   \makeatletter

\typeout{^^J*fdtxttex.tex* 2010/03/30 txt to TeX by dialogue^^J

             (apply \string\MakeDocCorrectHook)

                                                            ^^J}



\RequirePackage{fifinddo}



\catcode`\_=11 

\def\CorrectionFile{\def\mdoc_corr}

\CorrectionFile{mdoccorr.cfg}

\ResultFile{sample.tex}

\def\InputFile{\def\input_file_name}

\InputFile{sample.txt}

\newif\iftoscreen



\def\FD_dialogue{%

  \typeout{^^J%

    ===========================================================^^J%

    \string\CorrectionFile{\mdoc_corr} 

    \space (define \@backslashchar MakeDocCorrectHook)^^J%

    \string\InputFile {\input_file_name}^^J% 

    \string\ResultFile{\result_file_name} 

    \space\space\space\space\space\space\space

    \string\toscreen\iftoscreen true\else false\fi             ^^J%

    ===========================================================%

  }%

  \typein[\action]%

         {Run with these settings? (Y)es? (C)hange? (Otherwise quit.)}% 

  \csname action_\action \endcsname 

}

\def\run_with_settings{%

  \input{\mdoc_corr}%

  \WriteProvides

  \ProcessFileWith{\input_file_name}{%

    \WriteResult{\expandafter \MakeDocCorrectHook 

                 \expandafter{\fdInputLine}}%

    \iftoscreen

      \typeout{\expandafter \MakeDocCorrectHook 

                 \expandafter{\fdInputLine}}%

    \else

      \message{.}%

    \fi}

  \CloseResultFile

  \typeout{Done.}%

  \FD_dialogue

} 

\expandafter\let\csname action_y\endcsname \run_with_settings

\expandafter\let\csname action_Y\endcsname \run_with_settings



\def\change_settings{%

    \typein[\change]{^^JType setting command(s).}%

    \change \FD_dialogue}

\expandafter\let\csname action_c\endcsname \change_settings

\expandafter\let\csname action_C\endcsname \change_settings



\FD_dialogue



\stop

