10 KEY(1) ON:ON KEY(1) GOSUB 770:COLOR 9
20 CLS:LOCATE 23,26:PRINT "PRESS F1 FOR EXIT"
30 COLOR 10:LOCATE 5,31:PRINT"BARCAROLLE"
40 LOCATE 7,20
50 PRINT"FROM DIE RHEINNIXEN BALLET-OPERA"
60 LOCATE 10,20
70 PRINT"By Frenchman, Jacques Offenbach"
80 LOCATE 12,31:PRINT"1819 - 1880"
90 LOCATE 14,26:PRINT"First published in 1864"
100 LOCATE 17,20
110 PRINT"A very prolific opera writer, he"
120 LOCATE 19,20
130 PRINT"was named by Rossini `Our Little"
140 LOCATE 21,20
150 PRINT"Mozart of the Champs Elysees."
160 A$="<D64>D64A64>D64F#8P8G8<<A64>D64B64"
170 A$=A$+">D64G8P8F#8<<<A64>A64>A64>C#64F#8E8"
180 B$="G8<<<A64>>B64>C#64G8P8F#8<<<A64>A64"
190 B$=B$+">A64>C#64F#8E8G8<<A64>B64>C#64"
200 C$="G8P8F#8<<D64>D64>D64F#64A8P8B8<A64"
210 D$="<<A64>E64G64A64>D8P8C#8<<<<A64>A64"
220 D$=D$+">>E64G64>C#8P8<B8<E64A64>C#64G64"
230 D$=D$+"B8P8A8"
240 E$="A8>C#8E8<<A64>>C64D#64F#64T60A"
250 E$=E$+"T110>C#8<B8<<A64>>C#64E64AP8"
260 PLAY"<<T110MLX"+VARPTR$(A$)
270 PLAY"X"+VARPTR$(B$)
280 PLAY"<<D64>D64A64>D64F#P8<A64>D64F#P8<"
290 PLAY"X"+VARPTR$(A$)
300 PLAY"X"+VARPTR$(B$)
310 PLAY"<<D64>D64A64>D64F#P8<A64>D64F#P8"
320 PLAY"X"+VARPTR$(C$)
330 PLAY"X"+VARPTR$(D$)
340 PLAY"<<D64>D64>D64F#64AP8<A64>D64F#P8"
350 PLAY"X"+VARPTR$(C$)
360 PLAY"X"+VARPTR$(D$)
370 PLAY"<<D64>D64>D64F#64AP8<A64>D64F#"
380 PLAY"A8<<D64>D64>D64F#64A8P8B8<A64>"
390 PLAY"D64F#64B8P8>C8<<<D64>D64>F#64>"
400 PLAY"C64D<G8<F#64>C64D64GA8<<D64>D64"
410 PLAY">A8P64A8B8<F#64>C64D64>C8<B8A8"
420 PLAY"<<G64>G64>D64G64BP8<G64B64>DB8"
430 PLAY"<<E64>E64>E64G#64B8P8>C#8<<B64>"
440 PLAY"E64G#64>C#8P8D8<<<E64>E64>G#64>"
450 PLAY"D64E<A8<G#64>D64E64AB8<<E64>E64>"
460 PLAY"B8P64B8>C#8<<G#64>D64E64>D8C#8<B8<<"
470 PLAY"A64>A64>E64A64>C#P8<<X"+VARPTR$(E$)
480 PLAY"<X"+VARPTR$(E$)
490 PLAY"<A8>C#8E8A8>C#8E8G.P4<<"
500 PLAY"X"+VARPTR$(A$)
510 PLAY"X"+VARPTR$(B$)
520 PLAY"<<<D64>D64>A64>D64F#8<<MSF#8"
530 PLAY"A8>D8MLP4X"+VARPTR$(A$)
540 PLAY"X"+VARPTR$(B$)
550 PLAY"<<<<F#64>D#64>A64>C64D#64F#8<<"
560 PLAY"MSF#8A8>C8MLP8<<E64>E64>E64G64"
570 PLAY"B64>E8P64E8F#8G8A8B8<<<<A64>A64"
580 PLAY">>A64>D64F#64A8<<MSD8F#8A8P8ML"
590 PLAY"<<<A64>A64>>C#64G64A8P64A8B8>C#8"
600 PLAY"D8E8<<<<D#64>D#64>A64>C64D#64F#8"
610 PLAY"<<<MSF#8A8>C8P4<<E64E64ML>>G64B64"
620 PLAY">F#8E8D8<<E64>C#64G64>C#8D8<B8<<<"
630 PLAY"A64>A64>A64>D64F#64A8<<MSD8F#8A8"
640 PLAY"P8ML>B64>B8<<<A64>A64>>>C#64>C#8"
650 PLAY"<<<E8MNG8A8P8ML>>D64>D8<<<<D64>"
660 PLAY"D64>D64F#64A64>D8<<<MNF#8A8>MLD8"
670 PLAY"<A8F#8><G64A8>E3.D8F#<"
680 PLAY"A8>D<G64MSA8ML>T60ET110D8T60F#T110"
690 PLAY"D8T60F#T110<A8>T60DT110<D64>D64"
700 PLAY"F#64A8P8<F#64>D64F#64B8<A64>D64"
710 PLAY"F#64B8P8<D64>D64F#64A8<<<D64>>A64>"
720 PLAY"D64F#8P8<D64A64>D64G8<F#64A64>D64"
730 PLAY"G8P8<<A64>A64>D64F#8<<D64>F#64A64"
740 PLAY">DP8<<D64>G64B64>DP8<<D64>F#64A64"
750 PLAY">DP8<<D64>E64G64>DP8<<D64>F#64A64>"
760 PLAY"DT60P4T110<<D64F#64A64>DP4<<D2P4"
770 COLOR 7,0:CLS