INT TRACK_SELECT = 1 ; // 1 : ADDICT https://www.youtube.com/watch?v=yaO8BpGdjVY // // Jユーロ風に仕上げたポップスチューン! // 16分刻みで突っ走るベースラインと突き抜けるベルが持ち味。 // // // 2 : HYPER DISCO MAGNUM https://www.youtube.com/watch?v=rSEwiL-oh14 // // 今回メインで投稿する予定が、ADDICTの出来が良すぎてカップリングに・・ // どこまでもお約束な展開で迎えるサビはまさにユーロビートな一曲。 // // // 3 : BLUE LIGHT CHRISTMAS https://www.youtube.com/watch?v=BYpbJZfVp24 // // クリスマス用に作った度ポップ爽やかチューン。 // 鐘の音を随所に取り入れてDLSフル活用です♪ // // 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}l16p=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}l16p=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#<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#<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=120}EP=127CHO=50REV=60l16f#^^d#^^"b^b^f#^d#^f#^;`c#^^g#^^e^c#^^^^^^^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){@9,10,0REV=80q=300ef#ggebe>"bdef#"bb"b<@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>"bdef#"bb"b<@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>"bdef#"bb"b<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^l8l8[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<`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>`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^^@101,0"g#"bc#d#f#g#`e^^>[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`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>@123,5l32P=70BR=36p.T(64,32,!1)[32`e]<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=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]<>'^^^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]<`c#`e`f#`g#>MD({`c#`e`f#`g#},7,!4)[24r]<`c#`e`f#`g#>`c#`e`f#`g#MD({`f#`e`c#g#},6,!4)[24r]<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<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>} 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} 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=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=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<>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'']}} 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<[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} 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=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=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'^<