10 ' **********************************
20 ' *Albumblatt:Fur Elise - Beethoven*
30 ' **********************************
40 COLOR 10:CLS
50 KEY(1) ON:ON KEY(1) GOSUB 920
60 LOCATE 23,28:PRINT "PRESS F1 FOR EXIT":COLOR 9
70 LOCATE 11,20:PRINT "**********************************"
80 LOCATE 12,20:PRINT "*ALBUMBLATT:FUR ELISE - BEETHOVEN*"
90 LOCATE 13,20:PRINT "**********************************"
100 A$="E16D#16E16D#16E16<B16>D16C16"
110 A$=A$+"<A16<E16A16>C16E16"
120 A1$="C32G32<G32>G32<A32>G32"
130 A1$=A1$+"<B32>G32C32G32D32G32E32"
140 A1A$="G32>C32<B32A32G32F32E32"
150 A1A$=A1A$+"D32G32F32D32"
160 A2$="E16MND#16E16<B16>D16C16<A16"
170 A2$=A2$+"<E16A16>C16E16A16B16<"
180 PLAY"<T100MNX"+VARPTR$(A$)
190 PLAY"A16B16<E16G#16>E16G#16"
200 PLAY"B16>C16<<E16A16>E16>"
210 PLAY"X"+VARPTR$(A$)
220 PLAY"A16B16<E16G#16>E16>"
230 PLAY"C16<B16A16<E16A16"
240 FLAG=FLAG+1
250 IF FLAG=1 THEN PLAY"P16>>>":GOTO 180
260 PLAY">B16>C16D16E16<<G16>C16G16>F16"
270 PLAY"E16D16<<G16B16>F16>
280 PLAY"E16D16C16<<E16A16>E16>D16"
290 PLAY"C16<B16T90<E16>E16E16>E16<"
300 PLAY"E16>E16E16>E16<D#16E16"
310 PLAY"D#16E16D#16E16D#16"
320 PLAY"T100X"+VARPTR$(A$)
330 PLAY"A16B16<E16G#16>E16>"
340 PLAY"X"+VARPTR$(A$)
350 PLAY"A16B16<E16G#16>E16>"
360 PLAY"C16<B16A16<E16A16"
370 FLAG=FLAG+1:IF FLAG=3 THEN 260
380 PLAY"MLT85>>C16P64C16P64C16<F16A16"
390 PLAY">CF16.E32P64E8DB-16.A32"
400 PLAY"P64A16G16F16E16D16C16<"
410 PLAY"B-8A8B-16A32G32A32B32>T90C"
420 PLAY"D16D#16E.P64E16F16<A16>T80"
430 PLAY"C16D32C32<B32>C32MND16.<B32>"
440 PLAY"X"+VARPTR$(A1$)
450 PLAY"X"+VARPTR$(A1A$)
460 PLAY"X"+VARPTR$(A1$)
470 PLAY"X"+VARPTR$(A1A$)
480 PLAY"E32F32E32D#32E32<B32>E32"
490 PLAY"D#32E32<B32>E32D32E8.<"
500 PLAY"B16>E16D#16E8.T85<B16>E16"
510 PLAY"D#16E8.<B16>E16D#16E16D#16"
520 PLAY"E16D#16E16D#16E16D#16E16T100"
530 PLAY"<B16>D16C16<A16<E16A16>"
540 PLAY"C16E16A16B16<E16G#16>E16G#16B16"
550 PLAY">C16<<E16A16>E16>E16D#16T105"
560 PLAY"X"+VARPTR$(A2$)
570 PLAY"E16G#16>E16>C16<B16A16<E16"
580 PLAY"A16>B16>C16D16E16<<G16>"
590 PLAY"C16G16>F16E16D16<<G16B16>"
600 PLAY"F16>E16D16C16<<E16A16>"
610 PLAY"E16>D16C16<B16<E16>E16E16"
620 PLAY">E16<E16>E16E16>E16<D#16"
630 PLAY"E16T95D#16E16D#16E16D#16T105"
640 PLAY"X"+VARPTR$(A$)
650 PLAY"A16B16<E16G#16>E16>E16D#16"
660 PLAY"E16D#16E16<B16>D16C16<"
670 PLAY"A16<E16A16>C16E16A16B16<"
680 PLAY"E16G#16>E16>C16<B16A8<<"
690 PLAY"A16A16A16A16>>>MLT110C#.DE16"
700 PLAY"MNF16FF8MLE.T100DC16<B16MNAA8"
710 PLAY"A8ML>C8<B8A.>T105C#.DE16MNF16F"
720 PLAY"F8F.MLE-T110D16C16<BA8.MNGG8"
730 PLAY"AP8B8P4<A16>C16E16A16>C16"
740 PLAY"E16D16C16<B16T120A16>"
750 PLAY"C16E16A16>C16E16D16C16<B16MLA16"
760 PLAY">C16E16A16>C16E16D16C16<B16T110"
770 PLAY"B-16A16G#16G16F#16F16T100E16D#16"
780 PLAY"D16C#16C16<B16B-16A16G#16G16F#16"
790 PLAY"T110X"+VARPTR$(A2$):PLAY"E16G#16"
800 PLAY"E16G#16>E16G#16B16>C16<<E16A16>"
810 PLAY"X"+VARPTR$(A$)
820 PLAY"A16B16<E16G#16>E16>C16<B16A16<"
830 PLAY"E16A16>B16>C16D16E16<<G16>C16"
840 PLAY"G16>F16E16D16<<G16B16>F16>E16D16"
850 PLAY"T105C16<<E16A16>E16>D16C16<B16<<"
860 PLAY"MSE16MN>E16>E16E16>E16<E16>E16E16>"
870 PLAY"T100E16<D#16E16D#16E16D#16E16D#16"
880 PLAY"X"+VARPTR$(A$)
890 PLAY"A16B16<E16G#16>E16>T90E16D#16E16"
900 PLAY"D#16E16<B16>D16C16<A16<E16A16>C16"
910 PLAY"E16A16B16<E16G#16>T75D16>C16<B16A2"
920 COLOR 7,0:CLS