MSXコンピューターミュージック:ベーシックプログラミング例


MSXコンピューターミュージック講座:MENUへ戻る


VISUAL BASICでは、RUNできません。

10 CLS:KEY OFF
20 PRINT""
30 PRINT" CARMEN (SUITE No.1)"
40 PRINT" FINAL"
50 PRINT""
60 PRINT" GEORGES BIZET"
100 A1$="S11M4500O5A8L16AAAEDEA8AAABO6C+O5B"
110 A2$="A8AABAG+ABO6C+O5BO6C+O5L24BO6C+O5BL16A+B"
120 A3$="O6D8DDDO5AGAO6D8DDDEF+E"
130 A4$="D8DC+O5B8BAG+AG+AL24G+AG+L16F+G+
140 A5$="O6E8EEEDCDE8EEEDCD"
150 A6$="F+8O5EF+G+8EO6C+O5V15B4A8R8"
160 B1$="R8V13L8O4C+R8DR8C+R8D"
170 B2$="R8C+R8C+O3BR8B"
180 B3$="O4R8DR8ER8DR8E"
190 B4$="R8DR8DR8C+R8D"
200 B5$="O5S11M4500C8O6L16CCCO5GEGO6C8CCCO5GEG"
210 B6$="O6E8O4EEE8EEV14D4C+8R8"
220 C1$="O2V15L8AO3V13AO2V15EO3V13BO2V15AO3V13AO2V15EO3V13B"
230 C2$="O2V15AO3V13AO2V15G+O3V13AO2V15F+O3V13AO2V15EO3V13G+"
240 C3$="O2V15DO3V13AO2V15AO3V13AO2V15DO3V13AO2V15AO3V13A"
250 C4$="O2V15DO3V13AO2V15G+O3V13BO2V15C+O3V13G+O2V15EO3V13B"
260 C5$="O2V15CO4V13GO2V15GO4V13GO2V15CO4V13GO2V15GO4V13G"
270 C6$="O2V14ER4.R8S0M3000L16EEV14L8AR8"

280 PLAY"T128R1","T128R1","T128R1"
290 FOR I=1 TO 2
300 PLAY A1$,B1$,C1$:PLAY A2$,B2$,C2$
310 PLAY A3$,B3$,C3$:PLAY A4$,B4$,C4$
320 PLAY A1$,B1$,C1$:PLAY A2$,B2$,C2$
330 PLAY A5$,B5$,C5$:PLAY A6$,B6$,C6$
340 NEXT I
350 PLAY"O5V13L8C+F+C+O4BAG+16F+16G+C+","O4V12L8AO5C+O4AG+F+F16D+16FC+","
   O3V12L8F+C+F+G+AL16BO4C+O3S0M3000C+C+V13L8C+"
360 PLAY"F+G+AO6C+FD+16F16C+O4C+","D+FF+O5C+O4BA16B16G+C+","
   V12AG+F+AG+L16F+G+S0M3000C+C+V13L8C+"
370 PLAY"O5C+F+C+O4BAG+16F+16G+C+","AO5C+O4AG+F+F16D+16FC+","
   V12F+C+F+G+AL16BO4C+O3S0M3000C+C+V13L8C+"
380 PLAY"F+G+AO5C+FD+16F16C+R8","D+FF+O5C+O4G+F+16G+16FR8","
   V12AG+F+O2AO3S0M3000G+16G+16L8V13G+O4V12C+R8"
390 PLAY"S0M3000L16DDD8EEE8F+F+F+8DDD8","S0M3000L16DDD8O5DDD8DDD8O4DDD8","
    O3S0M3000L16DDD8EEE8F+F+F+8DDD8"
400 PLAY"O6L24C+C+C+O5G+G+G+O6C+C+C+DDDC+C+C+O5G+G+G+O6V15C+8R8","O5L24C+C+C+O4
   G+G+G+O5C+C+C+DDDC+C+C+O4G+G+G+O5V14C+8R8","V14L8C+O2G+O3C+DC+O2G+O3C+R8"
410 PLAY"O5S0M3000L16DDD8EEE8F+F+F+8DDD8","O4S0M3000L16DDD8O5DDD8DDD8O4DDD8","
   S0M3000L16DDD8EEE8F+F+F+8DDD8"
420 PLAY"O6V15G+AG+AG+AG+AG+AG+AG+AG+A","R8G+G+V14G+4R8S0M3000G+G+V14G+4","
    G+G+O2G+G+AAO3AAA+A+O2A+A+BBO3BB"
430 PLAY"G+AG+AG+AG+AG+AG+AL24G+AG+L16F+G+","R8S0M3000G+G+V14G+4R8S0M3000
   
G+G+V14L8G+E","O4CCO3CCC+C+O4C+C+DDO3DDD+D+EE"
440 PLAY"S11M4500A8O5AAAEDEA8AAABO6C+O5B",B1$,C1$
450 PLAY A2$,B2$,C2$:PLAY A3$,B3$,C3$
460 PLAY A4$,B4$,C4$:PLAY A1$,B1$,C1$
470 PLAY A2$,B2$,C2$:PLAY A5$,B5$,C5$
480 PLAY A6$,B6$,C6$

490 PLAY"R1","O3V12L8AR8AR8AR8AR8","O3V12L8FR8FR8FR8FR8"
500 PLAY"R1","AR8AR8AR8AR8","FR8FR8FR8FR8"
510 PLAY"O5V13C4L8D.C16O4A.R16A4","AR8AR8AR8AR8","FR8FR9FR8FR8"
520 PLAY"L16B-A8GA8.B-A4.","AR8AR8AR8AR8","FR8FR8FR8FR8"
530 PLAY"B-4L8G.O5C16O4A2","B-R8B-R8FR8ER8","FR8ER8CR8CR8"
540 PLAY"F4D.G16C4.R8","AR8BR8ER8ER8","FR8GR8GR8GR8"
550 PLAY"G2","B-R8B-R8","DR8DR8"
560 PLAY"GO5DCO4B-","GR8GR8","DR8DR8"
570 PLAY"B-16A16GAB-A4.R8","AR8AR8FR8FR8","FR8FR8DR8DR8"
580 PLAY"L4EA","ER8ER8","CR8CR8"
590 PLAY"AL8G+.B16","F+R8ER8","DR8DR8"
600 PLAY"O5E1EL24DEDL8C+D","AR8AR8AR8AR8GR8GR8","C+R8C+R8C+R8C+R8DR8DR8"
610 PLAY"O4GAB-4.L24AB-AL8FO5D","GR8GR8DR8R4","DR8DR8CL24AB-AL8FO4D"
620 PLAY"C4.R8","R8O5L24AB-AL8FO6D","CO5L24FGFL8CB-"
630 PLAY"O4R8L24FGFL8CB-A4L24GAGR8","CR4.RO3ER8","AO3L24FGFL8CB-A4CR8"
640 PLAY"F8S0M5000L16CDEFGAB-O5CDEFGAB-","FS0M5000L16O5CDEFGAB-AB-O6CDEFG","
    CS0M5000L16O2AB-O3CDEFGAB-O4CDEFG"
650 PLAY"O6S13M190L8CR8DR16C16O5AR8AR8","L8V14AR8O4AR8AR8AR8","O3V14L8FR8CR8FR8CR8"
660 PLAY"L16B-AR16GA8R16B-A4.R8","AR8AR8AR8AR8","FR8CR8FR8CR8"
670 PLAY"L8B-R8GR16O6C16O5A4.","DR8GR8AR8AR8","GR8CR8FR8ER8"
680 PLAY"FR8DR16G16C4.R8","O5CR8O4BR8GR8GR8","DR8O2GR8O3CR8O4CR8"
690 PLAY"V13G2","V12GR8B-R8","O3V12B-R8O4DR8"
700 PLAY"GO6DCO5B-","GR8B-R8","O3B-R8GR8"
710 PLAY"B-16A16GAB-A4.R8","AR8O5DR8O4AR8AR8","FR8AR8FR8DR8"
720 PLAY"L4EA","CR8O4AR8","ER8O4CR8"
730 PLAY"AG+8.L16B","ER8BR8","O3BR8ER8"
740 PLAY"O6V14EF+EF+L24EF+EL16D+EFF+FF+L24FF+FL16EF","V13ER8C+R8FR8C+R8","
   V13AR8ER8C+R8O2AR8"
750 PLAY"V15G+R16L24F+G+F+L8FF+","V14AR8A+R8","O3V14DR8F+R8"
760 PLAY"O5BO6C+D4D16R16L24C+DC+O5L8AO6F+","BR8F+R8ER4."."
   DR8O2BR8EO4L24C+DC+O3L8AO4F+"
770 PLAY"E4.R8","R8S0M3000L16EEL8M6000C+A","R8S0M3000L16C+C+O3M6000L8AO4F+"
780 PLAY"R8O5L24ABAL8EO6DC+R8O5BR8","AR4.RV14G+R8","EV14L24O3F+GF+L8C+BAR8ER8"

790 PLAY A1$,B1$,C1$:PLAY A2$,B2$,C2$
800 PLAY A3$,B3$,C3$:PLAY A4$,B4$,C4$
810 PLAY A1$,B1$,C1$:PLAY A2$,B2$,C2$
820 PLAY A5$,B5$,C5$
830 PLAY"EDCDEDCDEDCDEDCD","O6CO5GEGO6CO5GEGO6CO5GEGO6CO5GEG","
   O3V15CO2GO3CO2GO3CO2GO3CO2G"
840 PLAY"V15EFEFEFEFEFL24EFED+16E32R32L8EAR8O4AR8","O4V14B8O3L16S0M3000BBM2500
   
L24BBBBBBBBBBBBM6000L8BBO4V14ER8C+R8","O4V14EO3L16S0M3000
   
EEL24M2500EEEEEEEEEEEEM6000L8EEO2V14AR8O3AR8"
10 CLS:KEY OFF
20 PRINT""
30 PRINT" LA CAMPANELLA"
40 PRINT""
50 PRINT" F.Liszt"

100 PLAY"T90V13R1","T90V13R1","T90V13R1"
110 PLAY"R2O7L16DR16DR16","R8O5L16DR16DR16DR16O6DR16DR16","R8O4L16DR16DR16DR16R"
120 PLAY"DR16R4.DR16DR16","DR16O5DR16DR16DR16O6DR16DR16","R8DR16DR16DR16R"
130 PLAY"DR16R8DR16DR16R8DR16D8R","DR16O5DR16O6DR16DR16O5DR16O6DR16D8R","
   R8DR16RDR16R2"
140 PLAY"V14O5DO6D32R32DO7DO6DO7DO6CO7D","R2","R2"
150 PLAY"O5B-O7DO5B-O7DO5AO7DO5GO7DO5F+O7DO5GO7D","O3L32B-O4DGB-RDGB-O5DR","
   O3L8GRB-R"
160 PLAY"O5AO7DO5DO7DO5DO6DO5E-O6DO5DO6DO5CO6D","O4F+AO5DF+RO4AO5DF+AR","O4DRF+R"
170 PLAY"O4B-O6DO4B-O6DO4AO6DO4GO6DO4F+O6DO4GO6D","O4L8GRC+R","DRO3B-R"
180 PLAY"O4AO6DO4DO5D32R32DO7DO6DO7DO6DO7DO6CO7D","F+R8R2","O4DR8R2"
190 PLAY"O5B-O7DO5B-O7DO5AO7DO5GO7DO5F+O7DO5GO7D","O3L32B-O4DGB-RDGB-O5DR","
   O3GRB-R"
200 PLAY"O5AO7DO5DO7DO5DO6DO5E-O6DO5DO6DO5CO6D","O4F+AO5DF+RO4AO5DF+AR","O4DRF+R"
210 PLAY"O5DO6DO5GB-O6DO7DO5DO6DO5F+AO6DO7D","O4L8B-RF+R","GRDR"
220 PLAY"RO5DO6DO7DO6DO7DO6DO7DO6C","R2.","O3L16GO4DB-O5GR2"
230 PLAY"C32O5B-32O7DO5B-O7DO5AO7DO5A32G32O7DO5F+O7DO5GO7D","R8O3B-RO4DR8","
    O2L8GO3DR8O2B-O3GR8"
240 PLAY"O5F+64G64A32O7DO5DO7DO5DO6DO5F32E-32O6DO5DO6DO5CO6D","
   R8F+R8A16R16AR8","DAR8O4F+16R16F+R8"
250 PLAY"O5C32O4B-32O6DO4B-O6DO4AO6DO4A32G32O6DO4F+O6DO4GO6D","
   G16R16GR8C+16R16C+R8","D16R16DR8O3B-16R16B-R8"
260 PLAY"O4AO6DO4DO5D32R32DO7DO6DO7DO6DO7DO6CO7D","F+R8R2","DR8R2"
270 PLAY"O6C32O5B-32O7DO5B-O7DO5AO7DO5A32G32O7DO5F+O7DO5GO7D","R8O3B-RO4DR8","
    O2GO3DR8O2B-O3GR8"
280 PLAY"O5F+64G64A32O7DO5DO7DO5DO6DO5F32E-32O6GO5DO6GO5CO6G","
   R8F+R8A16R16A16R16A","DAR8O4CDE-"
290 PLAY"O5DO6DO5GB-O6DO7DO5DO6DO5F+AO6DO7D","B-RF+R","DRO3DR"
300 PLAY"RO5DGB-O6DG8R8","R2","O2L16GO3B-O4DGR2"

310 PLAY"R4R16O4AR16A-R16GR16G-","R4R16O4L16F+R16FR16ER16E-","R4O4B-R16B-R16B-R16B-R16"
320 PLAY"O5L32CO4B-AB-L16FO6FO4B-O6FO5L32DCO4BO5CO4L16FO6FO5CO6F","R8L8DFR8E-F","
    R8O3L8B-FR8AF"
330 PLAY"O5L32E-DC+DO4L16B-O6FR16O5C+R16CO4R16BR16B-","R8DR16O4L16B-R16AR16A-R16G","
   R8B-L16O5DR16DR16DR16DR16"
340 PLAY"O5L32EDC+DO4L16AO6AO5DO6AO5L32FED+EO4L16AO6AO5EO6A","R8L8FAR8GA","
    R8O4L8DO3AR8O4C+O3A"
350 PLAY"O5L32GFEFL16DO6AR16O5ER16E-R16DR16D-","R8FR16O5L16C+R16CR16O4BR16B-","
   R8O4DO5L16FR16FR16FR16FR16"
360 PLAY"L32GFEFL16CO7CO5FO7CO5L32AGF+GL16CO7CO5GO7C","R8O4L8AO5CR8O4B-O5C","
   R8O4L8FCR8EC"
370 PLAY"O5AB-O6CO7CO5B-AGAB-O6B-O5AG","L16FGA8GFO4B-O5CD8CO4B-","R8FRO3B-R8"
380 PLAY"FGAO6AO5GFEFGO6GO5DE","AB-O5C8O4B-AGAB-8FG","R8O4CRCR8"
390 PLAY"FO6FRR16O5GO6GO5GO6GO5F","A8FO5FO4F+O5F+O4GR16GR16G8","O3FRR8O4E-D"
400 PLAY"O6GO5E-O7FO5GO7E-O5GO7DO5GO7CO5GO7DO5G","L8GO5DCO4BAB","CRO3GR"
410 PLAY"O7E-O5GO7CO5GR8R16FO6FO5FO6FO5E-","O5CE-O4L16G-O5G-O4FR16FR16L8F","O4CRR8DC"
420 PLAY"O6FO5DO7E-O5FO7DO5FO7CO5FO6B-O5FO7CO5F","FO5CO4B-AGA","O3B-RFR"
430 PLAY"O7DO5FO6B-O5FR8R16DO6DO5DO6DO5C+","B-O5DO4L16C+O5C+O4DR16L8DE","B-RR8F+G"
440 PLAY"O6DO5CO6DO5CO6DO4B-O6E-DCO5B-AG","F+16R16F+GO5L16E-ACE-O4B-O5E","
   A16R16AB-O4CR8C+"
450 PLAY"F+AB-AR8R16O6DO7DO6DO7DO6C+","O4AO5DF+DC+O6C+O5DR16L8DE","DRR8F+G"
460 PLAY"O7DO6DO7DO6CO7DO5B-O7E-DCO6B-AG","F+16R16F+GL16E-A-CE-O4B-O5E","
   A16R16AB-O5CR8C+"
470 PLAY"F+ARO7DO6DR","AO6DR8R2","R8L16C+O6C+O5DO6DR8O5DO6DO5E-O6E-"
480 PLAY"O7DO6DRO7DO6DR8O7DO6D","R2.","R8O5E-O6E-O5EO6ER8O5FO6FR8"
490 PLAY"R8O7DO6DR8O7DO5G+O7DO5AO7DO5B-","R2.","O5F+O6F+R8O5GO6GR4."
500 PLAY"O7DO5BO7DO6CO7DO6C+O7DO6DO7DO6DO7DO6D","R2.","R2."
510 PLAY"O7DO6DO7DO6DO7DO6DO7DO6DO5DO6DO7DO6D","R2.","R2."

520 PLAY"V13O5DO6DO7DO6DO5DO6DO7DO6DO5DO6DO7DO6D","V15RO4L8DO5D16R16DC","V12R2."
530 A$="O5DO6DO7DO6DO5DO6DO7DO6DO5DO6DO7DO6D"
540 PLAY A$,"O4B-16R16B-AGF+G","L8O3GRB-R"
550 PLAY A$,"AD16R16DE-DC","O4F+RO3F+R"
560 PLAY A$,"O3B-16R16B-AGF+G","GRE-R"
570 PLAY A$,"AD16R8R32O4D32O5D16R16DC","F+4R2"
580 PLAY A$,"O4B-16R16B-AGF+G","GRB-R"
590 PLAY"O5DO6DO7DO6DO5V14DO6DO5E-O6GO5DO6GO5CO6G","ADR8V13A16R16A16R16A","
   O4F+RV13CDE-"
600 PLAY"O5DO6DO5GB-O6DO7DO5DO6DO5F+AO6DO7D","B-RO5CR","DRF+R"

610 PLAY"RT85O5S0M2500L24DO6DDDDO7DO6DDO7DO6CCO7C","RT85R2","O3L16GO4DB-O5GT85R2"
620 PLAY"O5B-B-O6B-O5B-B-O6B-O5AAO6AO5GGO6GO5F+F+O6F+O5GGO6G","O3R8B-16R16B-RB
   O4D16R16D","O2L8GO3D16R16DO2B-O3G16R16G"
630 PLAY"O5AAO6AO5DDO6DO5DDO6DO5E-E-O6E-O5DDO6DO5CCO6C","R8F+16R16F+R8A16R16A","
   DA16R16AF+O4D16R16D"
640 PLAY"O4B-B-O5B-O4B-B-O5B-O4AAO5AO4GGO5GO4F+F+O5F+O4GGO5G","R8G16R16GR8E16R16E","
   O3GO4D16R16DO3B-O4C+16R16C+"
650 PLAY"O4AAO5AO4DDO5DDDDO6DDO7DO6DDO7DO6CCO7C","R8F+R2","O3DAR2"
660 PLAY"O5B-B-O6B-O5B-B-O6B-O5AAO6AO5GGO6GO5F+F+O6F+O5GGO6G","
   R8O3B-16R16B-R8O4D16R16D","O2GO3D16R16DO2B-O3G16R16G"
670 PLAY"O5AAO6AO5DDO6DO5DDO6DO5E-E-O6E-O5DDO6DO5CCO6C","R8F+AB-AG","DAO4F+GFE-"
680 PLAY"O5DDO6DO5E-E-O6DO5EEO6DO5FFO6DO5F+F+O6DO5GGO6D","B-R8R2","DR8R2"
690 PLAY"O5G+G+O6DO5AAO6DO5B-B-O6DO5BBO6DCCDC+C+D","F+R8R2","O3DR8R2"
700 PLAY"DDO7DO6E-E-O7DO6EEO7DO6F+F+O7DO6GGO7GV14G8R4","GR8R2R4.","DR8R2R4."

710 PLAY"T90O4B-16R16L32B-R32B-R32B-R32B-R32B-R32B-R32","T90R16O4L16AA-GG-FEE-","
   T90O4L16GG-FEE-DD-C"
720 PLAY"O5CO4B-AB-R32O5S0M2200FFFO4BB-O5B-B-B-CO6CCCO5FO6FFFL24O6CO7CC","
    R8L8FDR8E-F","R8O3L8B-FR8AF"
730 PLAY"O6DO7DDR8V14O5D16R16L32DR32DR32DR32DR32DR32DR32","R8O4L16B-R8O5C+CO4BB-AG+G
   ","O2B-O3F16R16O4B-L16AG+GF+FE"
740 PLAY"EDC+DR32S0M2200AAADO6DDDO5EO6EEEO5AO6AAAL24EO7EE","R8L8AFR8GA","
   R8L8DO3AR8O4C+O3A"
750 PLAY"O6FO7FFR8V14O5F16R16L32FR32FR32FR32FR32FR32FR32","R8O5L16DR8EE-DD-CO4BB-","
   DL16AR16O5DC+CO4BB-AG+G"
760 PLAY"GFEFR32O6S0M2200CCCO5FO6FFFO5GO6GGGV14C16O7CR32CR32CR32CR32CR32","
   R8O5L8CO4AR8B-O5C","R8L8FCR8EC"
770 PLAY"V12CDCDCDCDCDCDO6B-O7CO6B-O7CO6B-O7CO6B-O7CO6B-O7CO6B-O7C","
   V14O6L16AA-GG-F8GG-FED8","FO5L16AB-O6C8O3B-8O5GAB-8"
780 PLAY"O6AB-AB-AB-AB-AB-AB-GAGAGAGAGDE-E","FEDD-C8EDD-CO5B-8","
   O4C8O5FGA8O4C8O5EFG8"
790 PLAY"V14L40FGFGFO5L32FO6FGFO5F+O6F+GF+O5GO6GA-GA-GA-GA-GA-G","V13O4F8R8R2","
   A8R8RO4E-O5GO4DO5F"
800 PLAY"R8O7L8FE-DCD","O6L32GA-GA-GA-GA-GA-GA-GA-GA-GA-GA-GA-GA-","O4L8CO6DCO5BAB"
810 PLAY"E-C16R16O5L32G-O6G-A-G-O5FO6FGFGFGFGFGF","GA-GA-G16R16R2","
    O6CL16E-R16RO4DO5FO4CO5E-"
820 PLAY"R8O7L8E-DCO6B-O7C","O6L32FGFGFGFGFGFGFGFGFGFGFGFG","O3L8B-O6CO5B-AGA"
830 PLAY"DO6B-16R16O5L32C+O6C+DC+V15O5DO6DE-DE-DE-DE-DE-D","FGFGF16R16RL8O5DC+","
    B-O6D16R16RO4DE"
840 PLAY"L40E-DC+DE-EFF+GA-L48AB-BO7CC+DL40E-FE-DD-CO6BB-AA-GG-FEE-","CRE-R","F+RGR"
850 PLAY"D8O5L32AO6AB-AC+O7C+DC+O6DO7DE-DE-DE-DE-DE-D","F+R8DC+","DR8RDE"
860 PLAY"O6L40E-DC+DE-EFF+GA-L48AB-BO7CC+DL40E-FE-DD-CO6BB-AA-GG-FEE-","CRE-R","
   F+RGR"
870 PLAY"DE-DC+DL48E-EFF+GA-AB-BO7CC+DL40E-FE-DC+CO6BB-AA-GG-FEE-","F+RO4B-R","
   DRO3GR"
880 PLAY"L48DE-DC+DE-EFF+GA-AL40B-BO7CC+DL32E-FE-DC+DC+CO6BO7CO6BB-","O4F+RO3B-R","
   DRO2GR"
890 PLAY"AB-AA-GA-GF+FG-FEE-EE-DD-DD-CO5BO6CO5BB-","R2.","R2."
900 PLAY"AB-AA-GA-GF+FG-FEE-EE-DD-DD-CO4BO5CO4BB-","R2.","R2."
910 PLAY"AB-AA-GA-GF+FG-FEE-C+E-DEE-FEF+FGF+","R4.O3AR.","R4.F+R."
920 PLAY"A-GAG+B-ABB-O5CO4BO5C+CDC+E-DEE-FEF+FGF+","R2.","R2."
930 PLAY"A-GAG+B-ABB-O6CO5BO6C+CDC+E-DEE-FEF+FGF+","R2.","R2."
940 PLAY"A-GAG+B-ABB-O7CO6BO7C+CDC+E-C+DC+E-C+DC+E-C+","R2.","R2."
950 PLAY"DC+E-C+DC+E-C+DC+E-C+","R4.","R4."
960 PLAY"DE-DE-DE-DE-DE-DE-V14DE-DE-DE-DE-DE-DE-","R2.","R2."
970 PLAY"DE-DE-DE-DE-DE-DE-V13DE-DE-DE-DE-D-EDE-  ","V12R2O6L16DR16DR16","
   V14RO5DO6D16R16D16R16C"
980 A1$="DE-DE-DE-DE-DE-DE-DE-DE-DE-DE-DE-DE-"
990 A2$="DR16DR16DR16DR16DR16DR16"
1000 PLAY A1$,A2$,"O5B-16R16B-AGF+G"
1010 PLAY A1$,A2$,"AD16R16DE-DC"
1020 PLAY A1$,A2$,"O4B-16R16B-AGF+G"
1030 PLAY A1$,A2$,"ADR16D16O5D16R16DC"
1040 PALY"E-FE-O5DO6DE-DO5DL24O6DE-DO7L32DE-DO5DO6DE-DO5DO6L24DE-D","O3L8GRB-R","
    O4B-16R16B-AGF+G"
1050 PLAY"O7L32DE-DO5DO6DE-DO5DO6L24DE-DO7L32DE-DO5DO6DE-DO5DO6L24DE-D","
    O4F+RO3B-BO4C","AD16R16DGFE-"
1060 PLAY"O7L32DE-DO6DRO7DE-DO6DR","R8B-16O5D16GR8O4A16O5C16F+","
     DO5G16B-16O6DO4DO5F+16A16O6D"
1070 PLAY"V14RO5DO6DE-D64R64DO7DE-DO6DO7DE-DO6CO7CDC","V13R2.","O3L16GO4DB-O5GV13R2"
1080 PLAY"O5B-O6B-O7CO6B-O5B-O6B-O7CO6B-O5AO6AB-AO5GO6GAGO5F+O6F+GF+O5GO6GAG","
    R8O3B-O4DR8O3B-O4D","O2L8GO3DGO2B-O3DG"
1090 PLAY"O5AO6AB-AO5DO6DE-DO5DO6DE-DO5E-O6E-FE-O5DO6DE-DO5CO6CDC","R8DF+R8DA","
    DF+AF+O4CD"
1100 PLAY"O4B-O5B-O6CO5B-O4B-O5B-O6CO5B-O4AO5AB-AO4GO5GAGO4F+O5F+GF+O4GO5GAG","
    R8GDR8C+O3A","O2GO4DO3B-O2E-O3B-O4C"
1110 PLAY"O4AO5AB-AO4DO5DE-D64R64DO6DE-D64R64DO7DE-DO6DO7DE-DO6CO7CDC","
    R8AO4AO5AR","O2DO3F+O4F+O5F+R"
1120 PLAY"O5BO6BO7CO6BO5BO6BO7CO6BO5A-O6A-B-A-O5GO6GA-GO5GO6GA-GO5FO6FGF","
    R8O4DFR8DF","O2GO3A-BO2BO3A-B"
1130 PLAY"O5E-O6E-FE-O5CO6CDCO5DO6DE-DO5E-O6E-FE-O5DO6DE-DO5CO6CDC","
    R8L16A-R16A-R16A-R16A-R16A-R16","CO4E-O3BO4CFE-"
1140 PLAY"O5L64DO6DO5E-EFF+GA-AB-BO6CC+DE-EFF+GA-AB-BO7CC+DFE-CO6AF+C+DFE-CO5
    AF+E-CO4L48AF+E-CO3AF+","L8B-RF+R","DRO3DR"
1150 PLAY"O2GO3DGB-O4DGB-O5DGB-O6DB-G8R","R2R8","R2R8"
 .                .
 .                .
 .                .
 .                .
Run

Syntax error in 710

OK



                                                ORIGINAL KEY=G#m           

エンベロープを多用した例

1 CLS:KEY OFF
3 COLOR 1,6,12
4 PRINT""
7 PRINT"  もしかして PART II"

9 PLAY"T128O4S0M2200L20F+F+F+F+F+VR2","T128RO3S0M10000F+8O2M25000F+4R4.","
 T128R2R8O3V14L8F+C+O2F+"
10 PLAY"O3S13M270L4F+.O2B.O3D8F+8","O3V14L8BO4DF+DBDF+D","O2L4B.F+8B.F+8"
20 PLAY"E.O2A.R","C+EAO5C+4O4AO5C+E","A.E8C+.E8"
30 PLAY"O3D.O2GR8B8O3D8","O4GBO5DO4BO5GDO4BG","G.D8G.D8"
40 PLAY"C+.F+8VR4.","F+A+O5C+E4S0M3000L16C+C+O4A+A+F+F+","F+.A+8F+A+"
50 PLAY"S13M220B.F+.F+8B8","V14L8BF+BO5DF+DO4BF+","B.F+8B.F+8"
60 PLAY"A.ER4."."C+EAO5C+4O4AO5C+E","A.E8A.E8"
70 PLAY"G.L8DR8DED","O4GBO5DO4BO5GDO4BG","G.D8G.D8"
80 PLAY"F+8O5S0M3500L16F+F+M10000L8FF+GF+L16GF+FF+","F+L16S0M3500A+A+M10000L8AA+BA+
  L16BA+G+A+","F+R2."
90 PLAY"L8A.G.O4BO5A.G.V15C+C+2R8S0M10000L24C+DC+L8CC+","L8B.B.GB.B.V14GGO5DC+O4GG2","
  O3EO2BO3EO2BO3E.O2B8O3EO2B"
100 PLAY"G.F+.C+G.F+.O4V15BB2R8S0M10000L24BO5C+O4BL8A+B","S0M10000B.B.F+B.B.V14F+F+O5C+
   O4BF+F+2","BF+BF+B.F+8BF+"
110 PLAY"O5M25000C+O4L4BO5DC+F+EAGA8","S0M25000EL4GBGBGO5C+O4BO5C+8","E.G.BO3C+.E.G"
120 PLAY"M3500L16F+F+F+F+M10000L8F+RGAG","M3500O4L16A+A+A+A+M10000L8A+RBO5C+O4B","
   S0M3500L16C+C+C+C+M10000L8C+F+16C+16O2F+O3DED"
130 PLAY"R8M3500L16F+F+F+F+F+F+M10000F+8VR4.","R8L16M3500A+A+A+A+A+A+M10000A+8VR4.","
   O2F+O3M3500L16C+C+C+C+C+C+M10000C+8O2M2200L24F+F+F+M30000F+4"

140 PLAY"O5S13M300L8BF+BO6DC+4R","O4S13M300L8BDF+BF+4A+O5C+","O2V14L4B.O3D8F+.C+8"
150 PLAY"C+O5F+O6C+ED4R","F+C+O4A+O5C+O4B4F+B","F+.O2A+8B.O3D8"
160 PLAY"F+O5BO6F+AGGF+E","BO5D+F+D+EO4BGE","D+.O2B8O3E.O2B8"
170 PLAY"DR8ER8F+4R","GBO5DO4BO5C+4F+C+","O3G.D8F+C+"
180 PLAY"GF+EDC+R","O4EGBO4EF+4C+O4F+","E.G8F+.C+8"
190 PLAY"F+EDC+O5B4O6C+D","DF+BO5DF+4DO4B","O2B.O3D8O2B.O3D8"
200 PLAY"EEEGF+EDC+","O5EO4BGEO5EC+O4A+F+","E.G8F+.C+8"
210 PLAY"L4DEF+R","L4GBO5C+F+16C+16O4L8A+","G.D8F+O2A+"
220 PLAY"S11M15000O5L8BF+BO6DC+4R","S0M15000BDF+BF+4O5F+16C+16O4A+","B.O3D8F+.C+8"
230 PLAY"C+O5F+O6C+ED4R","O5F+C+O4A+O5C+O4B4O5F+16D16O4B","F+.O2A+8B.O3D8"
240 PLAY"F+O5BO6F+AM6000GGM15000F+E","BO5D+F+D+M6000EO4BM15000GE","O2B.O3D+8O3E.O2B8"
250 PLAY"DR8ER8F+4R","GBO5DO4BO5C+4L16F+C+O4A+F+","O3G.D8F+A+8F+8"
260 PLAY"GF+EDM6000C+C+C+C+","L8EGBO5EM6000F+C+O4A+F+","E.G8F+.C+8"
270 PLAY"M15000F+EDC+O4B4C+D","M15000DF+BO5DF+4DO4B","O2B.O3D8O2B.O3D8"
280 PLAY"M6000EEEGM15000F+EDC+","O5M6000EO4BGEO5M15000EC+O4A+F+","E.G8F+.C+8"
290 PLAY"L4M25000DC+","L4M25000BA+","O2L8BO3DO2A+O3C+"
300 PLAY"T120O5V15B1","T120S10M15000L6F+O6C+O5BF+DC+","
   T120O2S8M12000L6BO3BO2BO3BO2BO3B"

310 PLAY"T128S0M35000RB.S13M50BL8B-","T128O4M35000L4BO5F+.V14R4.","
   T128O2M35000L4BO3D.O2V14B."
320 PLAY"A4O6C+EE2","O4L8AO5C+16E16GEAGEC+","A.O3L8C+O2AO3C+4E"
330 PLAY"R8M300EEGBBAG","O4AO5C+16E16GEAGEC+","O2A4.O3C+O2AO3C+4E"
340 PLAY"M50F+2DE4F+F+2RC+D","DF+16A16F+DAF+DO4AO5DF+16A16F+DAF+DO4A","
   D4.ADF+4AD4.ADF+4A"
350 PLAY"E2R2","F+A+16O5C+16EC+F+C+O4A+F+","F+4.A+C+F+4A+"
360 PLAY"R8EF+GF+EDC+","F+A+16O5C+16EC+F+C+O4A+F+","F+4.A+C+F+4O2A+"
370 PLAY"L4DRER","RV15L4GRG","RV15L4BRO3C+"
380 PLAY"V12L16F+V13F+V14F+V15F+F+2.","V14L16F+G+A+BA+BO5C+DC+DD+EFF+G+A+","S0M8000F+8
   M25000F+.M4000L16F+F+8F+M2200L20F+F+F+F+F+"
390 PLAY"S11M8000L8BBGEM15000B4M8000GV15EE2R2","O4E8GBO5EO4BGBE8GBO5EO4BGBE8O5
   S0M2500DDV14L8C+O4GG4O5EG","V14E4L16ER16EGEG8BL8EO2BO3E4L16ER16EGEG8BL8EO2G"
400 PLAY"S11M8000BBF+M15000D4M8000BF+V15DD2R8S11M8000DED","O4BO5L16DF+BF+DF+O4B8O5D
   F+BF+DF+O4B8O5S0M2500C+C+O4V14L8BF+F+4BO5D","B4L16BR16BO3DO2BO3D8F+O2
   L8BF+B4L16BR16BO3DO2BO3D8F+O2L8BO3D"
410 PLAY"V15C+1","O4S0M5000C+L16C+D+F8FF+G+8G+A+B8A+B","C+4.L16G+FC+4.G+F"
420 PLAY"R8S11M8000C+C+C+FM15000D+4M8000F","O5V15L8C+FG+FL16BG+FC+O4BG+D+F","
   C+4.G+FC+F8G+L8BF"
430 PLAY"L16V12F+V13F+V14F+V15F+F+1R2.","R8S0M3500F+F+F+F+F+F+M10000F+8M3500GGM10000L8GA
   M20000F+4O5V14F+2.","F+8S0M3500L16A+A+A+A+A+A+M10000A+8M3500BBM10000L8BO3C+O3M20000
   A+4O3C+4O2M4000L16A+A+8A+A+A+8A+"

440 PLAY"O5S13M300L8BF+BO6DC+4S11M10000C+4","O4V14L8BO5DO4BF+A+4O5C+F+","
   V14L4B.O3D8F+.O2A+8"
450 PLAY"C+O5F+O6C+ED4S8M2500L16F+F+AA","C+EC+O4A+B4O5D+O4B","O2F+.O2A+8BO3D+"
460 PLAY"GR16GGGGF+F+EEDDDDEE","O5EO4BGEO5EO4BGE","E.O2B8O3E.O2B8"
470 PLAY"F+F+F+F+F+F+F+F+R8C+C+O5AABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBR","O5C+R8C+2,O4
   BF+DF+BF+DF+BO3BO4DEF+GAB","A8R8O3A2.V15C+.O2B.O3V13BV15C+.O2B.O3V13B"
480 PLAY"O5S0M25000C+8O4L4BO5DC+F+EAGA8","S0M25000EL4GBGBGO5C+O4BO5C+8","
   V14O2E.G.BO3C+.E.G"
490 PLAY"M3500L16F+F+F+F+M10000L8F+RGAG","M3500O4L16A+A+A+A+M10000L8A+RBO5C+O4B","
   S0M3500L16C+C+C+C+M10000L8C+F+16C+16O2F+O3DED"
500 PLAY"R8M3500L16F+F+F+F+F+F+M10000F+8M7000C+DEF+G+A+","R8L16M3500A+A+A+A+A+A+M10000
   
A+8M7000A+A+O5C+C+C+C+","O2F+O3M3500L16C+C+C+C+C+C+M10000C+8M7000F+EDC+O2BA+"
510 PLAY"L8BBB","L8DDD","L8F+F+F+"

アニメ:::天才バカボン (原調:D♭)

10 PLAY"T128O5S13M900L4EGG.O6C8","T128O3V13L16GO4CEGG2.","T128O3V13C1"
20 PLAY"O5AEG2","CEAO5CC4O4DGBO5DD4","A2B2"
30 PLAY"O6S0M8000L8CR8O5AGE16D16O4AO5CD","O4V14G8R8R2.","O2V15C8R8L4GEG"
40 PLAY"V15C1","O6S0M2500R8L16E-E-R16CE-8C8O5GAO6CDEA","A-.E-8CE"
50 PLAY"O5S0M6000G8O4L16M3000GG8GGGG8R8O5S13M900G4","O5M6000D8O4M3000DD8DDDD8R8O5
  S13M900D4","O4S0M6000B8O3L16M3000BB8BBBB8R8O4S13M900B4"

60 PLAY"O5S10M7000L8CCCDEGGG","O4S10M7000R8L8GR8GR8GR8G","O3S10M7000L8CECECECE"
70 PLAY"FFFAGR8O4GO5D","R8CR8CR8DR8D","FAFAGBGB"
80 PLAY"M10000D4.D4M7000DE-D","O3V13L16BO4DFGB2.","V14G1"
90 PLAY"V15C1C1","V14E-8S0M3000CCL8CDE-.E-16E-DE-16D16M55000C2..","
   C4.O2GO3C4.O2GO3C4.O2GO3CE-4C"
100 PLAY"S0M3000G16G16R8M15000G4.M7000GGG","M3000B16B16B8M15000B4.M7000BBB","
   S0M3000E-16E-16R8M15000E-4.M7000DDD"
110 PLAY"S13M450EGG4AGEG1R8","V14L8R8GR8GR8GR8GAGEGGCEC","V15CECECECECECECECE"
120 PLAY"AO6CC4DCO5AG1R8","R8CR8CR8CR8CO5DCO4AGGDBD","FAFAFAFAD4.ADBDB"
130 PLAY"A4A4GGE4","R8ER8ER8GR8G","AO4CO3AO4CO3CECE"
140 PLAY"DCO4A4O5C4R","R8CR8CEO3L16GAO4CDEA","FAFACO2G4E"
150 PLAY"L4EGG.O6C8","L8R8GR8GR8GR8G","O3CECECECE"
160 PLAY"O5A.E8GR","R8CR8CDO3L16BO4CDEFG","AEAEO2BG4B"
170 PLAY"A2..G8","R8L8CR8CR8CR8D","O3AEAEAEAB"
180 PLAY"O6CCVR2","EGE4R2","E4G4O2S0M3000G16GG16GG"
190 PLAY"S13M700D1","O5L16CEGAA2.","O3S13M700C1"

「V」を多用したソフトエンベロープ、エンベロープ、トレモロを用いた例

アニメ:::ゲッターロボ (原調:Fm)

5 FOR I=1 TO 2
10 PLAY"T142O5S0M2200L16EEEEE8EER16EL8EEE","T142O4S0M2200L16GGGGG8GGR16GL8GGG","
  T142O2S0M2200L16BBBBB8BBEBL8BBB"
20 PLAY"L16DDDDD8DDR16DL8DDD","L16F+F+F+F+F+8F+F+R16F+L8F+F+F+","L16AAAAA8AADAL8AAA"
30 NEXT
40 PLAY"L16EEEEE8REEEEE8","L16GGGGG8RGGGGG8","L16BBBBB8EEE8BBBBB8"
50 PLAY"FFFFF8RFFFFF8","AAAAA8RAAAAA8","O3CCCCC8O2FFF8O3CCCCC8"
60 PLAY"GG8GM3300L8GGGGG16A16A+","BB8BM3300L8BBBBB16O5C16C+","DD8DM3300L8DDDDO2V14G4"
70 PLAY"M6500L4BBBB","M6500L4D+D+D+D+","O1L16BO2C+D+ED+EF+GF+GABA+BO3C+D+"

80 PLAY"R8V12L16ER16V13EV14EV12GV13GBR16V14BV15BV14AV15AV14GV15G","
   O4V14L8EG16B16EBEG16B16EB","S0M1700EEEEO2B8BBR16GG8EEGG"
90 PLAY"V12F+V13F+V14F+R16V13F+V14F+EV15EV14DV15DV12EV13EV14EV15EE8","
   DF+16B16DBDF+16B16DB","O3BBBBF+8F+F+R16DD8O2BBO3DD"
100 PLAY"O4V12BV13BV14BV15BB2.B2BV14BV13BV12BBV11BV10BV9B","O3EO3G16B16GE4F+G4O4E
    G16E16O3BG4AB4","EEEEO2B8BBR16GG8EEGGO3GGGGE8O2BBB8GGEEGG"
110 PLAY"O5V12EV13EV14EV15EE4V13GV14GV15GGGR16V13GV14G","
    O4CE16G16EGCE16G16EG","O3CCCCG8GGR16EE8CCGG"
120 PLAY"V12AV13AV14AV15AAAV13GV14GV12F+V13F+V14F+V15F+F+F+V14F+V13F+","
    DF+16A16F+ADF+16A16F+A","O3DDDDO2A8AAR16F+F+8DDAA"
130 PLAY"V13F+V14F+V15F+R16V13F+V14F+V15F+R16V12F+V13F+V12GV13GV15GV15GGG","
    D+F+16A16F+BD+F+16A16BF+","O3BBBBF+8F+F+R16D+D+8O2BBO3D+D+
140 PLAY"V12EV13EV14EV15EE4V14EV13EV12EV11ER","EL16GBE8GBE8GBE8GB","
   EEEEO2BBBBGGGGV15L8EB"

150 PLAY"S13M55F+4O4L8BO5F+2R8","D+8F+BD+8F+BD+8F+BD+8F+B","L8F+O1BO2F+4D+O1B4O2F+"
160 PLAY"G4EG2R8","E8GBE8GBE8GBE8GB","EO1BO2E4GO1B4O2B"
170 PLAY"L4A.R8A.G8","D8F+AD8F+AD8F+AD8F+A","DAO3D4O2DAO3D4"
180 PLAY"F+EF+2","D+8F+BD+8F+BD+8F+BD+8F+B","O1BO2F+B4O1BO2F+B4"
190 PLAY"O6CRCR","L4EGEG","L4GO3CO2GO3C"
200 PLAY"O5GAB2","L8CEGCEG16B16O5EO4B","O2CEG.E8"

210 PLAY"O6S8M1700L16CCCCCCCR16CCCCCCO5AA","L16FAO5CFO4FAO5CFO4FAO5CFO4FAO5CF","
    O3S8M1700L16FFAFCR16O2AAR16FFR16O3CCO2FF"
220 PLAY"BBBBBR16BBAAAAGGGG","O4GBO5DGO4GBO5DGO4GBO5DO4BGBDG","
    O3GGBGDR16O2BBR16GGR16O3DDO2GG"
230 PLAY"F+R16F+R16F+F+GGAR16AAAAGG","BAF+D+BAF+D+EAO5CEO4AO5CO4AO5C","
    O3BBO4D+O3BF+R16D+D+R16EER16O3CCO2AA"
240 PLAY"F+F+F+F+F+F+F+F+F+F+F+F+R","O4BAF+D+BAF+D+BD+EF+GABD+","
    BBO3D+O2BO3R16F+F+D+R16O2BBD+F+F+BB"
250 PLAY"EEEEEEF+F+GGGGBBBB","EGBGEGBGEGBO5EO4EGBO5E","O3EEBGER16BGEER16O2BGGEE"
260 PLAY"AR16AAAAGGF+F+F+F+F+F+F+F+","O4DF+AO5DO4DF+AO5DO4DF+AO5DO4DF+AO5D","
    O3DDAF+DR16AF+DDR16O2AF+F+DD"
270 PLAY"F+R16F+R16F+R16F+F+BBD+D+D+D+D+D+","O4BAF+D+BAF+D+BAF+D+BAF+D+","
    O3BBF+BD+D+R16O2BAR16F+F+D+D+BB"
280 PLAY"EEEEEEEEEEEER","EGBGEGBGL8EGEG","O3EEGGEEO2BBV15L8EG4B"

290 PLAY"S13M70L4F+.R8F+.G8","DL16F+AD8F+AD8F+AD8F+A","DF+4ADF+4A"
300 PLAY"A16R16AL8GF+2","D8F+AD8F+AD8F+AD8F+A","DF+4ADF+4A"
310 PLAY"E.R16L4EGA","E8GBE8GBE8GBE8GB","EG4BEG4B"
320 PLAY"B2.R","E8GBE8GBEGBO5EGEO4BG","EG4B4E4B"
330 PLAY"O6C2O5A2","FAO5CO4AF8A8FAO5CO4AF8A8","FA4O3CO2FA4O3C"
340 PLAY"L8BA4GB2","GBO5DO4BG8B8GBO5DO4BG8B8","O2GB4O3DO2GB4O3D"
350 PLAY"F+2B2","O5D+O4BAF+O5D+O4BAF+BAGF+ED+BD+","O2BF+4D+BF+4D+"
360 PLAY"BER2.","L8EGBO5EO4L16EF+GABO5CDE","EBE4R8ED16D+16E8"
370 FOR I=1 TO 2:PLAY"S0M3300L8FR16F.F.M2200L16FFFF8R8","O4S0M3300L8AR16A.A.M2200L16AAAA8
    R8","S0M3300L8AO3C16O2A.A.M2200L16AAAA8FF"
380 NEXT
390 PLAY"EER8EER8EER8EER8","GGR8GGR8GGR8GGR8","BBEEBBEEBBEEBBEE"
400 PLAY"EER8EER8EE8EM3300L8EE","GGR8GGR8GG8GM3300L8GG","BBEEBBEEBB8BM3300L8BB"
410 PLAY"RV15B2.","V13G4L16FBO5D+FF2","M1800O3L16EEGGFR16FFD+R16D+D+O2BBD+D+"
420 PLAY"BERO1S11M10000BER","L8EO4BV15O3BER2","V14E4G4R2"

トレモロを用いた例

アルハンブラの想い出

5 PLAY"T75S8M2100R1","T75V13R1","T75V14R1"
10 FOR I=1 TO 2
20 PLAY"O5L32EEEEEEEEEEEEEEEEDDDDDDDD","R8O4L8EO5CO4EBE","O3L2A."
30 PLAY"CCCCCCCCCCCCCCCCDDDDDDDD","R8EAEBE","A."
40 PLAY"EEEEEEEEEEEEEEEEEEEEEEEE","R8EO5CO4EO5CO4E","A."
50 PLAY"EEEEEEEEEEEEEEEEFFFFFFFF","R8EO5CO4EO5DO4G","A."
60 PLAY"GGGGGGGGGGGGGGGGFFFFFFFF","R8GO5EO4GO5DO4G","O4C."
70 PLAY"EEEEEEEEEEEEEEEEFFFFFFFF","R8GO5CO4GO5DO4G","C."
80 PLAY"GGGGGGGGGGGGGGGGGGGGGGGG","R8GO5EO4GO5EO4G","C."
90 PLAY"GGGGGGGGGGGGGGGGGGGGGGGG","R8GO5EO4GO5EO4G","C."
100 PLAY"O6CCCCCCCCCCCCCCCCO5BBBBBBBB","R8O5CACGC","F."
110 PLAY"AAAAAAAAAAAAAAAABBBBBBBB","R8CFCO4DO5F","F."
120 PLAY"AAAAAAL48ABAL32G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+","R8O4BO5EO4BO5EO4B","
   O3E."
130 PLAY"G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+G+","R8O5DEDED","E."
140 PLAY"B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-B-AAAAAAAA","R8C+EC+EC+","A."
150 PLAY"GGGGGGGGGGGGGGGGAAAAAAAA","R8O4AO5EO4AO5EO4A","O4C+."
160 PLAY"GGGGGGL48GAGL32FFFFFFFFFFFFFFFF","R8O5EDO4AO5DO4A","D."
170 PLAY"FFFFFFFFFFFFFFFFFFFFFFFF","R8AO5DO4AO5DO4A","D."
180 PLAY"EEEEEEEEEEEEEEEEDDDDDDDD","R8ABABA","D."
190 PLAY"CCCCCCCCCCCCCCCCDDDDDDDD","R8E-AE-AE-","O3F."
200 PLAY"CCCCCCL48CDCL32O4BBBBBBBBBBBBBBBB","R8EG+EG+E","E."
210 PLAY"BBBBBBBBBBBBBBBBBBBBBBBB","R8EG+EG+E","E."
220 NEXT
     ・                ・
     ・                ・
     ・                ・

上へ