10SCREEN1:WIDTH32:KEYOFF:COLOR15,4,5:LOCATE3,6:PRINT"XWWWWWWWWWWWWWWWWWWWWWWWWY":FORA=0TO6:PRINT"   V                        V":NEXT:PRINT"   ZWWWWWWWWWWWWWWWWWWWWWWWW[
20LOCATE10,8:PRINTCHR$(34);"Say Yes !";CHR$(34):LOCATE5,10:PRINT"original music sung by":LOCATE8,12:PRINTCHR$(34);"Kikuchi Momoko";CHR$(34)
30DEFINTA-Z:CC=0
40CU=0:V=12
50'
60' A A A A A A A A
70'
80PLAY"T128O5L8","T128V12OL8","T128V13O3L8
90PLAY"V=V;E.R16E4F4DE.R16E.R16EF4G4","G.R16G4A4GG.R16G.R16GA4B4","COCO3COCO3COCO3COCO3COCO3COCO3COCO3COC
100V=V+1:IFCU=1THEN130
110PLAY"E.R16E4F4E16R16E4D16R16D2.","G.R16G4A4G16R16G4G16R16G2.","O3COCO3COCO3COCO3COC4O3GO2GO3GO2GO3GO2GS0M3000O3G16G16V13
120CU=1:GOTO90
130PLAY"E.R16E4F4E16R16E4D16R16D4R8V14E16R16EF","G.R16G4A4G16R16G4G16R16G2.","O3COCO3COCO3COCO3COC4O3GO2GO3GO2GO3GO2GS0M3000O3G16G16V13
140CU=1
150'
160' B B B B B B B B
170'
180PLAY"V=V;A4G4RR8A.R16AG4F4E4","V12OR8AG4A4GA.R16AG2.","V13O3COCO3COCO3COCO3COCO3COCO3COCO3COCO3COC
190PLAY"F4RF4G8FF2R8F16R16F16R16F","R8GF4G4FG.R16GF2.","O2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3FO2FO3S0F16F16
200PLAY"G4F4RR8G.R16GF4E4D4","R8GF4G4FG.R16GF2.","V14O3DODO3DODO3DODO3DODO3DODO3DODO3DODO3DOD
210IFCC=0THEN280
220IFCU=0THEN260
230PLAY"C4RC4EDD4REFED","V13R8G16R16G.R16G16R16G.R16G16R16R8G#16R16G#.R16G#16R16G#.R16G#","O2GO3GO2GO3GO2GO3GO2GO3GO2EO3EO2EO3EO2EO3EO2EO3E
240GOTO570
250'
260PLAY"C4RA4EGG2R8E16R16EF","R8G16R16G.R16G.R16G16R16G.R16G16R16G2.","O2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3S0G16G16
270CU=1:GOTO180
280PLAY"C4RA4EGG1","R8G16R16G.R16G.R16G16R16G.R16G16R16G2.","O2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3GO2GO3S0G16G16
290'
300PLAY"V12C4.OF16R16F1.","V12O5RRR8D16E16FO6C4O5F16R16F2.","V12O3B-4R8B-16R16B-4.A.R16A16R16A2R8S0A16A16
310PLAY"V13O5C4.OF16R16F1F4V15O5DE","V13O5RRR8D16E16FO6C4O5F16R16F2V15OBO5C","V13D4R8D16R16D4.G.R16G16R16G2V15GOC
320'
330' C C C C C C C C
340'
350CU=0
360PLAY"V15R8E16R16E16R16E16R16E4C4D4G16R16GG2","V14O3COCO3COCO3COCO3COCO2BO3BO2BO3BO2BO3BO2B","V11OG16R16G4EG16R16G4EG16R16G4DG16R16G4D
370PLAY"RE16R16E16R16EFG4OA4O5G4F4V15EF","O2B-O3B-O2B-O3B-O2B-O3B-O2B-O3B-O2AO3AO2AO3AO2AO3AO2AO3A","G16R16G4EG16R16G4ERAEA16R16AV15O5C#D
380PLAY"V15R8D16R16D16R16DE4F4E4D16R16DD2","O3DODO3DODO3DODO3DODO3COCO3COCO3COCO3COC","V11OA16R16A4FA16R16A4FA16R16A4FA16R16A4F
390PLAY"RD16R16DE4F4E4D4C4OB4","O2BO3BO2BO3BO2BO3BO2BO3BO2G#O3G#O2G#O3G#O2G#O3G#O2G#O3G#","G16R16G4DG16R16G4DE16R16E.R16E.R16E.R16E
400PLAY"O5C1RRROAO5C","O2AO3AO2AO3AO2AO3AO2AGF#O3F#O2F#O3F#O2F#O3F#O2F#O3F#","OE16R16E4CE16R16E4CD16R16D.R16D.R16D.R16D
410IFCU=1THEN440
420PLAY"E16R16E16R16E16R16E4DCDD2RV15DE","O3DODO3DODO3DODO3DODO2GO3GO2GO3GO2GO3GV15OBO5C","OA16R16A4FA16R16A4FG16R16G.R16G16R16G16R16GV15O3GOC
430CU=1:GOTO360
440PLAY"E16R16E16R16E16R16E16R16EDCGG1","O3DODO3DODO3DODO3DODO2GO3GO2GO3GO2GO3GV15OBO5C","OA16R16A4FA16R16A4FG16R16G.R16G.R16G.R16G
450'
460' D D D D D D D D
470'
480PLAY"V12C16R16C16R16C16R16C16R16C4OBO5CED4ED4R","V11OA.R16A.R16A.R16A.R16G.R16G.R16G.R16G.","V12O3A16R16ARRRG16R16G
490PLAY"D16R16D16R16D16R16D16R16D4CDFE4FE4","E.R16E.R16E.R16E.R16A.R16A.R16A.","E16R16ERRRA16R16ARO3A16R16A
500PLAY"V14R8F.R16FEFEDR8E.R16EDEDC4.","V13AF1G1E","AV14O3D4ODO3DODO3DODO3DE4OEO3EOEO3EOEO3EOE
510PLAY"RA.R16AGEV15GG1","A2.AV14GG1","O3FOFO3FOFO3FOFO3FGG1
520PLAY"V15RRR8E16R16EF","V10R8O5AV11BV12O6CV15D16","R8V10OAV11BV12O5CV15D16
530CC=CC+1:CU=0:V=15:GOTO180
540'
550' E E E E E E E E
560'
570PLAY"C1RREFED","ORA.R16A.R16A16R16AG#.R16G#.R16G#.R16G#.","O3A16R16AB4OC4DEO3G#4R8G#G#2
580PLAY"C1RR","RG.R16G.R16G16R16GF#.R16F#.","G16R16GA4B4OCDO3F#4R8F#
590PLAY"R8OABO5C4OABO5C4DEC4.R","F#.R16F#A1GG2","F#4.O3D4ODO3DODO3DODO3DO2G4O3GO2GO3G
600'
610' F F F F F F F F
620'
630PLAY"DCOBO5CC2V13OA4GG.R16G.R16GA4B4O5","G.R16G.R16V13O5E.R16E4F4DE.R16E.R16EF4G4O","O2GO3GO2GO3S0G16G16V13COCO3COCO3COCO3COCO3COCO3COCO3COCO3COC
640PLAY"E.R16E4F4E16R16E4D16R16D2.","G.R16G4A4G16R16G4G16R16G2.","O3COCO3COCO3COCO3COC4O3GO2GO3GO2GO3GO2GS0M3000O3G16G16V13
650PLAY"E.R16E4F4DE.R16E.R16EF4G4","G.R16G4A4GG.R16G.R16GA4B4","COCO3COCO3COCO3COCO3COCO3COCO3COCO3COC
660PLAY"E.R16E4F4E16R16E4D16R16D2.","G.R16G4A4G16R16G4G16R16G2.","O3COCO3COCO3COCO3COC4O3GO2GO3GO2GO3GO2GS0M3000O3G16G16V13
670IFCC=2THEN720
680CU=1:GOTO360
690'
700' (( CODE ))
710'
720PLAY"R8O5CDCGC16D16RR8CDCGC16D16RR8CDCGC16D16R8C1.","V12OC2.CE-1F1V13G1.","O2FO3FO2FO3FO2FO3FO2FA-4O3A-O2A-O3A-O2A-O3A-O2A-B-4O3B-O2B-O3B-O2B-O3B-O2B-O3C1.
730END
