Program post site for everyone
OUT 5 に圧電サウンダを接続して音を出します。
PLAYよりも音程が正確になっています。チューニングは270行～の値を変更。
半音階１オクターブの音が鳴るのでこれを基準にして聴音をします。
CapsLockで大文字にしておきます。Shiftで小文字の入力。
Ｃを押すと始まります。
ドレミファソラシド を ＣＤＥＦＧＡＢＨ の英語音名で入力。
高いドはHighの頭文字。ドイツ語音名じゃないです。
ド♯レ♯ファ♯ソ♯ラ♯はｃｄｆｇａの小文字です。
１６問 Z=で設定 終わると、正解/問題数 HIT C を表示します。
10 'ｵﾝｶﾝﾃｽﾄ 20 @ST:CLS:PRINT "ｵﾝｶﾝﾃｽﾄ" 30 L=25:P=50:O=20:Z=16:S=0 40 'M="CDEFGABH" 50 M="CcDdEFfGgAaBH" 60 LC0,3:GSB@SET 70 LC0,5:?"HIT C"; 80 @WL:K=INKEY() 90 IFK<>67GOTO@WL 100 LC0,5:?CHR$(24):Y=X 110 FOR I=1 TO Z 120 LC(I<10),I+4:?I;":"; 130 @N:N=RND(X):IFY=NGOTO@N 140 Y=N:C=[N]:GSB@PL 150 @IN:K=INKEY():IFK=0GOTO@IN 160 C=K:?CHR$(C);" ";:GSB@PL 170 C=[N]:?CHR$(C);" ";:GSB@PL 180 IF[N]=K?"O":S=S+1:ELSE?"X" 190 WAITL*3 200 NEXT 210 ?:?CHR$(24);S;"/";Z; 220 ?" HIT C"; 230 @EL:K=INKEY() 240 IFK<>67GOTO@EL 250 GOTO@ST 260 @PL:F=0 270 IFC=67F=3822 280 IFC=99F=3608 290 IFC=68F=3405 300 IFC=100F=3214 310 IFC=69F=3034 320 IFC=70F=2863 330 IFC=102F=2703 340 IFC=71F=2551 350 IFC=103F=2408 360 IFC=65F=2273 370 IFC=97F=2145 380 IFC=66F=2025 390 IFC=72F=1911 400 IFF>0F=F/O:PWM5,F*P/100,F 410 WAITL:OUT5,0:RTN 420 @SET:X=0 430 @SL:C=PEEK(M+X) 440 IFC=34[X]=0:RTN 450 [X]=C:?CHR$(C);:GSB@PL 460 X=X+1:GOTO@SL
