*** atojis.c.ORIG	Fri Jun 15 03:15:59 2001
--- atojis.c	Thu Jul 29 17:46:26 2021
***************
*** 474,484 ****
                revkouho[col++] = bun[k];
                break;
              }
!           if (bun[k] != '0')
              {
                if (keta != 0)
                  getketa (keta, revkouho, &col);
!               if (bun[k] != '1' ||
  #ifdef  CHINESE
                    keta % 4 != 1)
  #else /* JAPANESE */
--- 474,484 ----
                revkouho[col++] = bun[k];
                break;
              }
!           if (bun[k] != '0' && bun[k] != S_NUM)
              {
                if (keta != 0)
                  getketa (keta, revkouho, &col);
!               if ( (bun[k] != '1' && bun[k] != S_NUM+1) ||
  #ifdef  CHINESE
                    keta % 4 != 1)
  #else /* JAPANESE */
***************
*** 517,527 ****
                revkouho[col++] = bun[k];
                break;
              }
!           if (bun[k] != '0')
              {
                if (keta != 0)
                  getketa_o (keta, revkouho, &col);
!               if (bun[k] != '1' ||
  #ifdef  CHINESE
                    keta % 4 != 1)
  #else /* JAPANESE */
--- 517,527 ----
                revkouho[col++] = bun[k];
                break;
              }
!           if (bun[k] != '0' && bun[k] != S_NUM)
              {
                if (keta != 0)
                  getketa_o (keta, revkouho, &col);
!               if ( (bun[k] != '1' && bun[k] != S_NUM+1) ||
  #ifdef  CHINESE
                    keta % 4 != 1)
  #else /* JAPANESE */