10 GOSUB340
20 GOSUB360
30 GOSUB690
40 GOSUB500
50 GOSUB530
60 FOR I=1 TO 3:GOSUB260:NEXT
70 FOR I=1 TO 3:GOSUB100:NEXT:GOSUB240:GOSUB120
80 FOR I=1 TO 2:GOSUB100:NEXT:GOSUB250
99 END
100 PLAY"T5Y3M1V1:T5Y3M1V1:T5M1
110 PLAY"O4#F0DO3BGO4#FD:O4G1DD:O1B1
120 PLAY"O3BGO4#FDO3BG:G1DD:B1
130 PLAY"O4#FDO3BGO4#FD:GDD:O1B
140 PLAY"O3BGO4#FDO3BG:GDD:B
150 PLAY"O4#FRDE:GD:B
160 PLAY"O3BO4DO3AB:EO3B:B
170 PLAY"O4GECO3AO4GE:O4AEE:#B
180 PLAY"CO3AO4GECO3A:AEE:#B
190 PLAY"O4GECO3AO4G#D:O4AE#D:#B
200 PLAY"CO3AO4G#DCO3A:A#D#D:#B
210 PLAY"O4GR#DG:A#D:#B
220 PLAY "D#DO3BO4D:CO3A:#B
230 RETURN
240 PLAY"O4#F#F#FO3GO4#FD:O4D0DDDD:G0GG":RETURN
250 PLAY"O4#F#F#F:O4D0DD:G0GG":RETURN
260 PLAY"T3Y0M1V2:T3Y0M1V2:T3M0
270 PLAY"O2B5GEC:O2G5ECO1B:O2B9B4
280 PLAY"B1G4E1V5:G1O2E4C1V5:B5B1
290 PLAY"T2C3EG#D#FA:T2O1B3O2CEC#DF:G5B
300 PLAY"T3V2F5AO3CD:T3V2D5FA#B:A9
310 PLAY"R4#D1C4O2#G1:R4O3C1O2#G4F1:#G7
320 PLAY"V5T2F3#DC:V5T2O2E3CO1#G:O3C5
330 PLAY"#GE#B:O2F#DO1#G:D":RETURN
340 PLAY"T3Y0M0V15:T3Y0M0V15
350 PLAY"O3D0EADEAB2:O2A0O3DEO2AO3DE#F2":PAUSE20:RETURN
360 PLAY"T3Y0M0V15:T3Y0M0V15:T3M0
370 PLAY"O1G4O2C1:O2E4O1G1O3:O1G5
380 PLAY"D4F1:O2D4O1A1:A4#B1
390 PLAY"E4C1D4A1:#B4G1A4B1:B5G
400 PLAY"G4C1:O2E4O1G1:O2C5
410 PLAY"D4F1:O2D4O1A1:D4F1
420 PLAY"E4C1G4B1:O2C4O1G1O2D4G1:E5D
430 PLAY"#B4#A1#G4G1:#G4G1F4#D1:#D5D4C1
440 PLAY"F4#D1:D4C1:O1#A5
450 PLAY"D4O1#A1:O1#A4O2D1:O2E
460 PLAY"O2#A4#B1:#D4F1:#A
470 PLAY"#A4G1:#D4C1:G4#D1
480 PLAY"T2A3FDGED:T2F3DO1AO2DO1BA:D5G4":RETURN
500 PLAY"T3Y0M1V15:T3Y0M1V15:T3M0
510 PLAY"O3D3R1:O2A3R1:O2#F3R1
520 PLAY"D#DFG4:A#AO3CD4:#FGAB4":RETURN
530 FOR I=1 TO 6:PLAY"Y0T1O3G1E#FDECDO2B":NEXT
540 FOR I=1 TO 6:PLAY"O3C#D#FA#BA#F#D":NEXT
550 PLAY"O2G0#GAB#AA#GG#FFER1
560 PLAY"C0#CD#DE#DD#CCO1B#AAR5
570 PLAY"O2D0E#FGABO3#CDR3O2#A0A#GG#FFR5
580 PLAY"Y2O2G0#GAR#ABO3CR#CD#DR5
590 PLAY"Y0O2G3AGAO3CDCDR5
600 PLAY"T2Y2M1V0:T2Y2M1V0:T2M1
610 PLAY"O4E1CDO3B:O3#C1AB#G:O2A3B
620 PLAY"#BAB#G:A#F#GE:#BB
630 PLAY"AEED:ECCO2B:A#G
640 PLAY"CO2BA#G:A#G#FE:#F#G
650 PLAY"ABO3CD:EF#F#G:AF
660 PLAY"CE#F#G:ABO3CD:EC
670 PLAY"AAA7:EEE:A1RA
680 RETURN
690 FOR I=1 TO 3:PLAY"T1M0V15Y3O3B0RGRAR4":NEXT:RETURN
