----------------------------------------------------------------------
// このマクロはテキストへ連番を振るためのマクロです。
// テキストの全範囲の連番を振り直します。
// 行の初めの文字が、（〔［｛〈《「『【　のいづれかの文字で始まる行へ
//（ａ）
//（ｂ）
//（ｃ）
// のように、全角の小文字アルファベットで、連番を付けていきます。
// --------------------------------------------------------------------
#define MAXMENU    11  // メニューの項目数
main()
{
    char str[10], *bnum, *s[MAXMENU];
    int instr[9], outstr[9];
    int ans, num, sIns;

    instr[0] = 0x8169; //（
    instr[1] = 0x816b; //〔
    instr[2] = 0x816d; //［
    instr[3] = 0x816f; //｛
    instr[4] = 0x8171; //〈
    instr[5] = 0x8173; //《
    instr[6] = 0x8175; //「
    instr[7] = 0x8177; //『
    instr[8] = 0x8179; //【

    outstr[0] = 0x816a; // ）
    outstr[1] = 0x816c; // 〕
    outstr[2] = 0x816e; // ］
    outstr[3] = 0x8170; // ｝
    outstr[4] = 0x8172; // 〉
    outstr[5] = 0x8174; // 》
    outstr[6] = 0x8176; // 」
    outstr[7] = 0x8178; // 』
    outstr[8] = 0x817a; // 】

    s[0] = "（）の全範囲の連番を振り直します(&1)";
    s[1] = "〔〕の全範囲の連番を振り直します(&2)";
    s[2] = "［］の全範囲の連番を振り直します(&3)";
    s[3] = "｛｝の全範囲の連番を振り直します(&4)";
    s[4] = "〈〉の全範囲の連番を振り直します(&5)";
    s[5] = "《》の全範囲の連番を振り直します(&6)";
    s[6] = "「」の全範囲の連番を振り直します(&7)";
    s[7] = "『』の全範囲の連番を振り直します(&8)";
    s[8] = "【】の全範囲の連番を振り直します(&9)";
    s[9] = "";  // セパレータ
    s[10] = "終  了(&E)";

    bnum = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ";

    ans = Menu(s, MAXMENU);
    if(ans < 0 || ans > 8)
      return;
    sIns = Ins();
    InsMode(1);
    Top();
    num = 0; // 連番開始番号
    while(1)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断
        break;
      LDEdge();
      if(Code() == instr[ans])
      {
        Right();
        while(Code() != outstr[ans] && Tcode() > 1)
          Del();
        PutChr((bnum[num*2]<<8)+bnum[num*2+1]+0x21);
        //PutChr((bnum[num*2]<<8)+bnum[num*2+1]); // 大文字(Ａ,Ｂ)ならこちらを使う
        num++;
      }
      if(Linestat() == -1)
        break;
      Down();
      if(Tcode() == 0)
        break;
    }
    InsMode(sIns);
}
------------------------------------------------------------------

------------------------------------------------------------------
// ＭＭエディタ用マクロ
// ZHanZ-1.mam 2023/05/17
// １桁の半角数字(前後に , か . がある場合は除く)を全角に変換
main()
{
    int saveIns;
    int cp, c, c0, c1;
    char *p;
    char *numtbl = "０１２３４５６７８９";
    int prevdot = 0;

    if(Block() == 3)
    { // 矩形範囲選択
      Message("矩形範囲選択はサポートしていません。");
      return;
    }
    if(Block() != 1 && Block() != 2)
    { // 選択範囲がないなら何もしない
      Message("範囲を選択してから実行してください。");
      return;
    }
    saveIns = Ins();
    InsMode(1);
    DispOff2();
    cp = Cecp();
    GoBlok();
    Select(0);
    while(Cecp() < cp)
    {
      if(KbHit() == 0x1b) // ESCが押された場合は終了
        break;
      c0 = c = Code();
      if(c >= '0' && c <= '9')
      { // １桁の半角数字を全角に変換
        Right();
        c1 = Code();
        if(c1 >= '0' && c1 <= '9')
        {
          do
          {
            Right();
            c1 = Code();
          } while(c1 >= '0' && c1 <= '9');
        }
        else if(prevdot == 0 && c1 != ',' && c1 != '.')
        {
          Left();
          Del();
          c -= '0';
          PutChr((numtbl[c*2] << 8) | (numtbl[c*2+1] & 0xff));
          cp++;
        }
      }
      else
        Right();
      prevdot = (c0 == ',' || c0 == '.') ? 1: 0;
    }
    DispOn();
    InsMode(saveIns);
}

------------------------------------------------------------------
// ＭＭエディタ用マクロ
// ZHanZ-2.mam 2023/05/17
// ２桁以外の半角数字を全角に変換
main()
{
    int saveIns;
    int cp, c, c0, c1;
    char *p;
    char *numtbl = "０１２３４５６７８９";

    if(Block() == 3)
    { // 矩形範囲選択
      Message("矩形範囲選択はサポートしていません。");
      return;
    }
    if(Block() != 1 && Block() != 2)
    { // 選択範囲がないなら何もしない
      Message("範囲を選択してから実行してください。");
      return;
    }
    saveIns = Ins();
    InsMode(1);
    DispOff2();
    cp = Cecp();
    GoBlok();
    Select(0);
    while(Cecp() < cp)
    {
      if(KbHit() == 0x1b) // ESCが押された場合は終了
        break;
      c0 = c = Code();
      if(c >= '0' && c <= '9')
      { // ２桁以外の半角数字を全角に変換
        Right();
        c1 = Code();
        if(c1 >= '0' && c1 <= '9')
        { // 2
          Right();
          c = Code();
          if(c >= '0' && c <= '9')
          { // 3
            Left();
            Left();
            for(c = Code(); c >= '0' && c <= '9'; c = Code())
            {
              c -= '0';
              Del();
              PutChr((numtbl[c*2] << 8) | (numtbl[c*2+1] & 0xff));
              cp++;
            }
          }
        }
        else
        {
          Left();
          Del();
          c -= '0';
          PutChr((numtbl[c*2] << 8) | (numtbl[c*2+1] & 0xff));
          cp++;
        }
      }
      else
        Right();
    }
    DispOn();
    InsMode(saveIns);
}
------------------------------------------------------------------

------------------------------------------------------------------
// ＭＭエディタ用［半角英字→全角英字変換マクロ］
//  Ehanzen.mam
// このマクロでは全ての半角英字→全角英字へ変換します。
// 範囲指定されているときのみ有効になるマクロです。
//
main()
{
    int saveIns;
    int cp, c;
    char *alb = "ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ";
    char *als = "ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ";

    if(Block() == 3)
    { // 矩形範囲選択
      Message("矩形範囲選択はサポートしていません。");
      return;
    }
    if(Block() != 1 && Block() != 2)
    { // 選択範囲がないなら何もしない
      Message("範囲を選択してから実行してください。");
      return;
    }
    saveIns = Ins();
    InsMode(1);
    DispOff2();
    cp = Cecp();
    GoBlok();
    Select(0);
    while(Cecp() < cp)
    {
      if(KbHit() == 0x1b) // ESCが押された場合は終了
        break;
      c = Code();
      if(c >= 'A' && c <= 'Z')
      {
        Del();
        c -= 'A';
        PutChr((alb[c*2] << 8) | (alb[c*2+1] & 0xff));
        cp++;
      }
      else if(c >= 'a' && c <= 'z')
      {
        Del();
        c -= 'a';
        PutChr((als[c*2] << 8) | (als[c*2+1] & 0xff));
        cp++;
      }
      else
        Right();
    }
    DispOn();
    InsMode(saveIns);
}
------------------------------------------------------------------

------------------------------------------------------------------
// 編集中のファイルの拡張子抜きのファイル名を、クリップボードにコピーします
main()
{
    char *p1, *p2, fname[300];
    GetFileName(fname);
    p1 = Strrchr(fname, '\\'); // ファイル名
    p2 = Strchr(fname, '.');   // 拡張子の位置
    p1++;
    if(p2 != NULL)
      *p2 = '\0';
    SetClipText(p1);
}
------------------------------------------------------------------

------------------------------------------------------------------
// このマクロは、罫線で囲った罫線枠を削除します。
// カーソルを罫線枠の左上端(┌)の位置へ移動してから実行してください。
main()
{
    int i, maxnum = 100;
    
    if(Code() != 0x84a1 && Code() != 0x84ac) // 開始位置(左上端)のチェック
    {
      Message("開始位置(┌)が間違っています。");
      return;
    }
    for(i = 0; Code() != 0x84a2 && Code() != 0x84ad; i++) // 上端削除
    {
      Del();
      if(i > maxnum)
        return;
    }
    Del();
    
    for(i = 0; Code() != 0x84a4 && Code() != 0x84af; i++) // 下端へ移動
    {
      Down();
      if(i > maxnum)
        return;
    }
    for(i = 0; Code() != 0x84a3 && Code() != 0x84ae; i++) // 下端削除
    {
      Del();
      if(i > maxnum)
        return;
    }
    Del();
    Up();
    while(Code() == 0x84a0 || Code() == 0x84ab) // 左端削除
    {
      Del();
      PutChr(0x8140);
      Left();
      Up();
    }
    for(i = 0; Code() != 0x84a0 && Code() != 0x84ab; i++) // 右端へ移動
    {
      Right();
      if(i > maxnum)
        return;
    }
    while(Code() == 0x84a0 || Code() == 0x84ab) // 右端削除
    {
      Del();
      Down();
    }
}
------------------------------------------------------------------

------------------------------------------------------------------
main()
{
    ClipCopy(); // クリップボードへコピーする
    Save(); // 保存
    Close(); // 確認なしでファイルを閉じる
}
------------------------------------------------------------------

------------------------------------------------------------------
main()
{
    ClipCopy(); // クリップボードへコピーする
    Close(); // 確認なしでファイルを閉じる
}
------------------------------------------------------------------

------------------------------------------------------------------
#define MAXNUM            20   // 登録できるファイルの MAX は 20
#define WM_KEYDOWN       0x0100
#define VK_DOWN          0x28

char *fname[20] = { "d:\\mmeditor\\dirbar.mam",
                    "d:\\mmeditor\\readme.txt",
                    "d:\\mmeditor\\history.txt",
                    "d:\\mmeditor\\mmsetup.txt",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    "",
                    ""
                    };
main()
{
    int i, ans;
    char str[10];
    char *s[MAXNUM + 5], sstr[MAXNUM + 5][300];

    for(i = 0; i < MAXNUM; i++)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断
        break;
      if(Strlen(fname[i]) == 0)
        break;
      Itoa(i + 1, str);
      if(i < 9)
      {
        sstr[i][0] = ' ';
        sstr[i][1] = str[0];
      }
      else
        Strcpy(sstr[i], str);
      sstr[i][2] = ':';
      
      Strcpy(&sstr[i][3], fname[i]);
      s[i] = sstr[i];
    }
    if(i == 0)
    { // 登録ファイルが１個もないなら END
      Beep();
      Message("登録ファイルは１個もありません。");
      return;
    }
    Strcpy(sstr[i], ""); // セパレータ
    s[i] = sstr[i];
    i++;
    Strcpy(sstr[i], "終  了(&E)");
    s[i] = sstr[i];

    PostMessage(Handle(), WM_KEYDOWN, VK_DOWN, 0);
    ans = Menu(s, i + 1);
    if(ans >= 0 && ans < i - 1)
      Open2(&sstr[ans][3]); // 選択されたファイルを開く
}
------------------------------------------------------------------

------------------------------------------------------------------
    x = Menu(filelist, x); // メニューを表示
    if( x < 0 ) { // もしもキャンセルならば
      return; // 終了
    }
------------------------------------------------------------------
を
------------------------------------------------------------------
    strcpy(filename[x], "終  了(&E)");
    filelist[x] = filename[x];
    int x2 = x;
    x = Menu(filelist, x+1); // メニューを表示
    if(x < 0 || x == x2) { // もしもキャンセルならば
      return; // 終了
    }
------------------------------------------------------------------

------------------------------------------------------------------
    if(Global3 == 0) // 起動時は 0
    { // この部分は、起動時にのみ実行される
      Global3 = 1;
      LoadSdFile("C:\\MM98\\HARUKA.ds1");
    }
------------------------------------------------------------------
の部分を
------------------------------------------------------------------
    if(Global3 == 0) // 起動時は 0
    { // この部分は、起動時にのみ実行される
      Global3 = 1;
      LoadSdFile("C:\\MM98\\HARUKA.ds1");
      SetIMEStatus(1); // IME ON
    }
------------------------------------------------------------------