10 KEY(1) ON:ON KEY(1) GOSUB 390:COLOR 13
20 CLS:LOCATE 23,32:PRINT "PRESS F1 FOR EXIT"
30 COLOR 10:LOCATE 7,36:PRINT"EXCERPT FROM"
40 LOCATE 10,29
50 PRINT"`THE UNFINISHED SYMPHONY'"
60 LOCATE 14,33:PRINT"By Franz Schubert"
70 LOCATE 16,33:PRINT"Born Jan. 31, 1797"
80 LOCATE 18,26
90 PRINT"in Lichtenthal, outside Vienna"
100 LOCATE 20,27
110 PRINT"Died Nov. 19, 1828 in Vienna"
120 PLAY"MNT150<<<G8>DDD8<G8>D8<D8>D<G8"
130 PLAY"F#8.>D16<G16A8>D<G8F#8.>D16<G16"
140 PLAY"A8D8E8F#8G8>D8<D8>DD8<G8>D8<D8>"
150 PLAY"D<G8G#8.>E16<A16B8>E<A8G#8.>E16"
160 PLAY"<A16B8E8F#8G#8A8>E8<E8>E<G#8A8>"
170 PLAY"E-8<D8>D8<E8F#8GP8>G16B16>G8<D8"
180 PLAY">D8<D>G8F#8<D16>G16A8<D>G8F#8<"
190 PLAY"D16>G16A8D8E8F#8G8<D8>D8<DD8>G8"
200 PLAY"<D8>D8<D>G8G#8<E16>A16B8<E>A8"
210 PLAY"G#8<E16>A16B8E8F#8G#8A8<E8>E8"
220 PLAY"<E>G#8A8<E-8>D8<D8>E8F#8G8B-B-"
230 PLAY"B-8<C#8>A16<D16E8A8B8C#8>A8.G16"
240 PLAY"MSA8D8E8F8<<MNB8.>C16MSD8<G8A8"
250 PLAY"B8MN>C8.>F16G8C8D8E8E8.<<A16MS"
260 PLAY"B8E8F#8G#8MN>>E8.D16MSE8<A8B8>"
270 PLAY"C8MND8.<<G16MSA8D8E8F#8>>MND8."
280 PLAY"C16MSD8<G8B8>D8MNC#8.<<A16MSB-8"
290 PLAY"E8F#8G8MNA8.>>D16E8<A8>C#8D8E8."
300 PLAY"<<A16MSB-8E8F#8G8MNA8.>>D16E8<A8"
310 PLAY"B8>C#8MLD1MNP64DF#G8<<DDD8>G8<"
320 PLAY"B8>D8<B>G8F#8D16G16A8D>C8<B8D16"
330 PLAY">C16D8<D>F8E8<D16>D16C8D8C8<B8A8"
340 PLAY"D8F#8E8D8>D<D8G16B16>G8<D8>D8<D"
350 PLAY">G8F#8<D16>G16A8<D>>C8<B8<D16>>"
360 PLAY"C16D8<<D>>F8E8<<D16>>D16C8D8C8<"
370 PLAY"B8A8<D8>F#8E8>D8<<D8>>G8"
380 PLAY"<<<GMSG8G16G16G16G16P4"
390 COLOR 7,0:CLS