10 KEY OFF:CLS:LOCATE 5,22:COLOR 10
20 KEY(1) ON:ON KEY(1) GOSUB 1040
30 LOCATE 23,28:PRINT "PRESS F1 FOR EXIT":LOCATE 6,20
40 COLOR 9:PRINT "Albumblatt:Fur Elise-Beethoven"
50 LOCATE 8,25
60 PRINT"By Ludwig Van Beethoven"
70 LOCATE 10,23
80 PRINT"Born 1770 in Bonn, Germany"
90 LOCATE 12,27
100 PRINT"Died 1827 in Vienna"
110 LOCATE 15,20
120 PRINT"Beethoven's musical education was"
130 LOCATE 16,20
140 PRINT"taken in hand by his father, who "
150 LOCATE 17,20
160 PRINT"was a stern master. Beethoven    "
170 LOCATE 18,20
180 PRINT"learned the violin, as well as   "
190 LOCATE 19,31:PRINT"the piano."
200 A$="E16D#16E16D#16E16<B16>D16"
210 A$=A$+"C16<A16<E16A16>C16E16"
220 A1$="C32G32<G32>G32<A32>G32<"
230 A1$=A1$+"B32>G32C32G32D32G32E32"
240 A1A$="G32>C32<B32A32G32F32"
250 A1A$=A1A$+"E32D32G32F32D32"
260 A2$="E16MND#16E16<B16>D16C16"
270 A2$=A2$+"<A16<E16A16>C16E16A16B16<"
280 PLAY"<T100MNX"+VARPTR$(A$)
290 PLAY"A16B16<E16G#16>E16G#16B16"
300 PLAY">C16<<E16A16>E16>"
310 PLAY"X"+VARPTR$(A$)
320 PLAY"A16B16<E16G#16>E16"
330 PLAY">C16<B16A16<E16A16"
340 FLAG=FLAG+1
350 IF FLAG<>1 THEN 370
360 PLAY"P16>>>":GOTO 280
370 PLAY">B16>C16D16E16<<G16>C16G16"
380 PLAY">F16E16D16<<G16B16>F16>"
390 PLAY"E16D16C16<<E16A16>E16>D16"
400 PLAY"C16<B16T90<E16>E16E16>E16<"
410 PLAY"E16>E16E16>E16<D#16E16D#16E16"
420 PLAY"D#16E16D#16T100X"+VARPTR$(A$)
430 PLAY"A16B16<E16G#16>E16>"
440 PLAY"X"+VARPTR$(A$)
450 PLAY"A16B16<E16G#16>E16>C16<"
460 PLAY"B16A16<E16A16"
470 FLAG=FLAG+1:IF FLAG=3 THEN 370
480 PLAY"MLT85>>C16P64C16P64C16<F16"
490 PLAY"A16>CF16.E32P64E8DB-16.A32"
500 PLAY"P64A16G16F16E16D16C16<B-8A8"
510 PLAY"B-16A32G32A32B32>T90C"
520 PLAY"D16D#16E.P64E16F16<A16>T80"
530 PLAY"C16D32C32<B32>C32MND16.<B32>"
540 PLAY"X"+VARPTR$(A1$)
550 PLAY"X"+VARPTR$(A1A$)
560 PLAY"X"+VARPTR$(A1$)
570 PLAY"X"+VARPTR$(A1A$)
580 PLAY"E32F32E32D#32E32<B32>E32D#32"
590 PLAY"E32<B32>E32D32E8.<"
600 PLAY"B16>E16D#16E8.T85<B16>E16D#16"
610 PLAY"E8.<B16>E16D#16E16D#16"
620 PLAY"E16D#16E16D#16E16D#16E16T100"
630 PLAY"<B16>D16C16<A16<E16A16>C16"
640 PLAY"E16A16B16<E16G#16>E16G#16B16>"
650 PLAY"C16<<E16A16>E16>E16D#16T105"
660 PLAY"X"+VARPTR$(A2$)
670 PLAY"E16G#16>E16>C16<B16A16<E16"
680 PLAY"A16>B16>C16D16E16<<G16>"
690 PLAY"C16G16>F16E16D16<<G16B16"
700 PLAY">F16>E16D16C16<<E16A16>"
710 PLAY"E16>D16C16<B16<E16>E16E16"
720 PLAY">E16<E16>E16E16>E16<"
730 PLAY"D#16E16T95D#16E16D#16E16"
740 PLAY"D#16T105X"+VARPTR$(A$)
750 PLAY"A16B16<E16G#16>E16>E16D#16"
760 PLAY"E16D#16E16<B16>D16C16<"
770 PLAY"A16<E16A16>C16E16A16B16<E16"
780 PLAY"G#16>E16>C16<B16A8<<"
790 PLAY"A16A16A16A16>>>MLT110C#.DE16"
800 PLAY"MNF16FF8MLE.T100DC16<B16MNAA8"
810 PLAY"A8ML>C8<B8A.>T105C#.DE16MNF16F"
820 PLAY"F8F.MLE-T110D16C16<BA8.MNGG8"
830 PLAY"AP8B8P4<A16>C16E16A16>C16"
840 PLAY"E16D16C16<B16T120A16>"
850 PLAY"C16E16A16>C16E16D16C16<B16MLA16"
860 PLAY">C16E16A16>C16E16D16C16<B16T110"
870 PLAY"B-16A16G#16G16F#16F16T100E16D#16"
880 PLAY"D16C#16C16<B16B-16A16G#16G16F#16"
890 PLAY"F16T110X"+VARPTR$(A2$)
900 PLAY"E16G#16>E16G#16B16>C16<<"
910 PLAY"E16A16>E16>X"+VARPTR$(A$)
920 PLAY"A16B16<E16G#16>E16>C16<B16A16<"
930 PLAY"E16A16>B16>C16D16E16<<G16>C16"
940 PLAY"G16>F16E16D16<<G16B16>F16>E16"
950 PLAY"D16T105C16<<E16A16>E16>D16C16<"
960 PLAY"B16<<MSE16MN>E16>E16E16>E16<"
970 PLAY"E16>E16E16>T100"
980 PLAY"E16<D#16E16D#16E16D#16E16D#16"
990 PLAY"X"+VARPTR$(A$)
1000 PLAY"A16B16<E16G#16>E16>T90E16D#16"
1010 PLAY"E16D#16E16<B16>D16C16<A16<E16"
1020 PLAY"A16>C16E16A16B16<E16"
1030 PLAY"G#16>T75D16>C16<B16A2P4"
1040 COLOR 7,0:CLS