PRINT
PRINT "ハ長調の音階（純正調）"
PRINT
LET do=880*24/40
LET re=880*27/40
LET mi=880*30/40
LET fa=880*32/40
LET so=880*36/40
LET la=880
LET si=880*45/40
LET SH=25/24
LET FL=24/25
LET OU=2
LET OD=1/2
LET YA=10
BEEP do,1000
BEEP re,1000
BEEP mi,1000
BEEP fa,1000
BEEP so,1000
BEEP la,1000
BEEP si,1000
BEEP do*OU,2000
BEEP YA,1000
BEEP do*OU,1000
BEEP si,1000
BEEP la,1000
BEEP so,1000
BEEP fa,1000
BEEP mi,1000
BEEP re,1000
BEEP do,1000
BEEP si*OD,1000
BEEP la*OD,1000
BEEP so*OD,1000
BEEP La*OD,1000
BEEP si*OD,1000
BEEP do,2000
BEEP YA,1000

PRINT
PRINT "ハ長調の音階（平均律）"
PRINT
LET do=880*2^(-9/12)
LET re=880*2^(-7/12)
LET mi=880*2^(-5/12)
LET fa=880*2^(-4/12)
LET so=880*2^(-2/12)
LET la=880
LET si=880*2^(2/12)
LET SH=2^(1/12)
LET FL=2^(-1/12)
BEEP do,1000
BEEP re,1000
BEEP mi,1000
BEEP fa,1000
BEEP so,1000
BEEP la,1000
BEEP si,1000
BEEP do*OU,2000
BEEP YA,1000
BEEP do*OU,1000
BEEP si,1000
BEEP la,1000
BEEP so,1000
BEEP fa,1000
BEEP mi,1000
BEEP re,1000
BEEP do,1000
BEEP si*OD,1000
BEEP la*OD,1000
BEEP so*OD,1000
BEEP La*OD,1000
BEEP si*OD,1000
BEEP do,2000
BEEP YA,1000

PRINT
PRINT "ハ調の半音階（平均律）"
PRINT
BEEP do,500
BEEP do*SH,500
BEEP re,500
BEEP re*SH,500
BEEP mi,500
BEEP fa,500
BEEP fa*SH,500
BEEP so,500
BEEP so*SH,500
BEEP la,500
BEEP la*SH,500
BEEP si,500
BEEP do*OU,1000
BEEP YA,500
BEEP do*OU,500
BEEP si,500
BEEP si*FL,500
BEEP la,500
BEEP la*FL,500
BEEP so,500
BEEP so*FL,500
BEEP fa,500
BEEP mi,500
BEEP mi*FL,500
BEEP re,500
BEEP re*FL,500
BEEP do,1000
BEEP YA,500

PRINT
PRINT "ハ調の半音階（純正調）"
PRINT
LET do=880*24/40
LET re=880*27/40
LET mi=880*30/40
LET fa=880*32/40
LET so=880*36/40
LET la=880
LET si=880*45/40
LET SH=25/24
LET FL=24/25
BEEP do,500
BEEP do*SH,500
BEEP re,500
BEEP re*SH,500
BEEP mi,500
BEEP fa,500
BEEP fa*SH,500
BEEP so,500
BEEP so*SH,500
BEEP la,500
BEEP la*SH,500
BEEP si,500
BEEP do*OU,1000
BEEP YA,500
BEEP do*OU,500
BEEP si,500
BEEP si*FL,500
BEEP la,500
BEEP la*FL,500
BEEP so,500
BEEP so*FL,500
BEEP fa,500
BEEP mi,500
BEEP mi*FL,500
BEEP re,500
BEEP re*FL,500
BEEP do,1000
END