------------------------------------------------------------------
main()
{
    char s0[300], s[200];
    int mode;
    int stat = GetFind();

    if(Code() != '<')
    {
      OnseiOut("カーソル位置の文字が < ではありません");
      return;
    }
    Right();
    mode = (Code() == '/') ? 1: 0;
    if(mode)
      Right();
    GetCurText(s, 200);
    if(mode)
      sprintf(s0, "<%s", s);
    else
      sprintf(s0, "/%s", s);
    SetFind(mode ? 1: 0);
    SetFindS(s0);
    if(Find() == 0) // OK
    {
      if(mode == 0)
        Left();
    }
    else // NG
    {
      Left();
      if(mode)
        Left();
      OnseiOut("対応するタグが、見つかりません。");
    }
    SetFind(stat);
}
------------------------------------------------------------------

-------------------------------------------------------------------
    sprintf(s, "%4d/%02d/%02d",y, m, d); // 2001/06/11
    PutStr(s);
    sprintf(s, " (%.3s) ",p+(w*3)); //  (Fri) 
-------------------------------------------------------------------
下記の1行と差し替えてください。
-------------------------------------------------------------------
    sprintf(s, "%4d.%02d.%02d(%.2s)",y, m, d, p1+(w*2)); // 2005.11.16(水)
-------------------------------------------------------------------

-------------------------------------------------------------------
// 【１行内の数値文字列の昇順ソート】マクロ
// カンマ(,)またはタブ文字(\t)で区切られた行内の数字を昇順に並び替えます。
// 選択された範囲内の行が対象となります。
main()
{
    char s[3000];
    int stln, endln;
    
    if(Block() != 1 && Block() != 2)
    { // 選択範囲がないなら何もしない
      Message("範囲を選択してから実行してください。");
      return;
    }
    stln = SelLn(); // ソート開始行
    endln = Line(); // ソート最終行+1
    GoBlok();
    Select(0);
    DispOff2();
    while(1)
    {
      if(KbHit() == 0x1b) // [ESC]が押されたら中断する
        break;
      LEdge();
      Getline(s);
      sort(s);
      DelLine();
      PutStr(s);
      if(Line() >= endln || Tcode() == 0)
        break;
    }
    DispOn();
}
 
int snum[1000];
void sort(char *str)
{
    int i, j, k, tmp, kanma;
    char s[300], *p;
    
    kanma = strchr(str, '\t') ? 0: 1;
    for(k = 0, p = strtok(str, "\t,"); p != NULL; k++, p = strtok(NULL, "\t,"))
      snum[k] = atoi(p);
    for(i = 0; i < k; i++)
    {
      for(j = i + 1; j < k; j++)
      {
        if(snum[i] > snum[j])
        {
          tmp = snum[i];
          snum[i] = snum[j];
          snum[j] = tmp;
        }
      }
    }
    strcpy(str, "");
    for(i = 0; i < k; i++)
    {
      sprintf(s, "%d", snum[i]);
      strcat(str, s);
      if(i < k - 1)
        strcat(str, kanma ? ",": "\t");
    }
    strcat(str, "\n");
}
-------------------------------------------------------------------