1 ON ERRORCHAIN":0.!MENU" 2 ENVELOPE1,0,0,0,0,0,0,0,126,-4,-2,-4,50,60 3 ENVELOPE2,0,0,0,0,0,0,0,126,-4,-3,-3,126,100 4 ENVELOPE3,1,0,0,0,0,0,0,63,43,0,-63,63,126 5 ENVELOPE4,1,0,0,0,0,0,0,63,43,0,-63,63,100 20 PROCPIANO 30 PROCTRUMPET 35 ASDF=INKEY(100) 50 PROCPIANOSOLO 55 TIME=0:REPEATUNTILTIME=53 60 PROCBASS 70 PROCFINALE 3000 DEF PROCINTRO 3010 FOR HI_HAT=1TO4 3020 SOUND0,1,4,6:SOUND0,1,4,4:SOUND0,1,4,2: SOUND1,0,0,12:SOUND2,0,0,12:SOUND3,0,0,12 3030 NEXT 3040 ENDPROC 4000 DEF PROCPIANO 4020 REPEAT 4030 READ CHANNEL 4040 IF CHANNEL=256 ENDPROC 4050 READ PITCH 4060 READ BEAT 4070 IF CHANNEL=0X=1ELSEX=2 4080 SOUNDCHANNEL,X,PITCH,BEAT 4090 UNTILCHANNEL=256 4100 ENDPROC 4110 RUN 4120 SOUND0,1,4,4 4130 SOUND0,1,4,2 4140 GOTO4622 4150 DATA0,4,6,1,149,40,2,129,40,3,117,40,0,4,4,0,4,2,0,4,6,0,4,4,0,4,2,0,4,6 4160 DATA0,4,4,0,4,2,0,4,6,1,149,8,2,129,8,3,117,8,0,4,4,0,4,2,1,149,40,2,129,40,3,117,40,0,4,6,0,4,4,0,4,2 4170 DATA0,4,6,0,4,4,0,4,2,0,4,6,1,149,8,2,129,8,3,117,8,0,4,4,0,4,2,1,149,40,2,137,40,3,113,40,0,4,6,0,4,4,0,4,2 4180 DATA0,4,6,0,4,4,0,4,2,0,4,6,1,149,8,2,137,8,3,113,8,0,4,4,0,4,2,1,149,40,2,129,40,3,117,40,0,4,6,0,4,4,0,4,2,0,4,6,0,4,4,0,4,2 4190 DATA0,4,6,0,4,4,0,4,2,0,4,6,1,149,8,2,129,8,3,117,8,0,4,4,0,4,2,1,157,16,2,145,16,3,129,16,0,4,6,0,4,4,0,4,2,0,4,6,0,4,4,0,4,2 4200 DATA0,4,6,1,157,8,2,145,8,3,129,8,0,4,4,0,4,2,1,149,16,2,137,16,3,113,16,0,4,6,0,4,4,0,4,2,0,4,6,0,4,4,0,4,2 4210 DATA0,4,6,1,149,8,2,137,8,3,113,8,0,4,4,0,4,2,1,149,6,2,129,6,3,117,6,1,149,6,2,129,6,3,117,6,0,4,6,0,4,4,0,4,2,0,4,6,0,4,4,0,4,2 4220 DATA0,4,6,1,149,6,2,129,6,3,117,6,0,4,4,0,4,2,1,149,6,2,129,6,3,117,6,1,145,3,2,109,3,3,33,3,1,145,6,2,109,6,3,33,6,0,4,6,0,4,4,0,4,2,1,145,16,2,109,16,3,33,16,256 5000 DEF PROCTRUMPET 5010 RESTORE10000 5020 REPEAT 5030 READ CHANNEL :IFCHANNEL=256 GOTO5080 5040 READ ENV 5050 READ PITCH 5060 READ BEAT 5070 SOUNDCHANNEL,ENV,PITCH,BEAT 5080 UNTIL CHANNEL=256 5090 ENDPROC 10000 DATA0,1,4,6,0,1,4,4,0,1,4,2,1,2,5,2,2,2,117,2,3,2,149,2,1,0,0,4,2,0,0,4,3,0,0,4 10010 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,53,4,1,3,65,2,2,0,0,6,3,0,0,6 10020 DATA 1,3,73,4,1,3,81,2,2,0,0,6,3,0,0,6 10030 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,77,4,1,3,73,2,2,0,0,6,3,0,0,6 10040 DATA 1,3,65,4,1,3,53,2,2,0,0,6,3,0,0,6 10050 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,45,4,1,3,33,2,2,0,0,6,3,0,0,6 10060 DATA 1,3,45,4,1,3,53,8,2,0,0,4,2,2,117,8,3,0,0,4,3,2,149,8 10070 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,2,5,4,1,3,101,2,2,2,117,4,2,0,0,2,3,2,149,4,3,0,0,2 10080 DATA 1,3,93,4,1,3,81,2,2,0,0,6,3,0,0,6 10090 DATA 1,3,73,4,1,3,65,2,2,0,0,6,3,0,0,6 10100 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,73,4,1,3,81,6,2,0,0,6,3,0,0,6 10110 DATA 1,3,81,6,2,0,0,6,3,0,0,6 10120 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,81,6,2,0,0,6,3,0,0,6 10130 DATA 2,0,0,4,3,0,0,4,1,2,5,8,2,2,117,8,3,2,149,8 10140 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,2,25,4,2,3,81,2,2,3,77,2,2,0,0,2,3,2,137,4,3,0,0,2,1,3,73,2 10150 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,65,4,1,3,53,2,2,0,0,6,3,0,0,6 10160 DATA 1,3,45,4,1,3,33,2,2,0,0,6,3,0,0,6 10170 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,45,4,1,3,53,2,2,0,0,6,3,0,0,6 10180 DATA 1,3,65,4,1,3,73,2,2,0,0,6,3,0,0,6 10190 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,77,4,1,3,81,2,2,0,0,6,3,0,0,6 10200 DATA 1,3,73,4,1,3,65,8,2,0,0,4,2,2,25,8,3,0,0,4,3,2,89,8 10210 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,2,5,4,1,3,53,2,2,2,117,4,2,0,0,2,3,2,149,4,3,0,0,2 10220 DATA 1,3,65,4,1,3,73,2,3,0,0,6,2,0,0,6 10230 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,77,4,1,3,81,2,2,0,0,6,3,0,0,6 10240 DATA 1,3,101,4,1,3,109,2,2,0,0,6,3,0,0,6 10250 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,113,4,1,3,109,2,2,0,0,6,3,0,0,6 10260 DATA 1,3,97,4,1,3,101,6,2,0,0,10,3,0,0,10 10270 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,2,5,8,2,2,117,8,3,2,149,8 10275 DATA 1,2,33,4,2,2,109,4,3,2,145,4,1,3,53,2,2,0,0,2,3,0,0,2 10280 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,73,2,1,3,77,2,1,3,81,2,2,0,0,6,3,0,0,6 10290 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,73,4,1,3,65,8,2,0,0,4,3,0,0,4,2,2,33,8,3,2,145,8 10300 DATA 1,2,25,4,2,2,113,4,3,2,137,4,1,3,53,2,2,0,0,2,3,0,0,2 10310 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,77,4,1,3,81,2,2,0,0,6,3,0,0,6 10320 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,93,4,1,3,101,8,2,0,0,4,3,0,0,4,2,2,25,8,3,2,137,8 10330 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,101,4,1,3,93,2,2,2,5,4,2,0,0,2,3,2,117,4,3,0,0,2 10340 DATA 1,3,81,4,1,3,73,2,2,2,5,6,3,2,117,6 10350 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,65,4,1,3,73,2,2,2,5,6,3,2,117,6 10360 DATA 1,3,81,4,1,3,73,6,2,2,5,6,3,2,117,6 10370 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,3,81,6,2,2,33,4,2,2,33,6,3,2,145,4,3,2,145,6 10380 DATA 1,3,93,6,2,2,33,14,3,2,145,14 10390 DATA 0,1,4,6,0,1,4,4,0,1,4,2,0,1,4,6,0,1,4,4,0,1,4,2,1,3,101,6,1,3,101,2,256 11000 DEFPROCPIANOSOLO 11010 ENVELOPE1,1,0,0,0,0,0,0,126,-10,-5,-2,110,100 11020 ENVELOPE2,3,0,0,0,0,0,0,126,-8,-4,-1,126,100 11030 ENVELOPE3,1,0,0,0,0,0,0,126,-8,-4,-1,126,126 11050 RESTORE12000 11060 REPEAT 11070 READ CHANNEL 11080 READ ENV 11090 READ PITCH 11100 READ BEAT 11110 SOUNDCHANNEL,ENV,PITCH,BEAT 11120 UNTIL CHANNEL=256 11130 ENDPROC 12000 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,101,4,1,3,101,6 12010 DATA 2,2,5,6,3,2,41,6,1,3,113,6 12020 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,101,2 12030 DATA 2,2,5,6,3,2,41,6,1,3,93,4,1,3,101,3 12040 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,113,4,1,3,121,6 12050 DATA 2,2,5,6,3,2,41,6,1,3,125,8 12052 DATA 2,2,5,6,3,2,33,6 12055 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,41,6,1,0,0,4 12060 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,128,4,1,3,141,2 12070 DATA 2,2,5,6,3,2,41,6 12080 DATA 2,2,5,6,3,2,33,6,1,3,149,4,1,3,161,2 12090 DATA 2,2,5,6,3,2,41,6 ,1,3,169,4,1,3,173,2 12100 DATA 0,1,6,6,0,1,4,4,0,1,6,2,1,3,169,4,1,3,161,2 12110 DATA 2,2,5,6,3,2,33,6,1,3,149,4,1,3,141,6 12120 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,41,6,1,3,145,2,1,3,149,14 12130 DATA 2,2,5,6,3,2,33,6 12140 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,41,6 12150 DATA 2,2,5,6,3,2,25,6,1,3,149,2,1,3,129,2,1,3,149,2 12160 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,13,6,3,2,25,6,1,3,125,2,1,3,149,2,1,3,129,2 12170 DATA 2,2,5,6,3,2,25,6,1,3,149,2,1,3,125,2,1,3,149,2 12180 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,13,6,3,2,25,6,1,3,129,2,1,3,149,2,1,3,125,2 12190 DATA 2,2,5,6,3,2,25,6,1,3,149,2,1,3,129,2,1,3,149,2 12200 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,13,6,3,2,25,6,1,3,125,2,1,3,149,2,1,2,129,10 12210 DATA 2,2,5,6,3,2,25,6 12220 DATA 2,2,13,6,3,2,25,6,1,3,141,2 12230 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,129,2,1,3,125,2,1,3,121,2 12240 DATA 2,2,5,6,3,2,41,6,1,3,113,4,1,3,101,8 12250 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,93,4,1,3,101,2 12260 DATA 2,2,5,6,3,2,41,6 12270 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,3,113,4,1,3,121,2 12280 DATA 2,2,5,6,3,2,41,6,1,3,125,4,1,3,129,14 12290 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6 12300 DATA 2,2,5,6,3,2,41,6 12305 DATA 0,1,6,6,0,1,4,4,0,1,6,2 12310 DATA 0,2,4,24,2,2,13,24,3,2,33,24,1,3,129,2,1,3,141,2,1,3,149,2,1,3,161,2,1,3,169,2,1,3,173,2,1,3,177,2,1,3,189,2,1,3,177,2 12320 DATA 1,3,169,2,1,3,161,2,1,3,149,2 12330 DATA 0,2,4,24,2,2,5,24,3,2,25,24,1,3,173,2,1,3,177,2,1,3,197,2,1,3,189,2,1,3,177,2,1,3,173,2,1,3,169,2,1,3,161,2,1,3,149,2,1,3,141,4,1,3,145,2 12340 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,2,149,6 12350 DATA 2,2,5,6,3,2,41,6,1,2,129,6 12360 DATA 0,1,6,6,0,1,4,4,0,1,6,2,2,2,5,6,3,2,33,6,1,2,125,6 12370 DATA 2,2,5,6,3,2,41,6,1,2,121,6 12380 DATA 0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,1,2,33,4,2,2,97,4,3,2,129,4,1,2,33,6,2,2,97,6,3,2,129,6,1,2,33,14,2,2,97,14,3,2,129,14,0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,0,1,4,2,256 13000 DEFPROCBASS 13005 *FX21,4 13006 *FX21,6 13007 *FX21,7 13008 *FX21,5 13010 RESTORE13500 13020 REPEAT 13030 READ CHANNEL 13040 READ ENV 13050 READ PITCH 13060 READ BEAT 13070 IF CHANNEL=1 THEN SOUNDCHANNEL,0,(PITCH-4),BEAT:CHANNEL=0:PITCH=3 13080 SOUNDCHANNEL,ENV,PITCH,BEAT 13090 UNTIL CHANNEL=256 13100 ENDPROC 13500 DATA 1,2,149,6,1,2,145,6,2,1,149,12,3,1,117,12 13510 DATA 1,2,141,6,1,2,137,6,2,0,149,12,3,0,117,12 13520 DATA 1,2,129,6,1,2,121,6,2,0,149,12,3,0,117,12 13530 DATA 1,2,117,6,1,2,129,6,2,0,149,12,3,0,117,12 13540 DATA 1,2,101,6,1,2,109,6,2,1,149,12,3,1,117,12 13550 DATA 1,2,117,6,1,2,121,6,2,0,149,12,3,0,117,12 13560 DATA 1,2,129,6,1,2,121,6,2,0,149,12,3,0,117,12 13570 DATA 1,2,109,6,1,2,129,6,2,0,149,12,3,0,117,12 13580 DATA 1,2,149,6,1,2,145,6,2,1,149,12,3,1,117,12 13590 DATA 1,2,141,6,1,2,137,6,2,0,149,12,3,0,117,12 13600 DATA 1,2,129,6,1,2,117,6,2,0,149,12,3,0,117,12 13610 DATA 1,2,121,6,1,2,125,6,2,0,149,12,3,0,117,12 13620 DATA 1,2,129,6,1,2,129,6,2,1,145,12,3,1,109,12 13630 DATA 1,2,121,6,1,2,109,6,2,0,149,12,3,0,117,12 13640 DATA 1,2,129,6,1,2,129,6,2,0,149,12,3,0,117,12 13650 DATA 1,2,129,6,1,2,129,6,2,0,149,12,3,0,117,12 13660 DATA 1,2,101,6,1,2,109,6,2,2,149,12,3,2,117,12 13670 DATA 1,2,117,6,1,2,121,6,2,0,149,12,3,0,117,12 13680 DATA 1,2,129,6,1,2,101,6,2,2,141,12,3,2,117,12 13690 DATA 1,2,109,6,1,2,117,6,2,0,149,12,3,0,117,12 13700 DATA 1,2,121,6,1,2,129,6,2,2,137,12,3,2,101,12 13710 DATA 1,2,137,6,1,2,149,6,2,0,149,12,3,0,117,12 13720 DATA 1,2,157,6,1,2,161,6,2,2,133,12,3,2,101,12 13730 DATA 1,2,165,6,1,2,157,6,2,0,149,12,3,0,117,12 13740 DATA 1,2,149,6,1,2,145,6,2,2,149,12,3,2,117,12 13750 DATA 1,2,141,6,1,2,137,6,2,0,149,12,3,0,117,12 13760 DATA 1,2,129,6,1,2,121,6,2,2,145,12,3,2,109,12 13770 DATA 1,2,117,6,1,2,109,6,2,0,149,12,3,0,117,12 13780 DATA 1,2,101,6,2,2,149,6,3,2,117,6 13790 DATA 0,1,5,2,0,1,5,2,0,1,5,2,0,1,6,2,0,1,6,2,0,1,6,2,0,1,6,2,0,1,6,2,0,1,6,2,0,1,4,2,0,1,4,2,0,1,4,2,0,1,5,2,0,1,5,2,0,1,5,2,0,1,6,2,0,1,6,2,0,1,6,2,0,1,5,2,0,1,5,2,0,1,5,2 13795 DATA 2,0,149,42,3,0,117,42,256 14000 DATA 0,7,0 15000 DEFPROCstarkey 15010 *KEY0 DATA 15020 *KEY1 0,1,6,6,0,1,4,6, 15030 *KEY2 1,2,5,6,1,2,21,6,1,2,33,6,1,2,41 15040 *KEY3 1,2,45,6,1,2,41,6,1,2,33,6,1,2,21 15050 *KEY4 1,2,25,6,1,2,41,6,1,2,53,6,1,2,61 15060 *KEY5 1,2,65,6,1,2,61,6,1,2,53,6,1,2,41 15070 *KEY6 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,2 15080 15090 15100 *KEY9 G.50|M 15110 ENDPROC 16000 DEFPROCFINALE 16010 RESTORE52 16014 TIME=0:REPEATUNTILTIME=50 16015 *FX21,4 16016 *FX21,5 16017 *FX21,6 16018 *FX21,7 16020 REPEAT 16030 READ CHANNEL 16035 IF CHANNEL=256 GOTO 3616 16040 READ ENV 16050 READ PITCH 16060 READ BEAT 16070 SOUNDCHANNEL,ENV,PITCH,BEAT 16080 UNTIL CHANNEL=256 16090 ENDPROC 16500 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16510 DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2,41,6 16520 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,2 16530 DATA 3,4,69,24 16540 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16550 DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2,21,6 16560 DATA 3,4,69,24 16570 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,15 16580 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16590 DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2,41,6 16600 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,2 16610 DATA 3,4,69,24 16620 DATA 0,1,6,6,0,1,4,6 16630 DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2,21,6 16640 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,12 16650 DATA 3,4,69,24 16660 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16670 DATA 1,2,25,6,1,2,41,6,1,2,53,6,1,2,61,6 16680 DATA 2,2,73,4,2,2,89,2,2,2,101,4,2,2,73,2,2,2,89,4,2,2,101,2 16690 DATA 3,4,65,24 16700 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16710 DATA 1,2,65,6,1,2,61,6,1,2,53,6,1,2,41,6 16720 DATA 2,2,73,4,2,2,89,2,2,2,101,4,2,2,73,2,2,2,89,4,2,2,101,14 16730 DATA 3,4,65,24 16740 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16750 DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2,41,6 16760 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,2 16770 DATA 3,4,69,24 16780 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16790 DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2,21,6 16800 DATA 2,2,69,4,2,2,81,2,2,2,101,4,2,2,69,2,2,2,81,4,2,2,101,14 16810 DATA 3,4,69,24 16820 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16830 DATA 1,2,13,6,1,2,21,6,1,2,25,6,1,2,29,6 16840 DATA 2,2,81,4,2,2,97,2,2,2,109,4,2,2,81,2,2,2,97,4,2,2,109,2 16850 DATA 3,4,73,24 16860 DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4,6 16870 DATA 1,2,33,6,1,2,25,6,1,2,21,6,1,2,13,6 16880 DATA 2,2,81,4,2,2,97,2,2,2,109,4,2,2,81,2,2,2,97,4,2,2,109,14 16890 DATA 3,4,73,24,256 20000 SOUND0,2,4,76:FORX=149TO5STEP-4:SOUND1,-15,X,2:SOUND2,2,X,2:SOUND3,4,X,2:NEXT 20005 SOUND0,1,4,4:SOUND0,1,4,4:SOUND1,0,5,10:SOUND2,0,69,10:SOUND3,0,93,10 20010 SOUND0,2,4,20:SOUND1,4,5,48:SOUND2,4,69,48:SOUND3,4,93,48