10 KEY(1) ON:ON KEY(1) GOSUB 480:COLOR 11
20 CLS:LOCATE 23,32:PRINT "PRESS F1 FOR EXIT"
30 COLOR 12:LOCATE 6,39:PRINT"1826"
40 LOCATE 10,31:PRINT"Music By Austrian,"
50 LOCATE 12,25
60 PRINT"Franz Peter Schubert (1797-1828)"
70 LOCATE 15,30:PRINT"Words by Englishman,"
80 LOCATE 17,27
90 PRINT"Sir Walter Scott (1771-1832)"
100 PLAY"<<<T140MLB-12>D12F12<B-12>D12F12"
110 PLAY"<B-12>D12F12<B-12>D12F12B-12D12"
120 PLAY"F12<B-12>D12F12<B-12>D12E12A12"
130 PLAY"D12B-12>D12<D12F12<F12B-12>D12"
140 PLAY"<F12A12>E-12<F12A12>>C12<B-12<"
150 PLAY"B-12>D12<G12B-12>D12<G12B-12>"
160 PLAY"D12<G12B-12>D12>C12<<G12>C12<"
170 PLAY"E-12G12>C12>D16C16<B-12C12A12"
180 PLAY"G12C12A12B-12D12F12<B-12>D12F12"
190 PLAY"<B-12>D12F12>D12<D12F12<B-12>D12"
200 PLAY"F#12<B-12>>C12<B-12A12D12G12>D12"
210 PLAY"<D12>E12D12<D12E12<B-12>D12E12>"
220 PLAY"C#12<C#12G12<A12>C#12A12>C12<E-12"
230 PLAY"F#12<A12>E-12B-12A12>C12D12E-12"
240 PLAY"C12<A12B-12D12G12<B-12>D12G12<"
250 PLAY"B-12>D12E12>D12<D12>C12<<A12>C12"
260 PLAY"F12<A12>C12A12G12B12>D12F12D12<"
270 PLAY"B12>C12<C12F12<A12>C12F12<B-12>"
280 PLAY"G12A12B-12A12G12F12C12F12<A12>"
290 PLAY"C12F12<A12>C12F12P64F12C12F12>"
300 PLAY"C12<<A12>E-12<F12A12>>C12P64C12"
310 PLAY"<<A12>B12>C12<<A12>>D12C12<"
320 PLAY"<B-12>>D12<B-12<B-12>D12<F12B-12>"
330 PLAY"D12<F12B-12>B-12>C12<<A12>E-12<F12"
340 PLAY"A12>>C12P64C12<B12>C12E-12D12C12<"
350 PLAY"B-12<B-12>D12<G12B-12>D12<G12B-12>"
360 PLAY"D12B-12<B-12>D12>C12<<A12>C12<F12"
370 PLAY"A12>>C12D12<<A12>>D12P64D12E-12D12"
380 PLAY"C12D12F12<C12E-12>E-12<C12E-12<"
390 PLAY"G12>C12E-12G12C12E-12>D12<<G12>C12"
400 PLAY">C12<<G12>>C12<B-12A12B-12>D-12"
410 PLAY"C12<B-12>C12<<A12>C12<F12A12"
420 PLAY">C12<F12A12>E-12<F12A12>E-12T135"
430 PLAY"B-12D12F12<B-12>D12F12<B-12>T130"
440 PLAY"D12E12A12D12B-12>D12<<B-12>D12<"
450 PLAY"F12B-12>D12<F12A12>E-12<F12A12>>C12"
460 PLAY"T125<B-12D12F12<B-12>D12F12>T120D12"
470 PLAY"<D12F12>T115F12<D12F12>B-2P4"
480 COLOR 7,0:CLS