Typing Lesson

タッチタイプの基本練習

EEPROM 100〜に　行番号　文字列　で練習コースを保存
先頭に\(#A0)をつけると、文字列からランダムに選んだ８文字の問題を生成

　番号を入力すると、問題分の先頭行を説明として表示
Enterキーで練習がスタートします。
１行入力したら　Enterキーで確定
回答が終わると、文字数　ミス　時間　を表示します。

プログラム

TypingLesson.bas

NEW
10 'TYPE-INIT
20 F=FILE():VIDEO3
30 CLS:?"Typing Lesson"
40 CLK:LC0,1:?:INPUT "No.",L
50 IFL=0VIDEO1:END
60 LC0,2:?CHR$(12);"No.";L;" ";:N=L+99
70 S=(N-100)*1024
80 B=#800:L=200
90 POKE #8CC,S/256,S%256
100 R=I2CR(80,#8CC,2,B,L)
110 E=PEEK(#802):S=S+E+4
120 ?CHR$(12);
130 FORI=#803TO#802+E
140 C=PEEK(I):IFC>=32?CHR$(C);
150 NEXT:?
160 ?:INPUT "Enter ",E
170 IFL=0VIDEO1:END
180 PLAY "T200L16 190 IFSOUND()CONT
200 ?:O=0:X=0:CLT
210 LRUNF+1
SAVE 0

NEW
10 'TYPE-READ
20 POKE #8CC,S/256,S%256
30 R=I2CR(80,#8CC,2,B,L)
40 LC0,6
50 IF[0]=0LRUNF+3
60 ?CHR$(12);
70 E=PEEK(#802):S=S+E+4
80 IF PEEK(#803)<>ASC("~A0")GOTO@STR
90 @RND
100 FORI=0TO8
110 C=PEEK(#804+RND(E-2))
120 ?CHR$(C);
130 NEXT
140 GOTO @R
150 @STR
160 FORI=#803TO#802+E
170 C=PEEK(I):IFC>=32?CHR$(C);
180 NEXT
190 @R:LC0,7,1:P=0:LRUNF+2
SAVE 1

NEW
10 'TYPE-TYPE
20 @T:Z=PEEK(#900+16*6+P)
30 K=INKEY():IFK=0CONT
40 IFK=23GOTO160
50 IFZ=KBEEP10:?CHR$(K);:O=O+1:P=P+1:GOTO@NE
60 IF((K>=161)*(K<=224))GOTO@ER
70 IF((Z>=161)*(Z<=224))GOTO@JP
80 @ER:IF(K>31)*(K<>127)?CHR$(K);:BEEP20:WAIT20:?CHR$(8);
90 X=X+1:GOTO@T
100 @JP:IF(J>0)*(K=8)?CHR$(8);:J=J-1:GOTO@T
110 IFK>31BEEP10:?CHR$(K);:J=J+1
120 GOTO@T
130 @NE:IFPEEK(#900+16*6+P)<>0GOTO@T
140 K=INKEY():IFK<>10CONT
150 FORI=0TO(E+31)/16:SCROLL0:NEXT
160 BEEP30,5:WAIT6:BEEP15
170 LRUNF+1
SAVE 2

NEW
10 'TYPE-END
20 T=TICK()/60:?
30 ?O;"ﾓｼﾞ "
40 ?"ﾐｽ ";X;"ｶｲ "
50 ?T;"ﾋﾞｮｳ":?
60 PLAY "L16< 70 ?:INPUT"Enter ",E
80 LRUNF
110 GOTO@T
120 @NE:IFPEEK(#900+16*4+P)<>0GOTO@T
130 FORI=0TO(E+31)/16:SCROLL0:NEXT
140 BEEP30,5:WAIT6:BEEP15
150 LRUNF+1
SAVE 3

練習コース

NEW
10 JF
20 JJJJJJJJ
30 FFFFFFFF
40 JJJJJJJJ
50 FFFFFFFF
60 JJFFJJFF
70 FFJJFFJJ
80 ~A0JF
90 ~A0JF
100 ~A0JF
110 ~A0JF
SAVE 100

NEW
10 FJDKSLA;
20 FJDKSLA;
30 FJDKSLA;
40 ~A0FJDK
50 ~A0FJDK
60 ~A0FJDK
70 ~A0FJDKSL
80 ~A0FJDKSL
90 ~A0FJDKSL
100 ~A0FJDKSLA;
110 ~A0FJDKSLA;
120 ~A0FJDKSLA;
SAVE 101

NEW
10 HG
20 HHHHHHHH
30 GGGGGGGG
40 JHJHJHJH
50 FGFGFGFG
60 HJHJHJHJ
70 GFGFGFGF
80 JHFGJHFG
90 FGJHFGJH
100 ~A0JFHG
110 ~A0JFHG
120 ~A0JFHG
130 ~A0JFHG
SAVE 102

NEW
10 YT
20 YYYYYYYY
30 TTTTTTTT
40 JYJYJYJY
50 FTFTFTFT
60 YJYJYJYJ
70 TFTFTFTF
80 JYFTJYFT
90 FTJYFTJY
100 ~A0JFYT
110 ~A0JFYT
120 ~A0JFYT
130 ~A0JFYT
SAVE 104

NEW
10 MV
20 MMMMMMMM
30 VVVVVVVV
40 JMJMJMJM
50 FVFVFVFV
60 MJMJMJMJ
70 VFVFVFVF
80 JMFVJMFV
90 FVJMFVJM
100 ~A0JFMV
110 ~A0JFMV
120 ~A0JFMV
130 ~A0JFMV
SAVE 105

NEW
10 NB
20 NNNNNNNN
30 BBBBBBBB
40 JNJNJNJN
50 FBFBFBFB
60 NJNJNJNJ
70 BFBFBFBF
80 JNFBJNFB
90 FBJNFBJN
100 ~A0JFNB
110 ~A0JFNB
120 ~A0JFNB
130 ~A0JFNB
SAVE 106

NEW
10 KD
20 KKKKKKKK
30 DDDDDDDD
40 KKKKKKKK
50 DDDDDDDD
60 KKKKKKKK
70 DDDDDDDD
80 KKDDKKDD
90 DDKKDDKK
100 ~A0KDKD
110 ~A0KDKD
120 ~A0KDKD
130 ~A0KDKD
SAVE 107

NEW
10 IE
20 IIIIIIII
30 EEEEEEEE
40 KIKIKIKI
50 DEDEDEDE
60 IKIKIKIK
70 EDEDEDED
80 KIDEKIDE
90 DEKIDEKI
100 ~A0KDIE
110 ~A0KDIE
120 ~A0KDIE
130 ~A0KDIE
SAVE 108

NEW
10 ,C
20 ,,,,,,,,
30 CCCCCCCC
40 K,K,K,K,
50 DCDCDCDC
60 ,K,K,K,K
70 CDCDCDCD
80 K,DCK,DC
90 DCK,DCK,
100 ~A0KD,C
110 ~A0KD,C
120 ~A0KD,C
130 ~A0KD,C
SAVE 109

NEW
10 LS
20 LLLLLLLL
30 SSSSSSSS
40 LLLLLLLL
50 SSSSSSSS
60 LLLLLLLL
70 SSSSSSSS
80 LLSSLLSS
90 SSLLSSLL
100 ~A0LSLS
110 ~A0LSLS
120 ~A0LSLS
130 ~A0LSLS
SAVE 110

NEW
10 OW
20 OOOOOOOO
30 WWWWWWWW
40 LOLOLOLO
50 SWSWSWSW
60 OLOLOLOL
70 WSWSWSWS
80 LOSWLOSW
90 SWLOSWLO
100 ~A0LSOW
110 ~A0LSOW
120 ~A0LSOW
130 ~A0LSOW
SAVE 111

NEW
10 .X
20 ........
30 XXXXXXXX
40 L.L.L.L.
50 SXSXSXSX
60 .L.L.L.L
70 XSXSXSXS
80 L.SXL.SX
90 SXL.SXL.
100 ~A0LS.X
110 ~A0LS.X
120 ~A0LS.X
130 ~A0LS.X
SAVE 112

NEW
10 ;A
20 ;;;;;;;;
30 AAAAAAAA
40 ;;;;;;;;
50 AAAAAAAA
60 ;;;;;;;;
70 AAAAAAAA
80 ;;AA;;AA
90 AA;;AA;;
100 ~A0;A;A
110 ~A0;A;A
120 ~A0;A;A
130 ~A0;A;A
SAVE 113

NEW
10 PQ
20 PPPPPPPP
30 QQQQQQQQ
40 ;P;P;P;P
50 AQAQAQAQ
60 P;P;P;P;
70 QAQAQAQA
80 ;PAQ;PAQ
90 AQ;PAQ;P
100 ~A0;APQ
110 ~A0;APQ
120 ~A0;APQ
130 ~A0;APQ
SAVE 114

NEW
10 /Z
20 ////////
30 ZZZZZZZZ
40 ;/;/;/;/
50 AZAZAZAZ
60 /;/;/;/;
70 ZAZAZAZA
80 ;/AZ;/AZ
90 AZ;/AZ;/
100 ~A0;A/Z
110 ~A0;A/Z
120 ~A0;A/Z
130 ~A0;A/Z
SAVE 115

NEW
10 @Q
20 @@@@@@@@
30 QQQQQQQQ
40 ;@;@;@;@
50 AQAQAQAQ
60 @;@;@;@;
70 QAQAQAQA
80 ;@AQ;@AQ
90 AQ;@AQ;@
100 ~A0;A@Q
110 ~A0;A@Q
120 ~A0;A@Q
130 ~A0;A@Q
SAVE 116

NEW
10 :A
20 ::::::::
30 AAAAAAAA
40 ;:;:;:;:
50 AAAAAAAA
60 :;:;:;:;
70 AAAAAAAA
80 ;:AA;:AA
90 AA;:AA;:
100 ~A0;A:A
110 ~A0;A:A
120 ~A0;A:A
130 ~A0;A:A
SAVE 117

NEW
10 \Z
20 \\\\\\\\
30 ZZZZZZZZ
40 ;\;\;\;\
50 AZAZAZAZ
60 \;\;\;\;
70 ZAZAZAZA
80 ;\AZ;\AZ
90 AZ;\AZ;\
100 ~A0;A\Z
110 ~A0;A\Z
120 ~A0;A\Z
130 ~A0;A\Z
SAVE 118

NEW
10 ]A
20 ]]]]]]]]
30 AAAAAAAA
40 ;];];];]
50 AAAAAAAA
60 ];];];];
70 AAAAAAAA
80 ;]AA;]AA
90 AA;]AA;]
100 ~A0;A]A
110 ~A0;A]A
120 ~A0;A]A
130 ~A0;A]A
SAVE 119

NEW
10 [Q
20 [[[[[[[[
30 QQQQQQQQ
40 ;[;[;[;[
50 AQAQAQAQ
60 [;[;[;[;
70 QAQAQAQA
80 ;[AQ;[AQ
90 AQ;[AQ;[
100 ~A0;A[Q
110 ~A0;A[Q
120 ~A0;A[Q
130 ~A0;A[Q
SAVE 120

NEW
10 JU7JU7JU7
20 FR4FR4FR4
30 HY6HY6HY6
40 GT5GT5GT5
50 KI8KI8KI8
60 DE3DE3DE3
70 LO9LO9LO9
80 SW2SW2SW2
90 ;P0;P0;P0
100 AQ1AQ1AQ1
110 ~A00123456789
120 ~A00123456789
SAVE 121

NEW
10 J7J7J7J7
20 F4F4F4F4
30 H6H6H6H6
40 G5G5G5G5
50 K8K8K8K8
60 D3D3D3D3
70 L9L9L9L9
80 S2S2S2S2
90 ;0;0;0;0
100 A1A1A1A1
110 ~A00123456789
120 ~A00123456789
SAVE 122

NEW
10 !"#$%&'()=~7E
20 AQ!AQ!AQ!
30 SW"SW"SW"
40 DE#DE#DE#
50 FR$FR$FR$
60 GT%GT%GT%
70 HY&HY&HY&
80 JU'JU'JU'
90 KI(KI(KI(
100 LO)LO)LO)
110 :@=:@=:@=
120 ][~7E][~7E][~7E
130 ~A0!"#$%&'()=~7E
140 ~A0!"#$%&'()=~7E
SAVE 123

NEW
10 A-Z
20 ABCDEFG
30 HIJKLMN
40 OPQRSTU
50 VWXYZ
60 ~A0ABCDEFGHIJKLMNOPQRSTUVWXYZ
70 ~A0ABCDEFGHIJKLMNOPQRSTUVWXYZ
80 ~A0ABCDEFGHIJKLMNOPQRSTUVWXYZ
90 ~A0ABCDEFGHIJKLMNOPQRSTUVWXYZ
SAVE 124

NEW
10 ALL
20 ~A0ASDFGHJKL;:]
30 ~A0QWERTYUIOP@[
40 ~A0ZXCVBNM,./\
50 ~A01234567890-^
60 ~A0ASDFGHJKL;:]QWERTYUIOP@[
70 ~A0ASDFGHJKL;:]QWERTYUIOP@[
80 ~A0ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\
90 ~A0ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\
100 ~A0ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\
110 ~A0ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\1234567890-^
120 ~A0ASDFGHJKL;:]QWERTYUIOP@[ZXCVBNM,./\1234567890-^
SAVE 125

タブを閉じる