1 *|---------------------------- *| (c) Channel-X 1987 *|---------------------------- *| KEVAN MUSIC #6 *|---------------------------- 2MODE7:VDU23;8202;0;0;0; 3GOSUB1800 4ONERROREND 30ENVELOPE2,7,1,-1,1,1,1,1,126,0,-5,- 10,120,0 60TEMP=1:KEY=0:W=9:V=126:K1=0:K2=0:C1 =0 70DIMMUS$(3),E(3),N(3),W(70) 90ENVELOPE1,1,0,0,0,0,0,0,95,-20,-10, -4,95,0 100ENVELOPE3,2,1,-1,1,1,2,1,29,-4,0,-2 ,116,92 120ENVELOPE4,2,0,0,0,0,0,0,100,60,0,-2 ,V-20,V-40 130ENVELOPE5,1,0,0,0,0,0,0,126,-12,-6, -2,110,0 140ENVELOPE6,5,1,-1,1,1,2,1,90,-1,-2,- 1,90,20 150ENVELOPE7,1,0,0,0,0,0,0,110,-2,-1,- 4,V,0 160P$="F000123245523236789:9;<01232323 6789:9;<0=>?@A6789:9EB9:D;B9:D;C" 170FORJ=1TOLEN(P$) 180D%=ASC(MID$(P$,J,1))-&30 190REL%=D%*60+410 200RESTORE REL%:PROCP(D%):NEXT 220END 230DEFPROCP(D%) 240FORX=0TO3:READE(X):NEXT 250FORX=0TO3:READMUS$(X):NEXT 260FORL=1TOLENMUS$(1) 270C=C+1 280DEL=W-12*(D%<6ORD%>8) 290T=DEL+TIME 300FORV=1TO3 310P=4*ASC(MID$(MUS$(V),L,1)) 320B%=V OR &200 330B%=B%OR-&1000*(P=128) 340P=P+(KEY*4)-91*(V=1ANDE(V)=0) 350SOUNDB%,E(V),P,TEMP 370NEXT 380P=ASC(MID$(MUS$(0),L,1))-&30:SOUND- &1000*(P=-16),E(0),P,1 390FORF=1TO80:NEXT 391NEXT 400ENDPROC 410DATA1,4,5,5 420DATA"444444445555466665544444445546 66" 430DATA"K N P Q R K N P Q R " 440DATA" " 450DATA" " 460:::::::::::::::::::::::::::::::::: 470DATA1,4,2,3 480DATA"444444445555466665544444445546 66" 490DATA"K N P Q R K N P Q R " 500DATA" W " 510DATA" " 520:::::::::::::::::::::::::::::::::: 530DATA1,4,2,6 540DATA"444444445555466665544444445546 66" 550DATA"K N P Q R K N P Q R " 560DATA"Z W Z WWW WZ W " 570DATA" N M K N M L K " 580::::::::::::::::::::::::::::::::: 590DATA1,4,2,6 600DATA"444444445555466665544444445546 66" 610DATA"K N P Q R K N P Q R " 620DATA"Z W Z WWW WU WW" 630DATA" N M K N M L K " 640::::::::::::::::::::::::::::::::: 650DATA1,4,2,6 660DATA"444444445555466665544444445546 66" 670DATA"K N P Q R K N P Q R " 680DATA"Z W Z WWW WU W U " 690DATA" N M K N M L K " 700::::::::::::::::::::::::::::::::: 710DATA1,4,2,6 720DATA"444444445555466665544444445546 66" 730DATA"K N P Q R K N P Q R " 740DATA" N W U N " 750DATA" W W M K ZZ WW M L K " 760::::::::::::::::::::::::::::::::: 770DATA1,5,2,6 780DATA"444444445555466665544444445546 66" 790DATA"M M O M M O " 800DATA"Y YY Y[ [[Y YY Y[ ^^" 810DATA"M P R M P R " 820::::::::::::::::::::::::::::::::: 830DATA1,4,2,6 840DATA"4444444455554666" 850DATA"M M O " 860DATA"£ ^½ [^ ^ ^^" 870DATA"M P R " 880::::::::::::::::::::::::::::::::: 890DATA1,4,2,7 900DATA"445 445 44544566" 910DATA"M M O NPN M " 920DATA"a ^ a ^ a ^ a c " 930DATA"U U U " 940::::::::::::::::::::::::::::::::: 950DATA1,4,2,3 960DATA"444444445555466665544444445546 66" 970DATA"K N P Q R K N P N P N " 980DATA"f c a c a ^ a c " 990DATA" Z W Z Z ZZ W " 1000::::::::::::::::::::::::::::::::: 1010DATA1,4,2,3 1020DATA"444444445555466665544444445546 66" 1030DATA"K N P Q R K N P NPN M " 1040DATA"f c a c a ^ a c " 1050DATA" Z W Z Z ZZ W " 1060::::::::::::::::::::::::::::::::: 1070DATA1,4,2,3 1080DATA"444444445555466644444444" 1090DATA"K N P Q R K N " 1100DATA"f f f fc cc c ccf f f fc" 1110DATA"W W W WW WW W WWW W W WW" 1120::::::::::::::::::::::::::::::::: 1130DATA5,4,2,3 1140DATA" 5 6 " 1150DATA"P NPN M " 1160DATA" " 1170DATA" " 1180::::::::::::::::::::::::::::::::: 1190DATA1,4,6,4 1200DATA"444444445555466665544444445546 66" 1210DATA"K N P Q R K N P Q R " 1220DATA" e cec ^ ½[Z W " 1230DATA" " 1240::::::::::::::::::::::::::::::::: 1250DATA1,4,6,4 1260DATA"444444445555466665544444445546 66" 1270DATA"K N P Q R K N P Q R " 1280DATA"c a^½ZW Z W c c c c c c ca aa" 1290DATA" W Y Z ½ ] ^ " 1300::::::::::::::::::::::::::::::::: 1310DATA1,4,6,4 1320DATA"444444445555466665544444445546 66" 1330DATA"K N P Q R K N P Q R " 1340DATA"£aaa£aaa£aaa£aaa£aaa£aaa£aaa£a aa" 1350DATA" " 1360::::::::::::::::::::::::::::::::: 1370DATA1,4,6,4 1380DATA"444444445555466665544444445546 66" 1390DATA"K N P Q R K N P Q R " 1400DATA"^ ½ Z Y W^ c ah fah fah f " 1410DATA" " 1420:::::::::::::::::::::::::::::::: 1430DATA1,4,6,4 1440DATA"444444445555466665544444445546 66" 1450DATA"K N P Q R K N P N P N " 1460DATA"^ ½ Z Y W^ c ah fah fah j " 1470DATA" " 1480::::::::::::::::::::::::::: 1490DATA1,4,2,3 1500DATA"44554666" 1510DATA"P NPN M " 1520DATA" ^ a c " 1530DATA" " 1540::::::::::::::::::::::::::::::::: 1550DATA4,0,0,0 1560DATA" 4 5 " 1570DATA" K " 1580DATA" R " 1590DATA" Z " 1600:::::::::::::::::::::::::::::::: 1610DATA1,4,2,3 1620DATA"444444445555466665544444445546 66" 1630DATA"K N P Q R K N P N P N " 1640DATA"c a c a c a c a " 1650DATA" Z W Z Z ZZ W " 1660::::::::::::::::::::::::::::: 1670DATA1,4,3,2 1680DATA"444444445555466644444444" 1690DATA"K N P Q R K N " 1700DATA"Z Z Z ZW WW W WWZ Z Z ZW" 1710DATA" c c c " 1720::::::::::::::::::::::::::::: 1730DATA0,4,2,3 1740DATA"" 1750DATA"K M O P " 1760DATA"P R T U " 1770DATA" " 1800PRINT"    AN D          5o¶% /¶5   5j¶ ¶?%" 1810PRINT"    %*/*%//%"''"    ''"    GRAFIX BY    1820PRINT"       James  Lawson              1830PRINT"   1831PRINT'"         1835RETURN 1840:::::::::::::::::::::::::::::: 1850|: Don't forget the requests!! 1860:::::::::::::::::::::::::::::: 1870|: CCL4 On 0482 655798 1880::::::::::::::::::::::::::::::