1ON ERRORCHAIN":0.!MENU" 2ENVELOPE1,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 4ENVELOPE3,1,0,0,0,0,0,0,63,43,0,-63 ,63,126 5ENVELOPE4,1,0,0,0,0,0,0,63,43,0,-63 ,63,100 20PROCPIANO 30 PROCTRUMPET 35ASDF=INKEY(100) 50PROCPIANOSOLO 55TIME=0:REPEATUNTILTIME=53 60PROCBASS 70PROCFINALE 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:SOUND 3,0,0,12 3030 NEXT 3040ENDPROC 4000DEF PROCPIANO 4020REPEAT 4030READ CHANNEL 4040IF CHANNEL=256 ENDPROC 4050READ PITCH 4060READ BEAT 4070IF CHANNEL=0X=1ELSEX=2 4080 SOUNDCHANNEL,X,PITCH,BEAT 4090UNTILCHANNEL=256 4100ENDPROC 4110RUN 4120SOUND0,1,4,4 4130SOUND0,1,4,2 4140GOTO4622 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,12 9,8,3,117,8,0,4,4,0,4,2,1,149,40,2,129,4 0,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,14 9,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,14 5,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 5010RESTORE10000 5020REPEAT 5030READ CHANNEL :IFCHANNEL=256 GOTO508 0 5040READ ENV 5050READ PITCH 5060READ BEAT 5070SOUNDCHANNEL,ENV,PITCH,BEAT 5080UNTIL CHANNEL=256 5090ENDPROC 10000DATA0,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 10010DATA 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,7 7,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,4 5,4,1,3,33,2,2,0,0,6,3,0,0,6 10060DATA 1,3,45,4,1,3,53,8,2,0,0,4,2,2, 117,8,3,0,0,4,3,2,149,8 10070DATA 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 10080DATA 1,3,93,4,1,3,81,2,2,0,0,6,3,0, 0,6 10090DATA 1,3,73,4,1,3,65,2,2,0,0,6,3,0, 0,6 10100DATA 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 10110DATA 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,8 1,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,1 17,8,3,2,149,8 10140 DATA 0,1,4,6,0,1,4,4,0,1,4,2,1,2,2 5,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,6 5,4,1,3,53,2,2,0,0,6,3,0,0,6 10160DATA 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,4 5,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,7 7,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 10210DATA 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,7 7,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,1 13,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 10280DATA 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 10290DATA 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,7 7,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,9 3,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,1 01,4,1,3,93,2,2,2,5,4,2,0,0,2,3,2,117,4, 3,0,0,2 10340DATA 1,3,81,4,1,3,73,2,2,2,5,6,3,2, 117,6 10350DATA 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 10360DATA 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,8 1,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,2 56 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 11050RESTORE12000 11060REPEAT 11070READ CHANNEL 11080READ ENV 11090READ PITCH 11100READ BEAT 11110SOUNDCHANNEL,ENV,PITCH,BEAT 11120UNTIL CHANNEL=256 11130ENDPROC 12000DATA 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,1 69,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,1 3,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,1 3,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,1 3,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,3 3,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 13010RESTORE13500 13020 REPEAT 13030READ CHANNEL 13040READ ENV 13050READ PITCH 13060READ BEAT 13070IF CHANNEL=1 THEN SOUNDCHANNEL,0,(P ITCH-4),BEAT:CHANNEL=0:PITCH=3 13080SOUNDCHANNEL,ENV,PITCH,BEAT 13090UNTIL CHANNEL=256 13100ENDPROC 13500DATA 1,2,149,6,1,2,145,6,2,1,149,12 ,3,1,117,12 13510DATA 1,2,141,6,1,2,137,6,2,0,149,12 ,3,0,117,12 13520DATA 1,2,129,6,1,2,121,6,2,0,149,12 ,3,0,117,12 13530DATA 1,2,117,6,1,2,129,6,2,0,149,12 ,3,0,117,12 13540DATA 1,2,101,6,1,2,109,6,2,1,149,12 ,3,1,117,12 13550DATA 1,2,117,6,1,2,121,6,2,0,149,12 ,3,0,117,12 13560DATA 1,2,129,6,1,2,121,6,2,0,149,12 ,3,0,117,12 13570DATA 1,2,109,6,1,2,129,6,2,0,149,12 ,3,0,117,12 13580DATA 1,2,149,6,1,2,145,6,2,1,149,12 ,3,1,117,12 13590DATA 1,2,141,6,1,2,137,6,2,0,149,12 ,3,0,117,12 13600DATA 1,2,129,6,1,2,117,6,2,0,149,12 ,3,0,117,12 13610DATA 1,2,121,6,1,2,125,6,2,0,149,12 ,3,0,117,12 13620DATA 1,2,129,6,1,2,129,6,2,1,145,12 ,3,1,109,12 13630DATA 1,2,121,6,1,2,109,6,2,0,149,12 ,3,0,117,12 13640DATA 1,2,129,6,1,2,129,6,2,0,149,12 ,3,0,117,12 13650DATA 1,2,129,6,1,2,129,6,2,0,149,12 ,3,0,117,12 13660DATA 1,2,101,6,1,2,109,6,2,2,149,12 ,3,2,117,12 13670DATA 1,2,117,6,1,2,121,6,2,0,149,12 ,3,0,117,12 13680DATA 1,2,129,6,1,2,101,6,2,2,141,12 ,3,2,117,12 13690DATA 1,2,109,6,1,2,117,6,2,0,149,12 ,3,0,117,12 13700DATA 1,2,121,6,1,2,129,6,2,2,137,12 ,3,2,101,12 13710DATA 1,2,137,6,1,2,149,6,2,0,149,12 ,3,0,117,12 13720DATA 1,2,157,6,1,2,161,6,2,2,133,12 ,3,2,101,12 13730DATA 1,2,165,6,1,2,157,6,2,0,149,12 ,3,0,117,12 13740DATA 1,2,149,6,1,2,145,6,2,2,149,12 ,3,2,117,12 13750DATA 1,2,141,6,1,2,137,6,2,0,149,12 ,3,0,117,12 13760DATA 1,2,129,6,1,2,121,6,2,2,145,12 ,3,2,109,12 13770DATA 1,2,117,6,1,2,109,6,2,0,149,12 ,3,0,117,12 13780DATA 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 14000DATA 0,7,0 15000DEFPROCstarkey 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 15110ENDPROC 16000DEFPROCFINALE 16010RESTORE16500 16014TIME=0:REPEATUNTILTIME=50 16015*FX21,4 16016*FX21,5 16017*FX21,6 16018*FX21,7 16020REPEAT 16030READ CHANNEL 16035IF CHANNEL=256 GOTO 20000 16040READ ENV 16050READ PITCH 16060READ BEAT 16070SOUNDCHANNEL,ENV,PITCH,BEAT 16080UNTIL CHANNEL=256 16090ENDPROC 16500DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16510DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2, 41,6 16520DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,2 16530DATA 3,4,69,24 16540DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16550DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2 ,21,6 16560DATA 3,4,69,24 16570DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,15 16580DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6,0,1,6,6,0,1,4,6 16590DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2, 41,6 16600DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,2 16610DATA 3,4,69,24 16620DATA 0,1,6,6,0,1,4,6 16630DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2 ,21,6 16640DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,12 16650DATA 3,4,69,24 16660DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16670DATA 1,2,25,6,1,2,41,6,1,2,53,6,1,2 ,61,6 16680DATA 2,2,73,4,2,2,89,2,2,2,101,4,2, 2,73,2,2,2,89,4,2,2,101,2 16690DATA 3,4,65,24 16700DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16710DATA 1,2,65,6,1,2,61,6,1,2,53,6,1,2 ,41,6 16720DATA 2,2,73,4,2,2,89,2,2,2,101,4,2, 2,73,2,2,2,89,4,2,2,101,14 16730DATA 3,4,65,24 16740DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16750DATA 1,2,5,6,1,2,21,6,1,2,33,6,1,2, 41,6 16760DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,2 16770DATA 3,4,69,24 16780DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16790DATA 1,2,45,6,1,2,41,6,1,2,33,6,1,2 ,21,6 16800DATA 2,2,69,4,2,2,81,2,2,2,101,4,2, 2,69,2,2,2,81,4,2,2,101,14 16810DATA 3,4,69,24 16820DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16830DATA 1,2,13,6,1,2,21,6,1,2,25,6,1,2 ,29,6 16840DATA 2,2,81,4,2,2,97,2,2,2,109,4,2, 2,81,2,2,2,97,4,2,2,109,2 16850DATA 3,4,73,24 16860DATA 0,1,6,6,0,1,4,6,0,1,6,6,0,1,4, 6 16870DATA 1,2,33,6,1,2,25,6,1,2,21,6,1,2 ,13,6 16880DATA 2,2,81,4,2,2,97,2,2,2,109,4,2, 2,81,2,2,2,97,4,2,2,109,14 16890DATA 3,4,73,24,256 20000SOUND0,2,4,76:FORX=149TO5STEP-4:SOU ND1,-15,X,2:SOUND2,2,X,2:SOUND3,4,X,2:NE XT 20005SOUND0,1,4,4:SOUND0,1,4,4:SOUND1,0, 5,10:SOUND2,0,69,10:SOUND3,0,93,10 20010SOUND0,2,4,20:SOUND1,4,5,48:SOUND2, 4,69,48:SOUND3,4,93,48