• ichigojam

10 REM KEY
20 REM APPLE
30 CLS:CLV:?"APPLE"
40 POKE #1003,1,34
50 INPUT S
60 LET A,"APPLE"
70 R=1:?STR$(A):?STR$(S)
80 FOR I=0 TO 5-1:IF ASC(A+I) <> ASC(S+I) THEN R=0
90 NEXT
100 IF R=1 THEN ?"OK" ELSE ?"NG"
110 WAIT 60
120 '
130 REM BANANA
140 CLS:CLV:?"BANANA"
150 POKE #1003,1,34
160 INPUT S
170 LET A,"BANANA"
180 R=1:?STR$(A):?STR$(S)
190 FOR I=0 TO 6-1:IF ASC(A+I) <> ASC(S+I) THEN R=0
200 NEXT
210 IF R=1 THEN ?"OK" ELSE ?"NG"
220 WAIT 60
230 REM CHERRY
240 CLS:CLV:?"CHERRY"
250 POKE #1003,1,34
260 INPUT S
270 LET A,"CHERRY"
280 R=1:?STR$(A):?STR$(S)
290 FOR I=0 TO 6-1:IF ASC(A+I) <> ASC(S+I) THEN R=0
300 NEXT
310 IF R=1 THEN ?"OK" ELSE ?"NG"
320 WAIT 60
330 GOTO 10

Kidspod運営チーム2020/07/03 09:25:54

IchigoJamのタイピングゲームはこれまでも色々ありましたが、自分で差を確認するというのは初めてかも。「キーを正しく押すこと」と「押されたキーが正しかったかどうかを確認すること」の両方の練習ができるのが良いですね。そしてロマンあふれる自作キーボード！

Pagetop