MSXコンピューターミュージック:ベーシックプログラミング例 |
MSXコンピューターミュージック講座:MENUへ戻る |
|
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." |
エンベロープを多用した例 |
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」を多用したソフトエンベロープ、エンベロープ、トレモロを用いた例 |
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 ・ ・ ・ ・ ・ ・ |
上へ |