0 ON ERROR CHAIN":2.!MAG" 1 CLS 80 DIMMUS$(3),E(3),N(3):TEMP=1:TU=0:W=5.5:KEY=0.5:VOL=126 90 FORT%=0TO3:SOUNDT%,0,2,1:NEXT 100 ENVELOPE1,1,0,0,0,0,0,0,127,-3,-5,-2,VOL,0 110 ENVELOPE2,2,0,0,0,0,0,0,127,0,-2,-3,VOL,0 120 ENVELOPE3,1,0,0,0,0,0,0,80,-2,0,-1,VOL-16,0 130 ENVELOPE4,4,1,-1,0,1,1,0,127,-20,-10,-3,VOL-16,0 140 ENVELOPE5,6,1,-1,0,1,1,0,127,0,-1,-3,VOL-46,0 150 ENVELOPE6,1,0,0,0,0,0,0,127,-5,-5,-2,VOL-16,0 160 ENVELOPE7,4,-48,1,-1,1,1,1,127,-1,-2,-3,VOL-16,0 170 ENVELOPE8,6,48,1,-1,1,1,1,127,0,-1,-3,VOL-46,0 180 ENVELOPE9,4,-1,0,0,100,0,0,0,0,0,0,0,0 190 ENVELOPE10,4,0,0,0,0,0,0,127,0,0,-2,VOL,0 200 ENVELOPE11,2,0,0,0,0,0,0,100,0,0,-1,VOL-36,0 210 ENVELOPE12,3,0,0,0,0,0,0,127,-6,-1,-2,VOL-6,0 220 P$="00771238:;<=5>?694@4BC@AMNOPQRST4BC@VVWXWYGHIJKLZ[\#4BC@#4BC@$$]" 230 FORJ%=1TOLENP$:D%=ASC(MID$(P$,J%,1))-&30 240 IFD%=-13TU=TU+12:GOTO 290 250 IFD%=-12TU=TU-12:GOTO 290 260 REL%=D%*50+430 280 RESTORE REL%:PROCP(D%) 290 NEXT 300 FORT=0TO62:PRINT:FORW=1TO75:NEXT:NEXT 310 CLS:OSCLI("DRIVE2"):CHAIN"!MAG" 320 DEFPROCP(D%):FORX%=0TO3:READE(X%):NEXT 330 FORX%=0TO3:READMUS$(X%):NEXT:FORL%=1TOLENMUS$(1):T=TIME+W 340 FORG%=1TO3 350 P=4*ASC(MID$(MUS$(G%),L%,1)):B%=G% OR &200:B%=B%OR-&1000*(P=128):P=P+(KEY*4)-91*(G%=1ANDE(G%)=0):ENV=E(G%) 360 SOUNDB%,ENV,P+TU,TEMP 370 Q%=Q%+1:IFQ%MOD3=0 THENPROCCH:Q%=1 380 NEXT 390 IFMUS$(0)=""SOUND-&1000*(MID$(MUS$(1),L%,1)=" "),E(0),3,TEMP ELSE P=ASC(MID$(MUS$(0),L%,1))-&30:SOUND-&1000*(P=-16),E(0),P,1 400 REPEATUNTILTIME-T>W:NEXT 410 ENDPROC 420 ::::TUNE DATA FOLLOWS::::::::::: 430 DATA1,0,0,0 440 DATA"" 450 DATA"I U UI R S I U UI S S SR " 460 DATA" " 470 DATA" " 480 DATA1,0,5,0 490 DATA"" 500 DATA"L X XL U V L X XL V V VU " 510 DATA"XXXXXXXXXXXXXXXXXXXXXXXXXXX " 520 DATA" " 530 DATA1,0,5,0 540 DATA"" 550 DATA"N Z ZN W X N Z ZN X X XW " 560 DATA"ZZZZZZZZZZZZZZZZZZZZZZZZZZZ " 570 DATA" " 580 DATA1,0,5,0 590 DATA"" 600 DATA"P \ \P Y Z P \ \P Z Z " 610 DATA"\\\\\\\\\\\\\\\\\\\\\\\\\\\ " 620 DATA" " 630 DATA1,0,4,7 640 DATA"" 650 DATA"I U UI R S N Z ZN X X XW " 660 DATA"U U U S U R PN Z " 670 DATA"U S R " 680 DATA1,0,4,0 690 DATA"" 700 DATA"A AHMA J K A AHMA J J JK " 710 DATA"T V T V T W V T T " 720 DATA" " 730 DATA1,0,4,0 740 DATA"" 750 DATA"A AHMA J K A AHMA R P " 760 DATA"]YW W Y Y ] Y ] W " 770 DATA" " 780 DATA1,0,6,0 790 DATA"" 800 DATA"I U UI R S I U UI S S SR " 810 DATA"U U U U U U U U " 820 DATA" " 830 DATA1,0,4,0 840 DATA"" 850 DATA"ZY " 860 DATA"R " 870 DATA" " 880 DATA1,0,7,0 890 DATA"" 900 DATA"A A A AA A A A E F G H " 910 DATA"MMMMMMMMMMMMMMMMQQQQRRRRSSSSTTTT" 920 DATA" " 930 DATA1,0,4,0 940 DATA"" 950 DATA"I U UI R S I U UI S S SR " 960 DATA"P R P R S R P " 970 DATA" " 980 DATA1,0,4,0 990 DATA"" 1000 DATA"I U UI R S I U UI S S SR " 1010 DATA"P R M P R P S R P " 1020 DATA" " 1030 DATA1,0,4,0 1040 DATA"" 1050 DATA"I U UI R S I U UI S S SR " 1060 DATA"P R P P R P S R P U U U " 1070 DATA" " 1080 DATA1,0,4,0 1090 DATA"" 1100 DATA"I U UI R S I U UI S S SR " 1110 DATA"Y U S U S U Y U S UUUUUUUUU " 1120 DATA" " 1130 DATA1,0,4,0 1140 DATA"" 1150 DATA"A AHMA J K A AHMA J J JK " 1160 DATA"T V Q T V T W V T " 1170 DATA" " 1180 DATA1,0,4,0 1190 DATA"" 1200 DATA"A AHMA J K A AHMA J J JK " 1210 DATA"T V T V W T V V T Y Y " 1220 DATA" " 1230 DATA1,0,4,7 1240 DATA"" 1250 DATA"I U UI R S N Z ZN X X XW " 1260 DATA"Y S S S U U " 1270 DATA"U S R " 1280 DATA1,0,1,0 1290 DATA"" 1300 DATA"I I III " 1310 DATA"I I III " 1320 DATA" " 1330 DATA1,0,4,7 1340 DATA"" 1350 DATA"I U UI R S N Z ZN X X XW " 1360 DATA"Y S S S U U Z " 1370 DATA"U S R " 1380 DATA1,0,4,7 1390 DATA"" 1400 DATA"I U UI R S N Z ZN X X XW " 1410 DATA"Y S S U R PN Z " 1420 DATA"U S R " 1430 DATA2,0,5,0 1440 DATA"" 1450 DATA"I I I I I I D " 1460 DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaaa" 1470 DATA" " 1480 DATA2,0,5,2 1490 DATA"" 1500 DATA"I I I I I I D " 1510 DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaaa" 1520 DATA" GS P P S UUU " 1530 DATA2,0,5,2 1540 DATA"" 1550 DATA"I I I I I I D " 1560 DATA"aaaaaaaaaaaaaaaaaaaaaaaaaaa " 1570 DATA" GS P P N UUUUUUUUU" 1580 DATA10,9,0,0 1590 DATA"" 1600 DATA"a " 1610 DATA" " 1620 DATA" " 1630 DATA1,0,4,6 1640 DATA"" 1650 DATA"I U UI R S N Z ZN X X XW " 1660 DATA"U U U S U R PN Z " 1670 DATA" aaeea __cc_ a N S R L I N " 1680 DATA1,0,4,6 1690 DATA"" 1700 DATA"I U UI R S N Z ZN X X XW " 1710 DATA"Y S S S U U Z " 1720 DATA" aaeea __cc_ a N S R L I N " 1730 DATA1,0,4,6 1740 DATA"" 1750 DATA"I U UI R S N Z ZN X X XW " 1760 DATA"Y S S U R PN Z " 1770 DATA" aaeea __cc_ a S R S R " 1780 DATA1,0,4,6 1790 DATA"" 1800 DATA"I U UI R S N " 1810 DATA"Y S S S U U " 1820 DATA" aaeea __cc_ a " 1830 DATA1,0,12,1 1840 DATA"" 1850 DATA" Z ZN X X XW I I I I I I I I " 1860 DATA" U" 1870 DATA"N S R L I L I I IIL I I IIL I I L I N I L I" 1880 DATA1,0,4,0 1890 DATA"" 1900 DATA"I U UI R S I U UI S S SR " 1910 DATA"P R P R S R P M " 1920 DATA" " 1930 DATA1,0,4,0 1940 DATA"" 1950 DATA"I U UI R S I U UI S S SR " 1960 DATA"P R P R S R P P " 1970 DATA" " 1980 DATA1,0,4,0 1990 DATA"" 2000 DATA"I U UI R S I U UI S S SR " 2010 DATA"P R P R S R P U " 2020 DATA" " 2030 DATA1,0,4,0 2040 DATA"" 2050 DATA"I U UI R S I U UI S S SR " 2060 DATA"Y U U U Y U UUUUUUUUU " 2070 DATA" " 2080 DATA1,0,4,0 2090 DATA"" 2100 DATA"A AHMA J K A AHMA J J JK " 2110 DATA"T V T V W V T T " 2120 DATA" " 2130 DATA1,0,4,0 2140 DATA"" 2150 DATA"A AHMA J K A AHMA J J JK " 2160 DATA"T T V T V T W W V T T " 2170 DATA" " 2180 DATA1,0,4,0 2190 DATA"" 2200 DATA"A AHMA J K A AHMA J J JK " 2210 DATA"T V T V W V T Y Y " 2220 DATA" " 2230 DATA1,0,4,0 2240 DATA"" 2250 DATA"A AHMA J K A AHMA R P " 2260 DATA"]YW W Y Y Y ] Y ] W " 2270 DATA" " 2280 DATA1,0,0,0 2290 DATA"" 2300 DATA"I U UI R S N Z ZN X X XW " 2310 DATA" " 2320 DATA" " 2330 DATA2,0,5,7 2340 DATA"" 2350 DATA"I I I I I I D D " 2360 DATA"UUUUUUUUSSSSSSSSRRRRRRRRPPPPPPPP" 2370 DATA"U " 2380 DATA2,0,5,7 2390 DATA"" 2400 DATA"I " 2410 DATA"UUU" 2420 DATA"U " 2430 DATA2,0,5,4 2440 DATA"" 2450 DATA" I I I I I D D " 2460 DATA"UUUUUSSSSSSSSRRRRRRRRPPPPPPPP" 2470 DATA"U_ \ \ Z aaa " 2480 DATA2,0,5,4 2490 DATA"" 2500 DATA" I I I I I D D " 2510 DATA"UUUUUSSSSSSSSRRRRRRRRPPPPPPPP" 2520 DATA"U_ \ \ Z aaaaaaaa" 2530 DATA1,0,12,6 2540 DATA"" 2550 DATA" I I I I I I I I I I I I I I I I " 2560 DATA"UU SSS " 2570 DATA" G S G S " 2580 DATA1,0,4,6 2590 DATA"" 2600 DATA"I I I I I I I I I I I I " 2610 DATA"SSSSSSSSSSSSPPPPRRRRRRRRRRR PPPPPPPPPPPP " 2620 DATA"G S G S G S G S " 2630 DATA1,0,4,0 2640 DATA"" 2650 DATA"I U J V K W L X " 2660 DATA" P U Z " 2670 DATA" " 2680 DATA1,0,4,4 2690 DATA"" 2700 DATA"O " 2710 DATA"MMMO " 2720 DATA"MMMO " 2730 DEFPROCCH 2740 VDU31,3,2,((C%+3) MOD 7)+145 2750 VDU31,3,3,((C%+2) MOD 7)+145 2760 VDU31,3,4,((C%+1) MOD 7)+145 2770 VDU31,3,5,(C% MOD 7)+145 2780 C%=C%+1 2790 ENDPROC