#include <string.h>
#include <sys/bios.h>

char n[25][4], e[25][15], p[25][20], j[25][20];
int a=1, b=0, c=0;

void main()
{
int dispdata();
int key;

strcpy(n[0],"026") ;strcpy(e[0],"afternoon") ;strcpy(p[0],"アフタヌーン") ;strcpy(j[0],"午後");
strcpy(n[1],"027") ;strcpy(e[1],"evening") ;strcpy(p[1],"イブニング") ;strcpy(j[1],"夕方、晩");
strcpy(n[2],"028") ;strcpy(e[2],"year") ;strcpy(p[2],"イヤー") ;strcpy(j[2],"年");
strcpy(n[3],"029") ;strcpy(e[3],"month") ;strcpy(p[3],"マンス") ;strcpy(j[3],"月");
strcpy(n[4],"030") ;strcpy(e[4],"week") ;strcpy(p[4],"ウィーク") ;strcpy(j[4],"週");
strcpy(n[5],"031") ;strcpy(e[5],"hour") ;strcpy(p[5],"アワー") ;strcpy(j[5],"時間");
strcpy(n[6],"032") ;strcpy(e[6],"minute") ;strcpy(p[6],"ミニッツ") ;strcpy(j[6],"分");
strcpy(n[7],"033") ;strcpy(e[7],"time") ;strcpy(p[7],"タイム") ;strcpy(j[7],"時間、時刻");
strcpy(n[8],"034") ;strcpy(e[8],"yesterday") ;strcpy(p[8],"イェスタディ") ;strcpy(j[8],"きのう");
strcpy(n[9],"035") ;strcpy(e[9],"today") ;strcpy(p[9],"トゥディ") ;strcpy(j[9],"きょう");
strcpy(n[10],"036");strcpy(e[10],"tomorrow");strcpy(p[10],"トゥモロウ") ;strcpy(j[10],"あした");
strcpy(n[11],"037");strcpy(e[11],"animal");strcpy(p[11],"アニマル") ;strcpy(j[11],"動物");
strcpy(n[12],"038");strcpy(e[12],"bird");strcpy(p[12],"バード") ;strcpy(j[12],"鳥");
strcpy(n[13],"039");strcpy(e[13],"fish");strcpy(p[13],"フィシュ") ;strcpy(j[13],"魚");
strcpy(n[14],"040");strcpy(e[14],"flower");strcpy(p[14],"フラワー") ;strcpy(j[14],"花");
strcpy(n[15],"041");strcpy(e[15],"tree");strcpy(p[15],"ツリー") ;strcpy(j[15],"木");
strcpy(n[16],"042");strcpy(e[16],"man");strcpy(p[16],"マン") ;strcpy(j[16],"男");
strcpy(n[17],"043");strcpy(e[17],"woman");strcpy(p[17],"ウーマン") ;strcpy(j[17],"女");
strcpy(n[18],"044");strcpy(e[18],"child");strcpy(p[18],"チャイルド") ;strcpy(j[18],"子供");
strcpy(n[19],"045");strcpy(e[19],"boy");strcpy(p[19],"ボーイ") ;strcpy(j[19],"少年");
strcpy(n[20],"046");strcpy(e[20],"girl");strcpy(p[20],"ガール") ;strcpy(j[20],"少女");
strcpy(n[21],"047");strcpy(e[21],"father");strcpy(p[21],"ファザー") ;strcpy(j[21],"父親");
strcpy(n[22],"048");strcpy(e[22],"mother");strcpy(p[22],"マザー") ;strcpy(j[22],"母親");
strcpy(n[23],"049");strcpy(e[23],"family");strcpy(p[23],"ファミリー") ;strcpy(j[23],"家族");
strcpy(n[24],"050");strcpy(e[24],"people");strcpy(p[24],"ピープル") ;strcpy(j[24],"人びと");

text_screen_init(); 
text_put_string(9, 5, "S T A R T");

while ((key = key_wait()) != KEY_START) {
switch (key) {
case KEY_X1:dispdata(-1);break;
case KEY_X2:dispdata(1);break;
case KEY_X3:dispdata(1);break;
case KEY_X4:dispdata(-1);break;
case KEY_Y2:c=1;b=0;dispdata(0);break;
case KEY_Y4:c=0;b=0;dispdata(0);break;
case KEY_A:dispdata(1);break;
case KEY_B:dispdata(-1);break;
}
}
}

dispdata(i)
int i;
{
if (c==0) {
	if (b==0) { 
		text_screen_init(); 
		text_put_string(5, 3, n[a-1]);
		text_put_string(5, 7, e[a-1]);
		text_put_string(17, 7, p[a-1]);
		b=1;}
	else { 
		text_put_string(5, 11, j[a-1]);
		if ((1<=(a+i)) && ((a+i)<=25)) {a=a+i;b=0;}
		else {b=0;};
		};
	}
else {
	if (b==0) { 
		text_screen_init(); 
		text_put_string(5, 3, n[a-1]);
		text_put_string(5, 7, j[a-1]);
		b=1;}
	else { 
		text_put_string(5, 11, e[a-1]);
		text_put_string(15, 11, p[a-1]);
		if ((1<=(a+i)) && ((a+i)<=25)) {a=a+i;b=0;}
		else {b=0;};
		};
	}
}