美佳のタイプトレーナ 英単語練習 FORTRANソースコード

このソースコードは美佳のタイプトレーナ 英単語練習のFORTRANのソースコードです。
C言語、C++、Visual C++のソースコードとして使用できます。
ファイルタイプは .c あるいは .cpp を指定して下さい。
ただしBasic、Visual basicではこのままの形では使用できません。
このソースコードは、美佳のタイプトレーナ以外のタイプ練習ソフトを作成する人に便宜を図る為に公開する物です。
このソースコードを使用して、美佳タイプ互換のタイプ練習ソフトを作成しても構いません。 また、単語の追加などを行って使用しても構いません。



static char mes0[]="GO";
static char mes1[]="TO";
static char mes2[]="ASSIGN";
static char mes3[]="IF";
static char mes4[]="DO";
static char mes5[]="CONTINUE";
static char mes6[]="PAUSE";
static char mes7[]="STOP";
static char mes8[]="CALL";
static char mes9[]="RETURN";
static char mes10[]="READ";
static char mes11[]="WRITE";
static char mes12[]="BACKSPACE";
static char mes13[]="REWIND";
static char mes14[]="ENDFILE";
static char mes15[]="DIMENSION";
static char mes16[]="COMMON";
static char mes17[]="EQUIVALENCE";
static char mes18[]="INTEGER";
static char mes19[]="REAL";
static char mes20[]="LOGICAL";
static char mes21[]="DOUBLE";
static char mes22[]="PRECISION";
static char mes23[]="COMPLEX";
static char mes24[]="EXTERNAL";
static char mes25[]="DATA";
static char mes26[]="FORMAT";
static char mes27[]="FUNCTION";
static char mes28[]="SUBROUTINE";
static char mes29[]="BLOCK";
static char mes30[]="DATA";
static char mes31[]="END";
char *mefortra[]={
mes0,
mes1,
mes2,
mes3,
mes4,
mes5,
mes6,
mes7,
mes8,
mes9,
mes10,
mes11,
mes12,
mes13,
mes14,
mes15,
mes16,
mes17,
mes18,
mes19,
mes20,
mes21,
mes22,
mes23,
mes24,
mes25,
mes26,
mes27,
mes28,
mes29,
mes30,
mes31,
0};