1 *|---------------------------- *| (c) Channel-X 1987 *|---------------------------- *| KEVAN MUSIC #6 *|---------------------------- 2 MODE7:VDU23;8202;0;0;0; 3 GOSUB1800 4 ONERROREND 30 ENVELOPE2,7,1,-1,1,1,1,1,126,0,-5,-10,120,0 60 TEMP=1:KEY=0:W=9:V=126:K1=0:K2=0:C1=0 70 DIMMUS$(3),E(3),N(3),W(70) 90 ENVELOPE1,1,0,0,0,0,0,0,95,-20,-10,-4,95,0 100 ENVELOPE3,2,1,-1,1,1,2,1,29,-4,0,-2,116,92 120 ENVELOPE4,2,0,0,0,0,0,0,100,60,0,-2,V-20,V-40 130 ENVELOPE5,1,0,0,0,0,0,0,126,-12,-6,-2,110,0 140 ENVELOPE6,5,1,-1,1,1,2,1,90,-1,-2,-1,90,20 150 ENVELOPE7,1,0,0,0,0,0,0,110,-2,-1,-4,V,0 160 P$="F000123245523236789:9;<012323236789:9;<0=>?@A6789:9EB9:D;B9:D;C" 170 FORJ=1TOLEN(P$) 180 D%=ASC(MID$(P$,J,1))-&30 190 REL%=D%*60+410 200 RESTORE REL%:PROCP(D%):NEXT 220 END 230 DEFPROCP(D%) 240 FORX=0TO3:READE(X):NEXT 250 FORX=0TO3:READMUS$(X):NEXT 260 FORL=1TOLENMUS$(1) 270 C=C+1 280 DEL=W-12*(D%<6ORD%>8) 290 T=DEL+TIME 300 FORV=1TO3 310 P=4*ASC(MID$(MUS$(V),L,1)) 320 B%=V OR &200 330 B%=B%OR-&1000*(P=128) 340 P=P+(KEY*4)-91*(V=1ANDE(V)=0) 350 SOUNDB%,E(V),P,TEMP 370 NEXT 380 P=ASC(MID$(MUS$(0),L,1))-&30:SOUND-&1000*(P=-16),E(0),P,1 390 FORF=1TO80:NEXT 391 NEXT 400 ENDPROC 410 DATA1,4,5,5 420 DATA"44444444555546666554444444554666" 430 DATA"K N P Q R K N P Q R " 440 DATA" " 450 DATA" " 460 :::::::::::::::::::::::::::::::::: 470 DATA1,4,2,3 480 DATA"44444444555546666554444444554666" 490 DATA"K N P Q R K N P Q R " 500 DATA" W " 510 DATA" " 520 :::::::::::::::::::::::::::::::::: 530 DATA1,4,2,6 540 DATA"44444444555546666554444444554666" 550 DATA"K N P Q R K N P Q R " 560 DATA"Z W Z WWW WZ W " 570 DATA" N M K N M L K " 580 ::::::::::::::::::::::::::::::::: 590 DATA1,4,2,6 600 DATA"44444444555546666554444444554666" 610 DATA"K N P Q R K N P Q R " 620 DATA"Z W Z WWW WU WW" 630 DATA" N M K N M L K " 640 ::::::::::::::::::::::::::::::::: 650 DATA1,4,2,6 660 DATA"44444444555546666554444444554666" 670 DATA"K N P Q R K N P Q R " 680 DATA"Z W Z WWW WU W U " 690 DATA" N M K N M L K " 700 ::::::::::::::::::::::::::::::::: 710 DATA1,4,2,6 720 DATA"44444444555546666554444444554666" 730 DATA"K N P Q R K N P Q R " 740 DATA" N W U N " 750 DATA" W W M K ZZ WW M L K " 760 ::::::::::::::::::::::::::::::::: 770 DATA1,5,2,6 780 DATA"44444444555546666554444444554666" 790 DATA"M M O M M O " 800 DATA"Y YY Y[ [[Y YY Y[ ^^" 810 DATA"M P R M P R " 820 ::::::::::::::::::::::::::::::::: 830 DATA1,4,2,6 840 DATA"4444444455554666" 850 DATA"M M O " 860 DATA"` ^\ [^ ^ ^^" 870 DATA"M P R " 880 ::::::::::::::::::::::::::::::::: 890 DATA1,4,2,7 900 DATA"445 445 44544566" 910 DATA"M M O NPN M " 920 DATA"a ^ a ^ a ^ a c " 930 DATA"U U U " 940 ::::::::::::::::::::::::::::::::: 950 DATA1,4,2,3 960 DATA"44444444555546666554444444554666" 970 DATA"K N P Q R K N P N P N " 980 DATA"f c a c a ^ a c " 990 DATA" Z W Z Z ZZ W " 1000 ::::::::::::::::::::::::::::::::: 1010 DATA1,4,2,3 1020 DATA"44444444555546666554444444554666" 1030 DATA"K N P Q R K N P NPN M " 1040 DATA"f c a c a ^ a c " 1050 DATA" Z W Z Z ZZ W " 1060 ::::::::::::::::::::::::::::::::: 1070 DATA1,4,2,3 1080 DATA"444444445555466644444444" 1090 DATA"K N P Q R K N " 1100 DATA"f f f fc cc c ccf f f fc" 1110 DATA"W W W WW WW W WWW W W WW" 1120 ::::::::::::::::::::::::::::::::: 1130 DATA5,4,2,3 1140 DATA" 5 6 " 1150 DATA"P NPN M " 1160 DATA" " 1170 DATA" " 1180 ::::::::::::::::::::::::::::::::: 1190 DATA1,4,6,4 1200 DATA"44444444555546666554444444554666" 1210 DATA"K N P Q R K N P Q R " 1220 DATA" e cec ^ \[Z W " 1230 DATA" " 1240 ::::::::::::::::::::::::::::::::: 1250 DATA1,4,6,4 1260 DATA"44444444555546666554444444554666" 1270 DATA"K N P Q R K N P Q R " 1280 DATA"c a^\ZW Z W c c c c c c caaa" 1290 DATA" W Y Z \ ] ^ " 1300 ::::::::::::::::::::::::::::::::: 1310 DATA1,4,6,4 1320 DATA"44444444555546666554444444554666" 1330 DATA"K N P Q R K N P Q R " 1340 DATA"`aaa`aaa`aaa`aaa`aaa`aaa`aaa`aaa" 1350 DATA" " 1360 ::::::::::::::::::::::::::::::::: 1370 DATA1,4,6,4 1380 DATA"44444444555546666554444444554666" 1390 DATA"K N P Q R K N P Q R " 1400 DATA"^ \ Z Y W^ c ah fah fah f " 1410 DATA" " 1420 :::::::::::::::::::::::::::::::: 1430 DATA1,4,6,4 1440 DATA"44444444555546666554444444554666" 1450 DATA"K N P Q R K N P N P N " 1460 DATA"^ \ Z Y W^ c ah fah fah j " 1470 DATA" " 1480 ::::::::::::::::::::::::::: 1490 DATA1,4,2,3 1500 DATA"44554666" 1510 DATA"P NPN M " 1520 DATA" ^ a c " 1530 DATA" " 1540 ::::::::::::::::::::::::::::::::: 1550 DATA4,0,0,0 1560 DATA" 4 5 " 1570 DATA" K " 1580 DATA" R " 1590 DATA" Z " 1600 :::::::::::::::::::::::::::::::: 1610 DATA1,4,2,3 1620 DATA"44444444555546666554444444554666" 1630 DATA"K N P Q R K N P N P N " 1640 DATA"c a c a c a c a " 1650 DATA" Z W Z Z ZZ W " 1660 ::::::::::::::::::::::::::::: 1670 DATA1,4,3,2 1680 DATA"444444445555466644444444" 1690 DATA"K N P Q R K N " 1700 DATA"Z Z Z ZW WW W WWZ Z Z ZW" 1710 DATA" c c c " 1720 ::::::::::::::::::::::::::::: 1730 DATA0,4,2,3 1740 DATA"" 1750 DATA"K M O P " 1760 DATA"P R T U " 1770 DATA" " 1800 PRINT" ﵖ 굒 " 1810 PRINT""''"ӠӮ"''" 𰠠￯ؠ٠뷣跣" 1820 PRINT"굠࿠굠󠠠￯迠뵠" 1830 PRINT"" 1831 PRINT'" CCL4 On 0482 655798"'" CCL4 On 0482 655798" 1835 RETURN 1840 :::::::::::::::::::::::::::::: 1850 |: Don't forget the requests!! 1860 :::::::::::::::::::::::::::::: 1870 |: CCL4 On 0482 655798 1880 ::::::::::::::::::::::::::::::