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