50 CLS 60 ENVELOPE1,1,0,0,0,1,1,1,60,-4,-1,-1,126,70 70 ENVELOPE2,1,0,0,0,1,1,1,60,-4,-1,-1,127,90 80 ENVELOPE3,1,0,0,0,1,1,1,60,-4,-1,-1,120,60 90 ENVELOPE4,1,0,0,0,1,1,1,60,-5,-5,-5,120,60 100 T=-33 110 RESTORE 120 DIMA(4,265) 130 FORE=1TO4 140 FORF=1TO265 150 READA(E,F) 160 NEXT 170 NEXT 180 PRINT''"Airwolf...Playing Now!" 190 PRINT"Airwolf...Playing Now!" 220 PROCplay(1,36) 230 PROCplay(1,36) 240 PROCplay(37,216) 250 PROCplay(1,36) 260 PROCplay(1,120) 270 PROCplay(217,265) 280 CLS 290 PRINT''"Finished. " 300 END 330 DEFPROCsound(C,V) 340 W=&300 350 D=3 360 O=C 370 IFA(C,V)=-1ORA(C,V)=999O=0 380 IFA(C,V)>1000O=4:A(C,V)=A(C,V)-1000 390 P=A(C,V):IFC<>4P=P+T 400 IF(C=2ORC=3)ANDV<=216P=P+48 410 IFO=3O=-12 420 IFV>216ANDO<>0O=1 430 IFC=4C=0 440 SOUNDW+C,O,P,D 450 ENDPROC 460 : 470 : 480 DEFPROCplay(S,F) 490 FORG=STOF 500 FORC=1TO4 510 PROCsound(C,G) 520 NEXT 530 NEXT 540 ENDPROC 550 : 560 : 570 REMch1(bass) 580 DATA 41,61,69,81,101,81,89,69 590 DATA 81,61,69,81,41,61,69,81,101 600 DATA 81,89,69,81,61,69,81,41,61 610 DATA 69,81,101,81,89,69,81,61 620 DATA 69,81 630 DATA 53,73,81,101,121,101,117,93,101,73,81,93 640 DATA 53,73,81,101,121,101,117,93,101,73,81,93 650 DATA 53,73,81,101,121,101,117,93,101,73,81,93 660 DATA 53,73,81,101,121,101,117,93,101,73,81,93 670 DATA 53,73,81,101,121,101,117,93,101,73,81,93 680 DATA 53,73,81,101,121,101,117,93,101,73,81,93 690 DATA 53,73,81,101,121,101,117,93,101,73,81,93 700 DATA 41,61,69,89,101,89,97,69,81,61,69,81 710 DATA 41,61,69,89,101,89,97,69,81,61,69,81 720 DATA 41,61,69,89,101,89,97,69,81,61,69,81 730 DATA 41,61,69,89,101,89,97,69,81,61,69,81 740 DATA 53,69,53,69,81,69,53,69,53,33,53,69 750 DATA 61,81,61,81,61,81,97,81,61,81,61,49 760 DATA 53,69,53,69,81,69,53,69,53,33,53,69 770 DATA 61,81,61,81,61,81,97,81,61,81,61,49 780 : 790 DATA 41,-1,-1,41,41,41 800 DATA 41,-1,-1,41,41,41 810 DATA 61,-1,-1,61,61,61 820 DATA 81,-1,-1,81,81,81 830 DATA 101,101,101,101,101,101 840 DATA 121,121,121,121,121,121 850 DATA 117,117,117,117,117,117 860 DATA 117,117,117,117,117,117 870 DATA 117 880 REMch2(tune) 890 DATA 41,41,41,61,69,81,89,89,89 900 DATA 101,97,81,89,89,89,101,97 910 DATA 81,89,89,89,81,81,97,69,69 920 DATA 69,61,61,81,53,53,61,49,49 930 DATA 33,53,53,53,73,81,93,101,101 940 DATA 101,121,117,93,101,101,101 950 DATA 121,117,93,101,101,101,93 960 DATA 93,109,81,81,81,73,73,93 970 DATA 69,69,73,61,61,45 980 DATA 53,53,53,73,81,93,101,101 990 DATA 101,121,117,93,101,101,101 1000 DATA 121,117,93,101,101,101 1010 DATA 141,137,121,129,129,129 1020 DATA129,129,129,129,129,129 1030 DATA129,129,129 1040 DATA129,129,129,129,129,129,129,129,129 1050 DATA129,129,129 1060 DATA 149,149,149,145,145,145 1070 DATA 129,129,129,137,137,137 1080 DATA 109,109,109,117,117,117 1090 DATA 97,97,97,109,109,109 1100 DATA 149,149,149,145,145,145 1110 DATA 129,129,129,137,137,137 1120 DATA 109,109,109,117,117,117 1130 DATA 97,97,97,109,109,109 1140 DATA 169,169,169,165,165,165 1150 DATA 129,129,129,149,149,149 1160 DATA 157,157,157,129,129,129 1170 DATA 145,145,145,157,157,157 1180 DATA 169,169,169,165,165,165 1190 DATA 129,129,129,149,149,149 1200 DATA 157,157,157,129,129,129 1210 DATA 145,145,145,157,157,157 1220 : 1230 DATA -1,-1,-1,-1,-1,-1 1240 DATA 61,-1,-1,61,61,61 1250 DATA 81,-1,-1,81,81,81 1260 DATA 101,-1,-1,101,101,101 1270 DATA 121,121,121,121,121,121 1280 DATA 141,141,141,141,141,141 1290 DATA 137,137,137,137,137,137 1300 DATA 137,137,137,137,137,137 1310 DATA 137 1320 REMch3(harmony) 1330 DATA 41,41,41,41,41,41,53,53,53 1340 DATA 61,61,61,69,69,69,69,69,69 1350 DATA 61,61,61,53,53,53,49,49,49 1360 DATA 33,33,33,21,21,21,33,33,33 1370 DATA 53,53,53,53,53,53,69,69,69 1380 DATA 73,73,73,81,81,81,81,81,81 1390 DATA 73,73,73,69,69,69,61,61,61 1400 DATA 45,45,45,33,33,33,45,45,45 1410 DATA 53,53,53,53,53,53,69,69,69 1420 DATA 73,73,73,81,81,81,81,81,81 1430 DATA 73,73,73,61,61,61,69,69,69 1440 DATA 69,69,69,69,69,69,69,69,69 1450 DATA 69,69,69,69,69,69,69,69,69 1460 DATA 69,69,69 1470 DATA 101,101,101,101,101,101 1480 DATA 101,101,101,101,101,101 1490 DATA 97,97,97,97,97,97 1500 DATA 97,97,97,97,97,97 1510 DATA 101,101,101,101,101,101 1520 DATA 101,101,101,101,101,101 1530 DATA 97,97,97,97,97,97 1540 DATA 97,97,97,97,97,97 1550 DATA 117,117,117,117,117,117 1560 DATA 117,117,117,117,117,117 1570 DATA 109,109,109,109,109,109 1580 DATA 109,109,109,109,109,109 1590 DATA 117,117,117,117,117,117 1600 DATA 117,117,117,117,117,117 1610 DATA 109,109,109,109,109,109 1620 DATA 109,109,109,109,109,109 1630 : 1640 DATA-1,-1,-1,-1,-1,-1 1650 DATA-1,-1,-1,-1,-1,-1 1660 DATA41,-1,-1,41,41,41 1670 DATA41,-1,-1,41,41,41 1680 DATA61,61,61,61,61,61 1690 DATA73,73,73,73,73,73 1700 DATA89,89,89,89,89,89 1710 DATA89,89,89,89,89,89 1720 DATA 89 1730 REMdrums! 1740 DATA 6,-1,-1,4,-1,-1 1750 DATA 6,-1,-1,4,-1,-1 1760 DATA 6,-1,-1,4,-1,-1 1770 DATA 6,-1,-1,4,5,5 1780 DATA 6,-1,-1,4,-1,-1 1790 DATA 6,-1,-1,4,-1,-1 1800 DATA 6,-1,-1,4,-1,-1 1810 DATA 6,-1,-1,4,-1,-1 1820 DATA 6,-1,-1,4,5,5 1830 DATA 6,-1,-1,4,-1,-1 1840 DATA 6,-1,-1,4,-1,-1 1850 DATA 6,-1,-1,4,-1,-1 1860 DATA 6,-1,-1,4,-1,-1 1870 DATA 6,-1,-1,4,5,5 1880 DATA 6,-1,-1,4,-1,-1 1890 DATA 6,-1,-1,4,-1,-1 1900 DATA 6,-1,-1,4,-1,-1 1910 DATA 6,-1,-1,4,-1,-1 1920 DATA 6,-1,-1,4,-1,-1 1930 DATA 6,-1,-1,4,4,4 1940 DATA 6,-1,-1,4,-1,-1 1950 DATA 6,-1,-1,4,-1,-1 1960 DATA 6,-1,-1,4,-1,-1 1970 DATA 6,-1,-1,4,-1,-1 1980 DATA 6,-1,-1,4,-1,-1 1990 DATA 6,-1,-1,4,-1,-1 2000 DATA 6,-1,-1,4,-1,-1 2010 DATA 6,4,4,4,4,4 2020 DATA 6,-1,-1,4,-1,-1 2030 DATA 6,-1,-1,4,-1,-1 2040 DATA 6,-1,-1,4,-1,-1 2050 DATA 6,-1,-1,4,-1,-1 2060 DATA 6,-1,-1,4,-1,-1 2070 DATA 6,-1,-1,4,-1,-1 2080 DATA 6,-1,-1,4,4,4 2090 DATA 5,5,5,6,6,6 2100 DATA -1,-1,-1,4,-1,-1 2110 DATA -1,-1,-1,4,-1,-1 2120 DATA -1,-1,-1,4,-1,-1 2130 DATA -1,-1,-1,4,-1,-1 2140 DATA 6,-1,-1,4,-1,-1 2150 DATA 6,-1,-1,4,-1,-1 2160 DATA 6,-1,-1,4,-1,-1 2170 DATA 6,4,5,5,6,6 2180 DATA 5