1 ON ERROR CLS:CHAIN"!MENU" 20 REPEAT 30 X=256 40 ENVELOPE1,1,0,0,0,1,1,1,126,-30,-10,-1,126,-126 50 ENVELOPE2,1,0,0,0,1,1,1,60,-30,-1,-1,127,90 60 ENVELOPE3,1,0,0,0,1,1,1,126,-100,-10,-25,126,-126 70 ENVELOPE4,4,2,-2,0,1,1,1,0,0,0,0,126,126 80 ENVELOPE5,1,0,0,0,1,0,1,126,-126,-10,-25,80,-126 90 T=0 100 RESTORE 110 DIM A(4,X) 120 FORE=1TO4 130 FORF=1TO256 140 bass=1 150 READ A(E,F) 160 NEXT 170 NEXT 180 PROCintro 190 PROCtune 200 PROCtune 210 PROCchords 220 PROCchords 230 PROCtune 240 PROCAb_major 250 PROCchords 260 PROCquietbit 270 END 280 DEFPROCsound(C,V) 290 D=3 300 O=3:IF bass=1 AND C=1 O=2 310 IF C=2 AND A(C,V)>200 O=5 320 IF A(C,V)=-1 OR A(C,V)=999 O=0 330 IF A(C,V)>1000 O=4:A(C,V)=A(C,V)-1000 340 P=A(C,V)+T 350 IF P=4 AND C=4 P=5:GOTO370 360 IF P=5 AND C=4 O=1:P=4 370 IF C=4 C=0 380 SOUNDW+C,O,P,D 390 ENDPROC 400 DEFPROCplay(S,F):IF S=65 bass=0 ELSE bass=1 410 FORH=S TO F 420 FORG=1TO4 430 PROCsound(G,H) 440 NEXT 450 NEXT 460 ENDPROC 470 DATA121,121,121,999,133,133,133,121,999,121,141,141,121,121,113,113,121,121,121,999,149,149,149,121,999,121,153,153,149,149,133,133,121,121,149,149,169,169,121,113,999,113,101,101,129,129,121,121,121,121,121,121,121,121,121,121,121,121 480 DATA121,121,121,121,121,999 490 : 500 DATA 999,999,149,999,149,999,149,161,999,161,999,161,157,999,157,999,999,999,149,999,149,999,149,161,999,161,157,999,149,999,999,999,999,999,133,999,133,999,133,999,133,141,999,141,999,999,999,999,999,999 510 DATA 149,999,149,999,149,999,141,149,999,149,999,999,999,999 520 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 530 DATA-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1 540 DATA161,149,141,133,133,141,141,149,161,161,149,149,141,141,133,133,161,149,141,133,133,141,141,149,161,161,149,149,141,141,133,133 550 DATA161,153,141,133,133,141,141,153,161,161,153,153,141,141,133,133,161,153,141,133,133,141,141,153,161,161,153,153,141,141,133,133 560 REM*************************************************************************************************************************************************************************************************************************************** 570 : 580 DATA217,-1,217,-1,209,217,-1,217,-1,217,217,217,209,217,-1,-1,217,209,217,229,237,229,217,209,217,209,217,229,237,229,217,209,217,-1,217,-1,209,217,-1,217,-1,217,217,217,209,217,-1,-1,217,209,217,229,237,229,217,209 590 DATA217,209,217,229,237,229,217,209 600 DATA 217,999,137,999,137,999,137,129,999,129,999,129,121,999,121,999,999,999,137,999,137,999,137,129,999,129,121,999,137,999,999,999,999,999,121,999,121,999,121,999,121,129,999,129,999,999,999,999,999,999 610 DATA 137,999,137,999,137,999,129,137,999,137,999,999,999,999 620 DATA133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 630 DATA133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 640 DATA133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 650 DATA133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999,133,999,999,113,999,999,133,999,999,113,999,999,133,999,113,999 660 : 670 REM*************************************************************************************************************************************************************************************************************************************** 680 DATA25,999,999,999,73,999,999,65,999,65,53,999,5,999,17,999,25,999,999,999,73,999,999,999,999,65,53,999,65,999,73,999,9,999,999,999,57,999,999,65,999,65,53,999,65,999,25,999,73,999,999,999,999,999,999,999,999,65,53,999,45,999,37,999 690 : 700 DATA25,999,999,999,73,999,999,65,999,65,53,999,5,999,17,999,25,999,999,999,73,999,999,999,999,65,53,999,65,999,73,999,9,999,999,999,57,999,999,65,999,65,53,999,65,999,25,999,73,999,999,999,999,999,999,999,999,65,53,999,45,999,37,999 710 DATA37,999,999,999,85,999,999,77,999,77,65,999,77,999,85,999,25,999,999,999,73,999,999,999,999,73,999,73,999,73,65,73,77,999,999,999,29,999,999,999,999,77,999,77,999,77,73,77,65,999,999,999,17,999,999,999,999,57,65,999,77,999,65,999 720 DATA37,999,999,999,85,999,999,77,999,77,65,999,77,999,85,999,25,999,999,999,73,999,999,999,999,73,999,73,999,73,65,73,77,999,999,999,29,999,999,999,999,77,999,77,999,77,73,77,65,999,999,999,17,999,999,999,999,57,65,999,77,999,65,999 730 : 740 REM drums (yippee!) 750 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,6,6,-1,4,-1,-1,-1 760 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 770 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 780 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 790 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 800 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 810 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 820 DATA 6,-1,-1,-1,4,-1,-1,6,-1,6,6,-1,4,-1,6,-1,6,-1,-1,-1,4,-1,-1,-1,-1,5,-1,5,5,5,-1,5 830 : 840 DEFPROCtune 850 W=&300 860 PROCplay(1,64) 870 ENDPROC 880 : 890 DEFPROCintro 900 W=0 910 FORF=1TO57 920 PROCsound(1,F) 930 NEXT 940 W=&300:PROCplay(58,64) 950 ENDPROC 960 : 970 DEFPROCchords 980 W=&300 990 PROCplay(65,128) 1000 ENDPROC 1010 : 1020 DEFPROCAb_major 1030 W=&300 1040 PROCplay(129,256) 1050 PROCplay(193,256) 1060 ENDPROC 1070 : 1080 DEFPROCquietbit 1090 W=0 1100 FORF=1TO32 1110 PROCsound(2,F) 1120 NEXT 1130 ENDPROC