以前作ったタイピング練習プログラム
www.ichigojaman.jp
をちょっと改造して、BASICコマンドを30問固定で出題するようにしてみました。
起動するとBASICコマンドが出題されるので、その通りにタイプしてください。
30問入力すると、タイム（秒）が表示されて終了します。
プログラム
100～390行の問題文は自由に変えられるので、「英単語30」「ローマ字30」「カタカナ語30」など、好きなシリーズが作れます。
10 '*TYPING 30 BASIC 20 CLV:CLT:Q=1 30 CLS:?"Q";Q:? 40 GSB 90+Q*10:X=0:BEEP 50 C=SCR(X,2) 60 IF !C IF Q=30 GOTO 90 ELSE Q=Q+1:GOTO 30 70 K=INKEY():IF K!=C CONT 80 ?CHR$(C);:X=X+1:GOTO 50 90 BEEP 10,30:?:?:?"TIME=";TICK()/60:END 100 ?"RUN":RTN 110 ?"LIST":RTN 120 ?"LOAD":RTN 130 ?"SAVE":RTN 140 ?"FILES":RTN 150 ?"NEW":RTN 160 ?"LED 1":RTN 170 ?"PRINT":RTN 180 ?"INPUT":RTN 190 ?"LOCATE":RTN 200 ?"CLS":RTN 210 ?"CLV":RTN 220 ?"IF":RTN 230 ?"THEN":RTN 240 ?"ELSE":RTN 250 ?"FOR I=1 TO 10":RTN 260 ?"NEXT":RTN 270 ?"BEEP":RTN 280 ?"WAIT":RTN 290 ?"END":RTN 300 ?"RETURN":RTN 310 ?"GOTO 120":RTN 320 ?"GOSUB 340":RTN 330 ?"INKEY()":RTN 340 ?"TICK()":RTN 350 ?"RND(10)":RTN 360 ?"SCR(0,0)":RTN 370 ?"BTN(LEFT)":RTN 380 ?"CHR$(1)":RTN 390 ?"X=X+1":RTN
列車30
試しに作ってみました。Ctrl＋Shiftでカタカナモードにしてから打ってください。鉄道好きな子が喜ぶかも(^_^)
10 '*TYPING 30 TRAIN 20 CLV:CLT:Q=1 30 CLS:?"Q";Q:? 40 GSB 90+Q*10:X=0:BEEP 50 C=SCR(X,2) 60 IF !C IF Q=30 GOTO 90 ELSE Q=Q+1:GOTO 30 70 K=INKEY():IF K!=C CONT 80 ?CHR$(C);:X=X+1:GOTO 50 90 BEEP 10,30:?:?:?"TIME=";TICK()/60:END 100 ?"ﾉｿﾞﾐ":RTN 110 ?"ﾋｶﾘ":RTN 120 ?"ｺﾀﾞﾏ":RTN 130 ?"ﾐｽﾞﾎ":RTN 140 ?"ｻｸﾗ":RTN 150 ?"ﾂﾊﾞﾒ":RTN 160 ?"ﾊﾔﾌﾞｻ":RTN 170 ?"ﾊﾔﾃ":RTN 180 ?"ﾔﾏﾋﾞｺ":RTN 190 ?"ﾅｽﾉ":RTN 200 ?"ﾂﾊﾞｻ":RTN 210 ?"ｺﾏﾁ":RTN 220 ?"ﾄｷ":RTN 230 ?"ﾀﾆｶﾞﾜ":RTN 240 ?"ｶｶﾞﾔｷ":RTN 250 ?"ﾊｸﾀｶ":RTN 260 ?"ｱｻﾏ":RTN 270 ?"ﾂﾙｷﾞ":RTN 280 ?"ｱｵﾊﾞ":RTN 290 ?"ｱｻﾋ":RTN 300 ?"ｱｻｶｾﾞ":RTN 310 ?"ｱｹﾎﾞﾉ":RTN 320 ?"ﾌｼﾞ":RTN 330 ?"ｲｽﾞﾓ":RTN 340 ?"ｾﾄ":RTN 350 ?"ﾊｸﾂﾙ":RTN 360 ?"ﾆﾎﾝｶｲ":RTN 370 ?"ｽｲｾｲ":RTN 380 ?"ｱｶﾂｷ":RTN 390 ?"ﾎｸﾄｾｲ":RTN
元素周期表30
高校の化学の範囲ですが、問題番号がそのまま原子番号になっているので、勉強になるかも。
10 '*TYPING 30 PERIODIC TABLE 20 CLV:CLT:Q=1 30 CLS:?"Q";Q:? 40 GSB 90+Q*10:X=0:BEEP 50 C=SCR(X,2) 60 IF !C IF Q=30 GOTO 90 ELSE Q=Q+1:GOTO 30 70 K=INKEY():IF K!=C CONT 80 ?CHR$(C);:X=X+1:GOTO 50 90 BEEP 10,30:?:?:?"TIME=";TICK()/60:END 100 ?"H":RTN 110 ?"He":RTN 120 ?"Li":RTN 130 ?"Be":RTN 140 ?"B":RTN 150 ?"C":RTN 160 ?"N":RTN 170 ?"O":RTN 180 ?"F":RTN 190 ?"Ne":RTN 200 ?"Na":RTN 210 ?"Mg":RTN 220 ?"Al":RTN 230 ?"Si":RTN 240 ?"P":RTN 250 ?"S":RTN 260 ?"Cl":RTN 270 ?"Ar":RTN 280 ?"K":RTN 290 ?"Ca":RTN 300 ?"Sc":RTN 310 ?"Ti":RTN 320 ?"V":RTN 330 ?"Cr":RTN 340 ?"Mn":RTN 350 ?"Fe":RTN 360 ?"Co":RTN 370 ?"Ni":RTN 380 ?"Cu":RTN 390 ?"Zn":RTN
都道府県47
これは地理の勉強になりそうです。何とか1Kバイトに収まりました。
10 '*TYPING 47 TODOFUKEN 20 CLV:CLT:Q=1 30 CLS:?"Q";Q:? 40 GSB 90+Q*10:X=0:BEEP 50 C=SCR(X,2) 60 IF !C IF Q=47 GOTO 90 ELSE Q=Q+1:GOTO 30 70 K=INKEY():IF K!=C CONT 80 ?CHR$(C);:X=X+1:GOTO 50 90 BEEP 10,30:?:?:?"TIME=";TICK()/60:END 100 ?"ﾎｯｶｲﾄﾞｳ":RTN 110 ?"ｱｵﾓﾘ":RTN 120 ?"ｲﾜﾃ":RTN 130 ?"ﾐﾔｷﾞ":RTN 140 ?"ｱｷﾀ":RTN 150 ?"ﾔﾏｶﾞﾀ":RTN 160 ?"ﾌｸｼﾏ":RTN 170 ?"ｲﾊﾞﾗｷ":RTN 180 ?"ﾄﾁｷﾞ":RTN 190 ?"ｸﾞﾝﾏ":RTN 200 ?"ｻｲﾀﾏ":RTN 210 ?"ﾁﾊﾞ":RTN 220 ?"ﾄｳｷｮｳ":RTN 230 ?"ｶﾅｶﾞﾜ":RTN 240 ?"ﾆｲｶﾞﾀ":RTN 250 ?"ﾄﾔﾏ":RTN 260 ?"ｲｼｶﾜ":RTN 270 ?"ﾌｸｲ":RTN 280 ?"ﾔﾏﾅｼ":RTN 290 ?"ﾅｶﾞﾉ":RTN 300 ?"ｷﾞﾌ":RTN 310 ?"ｼｽﾞｵｶ":RTN 320 ?"ｱｲﾁ":RTN 330 ?"ﾐｴ":RTN 340 ?"ｼｶﾞ":RTN 350 ?"ｷｮｳﾄ":RTN 360 ?"ｵｵｻｶ":RTN 370 ?"ﾋｮｳｺﾞ":RTN 380 ?"ﾅﾗ":RTN 390 ?"ﾜｶﾔﾏ":RTN 400 ?"ﾄｯﾄﾘ":RTN 410 ?"ｼﾏﾈ":RTN 420 ?"ｵｶﾔﾏ":RTN 430 ?"ﾋﾛｼﾏ":RTN 440 ?"ﾔﾏｸﾞﾁ":RTN 450 ?"ﾄｸｼﾏ":RTN 460 ?"ｶｶﾞﾜ":RTN 470 ?"ｴﾋﾒ":RTN 480 ?"ｺｳﾁ":RTN 490 ?"ﾌｸｵｶ":RTN 500 ?"ｻｶﾞ":RTN 510 ?"ﾅｶﾞｻｷ":RTN 520 ?"ｸﾏﾓﾄ":RTN 530 ?"ｵｵｲﾀ":RTN 540 ?"ﾐﾔｻﾞｷ":RTN 550 ?"ｶｺﾞｼﾏ":RTN 560 ?"ｵｷﾅﾜ":RTN
