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