1000 'music
1010 GOTO 1030
1020    SAVE "Music":SCREEN 0:WIDTH 80:CLS:LIST-1240
1030 SCREEN 0,1:WIDTH 40:COLOR 15,1:CLS:PLAY "MF"
1040  DEFINT A-L:DEFSTR M-Z
1050  I=0:C=0:J=0:Q2=MKI$(0):Q=CHR$(0)
1060  DIM B(88),C(70),S(12)
1070  KEY OFF:FOR I=1 TO 10:KEY I,"":NEXT:COLOR 4,1:LOCATE 1,1,0
1080  FOR I=4 TO 13:LOCATE I,4:PRINT STRING$(34,"?");:NEXT
1090  COLOR 15,0
1100  LOCATE  5,5:PRINT  "??? ? ??? ? ? ??? ? ??? ? ? ????";
1110  LOCATE  6,5:PRINT  "??? ? ??? ? ? ??? ? ??? ? ? ????";
1120  LOCATE  7,5:PRINT  "??? ? ??? ? ? ??? ? ??? ? ? ????";
1130  LOCATE  8,5:PRINT  "??? ? ??? ? ? ??? ? ??? ? ? ????";
1140  LOCATE  9,5:PRINT  "??? ? ??? ? ? ??? ? ??? ? ? ????";
1150  LOCATE 10,5:PRINT  "????????????????????????????????";
1160  LOCATE 11,5:PRINT  "????????????????????????????????";
1170  LOCATE 12,5:PRINT  "????????????????????????????????";
1180  COLOR 15,1
1190  LOCATE 15,5:PRINT  " ????????? selections ????????? ";
1200  LOCATE 16,5:PRINT  " <A>March  <E>Humor  <I>Sakura  ";
1210  LOCATE 17,5:PRINT  " <B>Stars  <F>Bug    <J>Blue    ";
1220  LOCATE 18,5:PRINT  " <C>Forty  <G>Pop    <K>Scales  ";
1230  LOCATE 19,5:PRINT  " <D>Hat    <H>Dandy  <Esc>Exit  ";
1240  FOR I=0 TO 6:B(I)=32767:NEXT
1250  FOR I=7 TO 88:B(I)=36.8*(2^(1/12))^(I-6):NEXT
1260  C(39)=5 :C(40)=7 :C(41)=8 :C(42)=9
1270  C(43)=10:C(44)=11:C(45)=13:C(46)=14
1280  C(47)=15:C(48)=16:C(49)=17:C(50)=18
1290  C(51)=19:C(52)=21:C(53)=22:C(54)=23
1300  C(55)=24:C(56)=25:C(57)=27:C(58)=28
1310  C(59)=29:C(60)=30:C(61)=31:C(62)=32
1320  C(63)=33:C(64)=35:C(65)=36:C(66)=37
1330  C(67)=38:C(68)=39:C(69)=40:C(70)=42
1340  S(1)=" Funeral March Of A Marionette - Gounod "
1350  S(2)=" Stars And Stripes Forever - Sousa "
1360  S(3)=" Symphony #40 by Mozart "
1370  S(4)=" Mexican Hat Dance - Traditional "
1380  S(5)=" Humoresque by Dvorak "
1390  S(6)=" La Cucaracha - Mexican Folk Song "
1400  S(7)=" Pop! Goes The Weasel - Anonymous "
1410  S(8)=" Yankee Doodle - Anonymous "
1420  S(9)=" Sakura - Japanese Folk Melody "
1430  S(10)=" Blue Danube Waltz by J.S.Strauss "
1440  S(11)=" Music Scale "
1450 COLOR 0,7 '                                       MAIN LOOP
1460  LOCATE 21,5:PRINT " Selection <?>";TAB(36);" ";:LOCATE 21,17,1
1470  LSET Q2=MKI$(0):WHILE CVI(Q2)=0:MID$(Q2,1)=INKEY$:WEND:LSET Q=Q2
1480  I=INSTR("ABCDEFGHIJK",Q)+INSTR("abcdefghijk",Q):IF ASC(Q)=27 THEN 1650
1490  IF I=0 THEN 1450 ELSE PRINT CHR$(I+64);:LOCATE 21,20,0
1500  ON I GOTO 1510,1520,1530,1540,1550,1560,1570,1580,1590,1600,1610
1510 PRINT "March ":RESTORE 2340:GOTO 1620
1520 PRINT "Stars ":RESTORE 2420:GOTO 1620
1530 PRINT "Forty ":RESTORE 2150:GOTO 1620
1540 PRINT "Hat   ":RESTORE 2520:GOTO 1620
1550 PRINT "Humor ":RESTORE 2010:GOTO 1620
1560 PRINT "Bug   ":RESTORE 1770:GOTO 1620
1570 PRINT "Pop   ":RESTORE 2080:GOTO 1620
1580 PRINT "Dandy ":RESTORE 2260:GOTO 1620
1590 PRINT "Sakura":RESTORE 2660:GOTO 1620
1600 PRINT "Blue  ":RESTORE 1840:GOTO 1620
1610 PRINT "Scales":RESTORE 2590:GOTO 1620
1620 LOCATE 23,(41-LEN(S(I)))/2:COLOR 15,4:PRINT S(I);:COLOR 0,7
1630  GOSUB 1660 'Play
1640  LOCATE 23,1:COLOR 0,1:PRINT TAB(40);" ";:GOTO 1450
1650 SCREEN 0,1:COLOR 7,0,0:CLS:WIDTH 80:SYSTEM             'END OF PROGRAM
1660 'Play
1670  READ J:MID$(Q2,1)=INKEY$:IF J<0 OR ASC(Q2)=27 THEN 1760
1680  READ I:C=C(J):IF J>64 OR J<39 THEN 1720
1690  IF SCREEN(5,C)=32 THEN 1710
1700  COLOR 0,7:LOCATE 11,C:PRINT CHR$(14);:COLOR 15,0:GOTO 1720
1710 COLOR 15,0:LOCATE 7,C:PRINT CHR$(14);:COLOR 0,7
1720 SOUND B(J),I:IF I-1 THEN IF J THEN SOUND 32767,1
1730 IF J>64 OR J<39 THEN 1660 ELSE COLOR 15,0
1740  IF SCREEN(5,C)=32 THEN LOCATE 7,C:PRINT " ";:GOTO 1660
1750  LOCATE 11,C:PRINT "?";:GOTO 1660
1760 RETURN
1770 'La Cucaracha
1780 DATA 42,1,0,1,42,1,0,1,42,1,0,1,47,1,0,5,51,1,0,3,42,1,0,1,42,1,0,1
1790 DATA 42,1,0,1,47,1,0,5,51,1,0,5,30,1,0,1,30,1,0,1,35,1,0,3,47,1,0,1
1800 DATA 47,1,0,1,46,1,0,1,46,1,0,1,44,1,0,1,44,1,0,1,42,8,0,2,42,1,0,1
1810 DATA 42,1,0,1,42,1,0,1,46,1,0,5,49,1,0,3,42,1,0,1,42,1,0,1,42,1,0,1
1820 DATA 46,1,0,5,49,1,0,5,37,1,0,1,37,1,0,1,30,1,0,3,54,2,56,2,54,2,52,2
1830 DATA 51,2,49,2,47,8,-1
1840 'Blue Danube
1850 DATA 42,4,46,4,49,4,49,4,0,4,61,2,0,2,61,2,0,6,58,2,0,2,58,2,0,6,42,4,42,4
1860 DATA 46,4,49,4
1870 DATA 49,4,0,4,61,2,0,2,61,2,0,6,59,2,0,2,59,2,0,6,41,4,41,4,44,4,51,4,51,4
1880 DATA 0,4,63,2,0,2,63,2,0,6,59,2,0,2
1890 DATA 59,2,0,6,41,4,41,4,44,4,51,4,51,4,0,4,63,2,0,2,63,2,0,6,58,2,0,2,58,2
1900 DATA 0,6,42,4
1910 DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2,66,2,0,6,61,2,0,2,61,2,0,6,42,4
1920 DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2
1930 DATA 66,2,0,6,63,2,0,2,63,2,0,6,44,4,44,4,47,4,51,2,0,2,51,14,0,2,48,4
1940 DATA 49,4,58,16
1950 DATA 54,4,46,4,46,8,44,4,51,8,49,4,42,4,0,2,42,2,42,4,0,8,49,2,0,2,47,2
1960 DATA 0,6,49,2,0,2
1970 DATA 47,2,0,6,49,4,58,16,56,4,49,2,0,2,46,2,0,6,49,2,0,2,46,2,0,6,49,4
1980 DATA 56,16,54,4,49,2,0,2,47,2,0,6,49,2,0,2,47,2,0,6,49,4,58,16
1990 DATA 56,4,49,4,54,4,56,4,58,4,61,8,59,4,58,2,58,2,58,4,56,2,0,2,54,4,0,8
2000 DATA -1
2010 'Humoresque
2020 DATA 47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
2030 DATA 59,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
2040 DATA 54,3,0,2,54,1,56,3,0,2,54,1,59,3,0,2,56,1,54,3,0,2,51,1
2050 DATA 49,24,47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
2060 DATA 56,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
2070 DATA 54,3,0,2,54,1,59,3,0,2,47,1,49,6,54,6,47,18,-1
2080 'Pop! Goes The Weasel
2090 DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,2,54,2,51,2,47,2,0,2,42,2
2100 DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,6,47,2,0,2,42,2,47,2,0,2,47,2,49,2
2110 DATA 0,2,49,2,51,2,54,2,51,2,47,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2
2120 DATA 0,4,59,2,0,2,59,2,56,2,0,2,59,2,58,2,61,2,58,2,54,2,0,4,59,2,0,2
2130 DATA 59,2,56,2,0,2,59,2,58,6,54,2,0,2,51,2,52,2,0,2,51,2,52,2,0,2,54,2
2140 DATA 56,2,0,2,58,2,59,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2,-1
2150 'Symphony #40
2160 DATA 55,2,54,2,54,4,55,2,54,2,54,4,55,2,54,2,54,4,62,4,0,4
2170 DATA 62,2,61,2,59,4,59,2,57,2,55,4,55,2,54,2
2180 DATA 52,4,52,4,0,4,54,2,52,2,52,4,54,2,52,2,52,4,54,2,52,2
2190 DATA 52,4,61,4,0,4,61,2,59,2,58,4,58,2,55,2,54,4,54,2,52,2
2200 DATA 50,4,50,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
2210 DATA 59,4,54,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
2220 DATA 59,4,62,4,61,2,59,2,57,2,55,2,54,4,46,4,47,4,49,4
2230 DATA 50,4,52,2,50,2,49,4,47,4,54,4,0,4,65,8
2240 DATA 66,2,0,6,65,8,66,2,0,6,65,8
2250 DATA 66,4,65,4,66,4,65,4,66,4,-1
2260 'Yankee Doodle
2270 DATA 50,3,50,3,52,3,54,3,50,3,54,3,52,3,45,3,50,3,50,3,52,3,54,3,50,6
2280 DATA 49,3,0,3
2290 DATA 50,3,50,3,52,3,54,3,55,3,54,3,52,3,50,3,49,3,45,3,47,3,49,3,50,6
2300 DATA 50,3,0,3
2310 DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,0,3,45,5,47,1,45,3,43,3,42,6
2320 DATA 45,3,0,3
2330 DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,47,3,45,3,50,3,49,3,52,3,50,6,-1
2340 'Funeral March
2350 DATA 0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,1,0,2
2360 DATA 30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,3,42,3,0,3,45,3
2370 DATA 49,6,47,3,45,3,0,3,49,3,52,6,50,3,49,3,0,3,53,3,56,6,54,3,53,3,50,3
2380 DATA 49,3,47,3,45,3,44,3,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3
2390 DATA 0,3,37,1,0,2,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3
2400 DATA 37,3,45,3,0,3,49,3,52,6,50,3,49,3,47,3,45,3,43,3,47,3,50,3,42,3
2410 DATA 41,3,42,3,44,3,0,3,45,1,0,2,44,9,42,1,-1
2420 'Stars And Stripes
2430 DATA 54,6,54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3
2440 DATA 51,3,51,6,50,3,51,3
2450 DATA 54,6,51,3,54,3,52,12,49,6,0,3,49,3,49,6,48,3,49,3
2460 DATA 49,6,48,3,49,3
2470 DATA 52,16,0,2,51,3,49,3,51,3,54,9,56,9,56,3,49,16,0,2,54,6
2480 DATA 54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3,51,3,51,6,50,3 ,51,3
2490 DATA 52,3,51,3,49,5,46,1,49,12,47,6,0,3,47,3,47,6,46,3,47,3,50,6,49,3,47,3
2500 DATA 59,15,0,3,47,3,49,3,51,3,54,1,0,2,47,3,49,3,51,3,54,1,0,2,42,3,44,5
2510 DATA 51,1,49,12,47,1,-1
2520 'Mexican Hat Dance
2530 DATA 52,2,57,2,0,2,52,2,57,2,0,2,52,2,57,6,0,4,52,2,57,2,59,2,57,2,56,4
2540 DATA 57,2,59,2,0,8,52,2,56,2,0,2,52,2,56,2,0,2,52,2,56,6,0,4,52,2
2550 DATA 56,2,57,2,56,2,54,4,56,2,57,2,0,6,64,2,63,2,64,2,61,2,60,2,61,2
2560 DATA 57,2,56,2,57,2,52,2,0,4,49,2,50,2,52,2,54,2,56,2,57,2,59,2,61,2
2570 DATA 62,2,59,2,0,4,62,2,61,2,62,2,59,2,58,2,59,2,56,2,55,2,56,2,52,2
2580 DATA 0,4,64,2,63,2,64,2,66,2,64,2,62,2,61,2,59,2,57,2,-1
2590 'Scales
2600 DATA 38,1,39,1,40,1,41,1,42,1,43,1,44,1,45,1,46,1,47,1
2610 DATA 48,1,49,1,50,1,51,1,52,1,53,1,54,1,55,1,56,1
2620 DATA 57,1,58,1,59,1,60,1,61,1,62,1,63,1,64,1,65,8,0,4
2630 DATA 65,8,64,1,63,1,62,1,61,1,60,1,59,1,58,1,57,1
2640 DATA 56,1,55,1,54,1,53,1,52,1,51,1,50,1,49,1,48,1
2650 DATA 47,1,46,1,45,1,44,1,43,1,42,1,41,1,40,1,39,1,38,8,-1
2660 'Sakura
2670 DATA 49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4,49,8,51,8,52,8,51,8
2680 DATA 49,8,51,4,49,4,45,16,44,8,40,8,44,8,45,8
2690 DATA 44,8,44,4,40,4,39,16,49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4
2700 DATA 40,8,44,8,45,8,49,8,51,4,49,4,45,8,44,16,-1