/*
    ・・・Q・・・・・・・・・・・Z・p・ﾒ・・・ｱ    ・ｽ・ｬ7・N・x・E・H・・・E・ﾟ・・ ・・7
                                BohYoh Shibata PREPARATION
*/

#include <stdio.h>
#include <string.h>
#define LOOP      1
#define LEXIT     0
#define RECLEN    72
main()
{
    FILE *fp;
    char fbuf[RECLEN], ibuf[RECLEN], *cf, *ci;
    int  mode, ercnt;

    fp = fopen( "moji.f", "r" );
    printf( "\n***  ・L・[・{・[・h・・・ﾍ・・・K・v・・・O・・・€・@***\n" );
    printf( "・・・ﾊ・ﾉ・\・ｦ・ｳ・・・ｽ・ｶ・・・・・・・L・[・{・[・h・ｩ・・・・・ﾍ・ｵ・ﾄ・ｭ・ｾ・ｳ・｢・B\n\n" );
    ercnt = 0;
    while ( fgets(fbuf, RECLEN, fp)  !=  NULL ) {
        for ( cf = fbuf; *cf != '\n'; cf++ );
        *cf = '\0';
        mode = LOOP;
        while ( mode == LOOP ) {
            printf( "      %s\n    >>", fbuf );
            gets( ibuf ) ;
            if ( strlen( fbuf ) != strlen( ibuf ) ) {
                printf( "\n・I・I・・・ﾍ・ｶ・・・・・ｪ・・・ﾁ・ﾄ・｢・ﾜ・ｷ・B" );
            }
            else {
                for ( cf = fbuf, ci = ibuf; *cf != '\0'; cf++, ci++ ) {
                    if ( *cf != *ci ) {
                        printf( "\n・I・I・ｶ・・・g%c・h・・・ｶ・・・g%c・h・ﾆ・ﾔ・・・ｦ・ﾄ・｢・ﾜ・ｷ・B",
                                *cf, *ci);
                        break;
                    }
                }
                if ( *cf == '\0' ) mode = LEXIT;
            }
            if ( mode == LOOP ) {
                ercnt++ ;
                printf( "\n・・・ﾍ・・・・・・・ｼ・ｵ・ﾄ・ｭ・ｾ・ｳ・｢・B\n" );
            }
        }
    }
    fclose( fp );
    printf( "\n*** ・ﾄ・・・ﾍ・・・・ = %d・・\n", ercnt );
}