10 KEY(1) ON:ON KEY(1) GOSUB 770
20 CLS:KEY OFF:COLOR 12
30 LOCATE 25,27:PRINT "PRESS F1 FOR EXIT":COLOR 13
40 LOCATE 8,24:PRINT"SONATA QUASI UNA FANTASIA"
50 LOCATE 10,26:PRINT"(MOONLIGHT SONATA)
60 LOCATE 14,20
70 PRINT"Written by Ludwig Van Beethoven"
80 LOCATE 16,32:PRINT"in 1802"
90 LOCATE 19,23
100 PRINT"Born 1770 in Bonn, Germany"
110 LOCATE 21,25:PRINT"Died 1827 in Vienna"
120 PLAY"<T70MLC16E16G32<B32>F16P16P8P16<"
130 PLAY"A16B16>D32<G32>E16P16P8C32<B32A32"
140 PLAY"G32F32E32D32C32<B32>D32F32<B32>C32"
150 PLAY"<C32P4>C32D32E32F32E32D32C32"
160 PLAY"D32C32<B32A32B32G32A32B32>C32D32E32"
170 PLAY"F32G32F32E32D32E32C32D32E32F32"
180 PLAY"G32A32B32>C32<B32A32G32A32G32F32"
190 PLAY"E32>F32E32D32C32D32C32<B32A32B32G32"
200 PLAY"A32B32>C32D32E32F32G32F32E32D32E32"
210 PLAY"D32C32<B32>A32G32F32E32F32E32D32"
220 PLAY"C32>B-32A32G32F32G32F32E32D32B-32"
230 PLAY"A32G32F32G32F32E32D32F32E32D32C32"
240 PLAY"D32C32<B32A32>F32E32D32C32D32C32"
250 PLAY"<B32A32>G32F32E32D32E32D32C32<B32>"
260 PLAY"C32<B32A32G32A32G32F32E32F32E32D32"
270 PLAY"C32<B32>C32D32E32F32E32D32C32<B32"
280 PLAY"A32G32F32E32>C32<B32A32G32F32E32"
290 PLAY"D32E32F32G32F32E32D32C32<B32>C32<"
300 PLAY"G32A32B32>C32F32E32F32G32F32E32D32"
310 PLAY"E32F32G32A32B-32G32A32B-32>C32D32"
320 PLAY"E32F32G32F32E32D32E32F32G32A32B-32"
330 PLAY"G32E32C32<G32E32C16P4C32D32E32F32"
340 PLAY"E32D32C32D32E32F32E32D32C32D32E32"
350 PLAY"F32G32F32E32F32G32A32G32F32E32F32"
360 PLAY"G32A32G32F32E32F32G32A32B-32A32G32"
370 PLAY"A32B-32>C32<B-32A32G32A32B-32>C32"
380 PLAY"D32E32F32G32A32E32F32C32<A32F32P4"
390 PLAY">>F32E32D32C32<B32A32G32F32E32D32"
400 PLAY"C32<B32>>G32F32E32D32F32E32D32C32"
410 PLAY"<B32A32G32F32E32D32C32<B32>>D32<A32"
420 PLAY"G32F32E32G32>C32<G32E32G32E32<B32>"
430 PLAY"C32E32C32<G32E32G32E32C32E32G32>"
440 PLAY"C32<G32E32C32<G32>C32<C8P8P16>C16"
450 PLAY"G16<G16>C8P8C16E16D16F16E16G16F#16"
460 PLAY"A16G16B16A16>C16<B16>D16<G16P16P8"
470 PLAY"P16>C16<B16>D16<A16>C16<B16>D16<G16"
480 PLAY"P16P8P16>C16<B16>D16<G16B16A16>C16<"
490 PLAY"F#16A16G16A16<B16P16P8P16>A16G16"
500 PLAY"B16F#16A16G16A16<B16P16P8P16>G16"
510 PLAY"F16G16E16G16F16G16<B16>G16F16G16E16"
520 PLAY"G16F16G16<B16>F16E16F16D16F16E16G16"
530 PLAY"C16P16P8P16F16E16F16D16F16E16G16"
540 PLAY"C16P16P8P16B-16A16B-16G16B-16A16>"
550 PLAY"C16<F16A16G16A16E16G16F16G16D16F16"
560 PLAY"E16F16C16E16D16F16<B16>G16F16G16D16"
570 PLAY"F16E16G16C16>C16<F#16A16D16>C16<"
580 PLAY"F#16A16D16>C16<A16>C16<F16A16G16"
590 PLAY"B16D16>D16<G16B16D16>D16<B16>D16<G16"
600 PLAY"B16D16G16<G16>>D16<B16>D16<G16B16"
610 PLAY"D16G16<G16>G16F24G24F24E24F24E24D16"
620 PLAY"F16E16F16D24E24D24C24D24C24<B64>C64"
630 PLAY"<B64>C64<B64>C64<B64>D16C16E16D16"
640 PLAY"F16E16G16D16F16C16D32E32D16E32F32"
650 PLAY"E16G16C16E16D16F16E16G16F16A16C#16"
660 PLAY"E16D16E32F32E16F32G32F16A16D16F16"
670 PLAY"E16F32G32F16G32A32<B16>G16C16D16<"
680 PLAY"G16>E16D64E64D64E64D64E64D64C8.P32"
690 PLAY"B-16E16G16C16B-16A16C16F16G16E16"
700 PLAY"G16C16>C16<B-24>C24<B-24A24B-24"
710 PLAY"A24G24A24G24F24G24F24E24F24E24D24E24"
720 PLAY"D24C24D24C24<B-24>C24<B-24A24B-24"
730 PLAY"A24G24A24G24F16G32F32E16F16G8.>F#16"
740 PLAY"G16.F32G16.F32G16.F#32G16.F#32G32"
750 PLAY"F32E32F32G32F32E32F32G16.<B32>"
760 PLAY"C16.<F32G8.C4P4"
770 COLOR 7,0:CLS