65000 :
65010      ' *******************
65020      ' *    マージ       *
65040      ' *******************
65100 *M'コマンド入力
65110      新行番号=10                                  '省略時用設定値
65120      増分=10                                      '省略時用設定値
65130        repeat
65140          key 0,chr$(2,13)
65150          line input A$
65160          A=instr(A$+chr$(34),chr$(34))
65170          B=instr(A+1,A$+chr$(34),chr$(34))
65180          if B>A then ファイル名$=mid$(A$,A+1,B-A-1) else print [3] "ファイル名が有りません":stop
65190          A=instr(B,A$+",",",")
65200          B=instr(A+1,A$+" ,",",")
65210          if val(mid$(A$,A+1,B-A-1)) then 新行番号=val(mid$(A$,A+1,B-A-1))
65220          A=instr(B+1,A$+"  ,",",")
65230          if val(mid$(A$,B+1)) then 増分=val(mid$(A$,B+1))
65240          print "ファイル名";tab(len(ファイル名$)),"新行番号","増分"
65250          print ファイル名$,新行番号,増分
65260          print "設定は正しいですか   ［Ｙ］or［ＣＲ］．．正しい   ［その他］．．訂正する"
65270          KE$=input$(1)
65280        until instr("Yy"+chr$(13),KE$)
65300 *行番号変更
65310      init "EMM:"                                  'ファイルバッファクリア
65320      close
65330      open "i",#1,ファイル名$
65340      open "o",#2,"EMM:マージデータ"
65350      line input #1,B$
65360        while B$<>""
65370          print #2,新行番号;mid$(B$,7)
65380          print 新行番号;mid$(B$,7)
65390          新行番号=新行番号+増分
65400          line input #1,B$
65410        wend
65420      print #2
65430      close
65440      merge "EMM:マージデータ"