egrep '^MES' I18N/messages/messages.lt_EN | sort | cut -c5- > bbb
egrep '^MES' I18N/messages/messages.ja_JP | sort | cut -c5- > aaa
awk '/%%[0-9]+/ {for (i=1;i<NF;i++) { if (match($i,"%%[0-9]+") != 0) print substr($i,RSTART+2,RLENGTH); } }' *.[ch] kon2/*.[ch] | sort | uniq > ccc

tmp=/tmp/ii$$
( while read fn num
  do
    egrep "^MES#$num" I18N/messages/messages.lt_EN | sort | cut -c5- > $tmp
    printf "#%18s: %s - %s (%4d messages)\n" $fn `head -1 < $tmp` `tail -1 < $tmp` `wc -l < $tmp`
    rm -f $tmp
  done
) << '!'
          anonFTP.c 17
            cdrom.c 01
          command.c 02
           config.c 03
          devices.c 37
            disks.c 04
         dispatch.c 36
             dist.c 05
            dmenu.c 38
              doc.c 19
              dos.c 20
           floppy.c 21
              ftp.c 06
            index.c 22
          install.c 07
   installUpgrade.c 08
            label.c 09
             main.c 10
            media.c 11
            menus.c 00
            menus.c 32
             misc.c 30
            mouse.c 39
          network.c 12
              nfs.c 23
          options.c 13
          package.c 14
           pccard.c 34
           system.c 15
             tape.c 25
            tcpip.c 16
          tzsetup.c 35
             user.c 31
!
