Program post site for everyone
IchigoJamでローマ字入力の練習をします。
はじめにローマ字入力モードになっていることを確認して、エンターでスタート。
上の行と同じ文字を入力して、エクターキーで判定。
正解/文字数 時間 が表示されます。
全問終了すると、正解/文字数 時間 の累計を表示して終了。
文字列を書き換えることでいろいろな問題が作れます。
10 'ﾛｰﾏｼﾞﾀｲﾌﾟ 20 VIDEO3:CLS:R=0:P=0:S=0:N=0 30 LC0,1:?"ﾛｰﾏｼﾞﾀｲﾌﾟ" 40 A="ｶﾀｶﾅ ｴﾝﾀｰ":GSB@TP 50 A="ﾓｳｲｸﾂﾈﾙﾄ":GSB@TP 60 A="ｵｼｮｳｶﾞﾂ":GSB@TP 70 A="ｵｼｮｳｶﾞﾂﾆﾊ":GSB@TP 80 A="ﾀｺｱｹﾞﾃ":GSB@TP 90 A="ｺﾏｦﾏﾜｼﾃ":GSB@TP 100 A="ｱｿﾋﾞﾏｼｮ":GSB@TP 110 A="ﾊﾔｸｺｲｺｲ":GSB@TP 120 A="ｵｼｮｳｶﾞﾂ":GSB@TP 130 LC0,9:?R;"/";P;" ";S/60;"s":END 140 @TP:IFN>0LC0,3:?N 150 LC0,5:?CHR$(24);">";STR$(A):BEEP:CLT 160 LC0,6:?CHR$(24);:INPUT" ",B 170 N=N+1:IFN=1:RTN 180 T=TICK():S=S+T:L=LEN(A):P=P+L 190 M=0:FORI=1TOL:M=M+(SCR(I,5)=SCR(I,6)):NEXT:R=R+M 200 LC0,8:?M;"/";L;" ";T/60;"s":RTN
