プログラム中に日本語で説明を書き込んでいますが、その部分は入力しないでください。矢印も入力しないでください。
CANVAS 32,24,"ALPHABET";
INT AB[24], HI=0;
FOR;
SC=0; ARYSET AB,0,24,0;
CLS@ 0;
FOR T=0,999999;
IF T%5==0 THEN
SCROLL@ 32,22,0,1,0,1,1;
ARYMOVE AB,1,0,23;
AB[1]=RND(26)+65;
PRINT@ RND(32),1,2,0,"%c",AB[1];
FI;
PRINT@ 8,0,7,0,"SCORE:%05d HIGH:%05d",SC,HI;
I=UPPER(INKEY@WR(100));
IF I!=0 THEN
SC--;
FOR J=23,0,-1;
IF AB[J]==I THEN
AB[J]=0;
SC+=11;
HI=MAX(HI,SC);
CHARBOX@ 32,1,0,J,0,0,0;
BREAK;
FI;
NEXT;
FI;
IF AB[23]!=0 BREAK;
NEXT;
WAITKEY@ 10;
NEXT;