DIM A AS BYTE
CONST ID = 0 ' 1:0, 2:32, 3:64, 4:96,
MAIN:
A = REMOCON(1) A = A - ID
ON A GOTO MAIN,K1,K2,K3,K4,K5,K6,K7, K8,K9,K10,K11,K12,K13,K14,K15,K16,K17, K18,K19,K20,K21,K22,K23,K24,K25,K26, K27,K28,K29,K30,K31,K32
GOTO MAIN
k25: ' P1 TEMPO 230 MUSIC "C" GOTO main
k19: ' P2 TEMPO 230 MUSIC "CPC" GOTO main
k16: 'POWER TEMPO 230 MUSIC "CPCPC" GOTO main
k1: TEMPO 230 MUSIC "D" GOTO main
k2: MUSIC "DPD" TEMPO 230 GOTO main
k3: TEMPO 230 MUSIC "DPDPD" GOTO main
k4: TEMPO 230 MUSIC "E" GOTO main
k5: TEMPO 230 MUSIC "EPE" GOTO main
k6: TEMPO 230 MUSIC "EPEPE" GOTO main |
|
k7: TEMPO 230 MUSIC "F" GOTO main
k8: TEMPO 230 MUSIC "FPF" GOTO main
k9: TEMPO 230 MUSIC "FPFPF" GOTO main
k22: ' * TEMPO 230 MUSIC "G" GOTO main
k10: TEMPO 230 MUSIC "GPG" GOTO main
k24: ' # TEMPO 230 MUSIC "GPGPG" GOTO main
k11: ' ^ 1 TEMPO 230 MUSIC "A" GOTO main
k12: ' _ 1 TEMPO 230 MUSIC "APAPAPAPA" GOTO main
k14: ' < 1 TEMPO 230 MUSIC "APA" GOTO main
k26: ' [] 1 TEMPO 230 MUSIC "APAPA" GOTO main
k13: ' > 1 TEMPO 230 MUSIC "APAPAPA" GOTO main |
|
k15: ' A
TEMPO 230
MUSIC "C"
GOTO main
k21: ' ^ 2
TEMPO 230
MUSIC "D"
GOTO main
k20: ' B
TEMPO 230
MUSIC "E"
GOTO main
k28: ' < 2
TEMPO 230
MUSIC "F"
GOTO main
k29: ' [] 2
TEMPO 230
MUSIC "G"
GOTO main
k30: ' > 2
TEMPO 230
MUSIC "A"
GOTO main
k17: ' C
TEMPO 230
MUSIC "B"
GOTO main
k31: ' _ 2
TEMPO 230
MUSIC "CPC"
GOTO main
k27: ' D
TEMPO 230
MUSIC "DPD"
GOTO main
k18: ' E
TEMPO 230
MUSIC "EPE"
GOTO main
k32: ' F
TEMPO 230
MUSIC "FPF"
GOTO main
k23: ' G
TEMPO 230
MUSIC "GPG"
GOTO main
GOTO main
※ラベルk32,k23はこの順番でコメントもこの通りです。ハイテック社のサイトにあるテンプレートが間違ってますね。 |