' {$STAMP BS2} '------ 変数・定数定義 ------ '--- 変数 I VAR Word J VAR Word H VAR Word G VAR Word M VAR Word '--- 定数 A CON 440 A1 CON 466 A2 CON 880 V1 CON 261 V3 CON 522 C CON 277 D CON 293 D2 CON 586 E CON 329 E1 CON 349 E2 CON 658 E3 CON 698 F1 CON 391 F3 CON 782 Q CON 0 K1 CON 100 'アンパンマン演奏時間[ms] K2 CON 200 K4 CON 400 INPUT 4 '伴奏用,センサの入力 INPUT 5 INPUT 6 INPUT 7 I=0 Loop: 'アンパンマン LOOKUP J,[K1,K2,K4,K1,K1,K1,K1,K2,K2],G LOOKUP I,[A,A,E1,D,C,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E1,Q,E,Q,D,Q,V1,Q,Q,Q,A,Q,A,Q,E1,Q,Q,Q,D,C,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E,Q,E1,Q,Q,Q,Q,Q,Q,Q,E1,Q,A,A1,V3,Q,E3,Q,D2,Q,V3,A1,V3,Q,Q,Q,A1,Q,A,F1,A,Q,E1,Q,F1,Q,F1,A,F1,Q,Q,Q,E1,Q,A,A1,V3,Q,E3,Q,D2,Q,V3,A1,V3,Q,Q,Q,A1,Q,A,F1,A,Q,E1,Q,F1,Q,Q,A,E1,Q,Q,Q,F1,A,F1,Q,F1,A,F1,Q,F1,Q,V3,Q,F1,Q,Q,Q,A,A1,A,Q,A,A1,A,Q,A,Q,D2,Q,A,Q,Q,Q,V3,D2,V3,Q,V3,D2,V3,Q,V3,Q,D2,Q,V3,Q,A2,Q,F3,Q,D2,Q,E2,Q,Q,D2,V3,Q,Q,Q,Q,Q,Q,Q,A,Q,A,Q,E1,Q,Q,Q,D,C,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E1,Q,E,Q,D,Q,V1,Q,Q,Q,A,Q,A,Q,E1,Q,Q,Q,D,C,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E,Q,E1,Q,Q,Q,Q,Q,Q,Q,A,Q,Q,Q,E1,Q,Q,Q,D,Q,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E1,Q,E,Q,D,Q,V1,Q,Q,Q,A,Q,Q,Q,E1,Q,Q,Q,D,C,D,E,E1,Q,D,Q,F1,Q,Q,A,F1,Q,E,Q,E1,Q,Q,Q,Q,Q,Q,Q],H BRANCH INB,[case_0,case_1,case_2,case_3,case_4,case_5,case_6,case_7,case_8,case_9,case_10,case_11,case_12,case_13,case_14,case_15] '--- 音階の割り当て case_0: M = Q GOTO exall case_1: M=C GOTO exall case_2: M=D GOTO exall case_3: M=A GOTO exall case_4: M=E GOTO exall case_5: M=A*2 GOTO exall case_6: M=Q GOTO exall case_7: M=Q GOTO exall case_8: M=E1 GOTO exall case_9: M=V1*2 GOTO exall case_10: M=Q GOTO exall case_11: M=Q GOTO exall case_12: M=Q GOTO exall case_13: M=Q GOTO exall case_14: M=Q GOTO exall case_15: M=Q GOTO exall exall: '出力 FREQOUT 8,20,M*3 FREQOUT 9,G,H DEBUG DEC I,":",DEC H,":",DEC G,":",DEC M,CR IF I=200 THEN Finish I=I+1 GOTO Loop Finish:END