CLS'
NEW
10 CLS:?"B-TOUCH-MASTER
20 LET[0],10,23,21,12,2,13,14,15,7,16,17,18,25,24,8,9,0,3,11,4,6,22,1,20,5,19
50 LC 5,14:?"Q W E R T   Y U I O P
70 LC 5,16:?"A S D F G   H J K L +
80 LC 11,17:?"^       ^
90 LC 5,18:?"Z X C V B   N M , . /
95 S=0:H=PEEK(#FFE)+PEEK(#FFF)<<8
100 N=RND(26):C=N+ASC("A")
105 LC 6,4:?"SCORE:";S;" HISCORE:";H
110 LC 15,10:?CHR$(C)
111 GOSUB 200
112 GOSUB 300
113 ?CHR$(224,LEFT);
114 K=INKEY():IF K=0 CONT
115 IF K<>C GOTO 400
120 ?CHR$(C):S=S+1:BEEP30,1
130 GOTO100
200 P=[N]
210 IF P<10 LC 5+P*2+(P>4)*2,14:RETURN
220 IF P<19 LC 5+P*2-20+(P>14)*2,16:RETURN
230 LC 5+P*2-38+(P>23)*2,18:RETURN
300 FOR I=0 TO 7:POKE224*8+I,~PEEK(C*8+I):NEXT:RETURN
400 LC 15,11:?CHR$(K)
410 LC 0,22:IF S<=H PLAY"L8O3CC":END
420 ?"HISCORE!!":POKE #FFE,S,S>>8:PLAY"L16O4CEG"
430 'SAVE
'B-TOUCH-MASTER
' ÌÞײÝÄÞÀ¯Á¦ ϽÀ°¼Ö³!
' ÏÁ¶Þ´Àפµ¼Ï²
' Ò»Þ¾¤½º±100!

' 430·Þ®³ÉºÒÝĦ Ê½Þ½Ä ½º±Î¿ÞÝ
'CC BY http://fukuno.jig.jp/1381