10 KEY(1) ON:ON KEY(1) GOSUB 980
20 CLS:LOCATE 12,25:COLOR 3:KEY OFF
30 PRINT "***********************"
40 LOCATE 13,25
50 PRINT "*                     *"
60 LOCATE 14,25
70 PRINT "***********************"
80 LOCATE 13,26:COLOR 25
90 PRINT "ARAGONAISE - MASSENET":COLOR 10
100 LOCATE 23,28:PRINT "PRESS F1 FOR EXIT"
110 A$="B16A16G16F#16B16A16G16F#16"
120 A$=A$+"B16A16G16F#16"
130 PLAY"<T135MNE16D16C16<B16>E16P16"
140 PLAY"E4E16D16C16<B16>E16P16E4"
150 PLAY"E16D16C16<B16>E16D16C16<"
160 PLAY"B16>E16D16C16<B16>E16"
170 PLAY"D16C16<B16>MSD16P16C#8MN"
180 PLAY"C4C16<B16A16G#16B16P16A4"
190 PLAY"A16G16F#16E16G16P16F#4"
200 PLAY"F#16E16D16C16F#16E16"
210 PLAY"D16C16F#16E16D16C16F#16"
220 PLAY"E16D16C16MSE16P16E-8MN"
230 PLAY"D4>E16D16C16<B16>E16P16"
240 PLAY"E4E16D16C16<B16>E16P16"
250 PLAY"E4E16D16C16<B16>E16D16"
260 PLAY"C16<B16>E16D16C16<B16>"
270 PLAY"E16D16C16<B16>MSB16P16A#8"
280 PLAY"MNA4G16F#16E16D#16F#16P16"
290 PLAY"E4E16D16C16<B16>D16P16C4C16"
300 PLAY"<B16A16G#16":PLAY"X"+VARPTR$(A$)
310 PLAY"MSA16P16MNA-8G8P8>F#16G16A16"
320 PLAY"B16>C16P16C16C8E16P16"
330 PLAY"E16E8G16P16G16G8B8P8"
340 PLAY"<A#8A8G#8G16F#16E16"
350 PLAY"D#16F#16P16E4E16D16C16<B16>MS"
360 PLAY"D16P16C#8MNC4C16<B16A16G#16"
370 PLAY"X"+VARPTR$(A$)
380 PLAY"MSE8MNE-8D8P8>F#16G16A16"
390 PLAY"B16>C16P16C16C8E16P16"
400 PLAY"E16E8G16P16G16G8B8P8<A#8"
410 PLAY"A8G#8G16F#16E16"
420 PLAY"D#16F#16P16E4E16D16C16<B16>MS"
430 PLAY"D16P16C#8MNC4C16<B16A16G#16"
440 PLAY"X"+VARPTR$(A$)
450 PLAY">C16<B16A16G16>D16C16<B16"
460 PLAY"A16>E16D16C16<B16>E16"
470 PLAY"P16E4E16D16C16<B16>E16P16"
480 PLAY"E4E16D16C16<B16>E16"
490 PLAY"D16C16<B16>E16D16C16<"
500 PLAY"B16>E16D16C16<B16>MSD16P16"
510 PLAY"C#8MNC4C16<B16A16G#16B16"
520 PLAY"P16A4A16G16F#16E16"
530 PLAY"G16P16F#4F#16E16D16"
540 PLAY"C16F#16E16D16C16F#16E16"
550 PLAY"D16C16F#16E16D16C16E16"
560 PLAY"P16E-8D4E16D16C16<"
570 PLAY"B16>E16P16E4E16D16C16"
580 PLAY"<B16>E16P16E4E16D16C16<"
590 PLAY"B16>E16D16C16<B16>E16D16"
600 PLAY"C16<B16>E16D16C16<B16>"
610 PLAY"B16P16A#8A4G16F#16E16D#16"
620 PLAY"F#16P16E4E16D16C16<"
630 PLAY"B16>D16P16C#8C4C16<B16A16"
640 PLAY"G#16X"+VARPTR$(A$)
650 PLAY">E16D16C16<B16>E16D16C16<"
660 PLAY"B16>E16D16C16<B16>X"+VARPTR$(A$)
670 PLAY">E16D16C16<B16>E16D16C16<"
680 PLAY"B16>E16D16C16<B16>E16"
690 PLAY"D16C16<B16>E16D16C16<B16"
700 PLAY">E16D16C16<B16>E16P16"
710 PLAY"E4E16D16C16<B16>E16P16"
720 PLAY"E4E16D16C16<B16>E16"
730 PLAY"D16C16<B16>E16D16C16"
740 PLAY"<B16>E16D16C16<B16>B16P16"
750 PLAY"A#8A4G16F#16E16D#16F#16"
760 PLAY"P16E4E16D16C16<B16>D16"
770 PLAY"P16C#8C4C16<B16A16G#16"
780 PLAY"X"+VARPTR$(A$)
790 PLAY"G16P16G16G8B16P16B16B8"
800 PLAY">D16P16D16D8E16P16E16"
810 PLAY"E8<G64>D64G16P16F16E16"
820 PLAY"D16C#16E16D16C16<B16"
830 PLAY"A16G16F#16E16D16E16F#16"
840 PLAY"G16F#16E16D16E16F#16"
850 PLAY"A16G16P16G16G8B16P16B16"
860 PLAY"B8>D16P16D16D8E16P16"
870 PLAY"E16E8ML<G64B-64>E-64G16"
880 PLAY"P16F16E-16D16C16<B-16A16"
890 PLAY">C16<B-16A-16G16F#16E16"
900 PLAY"D16E16F#16G16F#16"
910 PLAY"E16D16E16F#16A16MNG16P16"
920 PLAY"G16G8B16P16B16B8>D16P16D16D8"
930 PLAY"G16P16G16G8.P16G16F#16E16"
940 PLAY"D16G16F#16E16D16G16"
950 PLAY"F#16E16D16G16F#16E16"
960 PLAY"D16G16F#16E16D16G16F#16E16D16"
970 PLAY"B16P8<<<<G16P16G16G4>>>>G4P4"
980 COLOR 7,0:CLS