10 KEY(1) ON:ON KEY(1) GOSUB 790
20 CLS:COLOR 14:LOCATE 23,28
30 PRINT "PRESS F1 FOR EXIT":COLOR 13
40 LOCATE 5,24:PRINT"WALTZ, OP. 64, NO. 1"
50 LOCATE 8,29:PRINT"MINUTE WALTZ"
60 LOCATE 12,24
70 PRINT"First published in 1847"
80 LOCATE 16,26:PRINT"by Frederic Chopin"
90 LOCATE 18,19
100 PRINT"Born near Warsaw, Poland in 1810"
110 LOCATE 20,22
120 PRINT"Died 1849 in Paris, France"
130 M$="G11A-11B-11>C11D-11E-11F11G-11"
140 M$=M$+"B-7.P32A-10G-10F10P64F10E-10"
150 M$=M$+"P64E-18F18E-18D10E-6"
160 M1$="B-6.P32A-10G-10F10P64F10E-18"
170 M1$=M1$+"F18E-18D10E-10F10<B-10"
180 M2$="G-10F10E10F9A-10G-10F10G-10F10E10"
190 M2$=M2$+"F10B-10P32A-12B-12A-12G10A-10>"
200 M2$=M2$+"C10<B-10A-10B-10A-10G10A-10"
210 M3$="P32C10<B-10A-10G-10F10E-10D-10C10<"
220 M3$=M3$+"B-10A-10G-10F10E-10D-10C10E-10"
230 M3$=M3$+"B-10A-10G10A-10B-10>C10D-10E-10P32"
240 M4$=">F7P32E-10D-10C10<B-10A-10G-10F10"
250 M4$=M4$+"E-10D-10C10<B-10A-10A10>C10<B-10"
260 M4$=M4$+"F10G-10C10D-6P6>"
270 M5$="A-18B-18A-18B-18A-18B-18A-18B-18A-18"
280 M5$=M5$+"B-18A-18B-18A-18B-18A-18B-18"
290 PLAY"O2T250MLA-6G11A-11>C11<B-11G11A-11"
300 PLAY"B-11A-11>C11<B-11G11A-11>C11<B-11"
310 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11"
320 PLAY"X"+VARPTR$(M$)
330 PLAY"X"+VARPTR$(M1$)
340 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11"
350 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11"
360 PLAY"X"+VARPTR$(M$)
370 PLAY"B-6.P20A-10G-10F10E-10F10E-20F20"
380 PLAY"E-20D10E-10E10P16F12":X%=0
390 PLAY"T255X"+VARPTR$(M2$)+">D-8
400 PLAY"X"+VARPTR$(M3$)
410 PLAY"X"+VARPTR$(M2$)
420 PLAY"X"+VARPTR$(M4$)
430 IF X%=0 THEN PLAY"F4.":X%=1:GOTO 390
440 PLAY"<P18A-3.E-5A-2E5A-3F5>F3P34F4.T230"
450 PLAY"<B-5>F3C5E-3D-5C5E-7D-7<"
460 PLAY"B-7A-3E-5A-3E5A-3F5>F3.P32C18D-18"
470 PLAY"C18D-18<B5>C5A-5<B-5>G5<A5>G-5"
480 PLAY"<A-5>F5<F5B-5A-3E-5>A-18<A-3E5>A-18"
490 PLAY"<A-3F5>A-18F3P34F5A-18F3<B-5"
500 PLAY">A-18F3C5A-18E-5D-5C5A-18E-5D-5."
510 PLAY"<B-9>A-18<A-3E-5>A-18<A-3E5>A-18"
520 PLAY"<A-3F5>F3.P34T220F3<B-5>E3<A5>E-5"
530 PLAY"<A-5>D5T210F5E-5A-3.P8O2P12"
540 PLAY"T220X"+VARPTR$(M5$)
550 PLAY"T230X"+VARPTR$(M5$)
560 PLAY"T240X"+VARPTR$(M5$)
570 PLAY"T255G11A-11>C11<B-11G11A-11>C11<B-11"
580 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11G11"
590 PLAY"A-11>C11<B-11G11A-11>C11<B-11"
600 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11G11"
610 PLAY"A-11>C11<B-11G11A-11>C11<B-11"
620 PLAY"X"+VARPTR$(M$)
630 PLAY"X"+VARPTR$(M1$)
640 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11"
650 PLAY"G11A-11>C11<B-11G11A-11>C11<B-11"
660 PLAY"X"+VARPTR$(M$)
670 PLAY"P32B-6.A-10G-10F10E-10F10E-32F20"
680 PLAY"E-20F20D10E-10E10P18F12"
690 PLAY"X"+VARPTR$(M2$)+">D-8
700 PLAY"X"+VARPTR$(M3$)
710 PLAY"F12X"+VARPTR$(M2$)
720 PLAY"X"+VARPTR$(M4$)+"F5F12
730 PLAY"X"+VARPTR$(M2$)+">D-8
740 PLAY"X"+VARPTR$(M3$)
750 PLAY"F12T250X"+VARPTR$(M2$)
760 PLAY">>F8P12E-8D-12C13<B-13A-13G-13"
770 PLAY"F13E-13D-13C13<B-13A-13G-13"
780 PLAY"F13E-13D-13C13<B-13T230A13>"
790 COLOR 7,0:CLS