INT TRACK_SELECT				=	1	;	//	1 : 	ADDICT							https://www.youtube.com/watch?v=yaO8BpGdjVY
									//
									//		Ｊユーロ風に仕上げたポップスチューン！
									//		16分刻みで突っ走るベースラインと突き抜けるベルが持ち味。
									//
									//
									//	2 : 	HYPER DISCO MAGNUM					https://www.youtube.com/watch?v=rSEwiL-oh14
									//
									//		今回メインで投稿する予定が、ＡＤＤＩＣＴの出来が良すぎてカップリングに・・
									//		どこまでもお約束な展開で迎えるサビはまさにユーロビートな一曲。
									//
									//
									//	3 : 	BLUE LIGHT CHRISTMAS					https://www.youtube.com/watch?v=BYpbJZfVp24
									//
									//		クリスマス用に作った度ポップ爽やかチューン。
									//		鐘の音を随所に取り入れてＤＬＳフル活用です♪
									//
									//


INT TRACK_KEY				=	1	;	//	キー調整 (-3～3)

CuePoint={"TwmDlsUrl(http://pmr.ueuo.com/dls/bells.dls)"}

If(TRACK_SELECT==1){
INT EST=156PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"ADDICT"}Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,3,2,127,09,0)WIN(07,07,088,00,0,K,074,1,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,100,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,4,2,100,09,2)WIN(14,14,082,01,0,K,020,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,4,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,127,10,0)
WIN(04,04,091,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,100,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;TR=13IP=3
INT HAZ=1INT BGN=17INT ME1=25INT ME2=33INT SB1=42INT RF1=58INT ME3=66INT ME4=74INT SB2=83INT NK1=99INT RF2=107INT NK2=117INT NK3=125INT RF3=133INT SB3=142INT SB4=158INT END=174
STR SBUP={TrackKey=(K+3);}STR SBDN={TrackKey=K;}
/*1*/STR MN1={`c#^`c#`c#`c`c#`d#`d#^`e`d#`c#^g#ec#;`c#^`c#`c#`c`c#`d#`d#^^`c#`e^^^r;`c#^`c#^`c^`c^bb^a#^c#d#ef#^f#f#g#g#g#`c#^^g#`c#r}
STR MN2={g#`c#`d#[`e`c#`e`c#`f#`g#r`e^`c#`e`c#`f#:`g#`g#`;f#^`f#`f#`f#^`b`d#`d#`f#`e^`d#^`e^r]`g#^^`e`c#`e`c#`f#`g#`g#`f#^`d#`c#b^^^r[8r]}
STR MN3={[l16b^^g^^e^b^^^^rrra^^f#^^d^a^^^^rrra^^f#^^d^`d^a^f#^a^b^^g^^e^b^^^^rrr;b^^g^^e^b^^^^rrra^^f#^^d^a^^^^rrrg^^e^^"b^g^a^b^b^:b^^f#^^d^"b^^^^rrrl8]b^^^`c^b^^^^^^rrrl8
/*>[gf#ecagf#f#^gf#g^ef#g:a^a^a^agab^b^bag]af#af#af#^a^agf#^d^de^^^^^^^<*//*[`g^`g^`g^`g^`a`g`a`b^`e`g`a`b`e`g`b`a`g`a`g^:`e`g`a`b^`b^]`e`g`e`g^`g^*/}
STR MN4={l8[12r]`g^`f#^`d^^^^^^^`e^^^^^^^[12r]`b^`a^`f#^^^^^^^`b^^^^^^^}
STR MN5={l16[MD({b^^g^^e^},3,!2)[24r]MD({a^^f#^^d^},3,!2)[24r]]l16b^^g^^e^b^^^^rrra^^f#^^d^a^^^^rrra^^f#^^d^`d^a^f#^a^b^^g^^e^b^^^^rrr;b^^g^^e^b^^^^rrra^^f#^^d^a^^^^rrrg^^e^^"b^g^a^b^b^;b^^^`c^b^^^^^^rrrl8}
TR=1l8HAM({DL=ME1;REV=50MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=NK1;MN4;DL=SB3;MN3;MN5;})
/*2&3&4*/STR RTA={BR=6@9,10,0If(CH==3){p%=300@100,0}If(CH==4){p%=-300@99,1}}STR RTB={BR=6If(CH==3){p%=250}If(CH==4){p%=-250}}
STR RTH={RTB;If(CH==2){@99,1EP=120l16[4[3'ec#'rr]r:[3'f#c#':rr][5'g#c#'rr]]['f#c#'rr]@15,10,2l8EP=100q=300HAM({>`e`d#rbg#rer<})q=90}
If(CH!=2){If(CH==3){@29,110,0}If(CH==4){@29,110,1}l16<EP=90BR=12p.W(64,64,!8,64,0,!8)[[4c#c#c#c#'g#ec#'^^^:c#c#c#c#'g#ec#'c#c#c#]c#c#c#c#'g#ec#'^^^]>p=64}}
STR RTI={RTB;If(CH==2){[@9,10,0q=300EP=100REV=60l8>>c#"ad#"ae"ag#"a;d#"be"bf#"bb"b;d#"g#e"g#f#"g#b"g#<<:rREV=20q=90@56,90,1EP=115SUB{ed#e^^er}>HAM({g#f#g#^^g#r})<]
l8rrrr@101,0EP=127l16>c#ef#g#`c#`e`g#``c#<}
If(CH!=2){@82,90,1l8EP=90[[4r'aec#'][4r'bf#d#']:[4r'g#d#"b'][4r'`c#g#e']][4r'bf#d#'][8r]}}
STR RTJ={RTB;If(CH==2){@99,1EP=120l16[3[3'ec#'rr]r[3'f#c#':rr][5'g#c#'rr]][['ec#'rr]rr]@15,10,2l8EP=100q=300HAM({>`e`d#rbg#rer<})q=90}
If(CH!=2){If(CH==3){@29,110,0}If(CH==4){@29,110,1}l16<EP=90BR=12p.W(64,64,!8,64,0,!8)[4c#c#c#c#'g#ec#'^^^:c#c#c#c#'g#ec#'c#c#c#]c#c#c#c#'g#ec#'^^^
[c#c#c#c#'g#ec#'^^^c#c#c#c#'g#ec#'c#c#c#][c#c#c#c#rrrr][c#c#c#c#'g#ec#'^^^]>p=64}}
STR RTK={RTB;If(CH==2){@9,10,0q=300EP=100REV=60l8>>c#"ad#"arrrr;d#"be"brrrr;d#"g#e"g#f#"g#b"g#<<rREV=20q=90@56,90,1EP=115SUB{ed#e^^er}>HAM({g#f#g#^^g#r})<
@9,10,0q=300EP=100REV=60l8>>c#"ad#"ae"ag#"a;d#"be"bf#"bb"b;d#"g#e"g#f#"g#b"g#<<l8rrrr@101,0EP=127l16>c#ef#g#`c#`e`g#``c#<}
If(CH!=2){@82,90,1l8EP=90[r'aec#']rrrr[r'bf#d#']rrrr;[4r'g#d#"b'][4r'`c#g#e'];[4r'aec#'][4r'bf#d#'][4r'bf#d#'][8r]}}
STR RT1={RTA;If(CH==2){>q=120}EP=127CHO=50REV=60l16[g#^^e^^c#^c#^d#^e^f#^;g#^^e^^c#^g#^g#^a^g#^:f#^^d#^^"b^d#^e^f#^g#^;f#^^e^^d#^e^^^^^^^]f#^^d#^^"b^b^f#^d#^f#^;`c#^^g#^^e^c#^^^^^^^If(CH==2){<q=90}REV=20}
STR RT1A={RTA;If(CH==2){>q=120}EP=127CHO=50REV=60l16f#^^d#^^"b^b^f#^d#^f#^;`c#^^g#^^e^c#^^^^^^^If(CH==2){<q=90}REV=20}
STR RT1B={RTA;If(CH==2){>q=120}EP=127CHO=50REV=60l16[MD({g#^^e^^c#^},3,!2)[24r]MD({f#^^d#^^"b^},3,!2)[24r]]If(CH==2){<q=90}REV=20}
STR RT2={RTA;If(CH==2){[EP=127@97,0REV=100l8HAM({[c#eg#:`c#^^^^[8r]]`c#^^^REV=20}):@100,0EP=120HAM({SUB{`f#^^`f#`g#^^^^}`d#^^`d#`e^^^^})]
@82,110,0EP=90M.W(70,120,!4)'`c#g#e'^^'`c#g#e''`c#g#e'rrM=0}
If(CH!=2){@82,90,1l8EP=90[[r'aec#'][r'g#ec#'][r'`c#g#e'][4r'f#c#"a'][r'g#ec#']:r'`c#g#e'r'`d#bg#'r'`e`c#g#'r'`c#g#e'][8r]}}
STR RT3={RTA;If(CH==2){@101,0EP=110l16g#b`c#`d#`e^@99,1l8EP=120g#`c#`e`d#`c#r`c#^g#`c#`e`d#`c#r;b^f#b`d#`c#br`c#^g#`c#`e`d#`c#r;rrg#`c#`e`d#`c#r`c#^g#`c#`e`d#`c#rr`c#g#`c#`e`d#`c#r`d#^b`d#`f#`e`d#rr[8r]}
If(CH!==2){@82,110,3l8EP=90[rr'`e`c#g#''`e`c#g#'^^^r]rr'`d#bg#''`d#bg#'^^^r[4rr'`e`c#g#''`e`c#g#'^^^r]rr'`f#`d#b''`f#`d#b'^^^r[8r]}}
STR RT4={RTA;If(CH==2){[l16V=115@82,110,0EP=120[10r]q=70['`e`cg']q=90'`e`cg'^^^[12r]'`f#`da'^^^l16@82,90,1[3'`f#`db'^:r][3'`f#`db'^:r]rrl8>@9,10,0REV=80q=300ef#ggebe<REV=20q=90
:l16@82,110,0EP=110[10r]q=70['`cge']q=90'`cge'^^^[12r]'`daf#'^^^l8@56,90,0HAM({bf#rd"br"f#r})r@9,10,0q=300EP=100P=96REV=80l8>>"bdef#"bb"b<<REV=20q=90]
l16@82,110,0EP=110[10r]q=70['`cge']q=90'`cge'^^^[12r]'bf#d'^^^l8r>@15,10,1q=300gab^abb<[8r]q=90V=100}
If(CH!=2){@82,90,1@82,110,0EP=90l8[[4r'`cge'][4r'`daf#'][4r'bf#d'][4r'`ebg']:[4r'aec'][4r'bf#d'][4r'`cge'][4r'bf#d']][4r'`cge'][4r'bf#d'][4r'aec'][4r'bf#d']}}
STR RT4A={RTA;If(CH==2){[l16V=115@82,110,0EP=120[10r]q=70['`e`cg']q=90'`e`cg'^^^[12r]'`f#`da'^^^l16@82,90,1[3'`f#`db'^:r][3'`f#`db'^:r]rrl8>@9,10,0REV=80q=300ef#ggebe<REV=20q=90
:l16@82,110,0EP=110[10r]q=70['`cge']q=90'`cge'^^^[12r]'`daf#'^^^l8@56,90,0HAM({bf#rd"br"f#r})r@9,10,0q=300EP=100P=96REV=80l8>>"bdef#"bb"b<<REV=20q=90]
l16@82,110,0EP=110[10r]q=70['`cge']q=90'`cge'^^^[12r]'bf#d'^^^l8r>@15,10,1q=300gab^abb<[8r]q=90V=100}
If(CH!=2){@82,90,1@82,110,0EP=90l8[32r][4r'aec'][4r'bf#d'][4r'`cge'][4r'bf#d'][4r'`cge'][4r'`daf#'][4r'bf#d'][4r'`ebg'][4r'`cge'][4r'bf#d'][4r'aec'][4r'bf#d']}}
STR RT5={RTB;If(CH==2){l16EP=120[32r]l16@82,90,1[3'`f#`db'^:r][3'`f#`db'^:r]rrl8>@9,10,0REV=80q=300ef#ggebe<REV=20q=90
l16EP=110[32r]l8@56,90,0HAM({bf#rd"br"f#r})r@9,10,0q=300EP=100P=96REV=80l8>>"bdef#"bb"b<<REV=20q=90}
If(CH!=2){l8EP=100M.W(20,50,!4,50,0,!8)@19,110,0HAM({SUB{`e^^`d^^b^^`d`cb`cgl16e"begl8b^^g^^g^`d^^`e^^l16b`d`e`f#l8`g^^`f#^^`d^`f#^^`d^^a^`f#^^`g^^`g^`f#^^^^^}
l8`g^^`f#^^`d^^l16`f#^`e^`d^`e^b^gegbl8`e^^`d^^b^`f#^^`g^^l16`e`f#`g`al8`b^^`a^^`f#^`a^^`f#^^`d^`a^^`b^^`b^`b^^^^^rr})M=0}}
STR RT6={RTB;If(CH!=2){@10,0l16EP=127HAM({`d#b`f#b`g#b`bb})[8r]}}
STR RRF={l16DL=HAZ;RTH;RTI;DL=BGN;HAM({RT1})RT2;RT3;RT4;DL=RF1;HAM({RT1});RT2;RT3;RT4;DL=NK1;RT5;DL=RF2;HAM({SBUP;RT1;RT1A;SBDN})DL=NK2;RTJ;RTK;
DL=RF3;HAM({RT1B})RT6;DL=SB3;RT4A;RT4;HAM({DL=END;SBUP[RT1:REC2]SBDN;})}TR=2RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)BR=6If(CH==5){p%=150}Else{p%=-150}}STR BSH={q=90l16[4c#^`c#^g#^b^ef#rg#:reg#c#]rrrr[3c#^`c#^g#^b^ef#rg#reg#c#]c#^^rc#c#"brc#^^^^rrrl8}
STR BSI={BSA[["aa]l16"a^a"a^"aa^l8["bb]l16"b^b"b^"bb^l8:["g#g#]l16"g#^g#"g#^"g#g#^l8c#`c#d#`d#e`ec#`c#]["bb]l16"b^b"b^"bb^l8c#c#rc#c#^^r}
STR BSJ={q=90l16[4c#^`c#^g#^b^ef#rg#:reg#c#]rrrr[c#^`c#^g#^b^ef#rg#reg#c#][c#^`c#^rrrr]c#^^rc#c#"brc#^^^^rrrl8}
STR BSK={BSA["aa]l16"ar"a"aa^&&"a^l8["bb]rrrrq=100l4"g#^^^c#d#ec#l8BSA["aa]l16"a^a"a^"aa^l8["bb]l16"b^b"b^"bb^l8["bb]l16"b^b"b^"bb^l8c#c#rc#c#^^r}
STR BS1={BSA["aa]l16"a^a"a^"aa^l8[4"aa]["g#g#]l16"g#^g#"g#^"g#g#^l8c#`c#d#`d#e`ec#`c#["f#f#]l16"f#^f#"f#^"f#f#^l8[4"bb]["g#g#]l16"g#^g#"g#^"g#g#^;c#^^c#^^c#^c#^^^c#^^^l8}
STR BS1A={BSA["g#g#]l16"g#^g#"g#^"g#g#^;c#^^c#^^c#^c#^^^c#^^^l8}
STR BS1B={BSA["aa]l16"a^a"a^"aa^l8[4"aa]["g#g#]l16"g#^g#"g#^"g#g#^l8c#`c#d#`d#e`ec#`c#["f#f#]l16"f#^f#"f#^"f#f#^l8[4"bb]["g#g#]l16"g#^g#"g#^"g#g#^;c#^^c#^^c#^c#^^^c#^^^l8}
STR BS2={[["aa]l16"g#^g#g#"g#^g#^l8[c#`c#]l16"f#^f#f#"f#^f#^l8["f#f#]l16"g#^g#g#"g#^:g#^l8c#`c#d#`d#e`ec#`c#]l8q=90c#^^c#c#rrrrBSA}
STR BS3={["aal16"a^aa"a^a^l8"aa]"g#g#l16"g#^g#g#"g#^g#^l8"g#g#;c#`c#d#`d#e`ec#`c#;"f#f#l16"f#^f#f#"f#^f#^l8"f#f#;"g#g#l16"g#^g#g#"g#^g#^l8"g#g#l16[4"a^aa][4"b^bb]l8q=100BR=12p.T(64,0,!1)b^^^^^^^p=64BSA}
STR BS3A={l4q=100"a^^^"a^^^"g#^^^c#d#ec#l8BSA"f#f#l16"f#^f#f#"f#^f#^l8"f#f#;"g#g#l16"g#^g#g#"g#^g#^l8"g#g#l16[4"a^aa][4"b^bb]l8q=100BR=12p.T(64,0,!1)b^^^^^^^p=64BSA}
STR BS4={[[c`c]l16c^`c`cc^`c^l8[d`d]l16d^`d`dd^`d^l8["bb]l16"b^bb"b^b^l8:["ee]l16"e^ee"e^e^l8["aa]l16"a^aa"a^a^l8["bb]l16"b^bb"b^b^l8[c`c]l16c^`c`cc^`c^["b^bb"b^b^]l8]<e`ef#`f#l16g^`g`gl8e`e>l8[c`c]l16c^`c`cc^`c^l8["bb]l16"b^bb"b^b^l8["aa]l16"a^aa"a^a^["b^bb"b^b^]l8/*[[c`c][d`d][4e`e][4"aa][4"bb]]*//*[[4c`c]["bb][e`e]["aa]["bb][e`e]:[c#`c#]][e`e]*/}
STR BS4A={l4q=100c^^^d^^^"b^^^"e^^^BSA;l8["aa]l16"a^aa"a^a^l8["bb]l16"b^bb"b^b^l8[c`c]l16c^`c`cc^`c^["b^bb"b^b^]l8;[c`c]l16c^`c`cc^`c^l8[d`d]l16d^`d`dd^`d^l8["bb]l16"b^bb"b^b^l8<e`ef#`f#l16g^`g`gl8e`e>l8[c`c]l16c^`c`cc^`c^l8["bb]l16"b^bb"b^b^l8["aa]l16"a^aa"a^a^["b^bb"b^b^]l8/*[[c`c][d`d][4e`e][4"aa][4"bb]]*//*[[4c`c]["bb][e`e]["aa]["bb][e`e]:[c#`c#]][e`e]*/}
STR BS5={[c`c]l16c^`c`cc^`c^l8[d`d]l16d^`d`dd^`d^l8["bb]l16"b^bb"b^b^l8["ee]l16"e^ee"e^e^l8["aa]l16"a^aa"a^a^l8["bb]l16"b^bb"b^b^l8[c`c]l16c^`c`cc^`c^["b^bb"b^b^]l8}
STR BS6={l8q=100BR=12p.T(64,0,!1)b^^^^^^^p=64BSA}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;V=105BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4;DL=NK1;BS5;SBUP;BS1;BS1A;SBDN;DL=NK2;BSJ;BSK;DL=RF3;BS1B;BS6;BS4A;BS4;SBUP[BS1:REC2]SBDN;}TR=5@35,90,1BASS;TR=7@40,90,0BASS;
/*6*/STR COI={l4EP=70HAM({l4rrrl16`c#`d#`e`f#})l4SUB{[`e^^^`d#^^^`f#^^^:`c#^^^]`g#^^^}HAM({[`g#^^^`f#^^^`b^^^:`g#^^l16`c#`d#`e`f#l4]``c#^^^})}
STR COK={l4EP=70HAM({l4rrrl16`c#`d#`e`f#})l4SUB{`e^rr`d#^rr`f#^^^;`c#^^^;`e^^^`d#^^^`f#^^^`g#^^^}HAM({`g#^rr`f#^rr`b^^^;`g#^^l16`c#`d#`e`f#l4`g#^^^`f#^^^`b^^^``c#^^^})}
STR CO1={l4EP=70HAM({[`c#^^^`c#^^^b^^^`c#^^^]})}STR CO1A={l4EP=70HAM({b^^^`c#^^^})}STR CO2={l4EP=65HAM({SUB{[e^d#^g#^c#^e^d#^:g#^^^]}[a^g#^`c#^f#^a^g#^:`c#^^^]rrr})}
STR CO3={l4EP=70HAM({l16[12r]g#b`c#`d#l4SUB{`c#^^^`c#^^^b^^^g#^^^f#^^^g#^^^a^^^b^^^}`e^^^`e^^^`d#^^^`e^^^`e^^^`e^^^`e^^^`f#^^^})rrrr}
STR CO3A={l4EP=70HAM({l16g#b`c#`d#l4SUB{`c#^^^`c#^^^b^^^g#^^^f#^^^g#^^^a^^^b^^^}`e^^^`e^^^`d#^^^`e^^^`e^^^`e^^^`e^^^`f#^^^})rrrr}STR CO4={l1EP=100HAM({[`e^^^^^^^]})}
STR CO5={l1EP=90HAM({>`e^^^^^^^<})}
TR=6@49,90,1DL=HAZ+7COI;DL=BGN;CO1;DL=ME2-1CO3;CO4;CO1;CO2;CO3A;CO4;DL=NK1;CO5;SBUP;CO1;CO1A;SBDN;DL=NK3-1COK;DL=RF3;CO1;DL=SB3[CO4]SBUP[CO1:REC2]SBDN;
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR UL1={ULA;a^aag#g#g#b^bbg#^ec#"g#;a^aag#g#g#b^^g#`c#^^^r;a^a^g#^g#^f#f#^f^"g#"bc#SUB{"a^"a"a"b"b"bg#^^"bg#r}c#^c#c#d#d#d#e^^d#er}
STR UL2={ULA;c#eg#[`c#a`c#a`d#`er`c#^a`c#a`d#:`e`e`d#^`d#`d#`d#^`f#g#g#SUB{ee^e^e^r}`c#`c#^`c#^`c#^r/*SUB{ba^g#^g#^}`d#`c#^b^`c#^r*/]`e^^SUB{<`g#`e`g#`e`a``c#``c#`b^`f#`d#`d#^^^>}`c#a`c#a`d#`e`e`d#^bg#g#^^^r[8r]}
STR UL3={ULA;SUB{MN3}l16SUB{[g^^e^^"b^g^^^^rrr`d^^a^^f#^`d^^^^rrr`d^^a^^f#^`d^a^f#^a^`e^^b^^g^`e^^^^rrr;g^^e^^"b^g^^^^rrrf#^^d^^"b^f#^^^^rrre^^"b^^"g^d^e^g^g^:`d^^b^^f#^d^^^^rrr]d^^^d^d^^^^^^rrr}
[`e^^b^^g^`e^^^^rrr`f#^^`d^^b^`f#^^^^rrr`f#^^`d^^b^`f#^`d^b^`d^`g^^`e^^b^`g^^^^rrr;`e^^b^^g^`e^^^^rrr`d^^a^^f#^`d^^^^rrrb^^g^^e^b^`d^`e^`e^:`f#^^`d^^b^f#^^^^rrr]`f#^^^`f#^`f#^^^^^^rrr/*SUB{g^^g^^g^g^^^^rrra^^a^^a^a^^^^rrr}`e^^`e^^`e^`e^^^^rrr`f#^^`f#^^`f#^`f#^^^^rrr*/l8}
STR UL4={ULA;SUB{MN4}l8[12r]SUB{b^a^f#^^^^^^^g^^^^^^^}`e^`d^b^^^^^^^b^^^^^^^[12r]SUB{`e^`d^b^^^^^^^`d^^^^^^^}`g^`f#^`d^^^^^^^`f#^^^^^^^}
STR UL5={SUB{MN5}l16[MD({SUB{g^^e^^"b^}`e^^b^^g^},3,!2)[24r]MD({SUB{`d^^a^^f#^}`f#^^`d^^b^},3,!2)[24r]]
SUB{g^^e^^"b^g^^^^rrr`d^^a^^f#^`d^^^^rrr`d^^a^^f#^`d^a^f#^a^`e^^b^^g^`e^^^^rrr;g^^e^^"b^g^^^^rrrf#^^d^^"b^f#^^^^rrre^^"b^^"g^d^e^g^g^;d^^^d^d^^^^^^rrr}
`e^^b^^g^`e^^^^rrr`f#^^`d^^b^`f#^^^^rrr`f#^^`d^^b^`f#^`d^b^`d^`g^^`e^^b^`g^^^^rrr;`e^^b^^g^`e^^^^rrr`d^^a^^f#^`d^^^^rrrb^^g^^e^b^`d^`e^`e^;`f#^^^`f#^`f#^^^^^^rrr}
STR ULMR={DL=ME1;l8>REV=60UL1;UL2;HAM2({UL3});DL=ME3;UL1;UL2;HAM2({UL3;DL=NK1;UL4;DL=SB3;UL3;UL5;});}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={n27n32n35n36}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDH={O3[63r][O3[15r]][O3[7r]]SUB{O4}l8[[O1]r]O1;rl16}STR DDI={[16O1;rr:r]O1[12O1;rrr]l8[O1]rO1;rrrrl16}
STR DDJ={O3[63r][O3[15r]][O5;rO5[5r]]SUB{O4}l8[[O1]r]O1;rl16}STR DDK={[O1;rrr]O5;r[O1]O3;rrr[O1;rrr][8r]O3[15r][3O5;rrr]n57rrr[12O1;rrr]l8[O1]rO1;rrrrl16}
STR DD1={[28O1;rrr][3O1;r:r][O1;rrr]}STR DD1A={[4O1;rrr][3O1;r:r][O1;rrr]}STR DD2={[28O1;r:rr]l8O1;rr[O1]l16[8r]}STR DD3={[27O1;r:rr]l8[3O1]r[3O1]rrrrl16[16r]}
STR DD3A={O3[15r][O5[15r]]O4[15r][11O1;r:rr]l8[3O1]r[3O1]rrrrl16[16r]}STR DD4={[[32O1;r:rr][O1]]}STR DD4A={O3[61r]O1;r[O3[15r]][O3[7r]][O5;rrr][8O5]SUB{n49}[[16O1;r:rr][O1]]}
STR DD5={[32O1;r:rr][O1]}
TR=10l16DL=HAZ@27,7,0BR=20p%=1700V=127DDH;DDI;DL=BGN@27,7,0BR=20p%=1700V=127DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4;DL=NK1;DD5;DD1;DD1A;DL=NK2;DDJ;DDK;DL=RF3;DD1;DL=SB3;DD4A;DD4[DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGH={[8[4GR]GB;r[GR][4GR]GB[3GR]]}STR GGI={[16GR;GR;GB;r][12GR;GR;GB;GR][16r]}STR GGJ={[6[4GR]GB;r[GR][4GR]GB[3GR]][[4GR]rrrr][4GR]GB;r[GR][4GR]GB[3GR]}STR GGK={[3GR;GR;GB;r]rrrr[GR;GR;GB;r][8r][8GR;rGB;r][12GR;GR;GB;GR][16r]}
STR GG1={[28GR;GR;GB;GR][3GB;r:r][GR;rGB;r]}STR GG1A={[4GR;GR;GB;GR][3GB;r:r][GR;rGB;r]}STR GG2={[28GR;GR;GB;r][16r]}STR GG3={[32GR;GR;GB;GR][16r]}STR GG3A={[16GR;rGB;r][16GR;GR;GB;GR][16r]}
STR GG4={[64GR;GR;GB;GR]}STR GG4A={[8GR;rGR;rGB;rGR;GR][8GR;rGB;r][8GR;GR;GB;r][32GR;GR;GB;GR]}STR GG5={[32GR;GR;GB;GR]}
TR=11l16DL=HAZ@27,90,0BR=20p%=2000GGH;GGI;DL=BGN@27,90,0BR=20p%=2000GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4;DL=NK1;GG5;GG1;GG1A;DL=NK2;GGJ;GGK;DL=RF3;GG1;DL=SB3;GG4A;GG4[GG1:REC2]
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PPH={SUB{[7n82rn85rn70rn69rn62n61n60rrrrr]}[28r][4'n38n40']n49[27r]['n38n40']r'n38n40'[12r]'n38n40'r['n38n40'][12r][4'n38n40']rrrrl24[6'n38n40']l16rrrr['n38n40'r]l8n50n48rn45n43rn41rl16}
STR PPI={SUB{PD3A}SUB{[7n82rn85rn70rn69rn62n61n60rrrrr]}[14rrrr'n38n40'rrr][16r]}
STR PPJ={SUB{[6n82rn85rn70rn69rn62n61n60rrrrr][n82rn85rrrrr]n82rn85rn70rn69rn62n61n60rrrrr}[28r][4'n38n40']n49[27r]['n38n40']r'n38n40'[12r]'n38n40'r['n38n40'][12r][4'n38n40']rrrrl24[6'n38n40']l16rrrr['n38n40'r]l8n50n48rn45n43rn41rl16}
STR PPK={SUB{PD3A}SUB{[7n82rn85rn70rn69rn62n61n60rrrrr]}[rrrr'n38n40'rrr:[8r]][8'n38n40'][32r][6rrrr'n38n40'rrr][16r]}
STR PP1={SUB{PD3}[14rrrr'n38n40'rrr][16r]}STR PP1A={[rrrr'n38n40'rrr][16r]}STR PP2={SUB{n49[63r]}[14rrrr'n38n40'rrr][16r]}STR PP3={SUB{[n49:[63r]][15r]n57[15r]n49[15r]n57}[15rrrr'n38n40'rrr][8r][16r]}
STR PP3A={SUB{[n49:[63r]][15r]n57[15r]n49[15r]n57}[64r][7rrrr'n38n40'rrr][8r][16r]}STR PP4={SUB{[PD3]}[32rrrr'n38n40'rrr]}STR PP4A={SUB{[PD3]}[64r][4rrrr'n38n40'rrr][8'n38n40'r][16'n38n40'][16rrrr'n38n40'rrr]}STR PP5={SUB{PD3}[16rrrr'n38n40'rrr]}
TR=12l16DL=HAZ@1,100,0BR=20p%=2000PPH;PPI;DL=BGN@1,100,0BR=20p%=2000PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4;DL=NK1;PP5;PP1;PP1A;DL=NK2;PPJ;PPK;DL=RF3;PP1;DL=SB3;PP4A;PP4[PP1:REC2]
/*13*/STR PG1={P.onCycle(!12,0,127)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR WD={'n56n68'}STR DS18={[rr[WD]rWD;rWD]}STR DS19={rr[WD]rWD;r[6WD]r[WD]}STR DS20={rr[4WD;r][[WD]r]}STR DS21={[WD;rrr]WD;r[WD]r[3WD]}STR DS22={[9WD]r[[WD]r]}STR DS23={[5WD]rrr[WD;rrr]}
STR DS24={[8r][5WD]rWD;r}STR DS25={[8r]WD;r[[WD]r]}STR DS26={[5WD]r[WD][WD;rrr]}STR DS27={rr[3WD;r][[WD]r]WD;r}STR DS28={rr[7WD]rr[WD]rWD;r}STR DS29={l8[[WD]r]WD;rl16}STR DS30={[[WD;r]rrrr]}
TR=13l16<DL=HAZ;CHO=127@25,90,1BR=20p%=-1000V=80PG1[DS27;DS19;DS20:DS28]DS29;V=110DL=HAZ+11DS24;DL=HAZ+15DS29;DL=BGN@25,90,1BR=20p%=-1000V=110DL=BGN+3DS18;DL=BGN+7DS19;DL=ME1+3DS20;DL=ME1+6DS21;DL=ME2+3DS22;DL=ME2+6DS21;DS23;DL=SB1+3DS24;DL=SB1+7DS25;DL=SB1+11DS24;DL=SB1+15DS26;DL=RF1+3DS18;DL=RF1+7DS19;
DL=ME3+3DS20;DL=ME3+6DS21;DL=ME4+3DS22;DL=ME4+6DS21;DS23;DL=SB2+3DS24;DL=SB2+7DS25;DL=SB2+11DS24;DL=SB2+15DS26;DL=NK1+3DS24;DL=NK1+7DS25;DL=RF2+3DS18;DL=RF2+7DS19;DL=RF2+9DS19;V=80DL=NK2[DS27;DS19:DS20;DS28]DS30;DS29;V=110DL=NK3+3DS24;DL=NK3+7DS29;DL=RF3+3DS18;DL=RF3+7DS19;
DL=SB3+3DS24;DL=SB3+7DS25;DL=SB3+11DS24;DL=SB3+15DS26;DL=SB4+3DS24;DL=SB4+7DS25;DL=SB4+11DS24;DL=SB4+15DS26;DL=END+3DS18;DL=END+7DS19;DL=END+8REC2;DL=END+11DS18;
/*14*/STR SPH={[@6,8l16['g#ec#'^^'f#c#"a'^r'g#ec#'^^r'g#ec#'^'f#c#"a'^rr:'g#ec#'^^'f#c#"a'^r'g#ec#'^^r'aec#'^'aec#'^rr]:'g#ec#'^^'f#c#"a'^^'e"b"g#'^'d#"b"g#'^^^^rrr][16r]}
STR SPI={@3,0EP=100l16[rrrr['`c#ae'^]'`c#ae'^^'bg#e'^^'`c#ae'^[rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^]:rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^][16r]}
STR SPJ={[@6,8l16'g#ec#'^^'f#c#"a'^r'g#ec#'^^r'g#ec#'^'f#c#"a'^rr:'g#ec#'^^'f#c#"a'^r'g#ec#'^^r'aec#'^'aec#'^rr]'g#ec#'^^'f#c#"a'^^'e"b"g#'^'d#"b"g#'^^^^rrr
'g#ec#'^^'f#c#"a'^r'g#ec#'^^r'g#ec#'^'f#c#"a'^rr'g#ec#'^^'f#c#"a'^r'g#ec#'^^r'aec#'^'aec#'^rr;['g#ec#'^^'f#c#"a'^rrr][16r]}
STR SPK={@3,0EP=100l16rrrr['`c#ae'^][8r]rrrr['bf#d#'^][8r]rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^;rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^;rrrr['`c#ae'^]'`c#ae'^^'bg#e'^^'`c#ae'^[rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^][16r]}
STR SP1={@3,0EP=100l16[[rrrr['`c#ae'^]'`c#ae'^^'bg#e'^^'`c#ae'^]rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^:rrrr['`c#ae'^]'`c#ae'^^'bg#e'^^'`c#ae'^][16r]}
STR SP1A={@3,0EP=100l16rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^[16r]}
STR SP2={l16REV=70SUB{[14@38,90,0rrr@37,110,1rrr@37,90,0rrr]}EP=95BR=12p.W(64,64,!8,64,0,!16)[aaaa'aec#'^^^g#g#g#g#'g#ec#'^g#g#`c#`c#`c#`c#'`c#g#e'^^^f#f#f#f#'f#c#"a'^f#f#;f#f#f#f#'f#c#"a'^^^g#g#g#g#'g#ec#'^g#g#:`c#`c#`c#`c#'`c#g#e'^^^`c#`c#`c#`c#'`c#g#e'^`c#`c#][16r]REV=20p=64}
STR SP3={@3,0EP=100l16[[rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^]:rrrr['bf#d#'^]'bf#d#'^^'af#d#'^^'bf#d#'^;rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^]rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^;rrrr['bf#d#'^]'bf#d#'^^'bf#d#'^^'bf#d#'^;l16[8r]@101,0EP=100P=96l16>>`g`f#`ebgf#e"b<<}
STR SP3A={@3,0EP=100l16[64r][rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^]rrrr['`c#g#e'^]'`c#g#e'^^'bg#e'^^'`c#g#e'^;rrrr['bf#d#'^]'bf#d#'^^'bf#d#'^^'bf#d#'^;l16[8r]@101,0EP=100P=96l16>>`g`f#`ebgf#e"b<<}
STR SP4={@3,0EP=120l16[rr[5'`cge'^:r]rr[5'`daf#'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r]:rr[5'`cae'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r]rr[5'bf#d'^:r]]rr[5'`cge'^:r]rr[5'bf#d'^:r]rr[5'aec'^:r]rr['bf#d'^:r]'bf#d'@101,0EP=100l16>>`g`f#`ebgf#e"b<<}
STR SP4A={@3,0EP=120l16[64r]rr[5'`cae'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r]rr[5'bf#d'^:r]rr[5'`cge'^:r]rr[5'`daf#'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r]rr[5'`cge'^:r]rr[5'bf#d'^:r]rr[5'aec'^:r]rr['bf#d'^:r]'bf#d'@101,0EP=100l16>>`g`f#`ebgf#e"b<<}
STR SP5={@3,0EP=120l16rr[5'`cge'^:r]rr[5'`daf#'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r];rr[5'`cae'^:r]rr[5'`dbf#'^:r]rr[5'`ebg'^:r]rr[5'bf#d'^:r]}
STR SP6={l16[8r]@101,0EP=100P=96l16>>`g`f#`ebgf#e"b<<}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3A;SP4;DL=NK1;SP5;SBUP;SP1;SP1A;SBDN;DL=NK2;SPJ;SPK;DL=RF3;SP1;SP6;DL=SB3;SP4A;SP4;SBUP[SP1:REC2]SBDN;
/*15*/STR FTA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR FTH={FTA;l16@8,0EP=127q=30MD({c#d#eg#},3,!4)[12r][MD({d#ef#b},3,!4)[12r]MD({d#ef#b},3,!4)[12r]MD({c#d#eg#},2,!4):[8r]l24>@101,0"g#"bc#d#f#g#`e^^<l16@8,0EP=110q=30rrMD({c#d#eg#},2,!4)[8r]EP=127][12r]q=100}
STR FTI={FTA@8,0EP=110q=30l16[[4ef#g#`c#][4d#ef#b][4d#ef#b]:[4ef#g#`c#]]l8@56,90,1EP=115SUB{g#g#rg#}`c#`c#r`c#rrrr}
STR FTJ={FTA;l16@8,0EP=127q=30MD({c#d#eg#},3,!4)[12r][MD({d#ef#b},3,!4)[12r]:MD({d#ef#b},3,!4)[12r]MD({c#d#eg#},2,!4)[8r]l24>@101,0"g#"bc#d#f#g#`e^^<l16@8,0EP=110q=30rrMD({c#d#eg#},2,!4)[8r]EP=127][d#ef#brrrr]MD({c#d#eg#},2,!4)[12r]q=100}
STR FTK={FTA@8,0EP=110q=30l16[ef#g#`c#][8r][d#ef#b][8r][4d#ef#b];[4ef#g#`c#][4ef#g#`c#][4d#ef#b][4d#ef#b]l8@56,90,1EP=115SUB{g#g#rg#}`c#`c#r`c#rrrr}
STR FT1={FTA@8,0EP=127q=30l16[[8ef#g#`c#][4d#ef#b]:[4ef#g#`c#]]@82,110,0q=100EP=90P=96BR=12p.W(64,64,!8,64,0,!16)['`c#g#e'^^]p=64'`c#g#e'^p.W(64,64,!8,64,0,!16)['`c#g#e'^^^]p=64}
STR FT1A={FTA@8,0EP=127q=30l16[4d#ef#b]@82,110,0q=100EP=90P=96BR=12p.W(64,64,!8,64,0,!16)['`c#g#e'^^]p=64'`c#g#e'^p.W(64,64,!8,64,0,!16)['`c#g#e'^^^]p=64}
STR FT2={@5,24EP=115l16P=96[7`c#`c#c#r`c#rc#r`c#c#r`c#rc#`c#c#][16r]}
STR FT3={l16[60r]@101,0EP=127g#b`c#`d#`e^^^[28r]"g#"bc#d#"g#c#ec#;g#b`c#`d#g#`c#`e`c#;"g#"bc#d#ef#g#`c#;g#b`c#`d#`e`f#`g#`b^^^[13r]}
STR FT4={[FTA;l16@11,10,0EP=70l16>>[4ef#gb][4f#ga`d][4f#ga`d][4egab][4cegb][4df#ga]<<@9,10,0EP=80""b"d"e"f#"bdef#b`d`e`f#>b`d[`e`f#]<:@101,0EP=127P=96l8>REV=100CHO=70"bdef#"bb"b<REV=20CHO=20]MD({>`e`f#<},2,!8)rrrr[8r]}
STR FT5={FTA;l16@11,10,0EP=70l16>>[4ef#gb][4f#ga`d][4f#ga`d][4egab][4cegb][4df#ga]<<@9,10,0EP=80""b"d"e"f#"bdef#b`d`e`f#>b`d[`e`f#]<@101,0EP=127P=96l8>REV=100CHO=70"bdef#"bb"b<REV=20CHO=20}
TR=15DL=HAZ;FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT4;DL=NK1;FT5;SBUP;FT1;FT1A;SBDN;DL=NK2;FTJ;FTK;DL=RF3;FT1;DL=SB3[FT4]SBUP[FT1:REC2]SBDN;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}STR BG10={@120,0l4'cd'^^^}
STR BG11={TrackKey=(K)@9,10,0P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)l16q=300REV=70EP=110c#ef#g#`c#`e`f#`g#>`c#`e`f#`g#>MD({`c#`e`f#`g#},7,!4)[24r]<<TrackKey=0P=84q=100REV=10EP=127}
STR BG12={TrackKey=(K)@125,5CHO=80REV=120EP=127BR=24p.T(64,64,!8,64,0,!2^4^8)P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4)l4'<<bf#d>>'^^^rCHO=20REV=10TrackKey=0P=84p=64}
STR BG13={TrackKey=(K)@9,10,0P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)l16q=300REV=70EP=110c#ef#g#`c#`e`f#`g#>`c#`e`f#`g#>`c#`e`f#`g#MD({`f#`e`c#g#},6,!4)[24r]<<TrackKey=0P=84q=100REV=10EP=127}
STR BG14={SBUP;@9,10,0P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)l16q=300REV=70EP=110c#ef#g#`c#`e`f#`g#>`c#`e`f#`g#>MD({`c#`e`f#`g#},7,!4)[24r]<<SBDN;P=84q=100REV=10EP=127}
STR BG15={SBUP;@9,10,0P.T(0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4,0,127,!4,127,0,!4)l16q=300REV=70EP=110c#ef#g#`c#`e`f#`g#>`c#`e`f#`g#>`c#`e`f#`g#MD({`f#`e`c#g#},6,!4)[24r]<<SBDN;P=84q=100REV=10EP=127}
TR=16DL=HAZ-1BG12;DL=HAZ+7BG3;DL=BGN+3BG11;DL=BGN+7BG4;DL=ME1+7BG3;DL=ME2+6BG1;BG2;BG12;DL=RF1+3BG13;DL=RF1+7BG4;DL=ME3+7BG3;DL=ME4+6BG1;BG2;BG12;DL=RF2+3BG14;DL=RF2+7BG4;DL=RF2+9BG12;DL=NK2+7BG3;
DL=RF3+3BG13;DL=RF3+7BG4;DL=RF3+8BG12;DL=SB3+7BG12;DL=SB4+3BG14;DL=END+3BG15;DL=END+7BG4;DL=END+8REC2;DL=END+11BG14;
}

If(TRACK_SELECT==2){
INT EST=158PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"HYPER DISCO MAGNUM"}Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,012,00,0,K,064,9,2,127,09,0)WIN(07,07,039,08,0,K,074,1,2,120,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,082,00,0,K,064,2,2,100,09,0)WIN(08,08,012,00,0,K,000,9,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,081,00,0,K,000,2,2,100,10,0)WIN(09,09,012,00,0,K,127,9,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,127,10,0)
WIN(04,04,083,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,120,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=2INT BGN=18INT ME1=26INT ME2=34INT SB1=42INT RF1=50INT ME3=58INT ME4=66INT SB2=75INT RF2=91INT NK1=99INT NK2=107INT NK3=115INT RF3=123INT ME5=131INT ME6=139INT SB3=147INT END=163
/*1*/STR MN1={ffffgarfg^ed^c^rdddddcda^aga^^^r;a#a#a#a#a#a#ra#a^a`d^afdggaa#a#`dr`c^^^^^rrr/*a^a^b^b^`c`c^`c^bag;a^a^b^b^`c`c^`e^`d`ca;`e^`e^`d^`d^`c`c^`c^`d`e^;`e^`e^`d^`d^bgb`e^^^r*/}
STR MN2={`d^`c^a#^a^`c`drf^fa`c;`d^`c^a#`c`d^`e`d`e`d^^^r;`f^`e^`d^`f^`e`cr`d^;`d`d^`d^`d`d`d`e`f`e^^^`a/*ab`cab`ca`c;b`c`db`c`db`d;gb`dgb`dg`d;`e^`d`c^a^r;`c^^r`ca`cb^^rrbgba^aga`cbga^^^r*/}
STR MN2A={`d^^^^^^^`c`drf^fa`c;`d^^^^^^^`e`d`e`d^^^r;`f`da#`d`f`da#`d`g`f`g`a^;`d`d^`d^`d`d`d`e`f`e^^^`a[8r]/*ab`cab`ca`c;b`c`db`c`db`d;gb`dgb`dg`d;`e^`d`c^a^r;`c^^r`ca`cb^^rrbgba^aga`cbga^^^r*/}
STR MN3={`e`d`ca[`e^^`d^^g^`d^b`c^bag:`e^^`d^^b^`d^^`c^ab`c]aaaab`crb^bb`c`d`g^r}
STR MN3A={[`e`d`ca[`e^^`d^^g^`d^b`c^bag:`e^^`d^^b^`d^^`c^ab`c]aaaab`crb^bb`c]`d`g^r}
TR=1l8HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2A;MN3A;DL=ME6;MN2;MN3A;})
/*2&3&4*/STR RTA={@82,110,0BR=6If(CH==3){p%=300}If(CH==4){p%=-300}}STR RTB={BR=6If(CH==3){p%=300}If(CH==4){p%=-300}}
STR RTH={RTB;If(CH==2){@82,90,1l4[8r]l1q=100[P.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1)'""a"""a'^^^]q=90P=64}
If(CH!=2){l4EP=100@15,10,1[10'`aa'^^^]}}
STR RTI={RTB;If(CH==2){l8EP=120[32r]@56,90,0HAM({SUB{errereccerrereggerrerecc}arraraggarrara`c`carraragg})}
If(CH!=2){@82,110,0EP=120M.W(0,80,!4)l16SUB{[[7eree]g^^r[3eree]g^^r:[3eree]g^^r]}[[7araa]`c^^r[3araa]`c^^r:[3araa]`c^^r]M=0}}
STR RTK={RTB;If(CH==2){@82,90,1l1q=100[P.T(0,127,!1,127,0,!1,0,127,!1,127,0,!1)'""a"""a'^^^]q=90P=64}If(CH!=2){l4EP=100@15,10,1[8'`aa'^^^]}}
STR RTJ={RTB;If(CH==2){l8EP=120[32r]@56,90,0HAM({SUB{errereccerrereggerrerecc}arraraggarrara`c`carraragg})}
If(CH!=2){@82,110,0SUB{l8EP=0[6r]EP=120}M.W(0,80,!4)l16SUB{[[7eree]g^^r[3eree]g^^r:[3eree]g^^r]}[[7araa]`c^^r[3araa]`c^^r:[3araa]`c^^r]M=0}
@1,90,0EP=127l16SUB{"e^"a"bcec"a}HAM({"a^degaec})@82,110,0EP=110[3['aec']:r]}
STR RT1={l8RTA;EP=120M.W(0,60,!4)CHO.W(0,127,!4)q=85['`e`ca'^'`e`ca'^'`dbg'^l16'`dbg'^['`dbg']l8'`dbg''`dbg'^'`cge'^'bge''afc''gec':[3'`e`ca'^]l16'`e`ca'^['`e`ca']l8'`dbg'^'`g`eb''`e`ca'^^^r][3'`e`ca'^]l16'`e`ca'^['`e`ca']l8'`dbg''`dbg'^'`dbg'^^^r}
STR RT1A={l8RTA;EP=120M.W(0,60,!4)CHO.W(0,127,!4)q=85['`e`ca'^'`e`ca'^'`dbg'^^rIf(CH==2){@11,10,0}Else{@9,10,0}EP=100q=300HAM({>gabg`cbae<})@82,110,0q=85EP=120:[3'`e`ca'^]l16'`e`ca'^['`e`ca']l8If(CH==2){@9,10,0}Else{@12,0}q=150HAM({'`dbg'^'`g`eb''`e`ca'^^^r})q=85@82,110,0][3'`e`ca'^]l16'`e`ca'^['`e`ca']l8'`dbg''`dbg'^'`dbg'^^^r}
STR RT1B={l8RTA @1,90,0If(CH==2){@3,0}V=120EP=127CHO=127REV=100q=100[HAM2({'`e`ca'^'`e`ca'^'`dbg'^l16'`dbg'^['`dbg']l8'`dbg''`dbg'^})HAM({SUB{a^gec}`c^bag}):HAM2({[3'`e`ca'^]l16'`e`ca'^['`e`ca']l8})HAM2({'`db'^'`gb''`e`c'^^^r})]HAM2({[3'`e`ca'^]l16'`e`ca'^['`e`ca']l8'`dbg''`dbg'^'`dbg'^^^r})M.W(0,60,!4)CHO.W(0,127,!4)q=85V=100REV=20}
STR RT2={RTA;If(CH!=2){@82,110,5EP=80l8[4r'fc"a'][4r'gec'][4r'fc"a'][4r'ec"a'][4r'fd"a#'][r'ec"a'][r'afd'][4r'a#fd'][4r'`cge']}}
STR RT2A={RTA; @1,90,0If(CH==2){@3,0}V=110EP=127CHO=127REV=100q=100HAM({SUB{ccccccrc`c^gf^e^r"a"a"a"a"a"a"ae^ede^^^r}ffffgarfg^ed^c^rdddddcda^aga^^^r})
HAM({SUB{f"a#def"a#dfe^ec^^^}a#dfaa#dfa#;SUB{c^c"a^^^}a^af^^^r;SUB{"a#^"a#"a#"a#"a#r"g^^^^^}SUB{d^ddddre^^^^^}g^aa#a#`dr`c^^^^^rrr})M.W(0,60,!4)CHO.W(0,127,!4)q=85V=100REV=20}
STR RT3={RTA;If(CH!=2){@82,110,5EP=90l8[3[4r'a#fd'][r'afd'][r'`daf']][4r'gd"a#'][r'aec']rrrr}}
STR RT3A={RTA;If(CH!=2){@82,110,5EP=90l8[32r][4r'a#fd'][r'afd'][r'`daf'][4r'gd"a#'][r'aec']rrrr}}
STR RT3B={RTB;If(CH!=2){@82,110,0EP=90l16'aec'^^['aec''aec':r]['aec'^^r]}}
STR RT4={RTA;If(CH!=2){@82,90,1EP=100l8[3[r'fc"a'][r'gd"b'][r'e"b"g'][r'aec']][4r'd"a"f'][4r'ge"b']}}
STR RT5={RTA;EP=127@19,110,0EP=95q=100If(CH!=2){@31,110,0}HAM({SUB{l8a^^g^^e^^l16a^g^g^e^d^cdeel8a^^g^^e^b^^a^^l16ab`c`cl8`c^^b^^`d^^`e^^l16`c^b^aegal8a^^b^^`c^^^^^^^^^}
BR=24p.W(64,64,!4,64,0,!8)l8`e^^`d^^b^^l16`c^b^b^a^g^egaal8`c^^b^^g^`e^^`c^^l16`c`d`e`el8`e^^`d^^`g^^`a^^l16`e^`d^`ca`c`dl8`e^^`g^^BR=24p.T(64,64,!1,64,0,!8)`a^^^^^^^^^[4r]})p=64}
STR RRF={DL=HAZ-2RTH;RTI;DL=BGN;RT1;RT2;RT3;RT4;DL=RF1;RT1;RT2;RT3A;RT3B[RT4]DL=RF2;RT1A;DL=NK1;RT5;DL=NK2;RTK;RTJ;RT1B;RT2A;RT3;DL=SB3+8RT4;DL=END[RT1:REC2]}TR=2;>RRF;TR=3RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,50,100)}STR BSH={[32r][[4ra]:[8r]]q=100BR=24`a^^^^^^&&"aBSA}
STR BSI={[[4a`a][c`c][d`d][4a`a]:[4g`g]]}STR BSJ={SUB{l8EP=0[6r]EP=127}[[4a`a][c`c][d`d][4a`a]:[4g`g]]rrrrl16aa^aa^aal8}STR BS1={BSA[[f`f][g`g][e`e][a`a]:[4f`f][e`e][a`a]][4d`d][4g`g]}
STR BS1A={BSA[[f`f][g`g][e`e][a`a]:[4f`f][e`e][a`a]][4d`d]ggrg^^`g&&g}
STR BS1B={q=100l16[[ff`f`f][gg`g`g][ee`e`e][aa`a`a]:[4ff`f`f][ee`e`e][aa`a`a]][4dd`d`d][4gg`g`g]l8}STR BS2={[4f`f][4c`c][4d`d][4a`a][4a#`a#][a`a][d`d][4g`g][4c`c]/*[6f`f][g`g][6a`a][g`g][6f`f][g`g][4a`a][4e`e]*/}
STR BS3={[3[4a#`a#][a`a][d`d]][4g`g]a`aaa^^^r/*[4f`f][4g`g][4e`e][4a`a][4f`f][4e`e][8a`a]*/}
STR BS3A={q=90EP=110[l4a#^^^l8a^^d^^^^]EP=127l8BSA[4a#`a#][a`a][d`d][4g`g]a`aaa^^^rq=100BR=12p.T(64,0,!1)`a^^^^^^^p=64BSA}
STR BS4={[3[f`f][g`g][e`e][a`a]][4d:`d]q=90g^ggggg^rBSA}
STR BS4A={[[3[f`f][g`g][e`e][a`a]]:[4d`d][4g`g]][4d:`d]q=90g^ggggg^rBSA}
STR BS4B={l1q=90a^^^q=100l16[12aa`a`a][araa]a^^ra^^r}STR BS4C={l16[3[ff`f`f][gg`g`g][ee`e`e][aa`a`a]][4dd:`d`d]l8q=90g^ggggg^rBSA}
STR BS5={[3[f`f][g`g][e`e][a`a]][f`f][g`g][4a`a]}STR BS6={l16q=90[4ara^gab^`c^a^`d^`c^:ara^aga^`c^rrrrrr]l8q=100BR=24`a^^^^^^&&"aBSA}
STR BASS={l8<<DL=HAZ;BSH;BSI;DL=BGN;BS1;BS2;BS3;BS4;BS1;BS2;BS3A;BS4A;BS1A;DL=NK1;BS5;BS6;BSJ;BS1;BS2;BS3;BS4B;BS4C[BS1B:REC2]}TR=5@40,90,0BASS;TR=7;<@39,1BASS;
/*6*/STR COJ={EP=85l4rrr`a^^^^^^^^l1`a^^^l16[8r][`a`a^]`a`a}
STR CO1={EP=110l1`a^^^`a^^^}STR CO2={EP=85l4SUB{`d^^^`e^^^`d^^^`c^^^`d^^^`c^`f^`d^^^`e^^}`f^^^`g^^^`f^^^`e^^^`f^^^`g^`a^`f^^^`g^^}
STR CO3={EP=95l8HAM({l16[12r]dfga[l4`f^^^l8`e^^`d^^l16dfga:l4`f^^^l8`g^^`f^^^^]l4`d^^^l8`e^^`a^^^^})}
STR CO3A={EP=95l8HAM({l16dfga[l4`f^^^l8`e^^`d^^l16dfga:l4`f^^^l8`g^^`f^^^^]l4`d^^^l8`e^^`a^^^^})l4'ec"a'^^^}
STR CO3B={EP=95l8HAM({l16dfga[l4`f^^^l8`e^^`d^^l16dfga:l4`f^^^l8`g^^`f^^^^]l4`d^^^l8`e^^`a^^^^})}
STR CO4={EP=100HAM({l1`a^^^`a^`f`g})}
STR CO5={EP=100HAM({l1`a^^^`a^^^})}STR CO6={EP=80HAM({l8[12`a^^r]l4`a^^^rrrr})}
TR=6@49,90,1DL=BGN;CO1;DL=ME2-1CO3;CO4;CO1;CO2;CO3A[CO4]CO1;DL=NK1;CO5;CO6;COJ;CO1;CO2;CO3B[CO4][CO1:REC2]
/*8&9*/STR ULA={BR=6If(CH==8){p%=200}Else{p%=-200}}STR UL1={ULA;ccccdfrce^c"a^"g^r"a"a"a"a"a"g"af^fef^^^r;ffffffrff^fa^fd"addeffarg^^^^^rrr}
STR UL2={ULA;a#^a^g^f^gard^dfa;a#^a^gaa#^`ca#`ca^^^r;SUB{a#^a^g^a#^aerf^;ff^g^ggggga^^^a}`d^`c^a#^`d^`cgra^;aa^a#^a#a#a#`c`d`c^^^`e}
STR UL2A={ULA;a#^^^^^^^gard^dfa;a#^^^^^^^`ca#`ca^^^r;SUB{a#fdfa#fdfa#aa#`c^;ff^g^ggggga^^^a}`da#fa#`da#fa#`d`c`d`f^;aa^a#^a#a#a#`c`d`c^^^`e[8r]/*ab`cab`ca`c;b`c`db`c`db`d;gb`dgb`dg`d;`e^`d`c^a^r;`c^^r`ca`cb^^rrbgba^aga`cbga^^^r*/}
STR UL3={ULA;SUB{MN3}SUB{`cafd}`a`g`f`d;SUB{[`c^^b^^g^b^b`c^^^r:`c^^b^^g^b^^`c^^^r]}[`a^^`g^^`e^`g^`g`a^^^r:`a^^`g^^`e^`g^^`a^^^r]/*[3SUB{`c^^`c^^`c^b^b`c^^^}`a^^`a^^`a^`g^`g`a^^^r]*/SUB{ddddefre^eefgb^r}ffffgarg^ggab`d^r
/*SUB{[`c^^b^^g^b^ga^gfe:`c^^b^^g^b^^a^`c`d`e]ddddefre^eefgb^r}[`a^^`g^^`e^`g^`e`f^`e`d`c:`a^^`g^^`e^`g^^`f^`e`f`g]ffffgarg^ggab`d^r*/}
STR UL3A={ULA;SUB{MN3A}[SUB{`cafd}`a`g`f`d;SUB{[`c^^b^^g^b^b`c^^^r:`c^^b^^g^b^^`c^^^r]}[`a^^`g^^`e^`g^`g`a^^^r:`a^^`g^^`e^`g^^`a^^^r]SUB{ddddefre^eefgb^r}ffffgarg^gga]b`d^r}
STR ULMR={DL=ME1;l8>UL1;UL2;HAM2({UL3})DL=ME3;UL1;UL2A;HAM2({UL3A})DL=ME6;UL2;HAM2({UL3A})}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={""""cn35n36``f#``g#}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDH={[[O1;rO1;rO2;rO1;r[O1;rr]O2;r:O1;rO1;rO2;rO1;r[O1]rO1;O2;rO1;r]:[3O1;r:r][O1;rrr]][16r]}STR DDI={[16O1;r:rr]O1;r[12O1;rrr]}STR DDJ={[12r][13O1;r:rr]O1;r[12O1;rrr][8r][3[O1]:r]}
STR DD1={[32O1;rrr]}STR DD1A={[28O1;r:rr][O1]l8[O1]rO1;rrrrl16}STR DD2={[32O1;rrr]}STR DD3={[26O1;rrr][4O1;r][8r][O1;rrr]}STR DD3A={[O3[15r][O1;r]rrO4[9r]][10O1;rrr][4O1;r][8r][O1;rrr]O3[15r]}
STR DD4={[27O1;r:rr][O1;rrr][5O1;r]rrrr}STR DD4A={[27O1;r:rr][O1;rrr]rr[O1;rrr][O1;r]}STR DD4B={O3[63r][O3[15r]][O3[7r]][4O3;r]SUB{[O3;rrr]}[8O1]}
TR=10l16DL=HAZ@1,90,1BR=20p%=2500REV=50V=100DDH@27,90,0BR=20p%=-700REV=20DDI;DL=BGN@27,90,0BR=20p%=-700REV=20V=127DD1;DD2;DD3;DD4;DD1;DD2;DD3A;DD4A;DD4;DD1A;
DL=NK1;DD1@1,90,1BR=20p%=2500REV=50DDH@27,90,0BR=20p%=-700REV=20DDJ;DD1;DD2;DD3;DD4B;DD4[DD1:REC2]
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGH={[14[4GR]GB;r[GR]][4GR]GB;r[4GR]GB;rGR;GB;rGB}STR GGI={[15GR;rGB;r][GR][GB][12GR;GR;GB;r]}STR GGJ={[12r][12GR;rGB;r][GR][GB][12GR;GR;GB;r][8r][3[GB]:r]}
STR GG1={[32GR;rGB;r]}STR GG1A={[27GR;rGB;r][GR][GB]l8[GB]rGB;rrrrl16}STR GG2={[30GR;rGB;r][GR;GR;GB;r]}STR GG3={[28GR;rGB;r][4GB;rrr]}STR GG3A={[8'n51n59'^^^^^^^][12GR;rGB;r][4GB;rrr][16r]}
STR GG4={[27GR;rGB;r]rrl8[6GB]rrrl16}STR GG4A={[27GR;rGB;r]rrl8[6GB]rl16GR;GR;GB;r}STR GG4B={[64r][12rrGB;r][4GB;r][8GB]}
TR=11l16DL=HAZ@12,7,0BR=20p%=1500GGH@26,100,0BR=20p%=500GGI;DL=BGN@26,100,0BR=20p%=500GG1;GG2;GG3;GG4;GG1;GG2;GG3A;GG4A;GG4;GG1A;
DL=NK1;GG1@12,7,0BR=20p%=1500GGH@26,100,0BR=20p%=500GGJ;GG1;GG2;GG3;GG4B;GG4[GG1:REC2]
/*12*/STR PA={'>>ab<<'}STR PD={'n38n40>>gab<<'}STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}
STR PD3A={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PPH={SUB{PD3}[8'n35n36n49'[15r]]}STR PPI={SUB{PD3A}[56r][PA]r[5PA][6rrrrPD;rrr][16r]}STR PPK={SUB{PD3}[8'n35n36n49':[15r]][7r][8'n35n36']}
STR PP1={SUB{PD3}[14rrrrPD;rrr][5PA]r[PA][PD[3PA]]}STR PP1A={SUB{PD3}[14rrrrPD;rrr]l8[PD]rPD;rrrrl16}STR PP2={[15rrrrPD;rrr][PA]r[5PA]}STR PP3={[13rrrrPD;rrr][4PA;r][PA]r[5PA][8r]}STR PP3A={[64r][5rrrrPD;rrr][4PA;r][PA]r[5PA][8r]PA;rr[[PA]:r][[PA]rr]}
STR PP4={SUB{PD3}[14rrrrPD;rrr]rr[6PA;r]rr}STR PP4A={SUB{PD3}[15rrrrPD;rrr][8r]}STR PP4B={SUB{PD3}[64r][[3PA;rrr]PA;PA;rr][8PA;r][16PA]}
TR=12l16DL=HAZ@27,90,0V=100BR=20p%=-1000PPH@27,90,0V=127BR=20p%=3000PPI;DL=BGN@27,90,0V=127BR=20p%=3000PP1;PP2;PP3;PP4;PP1;PP2;PP3A;PP4A;PP4;PP1A;
DL=NK1;PP1@27,90,0BR=20p%=-1000PPK@27,90,0BR=20p%=3000PPI;PP1;PP2;PP3;PP4B;PP4[PP1:REC2]
/*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR DS18={[8r]`g`f`e`d`cbag}
TR=13l16<DL=HAZ@48,0V=127REV=70CHO=100PG1;HAM({DL=HAZ+1DS12;DL=HAZ+3DS13;DL=HAZ+5DS15;DL=HAZ+7DS8;DL=HAZ+11DS7;DL=BGN+3DS18;DL=BGN+7DS12;DL=ME1+3DS6;DL=ME1+7DS1;DL=ME2+3DS7;DL=ME2+7DS14;DL=SB1+3DS18;DL=SB1+7DS2;DL=RF1+3DS18;DL=RF1+7DS12;})
HAM({DL=ME3+3DS6;DL=ME3+7DS1;DL=ME4+3DS7;DL=ME4+7DS14;DL=SB2+3DS18;DL=SB2+7DS12;DL=SB2+11DS18;DL=SB2+15DS2;DL=RF2+3DS18;DL=RF2+7DS2;DL=NK1+3DS18;DL=NK1+7DS2;DL=NK2+1DS12;DL=NK2+3DS13;DL=NK2+5DS15;DL=NK2+7DS8;DL=NK3+3DS7;DL=RF3+3DS18;DL=RF3+7DS12;})
HAM({DL=ME5+3DS6;DL=ME5+7DS1;DL=ME6+3DS7;DL=ME6+7DS14;DL=SB3+3DS6;DL=SB3+7DS12;DL=SB3+11DS18;DL=SB3+15DS2;DL=END+3DS18;DL=END+7DS2;DL=END+8REC2;DL=END+11DS18;})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={SPA@29,90,0EP=90l16<<[7gaaga^gg^aagageg][16r]>>}
STR SPI={SPA@29,110,1EP=100l16<<[7aecrarcra"ararrrr]>>}STR SPJ={SPA@29,110,1SUB{l8EP=0[6r]EP=100}l16<<[7aecrarcra"ararrrr]>>[8r]a"ararrrr}
STR SP1={SPA@46,0EP=120l16[4a`c`d`e][gb`c`d][6a`c`d`e][gb`c`d][a`c`d`e];[4a`c`d`e][gb`c`d][a`c`d`e][4f`c`d`e][4gb`c`d]/*[12dfga][efga][dfga][12dfga][4cdfg]*/}
STR SP2={SPA@36,0EP=90l8[f"acf][gceg][d"acd][adfa][a#faa#]aega`dfa`d[a#dfa#][`ceg`c]
/*[4"acdf][4"g"ace][4"f"acd][4cdfa][4dfga#][cdfa][fa`c`d][4"g"a"a#d][4"e"g"ac]*/}
STR SP3={SPA@82,110,0EP=80l16[3[4dfga#][dfga][da`c`d]][4"a#dfg]["aega][8r]}
STR SP3A={SPA@82,110,0EP=80l16[64r][4dfga#][dfga][da`c`d][4"a#dfg]["aega][16r]@82,1EP=127q=100cde"aega"aq=90}
STR SP4={SPA@46,0EP=100l16[16af`cf`df`ef]}STR SP4A={SPA@29,90,0EP=100l8<HAM({[4"a"a"a'aec'^^^^:"a"a'aec'^"a"a^"a][8r]})>}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3A[SP4]SP1;DL=NK1;SP4;SPH;SPJ;SP1;SP2;SP3;SP4A;SP4[SP1:REC2]
/*15*/STR FTH={@56,90,1l16EP=90HAM({ec"a"bc^d^e^g^a^e^})l8[6r]@82,110,0l16SUB{'`ce'^^^}a^^&&`e'`a`e`c'^^^^^^^l8@82,90,1rrMD({'`a`e`c'^},3,!2)rr[10r]@9,10,0l16HAM({ab`ca`c`d`eg})
l8[6r]@82,110,0l16SUB{'`ce'^^^}a^^&&`e'`a`e`c'^^^^^^^l8@82,90,1rrMD({'`a`e`c'^},2,!2)[8r]@56,90,1l16EP=100HAM({ec"a"bc^d^e^g^a^e^})}
STR FTI={@31,91,0EP=75BR=24l8p.W(64,64,!8^16,64,0,!16)[[3'"a"e''"a"e''aec'^'"a"e''aec'^^]:'gd"b'^'"g"d''gd"b'^^'"g"d''"g"d']p=64}
STR FTK={EP=100l8[6r]@82,110,0l16SUB{'`ce'^^^}a^^&&`e'`a`e`c'^^^^^^^l8@82,90,1rrMD({'`a`e`c'^},3,!2)rr[10r]@9,10,0l16HAM({ab`ca`c`d`eg})
l8[6r]@82,110,0l16SUB{'`ce'^^^}a^^&&`e'`a`e`c'^^^^^^^l8@82,90,1rrMD({'`a`e`c'^},2,!2)[8r]@56,90,1l16EP=100HAM({ec"a"bc^d^e^g^a^e^})}
STR FTJ={@31,91,0SUB{l8EP=0[6r]EP=75}BR=24p.W(64,64,!8^16,64,0,!16)[[3'"a"e''"a"e''aec'^'"a"e''aec'^^]:'gd"b'^'"g"d''gd"b'^^'"g"d''"g"d']p=64l16[8r][3['aec']:r]}
STR FT1={/*@31,110,0EP=90*/@103,0EP=120REV=100l8HAM({'ad'^^^^^^^^^^^'`cf'^'bf''ge'^^^^^^^^'ae'^^^^^^^;'ad'^^^^^^^^^^^'`cf'^'bf''fd'^^^^^^^^'gd'^^^^^^^})REV=20}
STR FT2={@82,90,1EP=100l8>rr'fc"a''fc"a'^^^^'gec'^^^^^^^rr'fc"a''fc"a'^^^^'ec"a'^^^^^^^rr'fd"a#''fd"a#'^^'fd"a#'^'ec"a'^'ec"a''afd'^^^^rr'fc"a''fc"a'^^^^'gec'^^^^^^^<}
STR FT3={@82,90,1EP=110[3l16['`da#f'^^r][8r]l8'`e`ca'^r'`daf'^^^r]@82,110,0EP=90l8'a#gd'^[5'a#gd']'ae`c'^^^'ae`c'^^^r}
STR FT3A={@56,90,0EP=100l16HAM({SUB{e^^eeree}a^^aaraa[8r]})}
STR FT4={@82,110,0EP=110l8[3'`e`ca'^r'`dbg'^r'bge'^'`dbg'^'bge''`cae'^^^r]>[4'afd']'bgd''`cae'r'bgd'^['bgd']'`cae''`dbg''`g`db'^r<}
STR FT5={@82,110,0EP=110l8[4'`e`ca'^r'`dbg'^r'bge'^'`dbg'^'bge''`cae'^^^r]}
TR=15DL=HAZ-1FTH;FTI;DL=BGN;FT1;FT2;FT3;FT4;FT1;FT2;FT3;FT3A[FT4]FT1;DL=NK1;FT5;FTK;FTJ;FT1;FT2;FT3[FT4][FT1:REC2]
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}STR BG10={@120,0l4'cd'^^^}STR BG11={@79,0l4BR=80p.T(127,0,!1)`g^^^p=64}
STR BG12={@126,1l4BR=48EP=80[7p.T(127,0,!1)'>>cde<<'^^^]p=64EP=127}STR BG13={@128,3l4>>M=127REV=127CHO=127BR=24SUB{'af'^^^^^^^}`d^^^^^^^&&d<<M=0CHO=20REV=10}
STR BG14={TrackKey=(K);@126,3l4EP=120REV=80[4P.T(0,127,!1)'`e`c'^^^:P.T(127,0,!1)'`e`c'^^^]P=64REV=10EP=127TrackKey=0}STR BG15={@123,4l16>>BR=24p.T(64,0,!1)['af`d'^^:[['af`d']:r]]'af`d'<<@80,0l4BR=120p.T(127,0,!6)`gp=64M=0CHO=20REV=10}
STR BG16={TrackKey=(K);@126,3l4EP=120REV=80[P.T(0,127,!1)'`e`c'^^^:P.T(127,0,!1)'`e`c'^^^]P=64REV=10EP=127TrackKey=0}
TR=16DL=HAZ;BG12;DL=HAZ+7BG11;DL=HAZ+8BG14;DL=HAZ+15BG13;DL=BGN+7BG4;DL=ME1+7BG10;DL=ME2+6BG1;BG2;DL=SB1+7BG2;DL=RF1+7BG4;DL=ME3+7BG10;DL=ME4+6BG1;BG2;BG15;DL=SB2+7BG3;DL=SB2+15BG2;DL=RF2+7BG4;DL=NK1+7BG10;
DL=NK2+7BG11;DL=NK3;BG13;DL=NK3+4BG16;DL=NK3+7BG3;DL=RF3+7BG4;DL=ME5+7BG10;DL=ME6+6BG1;BG2;DL=SB3;BG13;DL=SB3+7BG4;DL=SB3+15BG2;DL=END+7BG4;
}

If(TRACK_SELECT==3){
INT EST=154PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={"BLUE LIGHT CHRISTMAS"}Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS;
FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)}
FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}FUNCTION GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
FUNCTION HAM(STR SA){Sub{Key=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST;
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
K=TRACK_KEY;
//-(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@  ,2 ,3,K, P ,C,R, v ,q ,M)
WIN(01,01,083,00,0,K,064,4,2,127,09,0)WIN(07,07,039,08,0,K,074,1,2,127,09,0)WIN(13,13,119,00,0,0,___,5,0,127,09,0)
WIN(02,02,099,01,0,K,064,2,2,100,09,0)WIN(08,08,083,00,0,K,000,3,2,100,09,2)WIN(14,14,082,01,0,K,___,2,2,127,09,0)
WIN(03,03,089,00,0,K,000,2,2,100,10,0)WIN(09,09,083,00,0,K,127,3,2,100,09,2)WIN(15,15,003,00,0,K,096,2,2,110,10,0)
WIN(04,04,103,00,0,K,127,2,2,100,10,0)WIN(10,10,025,00,0,0,064,3,1,127,10,0)WIN(16,16,091,00,0,0,084,2,1,127,10,0)
WIN(05,05,039,00,0,K,054,2,2,127,09,0)WIN(11,11,025,00,0,0,064,3,0,127,09,0)//--Light source ver1.7--//
WIN(06,06,049,00,0,K,032,1,2,120,10,0)WIN(12,12,026,00,0,0,064,3,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP;
INT HAZ=1INT BGN=18INT ME1=26INT ME2=34INT SB1=42INT RF1=58INT ME3=66INT ME4=74INT SB2=82INT RF2=99INT NK1=107INT NK2=115INT NK3=123INT ME5=133INT ME6=141INT SB3=149
INT SB4=165INT RF3=181STR SBUP={TrackKey=(K+1);}STR SBDN={TrackKey=K;}
/*1*/STR MN1={CHO=90f#^^d^^"a^^r"a^d^f#^e^^c#^^"a^^r"a^c#^e^;f#^^d^^"a^f#^^g^^f#^e^^^^^rrc#c#c#c#^de^CHO=40/*f#^gf#^^g^a^^^e^^^a^ba^^b^a^gf#^^^rg^f#g^^a^g^f#g^^b^`d^^^^^^^`c#^^^^^^^*/}
STR MN2={a^ba^^b^`c#^^`c#^^^rb^`c#b^^`c#^`d^^`d^^^r;a^bg^^`f#^`e^`c#b^^a^`c#^^b`c#^`c#`d^^^^r}
STR MN3={a`d`e[`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`a`b^^^`a^^^r:`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`f#`e^^r`c#^`d`e^]
`f#^`f#^`f#`g`a`g^`f#^`e^`d#^`d#`e^`e`e`e`f#^`e^^r`c#^`d`e^`f#^^^^^^^rrrr;
/*f#gf#ga^a^f#gf#ga^a^f#gf#ga^ba^^ba^gf#gf#dr"addef#^^r"addef#^^gf#^^gf#^^ed^e^r;f#gf#ga^a^f#gf#ga^a^f#gf#ga^ba^^b`c#^a^`d^^rdbaga^^bf#^ed^gf#gf#gf#ga^^b`c#^^a^`d^^^^^^^*//*f#^g^f#^g^a^^ee^^rd^e^d^e^f#^^f#f#^^rg^f#e^^d#^g^f#e^^d#^eef#ed#ef#ga^^a^^^r;f#^g^f#^g^a^^ee^^ra^b^a^b^a^^gf#^^rg^f#e^^d#^g^f#e^^d#^ggagf#ab`c#`d^^^`c#^^^`d^^^^^^^*/}
STR MN4={a`d`e[`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`a`b^^^`a^^^r;`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`f#`e^^r`c#^:`d`e^]}
STR MN5={a`d`e[`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`a`b^^^`a^^^r:`f#^`f#^`f#`g`a`g^`f#^`e^`d^r`f#^`f#^`f#`g`f#`e^^r`c#^`d`e^]
`f#^`f#^`f#`g`a`g^`f#^`e^`d#^`d#`e^`e`e`e`f#^`e^^r`c#^`d`e^}
STR MN6={>l4f#^^^^^^ga^^^d^^rb^^^^^aba^^^f#^^ga^^^^^f#ga^^^^^^rg^^f#ag^"bd^^^c#^^^d^^^l8<}
TR=1l8q=98HAM({DL=ME1;MN1;MN2;MN3;DL=ME3;MN1;MN2;MN3;DL=ME5;MN1;DL=SB3-1[5r]MN4;SBUP;MN5;MN6;SBDN;})
/*2&3&4*/STR RTA={If(CH==2){@9,10,0q=200CHO=100}BR=6If(CH==3){p%=250@11,10,0q=200}If(CH==4){p%=-250@11,10,0q=200}}
STR RTB={If(CH==2){q=100CHO=20}BR=6If(CH==3){p%=250q=100}If(CH==4){p%=-250q=100}}
STR RTH={RTB;If(CH==2){@82,90,1EP=100l8<[3[3'`daf#'^^]r[3'`daf#'^]][3'`e`c#a'^^]r[3'`e`c#a'^]>}If(CH!=2){l8[64r]}}
STR RTI={RTA;If(CH==2){@82,90,1EP=100l8<[3[3'`daf#'^^]r[3'`daf#'^]][3'`e`c#a'^^]r[3'`e`c#a'^]>}
If(CH!=2){>@15,10,2EP=120l8d^^^^^^^^^[3a^g^f#^:d^^^^^^^^^]e^^^^^^^^^c#^d^e^<}}
STR RTJ={RTB;If(CH==2){@12,10,0EP=90y64=127REV=80c#"ac#ea`c#`e`aREV=20y64=0;}If(CH!=2){@82,90,1l4EP.T(70,127,!1)'aec#'^^^}}
STR RT1={RTA;l8EP=90REV=70SUB{af#ab`daf#f#^f#ab`daf#^;ac#f#a`c#af#f#^c#f#a`c#af#^;gef#gbgee^"begbge^;SUB{ee^e^^^^`d`c#^`c#^^^^}aa^a^^^^ba^a^^^^}
HAM({`da`d`e`f#`e`d`d^a`d`e`f#`e`d^`c#f#a`c#`e`d`c#`c#^f#a`c#`e`d`c#^;bgab`d`c#bb^gab`d`c#b^`d`c#^`c#^^^^`f#`e^`e^^^^})}
STR RT2={RTB;If(CH==2){@103,0EP=110l8[10r]>SUB{"f#"g"a^c#^"a^^^^^^^^^"a"b"a^"d^"f#^^^^^^^^^"e"f#"g^"b^"a^^^^^^^}"a"bc#^f#^e^^^^^^^^^c#dc#^"f#^"b^^^^^^^^^"g"a"b^f#^e^^^^^^^
l16@9,10,0EP=100HAM({c#"f#"a"be"ac#eg"bdgac#ea})<}
If(CH!=2){If(CH==3){@39,0}Else{@39,8}l8EP=100[6r'af#d'][r'`c#ae'][8r'`daf#'][6r'bge']r'`daf#'r'`ebg'[8r'`e`c#a']}}
STR RT2A={RTB;If(CH==2){@103,0EP=110l8[10r]>SUB{"f#"g"a^c#^"a^^^^^^^^^"a"b"a^"d^"f#^^^^^^^^^"e"f#"g^"b^"a^^^^^^^}"a"bc#^f#^e^^^^^^^^^c#dc#^"f#^"b^^^^^^^^^"g"a"b^f#^e^^^^^^^
l16@9,10,0EP=100HAM({c#"f#"a"be"ac#eg"bdgac#ea})<}If(CH!=2){l8[64r]}}
STR RT3={RTB;If(CH==2){l8EP=110@56,90,1'bg'[7r]@9,10,0HAM({ef#ggegab})@56,90,1'`c#a'[7r]@9,10,0HAM({"bdef#"bf#ab})@56,90,1'bg'[7r]@9,10,0HAM({`f#`e`db`d`c#bf#})@11,10,0HAM({SUB{e^^c#e^ef#^^^^^}a^^f#a^ab^^^^^rrr})}
If(CH!=2){If(CH==3){@39,0}Else{@39,8}l8EP=105[[4r'bge'][4r'`c#af#']:[4r'`c#ae'][4r'`dbf#']][r'`c#ae'][12r]}}
STR RT4={RTB;If(CH==2){[l8@56,90,1EP=110'd"a'rr'd"a''d"a'@15,10,2HAM2({`c#`d`a^^^^^^^^})@56,90,1'd"a'rrrr'd"a'r'c#"a'rrl16@15,10,0EP=90q=300HAM({f#gf#d"a^[6r]})q=100:l4@104,0EP=110'`daf#'^^^'`c#af#'^^^'bge'^^^l8r@15,10,0EP=90q=300HAM({"adaf#"ae^})q=100]
l4@104,0EP=110;'`da'^'`c#a'^'`cg#'^'bg'^'ae'^^^l8rrrrl16@12,10,0q=300HAM2({`a`g`f#`e`daf#d})q=100}
If(CH!=2){If(CH==3){@39,0}Else{@39,8}l8EP=110[[[4r'af#d'][r'`dbg'][r'`e`c#a']]:[r'af#d'][r'af#c#'][r'ge"b'][r'f#d"a'][4r'`dbg'][4r'`e`c#a']]
[r'af#d'][r'af#c#'][r'g#ec'][r'ge"b'][4r'`dbg'][4r'`e`c#a']}}
STR RT4A={RTB;If(CH==2){[l8@56,90,1EP=110'd"a'rr'd"a''d"a'@15,10,2HAM2({`c#`d`a^^^^^^^^})@56,90,1'd"a'rrrr'd"a'r'c#"a'rrl16@15,10,0EP=90q=300HAM({f#gf#d"a^[6r]})q=100l4@104,0EP=110'`daf#'^^^'`c#af#'^^^'bge'^^^l8r@15,10,0EP=90q=300HAM({"adaf#"ae^})q=100]}
If(CH!=2){@11,0l8EP=110[[df#af#]dgbgegac#]df#af#;c#eae;"bdf#d;"adf#d["g"bd"b]["ac#ec#]
If(CH==3){@39,0}Else{@39,8}l8EP=110[[4r'af#d'][r'`dbg'][r'`e`c#a']][r'af#d'][r'af#c#'][r'ge"b'][r'f#d"a'][4r'`dbg'][4r'`e`c#a']}}
STR RT5={RTB;If(CH==2){l8EP=85[14r]l16@15,10,0y64=127HAM2({`f#`e`dab^^^})y64=0l8[14r][14r]l16@15,10,2y64=127HAM({f#ab`c#`d^^^})l8y64=0[14r]}
If(CH!=2){If(CH==3){@91,0}Else{@81,0}l8EP=90[32r'<bf#d>']}}
STR RT6={RTB;If(CH==2){@5,24l16EP=127CHO=127M=120HAM2({SUB{[`d^`c#rbr`c#^^^brarb^^^argra^^^gr:f#^^r]}[`f#^`er`dr`e^^^`dr`c#r`d^^^`c#rbr`c#^^^br:a^^r]})CHO=20M=0@15,10,2EP=85y64=127HAM({"bef#ab^})y64=0
@5,24l16EP=127CHO=127M=120HAM2({SUB{[`c#rbr`c#^^^brarb^^^argra^^^:grf#^^r;`d^]}[`er`dr`e^^^`dr`c#r`d^^^`c#rbr`c#^^^:bra^^r;`f#^]})CHO=20M=0rrrrrr}
If(CH!=2){@82,110,0l8EP=80[28r'bf#d'][4r'aec#']}}
STR RT7={RTA;If(CH==2){@82,90,1EP=100l8<[3[3'`daf#'^^]r[3'`daf#'^]][3'`e`c#a'^^]r[3'`e`c#a'^]>}
If(CH!=2){>@15,10,2EP=120l8[26r][a^g^f#^:d^^^^^^^^^]e^^^^^^^^^c#^d^e^<}}
STR RT8={RTB;If(CH!=2){@82,90,1EP=100l4'`daf#'^^^^^^^}}
STR RRF={l8DL=HAZ;RTH;RTI;RTJ;DL=BGN;RT1;RT2;RT3;RT4;DL=RF1;RT1;RT2A;RT3;RT4;DL=RF2;RT1;RT5;RT6;RT7;RT8;DL=ME5;RT2A;RT3;RT4A;SBUP;RT4;DL=RF3[RT1]RT8;SBDN;}TR=2;>RRF;TR=3;>RRF;TR=4RRF;
/*5*/STR BSA={q.onCycle(!8,70,100)}STR BSH={q=100l4rrr"d&&d^^^^^^^"b^^^^^^^g^^^^^^^a^^^^^^^l8BSA}
STR BSI={[8d`d][8"bb][8g`g][8a`a]}STR BSJ={q=100l4"a^^^l8BSA}
STR BS1={BSA[7d`d]e`e[8f#`f#][6e`e]f#`f#g`g[4a`a]q=90aa^a^^^rBSA}STR BS1A={q=100l4d^^^^^^ef#^^^^^^re^^^^^f#ga^^^^^^rl8BSA}
STR BS1B={BSA[7d`d]e`e[8f#`f#][6e`e]f#`f#g`g[8a`a]}
STR BS2={[6d`d][e`e][8f#`f#][6e`e]f#`f#g`g[4a`a]q=100a^^^^^^&&"aBSA}
STR BS2A={q=100l4d^^^^^e^f#^^^^^^re^^^^^f#ga^^^^^^rl8BSA}
STR BS3={[[4g`g][4a`a]:[4f#`f#][4"bb]][f#`f#]q=90f#^f#"b^^^^^^rrBSA}STR BS4={[[[4d`d][g`g][a`a]]:[d`d][c#`c#]["bb]["aa][4g`g][4a`a]][d`d][c#`c#][c`c]["bb][4e`e][4a`a]}
STR BS4A={[64r]q=100l4EP.T(50,127,!1^1)[d^^^g^a^]d^c#^"b^"a^g^^^a^^^l8BSA}
STR BS5={q=90["bbrbrbrbrbrbf#f#af#"bbrbrbrbrbrbf#f#a^]BSA}STR BS6={[16"bb][8g`g][4"bb][4"aa]}
STR BS7={[32r]l4q=100g^^^^^^^a^^^^^^^l8BSA}STR BS8={l4q=100`d^^^^^^^l8BSA}
STR BASS={l8<<DL=HAZ-1BSH;BSI;BSJ;DL=BGN;V=115CHO=50BS1;BS2;BS3;BS4;BS1;BS2A;BS3;BS4[6r]`d&&dBS1A;DL=NK1;BS5;BS6;BS7;BS8;DL=ME5;BS2A;BS3;BS4A;SBUP;BS4;BS1B;BS1;BS8;SBDN;}TR=5@40,90,0BASS;TR=7@88,0;<EP.W(120,50,!8)BASS;
/*6*/STR COI={EP=70l4>[3'`f#`d'^^^^^^^]'`ea'^^^^^^^<}
STR CO1={l4EP=90'`f#`daf#'^^^^^^^'`e`c#af#'^^^^^^^'`dbge'^^^^^^^'`e`c#ae'^^^'`a`e`c#a'^^^}
STR CO2={EP=70HAM({l4SUB{`d^^^^^`e^`f#^^^^^^^`e^^^^^`c#`d`e^^^^^^^}`f#^^^^^`g^`a^^^^^^^`g^^^^^`f#`g`a^^^^^^^})}
STR CO3={EP=75HAM({SUB{g^^^a^^^f#^^^b^^^g^^^a^^^f#^^^d^^^}b^^^`c#^^^`c#^^^`d^^^b^^^`c#^^^a^^^b^^^})}
STR CO4={EP=80HAM({[3`d^^^^^^^]b^^^`c#^^^[`d^^^^^^^]`d^`c#^`c^b^`e^^^`c#^^^})}
STR CO4A={EP=80l4[['`daf#'r]'`ebg'r'`f#`da'r]'`daf#'r'`c#af#'r'bgd'r'af#c#'r['gb`d'r]['a`c#`e'r]HAM({[3`d^^^^^^^]b^^^`c#^^^})}
STR CO5={EP=70HAM2({["b^^^^bf#a"b^^^^^^^]})}STR CO6={EP=75l4SUB{>[14'`b`f#'r]['`a`e'r]<}'`dbf#'^^^^^^^'`c#af#'^^^^^^^'bgd'^^^^^^^'`dbf#'^^^'`c#ae'^^^}
STR CO7={EP=70l4>[16r]'`f#`d'^^^^^^^;'`ea'^^^^^^^<}STR CO8={l4>EP=70'`daf#'^^^^^^^<}
TR=6@49,90,1DL=HAZ+8COI;DL=BGN;CO1;DL=ME2;CO3;CO4;CO1;CO2;CO3;CO4;l4HAM({'`c#'^^r});DL=RF2;CO1;CO5;CO6;CO7;CO8;DL=ME5;CO2;CO3;CO4A;SBUP;CO4[CO1]CO8;SBDN;
/*8&9*/STR ULA={BR=6If(CH==8){p%=230}Else{p%=-230}}STR UL1={ULA;CHO=100d^^"a^^"f#^^r"f#^"a^d^c#^^"a^^"f#^^r"f#^"a^c#^;d^^"b^^"f#^d^^d^^d^c#^^^^^rrSUB{eeee^f#a^}"a"a"a"a^"bc#^CHO=30}
STR UL2={ULA;e^f#e^^f#^a^^a^^^rf#^af#^^a^b^^b^^^r;e^f#d^^`c#^`c#^af#^^e^SUB{e^^de^ef#^^^^}a^^f#a^ab^^^^r}
STR UL3={ULA;SUB{df#g}f#ab[SUB{a^a^ab`c#b^a^f#^d^ra^a^ab`c#`e^^^`c#^^^r}`d^`d^`d`e`f#`e^`d^b^a^r`d^`d^`d`e`f#`g^^^`f#^^^r:SUB{a^a^ab`c#b^a^g^f#^ra^a^aaaa^^re^f#a^}`d^`d^`d`e`f#`e^`d^`c#^b^r`d^`d^`d`d`d`c#^^ra^b`c#^]
SUB{a^a^ab`c#b^a^g^f#^f#g^ggga^a^^rf#^ga^a^^^^^^^}`d^`d^`d`e`f#`e^`d^`c#^`c^`cb^bbb`d^`c#^^ra^b`c#^`d^^^^^^^rrrr}
STR UL4={ULA;SUB{df#g}f#ab[SUB{a^a^ab`c#b^a^f#^d^ra^a^ab`c#`e^^^`c#^^^r}`d^`d^`d`e`f#`e^`d^b^a^r`d^`d^`d`e`f#`g^^^`f#^^^r;SUB{a^a^ab`c#b^a^g^f#^ra^a^aaaa^^re^}`d^`d^`d`e`f#`e^`d^`c#^b^r`d^`d^`d`d`d`c#^^ra^:SUB{f#a^}b`c#^]}
STR UL5={ULA;SUB{df#g}f#ab[SUB{a^a^ab`c#b^a^f#^d^ra^a^ab`c#`e^^^`c#^^^r}`d^`d^`d`e`f#`e^`d^b^a^r`d^`d^`d`e`f#`g^^^`f#^^^r:SUB{a^a^ab`c#b^a^g^f#^ra^a^aaaa^^re^f#a^}`d^`d^`d`e`f#`e^`d^`c#^b^r`d^`d^`d`d`d`c#^^ra^b`c#^]
SUB{a^a^ab`c#b^a^g^f#^f#g^ggga^a^^rf#^ga^}`d^`d^`d`e`f#`e^`d^`c#^`c^`cb^bbb`d^`c#^^ra^b`c#^}
STR UL6={>l4SUB{"a^^^^^^"bd^^^"f#^^rd^^^^^c#dc#^^^"a^^c#d^^^^^"a"bd^^^^^^r"b^^"a#c#"b^"e"f#^^^"e^^^"f#^^^}d^^^^^^ef#^^^"a^^rg^^^^^f#gf#^^^d^^ef#^^^^^def#^^^^^^re^^d#f#e^"g"a^^^"a^^^"a^^^l8<}
STR ULMR={DL=ME1;l8>q=98UL1;UL2;UL3;DL=ME3;UL1;UL2;UL3;DL=ME5;UL1;DL=SB3-1[5r]UL4;SBUP;UL5;UL6;SBDN;}TR=8ULMR;TR=9ULMR;
/*10*/STR OA={""""cn35n36``f#``g#}STR O1={'OA'}STR O2={'n38n40OA'}STR O3={'n49OA'}STR O4={'n57OA'}STR O5={'n51n59OA'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]}
STR DM2={O1;rrrO2;rrr}STR DM3={DM2;O1;rrrO2;rrO2}STR DM4={[7DN2]O1;rrrO2;rO1;r}STR DM5={[7DM2]O1;O2;r[2O1]r[2O1]}STR DM6={[7DM2]O1;rrr[2O2;r]}STR DM7={[7DM2]O1;rrrO2;r[2O2]}STR DM8={[6DM2]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]}
STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[7DM2][3O1]r[4O1]}STR DM11={[6DM2][O2;r[O1]][O2;r][O2]rr}STR DM12={O1;rrrO4;rO1;rrrO4;rO1;O4;rO4}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7DM1][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr}
STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[6DM2]rrr['n39n28'r:rr]O1;r[4O1]}STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]}STR DM18={SUB{[32n42r]}[O1;rrrO4;rO1;rrrO4;rO1;O4;rO4:[O1;r]O4;rO1;rrrO1;rO4;r[O4]][O1;r]O4;r[O1;O4]O4;rO1;r[O4]}STR DM19={[O1;r]O4;rO1;rrrO1;rO4;r[O4]}
STR DDI={O3[31r]EP.T(10,127,!1^1)[8O1;r:rr]O1;rEP=127[16O1;rrr]}
STR DD1={[16O1;r:rr]O1;r[12O1;rrr]l8[O1]rO1;rrrrl16}STR DD1A={O3[27r]O1;rrrO5[31r]O3[23r][O1;rrr]O5[15r]l8[O1]rO1;rrrrl16}STR DD1B={[16O1;r:rr]O1;r[16O1;rrr]}
STR DD2={[28O1;rrr]REV.T(10,100,!1)[4O1;rrr]REV=10}STR DD2A={O3[63r][O3[15r]][O3[7r]]REV.T(10,100,!1)[4O3;rrr]REV=10}STR DD2B={n49[63r]O3[23r][O1;rrr]O4[15r]REV.T(10,100,!1)[4O3;rrr]REV=10}
STR DD3={[16O1;r:rr]O1;r[10O1;rrr]l8O1;rSUB{n49n57}[O1][8r]l16}STR DD4={[[16O1;r:rr]O1;r[14O1;rrr]:[3O1;r:r]]rr[O1;r]rr}STR DD5={REV=127O3[63r]REV=10SUB{n49}[7O1;rrr][O1;r][8O1;rrr]}
STR DD6={[32O1;rrr]}STR DD7={[64r][O3[31r]]}
TR=10l16DL=HAZ+8@27,90,0BR=20p%=-500DDI;DL=BGN@27,90,0BR=20p%=-500V=115DD1;DD2;DD3;DD4;DD1;DD2A;DD3;DD4;DL=RF2;DD1A;DD5;DD6;DD7;DL=ME5;DD2B;DD3;DL=SB4;DD4;DD1B;DD1;O3;
/*11*/STR GR={'n42n85'}STR GA={n44}STR GB={'n51n46'}STR TA={n54}STR MT={n51}STR DR={'n38n40n82n85'}STR PL1={If(MODE1==GS){P.onCycle(!8,32,90)}Else{P.onCycle(!8,20,90)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!16,0,32,70,80)}}
STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]}STR GP6={[GR][TA]}STR GP7={[GP6][GR]TA;GR;GP6}STR GP8={[3[GR]GB;GR][2GR][2GB]}
STR GGI={[16rrGB;r][16GR;rGB;r]}
STR GG1={[28GR;rGB;r]l8[GB]rGB;rrrrl16}STR GG1A={[16GR;rGB;r][12GR;GR;GB;r]l8[GB]rGB;rrrrl16}STR GG1B={[28GR;rGB;r][4GR;GR;GB;r]}STR GG2={[28GR;rGB;r]REV.T(0,100,!1)[4GR;GR;GB;r]REV=0}STR GG2A={[7'n51n59'^^^^^^^]BR=20p%.T(1000,-8192,!2)'n51n59'^^^^^^^p%=1000[12GR;rGB;r]REV.T(0,100,!1)[4GR;GR;GB;r]REV=0}
STR GG3={[26GR;rGB;r][24r]}STR GG4={[[30GR;GR;GB;GR][GR;GR;GB;r]]}STR GG5={SUB{[8[12r]n83rrr]}[32rrGB;r]}STR GG6={SUB{[8[12r]n83rrr]}[32GR;rGB;r]}
TR=11l16DL=HAZ+8@26,100,0BR=20p%=1000GGI;DL=BGN@26,100,0BR=20p%=1000GG1;GG2;GG3;GG4;GG1;GG2A;GG3;GG4;DL=RF2;GG1A;GG5;GG6;DL=ME6;GG3;DL=SB4;GG4;GG1B;GG1;
/*12*/STR PDH={@25[O3[5r]O5;O4[8r]O5[5r]O3;O5[8r]]}STR PD1={@26P.onCycle(!16,0,127)n27r[4DR]rr[3DR]l32[DR]l16[4DR]P=64}STR PD2={@26EP.T(20,127,!1^1^1)[48DR]}STR PD3={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD3A={@25SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}}
STR PD4={@26EP.T(40,100,!1)[8DR]l32[16DR]l16EP=127}STR PD5={@26[3DR;r][5DR]r[4DR]}STR PD6={@26[4DR;r][3DR]r[4DR]}STR PD7={@26BR=20p.T(127,32,!1)[8DR]l32[8DR]l16[4DR]p%=0}
STR PD8={@9BR=30p.T(32,100,!1)[16DR]p=64}STR PD9={@33BR=30p.T(110,32,!1)[8DR]l32[16DR]l16p=64}STR PD10={@26[3O2;r:[O1]]O2;rl32[8O1]l16@33}STR PD11={BR=20p.T(127,32,!1)[16n51]p=64}STR PD12={@26[4O2][4O1][O2][6O1]@17}
STR PPI={SUB{PD3}[64r][8rrrr'n38n40n39n55'rrr]}STR PP1={SUB{PD3}[14rrrr'n38n40n39n55'rrr][16r]}STR PP1A={SUB{PD3}[64r][6rrrr'n38n40n39n55'rrr][16r]}
STR PP1B={SUB{PD3}[16rrrr'n38n40n39n55'rrr]}STR PP2={SUB{n49}[14rrrr'n38n40n39n55'rrr]REV.T(90,127,!1)[rrrr'n38n40n39n55'rrr]REV=90}
STR PP2A={SUB{n49}[64r][6rrrr'n38n40n39n55'rrr]REV.T(90,127,!1)[rrrr'n38n40n39n55'rrr]REV=90}
STR PP3={SUB{n49}[13rrrr'n38n40n39n55'rrr]rrrrrr'n38n40n39n55'r[8r][5'n38n40']r['n38n40']}
STR PP3A={SUB{n49}[13rrrr'n38n40n39n55'rrr]rrrrrr'n38n40n39n55'r[8r][8r]}
STR PP4={SUB{[PD3]}[[15rrrr'n38n40n39n55'rrr]:[8r]]rrrrBR=20p%=4000REV=120CHO=120@27,90,0'n38n40>>gab<<'rrrCHO=30REV=90@1,100,0p%=2000}
STR PP4A={SUB{PD3}[120r][5'n38n40']r['n38n40']}
STR PP5={SUB{PD3}SUB{[8n82rn85rn61rn60rn64n63n84rrrrr]}[16rrrr'n38n40n39n55'rrr]}STR PP7={[64r][4n82rn85rn61rn60rn64n63n84rrrrr]}
TR=12l16DL=HAZ+8@1,100,0BR=20p%=2000REV=90PPI;DL=BGN@1,100,0BR=20p%=2000V=105REV=90PP1;PP2;PP3;PP4;PP1;PP2A;PP3;PP4;DL=RF2;PP1A[PP5]PP7;DL=ME5;PP2A;PP3A;DL=SB3+8PP4A;PP4;PP1B;PP1;REV=127SUB{n49}[n82rn85rn61rn60rn64n63n84rrrrr]
/*13*/STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr}STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg}STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)BR=20[16e]rp=64}STR DS9={[`d#][a#][g][d#][8r]}STR DS10={[8`g]`c`cgrcr"gr}
STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]}STR DS16={[8r]`gr`crgrcr}STR DS17={eeeeddddgrrrerrr}STR DSH={[`d`dr`darafrrl32[3`d][3a][6f]l16ffrffrfarrl32[3d][3a][6`d]l16]}
STR DS18={l8`g`drg`g`dael16}
TR=13l16<DL=HAZ@118,8PG1;HAM2({DL=HAZ+3DS6;DL=HAZ+7DS2;DL=HAZ+11DS7;DL=HAZ+15DS12;DL=BGN+3DS6;DL=BGN+7DS18;DL=ME1+7DS7;DL=ME2+3DS13;DL=ME2+7DS2;DL=SB1+3DS6;DL=SB1+7DS1;DL=SB1+11DS6;DL=SB1+15DS7;DL=RF1+3DS6;DL=RF1+7DS18;})
HAM2({DL=ME3+7DS7;DL=ME4+3DS13;DL=ME4+7DS2;DL=SB2+3DS6;DL=SB2+7DS1;DL=SB2+11DS6;DL=SB2+15DS7;DL=RF2+3DS6;DL=RF2+7DS18;DL=NK1+3DS6;DL=NK1+7DS2;DL=NK2+3DS7;DL=NK2+7DS12;DL=NK3+3DS6;DL=NK3+7DS2;DL=NK3+9DS8;})
HAM2({DL=ME5+7DS7;DL=ME6+3DS13;DL=ME6+7DS2;DL=SB3+3DS6;DL=SB3+7DS1;DL=SB3+11DS6;DL=SB3+15DS7;DL=SB4+3DS6;DL=SB4+7DS1;DL=SB4+11DS6;DL=SB4+15DS7;DL=RF3+3DS6;DL=RF3+7DS2;DL=RF3+11DS6;DL=RF3+15DS18;})
/*14*/STR SPA={P.onCycle(!8,0,24,32,96,92,127,92,96,32,24)}STR SPH={SPA@39,0EP=90l16<[6`df#a`drf#a`df#ar`drrrr][`ea`c#`era`c#`ea`c#r`errrr]>}
STR SPI={SPA@82,110,0EP=90l16<[6`df#a`drf#a`df#ar`drrrr][`ea`c#`era`c#`ea`c#r`errrr]>}STR SP1={SPA@82,110,0EP=115l16[d"adf#erdr"adf#rrrrr][c#"f#c#edrc#r"f#c#errrrr]["b"f#"bedrc#r"f#"berrrrr]c#"ec#edrc#r"ec#errrrr[16r]}
STR SP1A={SPA@82,110,0EP=115l16[64r]["b"f#"bedrc#r"f#"berrrrr]c#"ec#edrc#r"ec#errrrr[16r]}STR SP1B={SPA@82,110,0EP=115l16[d"adf#erdr"adf#rrrrr][c#"f#c#edrc#r"f#c#errrrr]["b"f#"bedrc#r"f#"berrrrr][c#"ec#edrc#r"ec#errrrr]}
STR SP2={SPA@82,110,0EP=95l16[d"adf#erdr"adrf#rrrr][c#"f#c#edrc#r"f#c#rerrrr]["b"f#"bedrc#r"f#"brerrrr]c#"ec#edrc#r"ec#rerrrr @39,0EP.T(70,127,!1)[16'aec#']}
STR SP3={SPA@39,8EP=115l16begbregbegrbrrrr;`c#f#a`c#rf#a`c#f#ar`c#rrrr;`c#ea`c#rea`c#ear`c#rrrr;bdf#brdf#bdf#rbrrrr;g"begr"beg"bergrrrr;ac#f#arc#f#ac#f#rarrrr;f#"ac#f#r"ac#f#"ac#rf#rrrr;b"bf#br"bf#b"bf#rbrrrr}
STR SP4={SPA@39,8EP=120l16[[f#"adf#r"adf#"adrf#rrrr;g"aegr"aeg"af#rarrrr][f#"adf#r"adf#"adrf#rrrr]g"aegr"aeg"aergrrrr;a"af#ar"af#a"af#rarrrr]}
STR SP4A={SPA@39,8EP=120l16[128r][f#"adf#r"adf#"adrf#rrrr;g"aegr"aeg"af#rarrrr][f#"adf#r"adf#"adrf#rrrr]g"aegr"aeg"aergrrrr;a"af#ar"af#a"af#rarrrr}
STR SP5={SPA@39,0EP=100[8bef#aref#a"bf#brrrrr]}
STR SP6={SPA@39,8EP=100q.T(90,90,!1^1,90,300,!1^1^1^1)[6bef#aref#a"bf#brrrrr]q.T(300,5,!1)bef#aref#a"bf#brrrrr;adeardeadearrrrrq=90}
STR SP7={SPA@82,110,0EP=90l16<[64r][`df#a`drf#a`df#ar`drrrr][`ea`c#`era`c#`ea`c#r`errrr]>}
TR=14DL=HAZ;SPH;SPI;DL=BGN;SP1;SP2;SP3;SP4;SP1;SP2;SP3;SP4;DL=RF2;SP1A;SP5;SP6;SP7;DL=ME5;SP2;SP3;SP4A;SBUP;SP4;SP1B;SP1;SBDN;
/*15*/STR FTH={@29,110,1l8EP=127REV=70CHO=127HAM2({[3'`daf#'dd'`e`c#a'dd'`f#`da'ddd'`a`f#`d'd'`g`eb'd'`f#`da'd]'`e`c#a'"a"a'`e`c#a'"a"a'`e`c#a'"a"a"a'`c#ae'"a'`daf#'"a'`e`c#a'"a})REV=20CHO=20}
STR FT1={@82,110,0EP=110l16[MD({['`daf#'^^r]},2,!2)[8r]][MD({['`c#af#'^^r]},2,!2)[8r]][MD({['bge'^^r]},2,!2)[8r]]MD({['`c#ae'^^r]},2,!2)[8r]l8'`f#`c#a''`e`c#a'^'`e`c#a'^^^r}
STR FT1A={@82,110,0EP=110l16[64r][MD({['bge'^^r]},2,!2)[8r]]MD({['`c#ae'^^r]},2,!2)[8r]l8'`f#`c#a''`e`c#a'^'`e`c#a'^^^r}
STR FT1B={@82,110,0EP=110l16[MD({['`daf#'^^r]},2,!2)[8r]][MD({['`c#af#'^^r]},2,!2)[8r]][MD({['bge'^^r]},2,!2)[8r]][MD({['`c#ae'^^r]},2,!2)[8r]]}
STR FT2={@104,0EP.T(60,120,!1)l8'`f#`da'^^^^^^^rr@56,90,1EP=110'`f#a'rrrrr @104,0EP.T(60,120,!1)l8'`e`c#a'^^^^^^^rr@56,90,1EP=110'`ea'rrrrr @104,0EP.T(60,120,!1)l8'`dbg'^^^^^^^rr@56,90,1EP=110'`dg'rrrrr@104,0EP.T(60,120,!1)l8'`e`c#a'^^^^^^^@12,0EP=110HAM({[3'`c#ae']'`c#ae'^'`dbg''`e`c#a'^})}
STR FT3={@81,0EP.T(80,127,!1)l8'bgd'^^^^^^^rrM=110@85,0'`c#ae''`c#ae'^^^^M=0 @81,0EP.T(80,127,!1)l8'aec#'^^^^^^^rrM=110@85,0'`dbf#''`dbf#'^^^^M=0 @81,0EP.T(80,127,!1)l8'bge'^^^^^^^rrM=110@85,0'aec#''aec#'^^^^M=0@82,110,0EP=90'aec#'^^'aec#''aec#'^'aec#''bf#d'^^^^^rrr}
STR FT4={@103,0EP=115l8HAM({[SUB{ab`dab`da`dgabg}`d`e`f#`d`e`f#`d`f#`e`f#`g`e'`a`f#`d'^'`f#`da'^;SUB{ab`dab`da`dgabg}`d`e`f#`d`e`f#`d`f#`e`f#`g`e'`a`f#`d'^^r:
SUB{[ab`dab`da`d]gabgabgb;e`c#`ee`c#`eea}[`d`e`f#`d`e`f#`d`f#]`e`f#`g`e`f#`g`e`g;a`f#`aa`f#`aa`e]SUB{ab`dab`da`d;g#b`dg#b`dg#`d;gabgabgb;e`c#`ee`c#`eea}`d`e`f#`d`e`f#`d`f#;`d`e`f#`d`e`f#`d`f#;`e`f#`g`e`f#`g`e`ga`f#`aa`f#`aa`e})}
STR FT5={@29,90,0EP=85l16BR=3p.W(64,64,!8,64,0,!8)HAM2({l16[8[6'bf#d'^]['bf#d']'bf#d'^]})}
STR FT6={@31,110,0EP=85BR=12p.W(64,0,!16,64,0,!16)l8[4"b"b"b'bf#d'^^^^"b"b'bf#d'^"b'bf#d'^'bf#d']p=64}
TR=15DL=HAZ[FTH]DL=BGN;FT1;FT2;FT3;FT4;FT1;DL=ME4;FT3;FT4;DL=RF2;FT1A;FT5;FT6;FTH;DL=ME6;FT3;DL=SB4;SBUP;FT4;FT1B;FT1;SBDN;
/*16*/STR BG1={>>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<<p=64}STR BG2={l4<@128,3P=70CHO=127p.T(64,64,!4,70,127,!2)'ag"a`a'^^r>p=64CHO=20}STR BG3={@80,0l4rrrBR=120p.T(127,0,!6)`gp=64}
STR BG4={>>@123,5l32P=70BR=36p.T(64,32,!2^4)[24`e]<<@80,0l4BR=120p.T(127,0,!6)`gp=64}
STR BG5={@123,1l1BR=40p.T(127,30,!1^1^1^1^1^1)EP.T(110,110,!1^1^1^1,110,0,!1^1)c^^^^^p=64EP=127}
STR BG6={@123,1BR=64p.T(80,127,!1^1^1)EP.T(110,127,!1^1^1)V=127l1'c'^^V=100}STR BG7={l16EP=110[16r]@128,2[l16MD({'dc'},4,!8)rrrrrrr]EP=127}
STR BG8={@82,1l4BR=64p.T(64,64,!8,64,127,!2^4^8)<q=90EP.T(70,127,!1)'"a"e'^^^>q=100p=64}STR BG9={@120,0EP.T(110,127,!1)l4'cd'^^^}STR BG10={@120,0l4'cd'^^^}STR BG11={>>@126,8l1P=70BR=36p.T(100,0,!1^1)'`e`d`c'^<<p=64}
STR BG12={l16@127,4BR=48[p.T(40,127,!1^1^1^1)[16'"b"f#'r['"b"f#']]]p=64}STR BG13={@123,1l1BR=40p.T(127,30,!1^1)c^rrp=64EP=127}
TR=16DL=HAZ;BG5;DL=HAZ+7BG1;DL=BGN-2BG11;DL=BGN+7BG4;DL=ME1+7BG10;DL=ME2+6BG1;BG2;DL=SB1+15BG1;DL=RF1+7BG4;DL=ME3+7BG10;DL=ME4+6BG1;BG2;DL=SB2+15BG1;DL=RF2+7BG4;DL=NK1;BG5;DL=NK1+7BG10;DL=NK2;BG12;DL=NK3;BG5;DL=NK3+8BG11;
DL=ME5+7BG10;DL=ME6+6BG1;BG2;DL=SB3+7BG10;DL=SB3+15BG1;DL=SB4+15BG1;DL=RF3+15BG4;BG13;
}