void odrformp(void){
FILE *writefp;
writefp=fopen("odrformp.txt","w");
fprintf(writefp,"REM ******************************************\n");
fprintf(writefp,"REM * テキスト処理機能操作盤.(C).MIYAMA./1999\n");
fprintf(writefp,"REM ******************************************\n");
fprintf(writefp,"REM * 'REM'と半角スペースを削除し、コマンド.\n");
fprintf(writefp,"REM * を左に寄せると機能が動作します。      *\n");
fprintf(writefp,"REM ******************************************\n");
fprintf(writefp,"REM mt /new\n");
fprintf(writefp,"REM mt /time ????????.TXT Signature.\n");
fprintf(writefp,"REM mt /tasm\n");
fprintf(writefp,"REM mt /apd ????????.TXT ????????.TXT\n");
fprintf(writefp,"REM mt /adc ????????.TXT\n");
fprintf(writefp,"REM mt /spc ????????.TXT\n");
fprintf(writefp,"REM mt /seg ????????.TXT 25 keyword\n");
fprintf(writefp,"REM mt /rsg ????????.TXT\n");
fprintf(writefp,"REM mt /b2t ????????.BAK\n");
fprintf(writefp,"REM mt /ez  ????????.TXT Keyword\n");
fprintf(writefp,"REM mt /nasm 30\n");
fprintf(writefp,"REM mt /cln 30\n");
fprintf(writefp,"REM mt /ref ????????.TXT Keyword\n");
fprintf(writefp,"REM mt /pik ????????.TXT Keyword\n");
fprintf(writefp,"REM mt /trs ????????.TXT Keyword1 Keyword2\n");
fprintf(writefp,"REM mt /tlup ????????.TXT Keyword1 Keyword2\n");
fprintf(writefp,"REM mt /ins ????????.TXT Keyword  ????????.TXT\n");
fprintf(writefp,"REM *****************************************************\n");
fprintf(writefp,"REM *半角星印およびREMタグは命令抑制機能です。\n");
fprintf(writefp,"REM *必要のないところは絶対に操作しないで下さい。\n");
fprintf(writefp,"REM *Ｔａｂキー使用禁止です（誤動作のおそれあり）\n");
fprintf(writefp,"REM *ファイル名にロングファイルネームは使えません。\n");
fprintf(writefp,"REM *****************************************************\n");
fprintf(writefp,"REM *原本内容を変更する機能は、直前の内容を＊．ｂａｋに\n");
fprintf(writefp,"REM *保存します。bak2txtでテキスト形式に復元可能。\n");
fprintf(writefp,"REM *****************************************************\n");
fprintf(writefp,"REM *Usage:   機能と出力ファイル名\n");
fprintf(writefp,"REM *new  本日の日付でファイルを作成(追加mode)\n");
fprintf(writefp,"REM *time 現在時を文末に追加      ＞入力ファイル\n");
fprintf(writefp,"REM *tasm 全テキストを結合        ＞sumtxt.txt\n");
fprintf(writefp,"REM *apd  ２テキストを結合        ＞先頭のファイル\n");
fprintf(writefp,"REM *adc  目次を付加              ＞入力ファイル\n");
fprintf(writefp,"REM *spc  目次を分離              ＞入力ファイル\n");
fprintf(writefp,"REM *seg  頁と行番号付加          ＞output.txt\n");
fprintf(writefp,"REM *rsg  頁と行番号削除          ＞入力ファイル\n");
fprintf(writefp,"REM *b2t  ﾊﾞｯｸｱｯﾌﾟを一時テキストに＞output.txt\n");
fprintf(writefp,"REM *ref  改行キーワード復元      ＞入力ファイル\n");
fprintf(writefp,"REM *ez   キーワードでファイル分割＞数字名ファイル\n");
fprintf(writefp,"REM *nasm enzyme生成物を順に再結合＞output.txt\n");
fprintf(writefp,"REM *cln  enzyme生成物を除去      ＞除去\n");
fprintf(writefp,"REM *pik  キーワード該当行を検出  ＞output.txt\n");
fprintf(writefp,"REM *trs  キーワード一括置換      ＞output.txt\n");
fprintf(writefp,"REM *tlup 一括置換後左寄せ        ＞output.txt\n");
fprintf(writefp,"REM *ins  キーワードの直後に挿入  ＞入力ファイル\n");
fprintf(writefp,"REM *****************************************************\n");
fprintf(writefp,"REM *****************************************************\n");
fprintf(writefp,"\n");
fprintf(writefp,"//REM ******************************************\n");
fprintf(writefp,"//REM *TXT Action Operating file.(C).MIYAMA./1999\n");
fprintf(writefp,"//REM ******************************************\n");
fprintf(writefp,"//REM *Remove 'REM'and Sapce to Command\n");
fprintf(writefp,"//REM * to be left,Then Active the command.    *\n");
fprintf(writefp,"//REM ******************************************\n");
fprintf(writefp,"//REM mt /new\n");
fprintf(writefp,"//REM mt /time ????????.TXT Signature. \n");
fprintf(writefp,"//REM mt /tasm\n");
fprintf(writefp,"//REM mt /apd ????????.TXT ????????.TXT \n");
fprintf(writefp,"//REM\n");
fprintf(writefp,"//REM mt /adc ????????.TXT\n");
fprintf(writefp,"//REM mt /spc ????????.TXT \n");
fprintf(writefp,"//REM mt /seg ????????.TXT 25 keyword\n");
fprintf(writefp,"//REM mt /rsg ????????.TXT \n");
fprintf(writefp,"//REM mt /b2t ????????.BAK \n");
fprintf(writefp,"//REM\n");
fprintf(writefp,"//REM mt /ez  ????????.TXT Keyword\n");
fprintf(writefp,"//REM mt /nasm 30\n");
fprintf(writefp,"//REM mt /cln 30 \n");
fprintf(writefp,"//REM\n");
fprintf(writefp,"//REM mt /ref ????????.TXT Keyword\n");
fprintf(writefp,"//REM mt /pik ????????.TXT Keyword\n");
fprintf(writefp,"//REM mt /trs ????????.TXT Keyword1 Keyword2\n");
fprintf(writefp,"//REM mt /tlup ????????.TXT Keyword1 keyword2\n");
fprintf(writefp,"//REM mt /ins ????????.TXT Keyword  ????????.TXT\n");
fprintf(writefp,"//REM *****************************************************\n");
fprintf(writefp,"//REM *Please absolutely remove other * and REM.\n");
fprintf(writefp,"//REM *  without your purpose.\n");
fprintf(writefp,"//REM *Cannot use TAB key and DoubleQuartation.\n");
fprintf(writefp,"//REM *Cannot use LongFileName of VFAT/95//NT\n");
fprintf(writefp,"//REM *****************************************************\n");
fprintf(writefp,"//REM *Making *.bak file when command change original file.\n");
fprintf(writefp,"//REM *Bak2txt commnad filename.bak to output.txt.(without append.)\n");
fprintf(writefp,"//REM *****************************************************\n");
fprintf(writefp,"//REM *Usage:   Function and Output-filename.\n");
fprintf(writefp,"//REM *new  Making Today's file.(append-mode):YYMMDD.txt\n");
fprintf(writefp,"//REM *time Type Timestump to File-End.:FILE.txt\n");
fprintf(writefp,"//REM *tasm Making Sum-TXT.            :sumtxt.txt\n");
fprintf(writefp,"//REM *apd  Append file2 to file1.     :FILE1.txt\n");
fprintf(writefp,"//REM *adc  ADD contents.              :FILE.txt\n");
fprintf(writefp,"//REM *spc  Separation Contents.       :FILE.txt\n");
fprintf(writefp,"//REM *seg  Tune line-page numbers.    :output.txt\n");
fprintf(writefp,"//REM *rsg  Remove l-p numbers.        :FILE.txt\n");
fprintf(writefp,"//REM *b2t  Restore backupfiles.       :output.txt\n");
fprintf(writefp,"//REM *ref  Repaire CRLFed Keyword.    :FILE.txt\n");
fprintf(writefp,"//REM *ez   Desolve by Keyword.        :0-9999.txt\n");
fprintf(writefp,"//REM *nasm Recombine files enzymed.   :output.txt\n");
fprintf(writefp,"//REM *cln  Remove enzymed.            :Remove\n");
fprintf(writefp,"//REM *pik  Pickup keyword-lines.      :output.txt\n");
fprintf(writefp,"//REM *trs  AutoTranslation.           :output.txt\n");
fprintf(writefp,"//REM *tlup Key leftup after TRS.      :output.txt\n");
fprintf(writefp,"//REM *ins  Insert file2 to file1key.  :FILE1.TXT     \n");
fprintf(writefp,"//REM *****************************************************\n");
fprintf(writefp,"//REM *****************************************************\n");
fprintf(writefp,"//REM/*==================================================;*/\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fprintf(writefp,"\n");
fclose(writefp);
}