#TITLE [@4のみ] テトリス TECHNOTRIS
#ARTIST 田口洋
#CODING /u/47846566

$LOOP=4;
$n{n,a,b,c}=@n%a /:{/:%co%n:/}%b:/;$n1{n,a,b,c}=@n%a {/:%co%n:/}%b;
$B=@N127@E1,0,10,0,10C;$H=@N0@E1,0,5,0,0B;$S=@N110@E1,0,10,0,10E;

$CH1=@4@E1,0,0,120,0Q0Q10L1@X50/:$LOOP/:10
/:$n{3D,121,1,13}$n{4D,121,2,13}R://:$n{3F,121,1,16}$n{4F,121,2,16}R:/
/:$n1{2B-,121,1&1,21}$n1{3B-,121,1,21}R://:$n{3C,121,1,12}$n{4C,121,2,12}R:/:/
/:3/:3$n{3F,121,2,8}R$n{3F,121,2,8}/:6E-%55:/E-%54$n1{3C,121,1,6}R$n1{3E-,121,1,7}R:/
$n1{3F,121,1,16}R$n1{3F+,121,1,17}R$n1{3G,121,1,18}R$n{3G+,121,1,19}
/:3$n1{3G+,121,1,19}R$n1{3G+,121,1,19}$n1{3F+,121,1,17}$n1{3E-,121,1,7}R$n1{3F+,121,1,17}R:/
$n1{3G+,121,1,19}R/$n1{3G,121,1,18}R$n1{3F+,121,1,17}R$n{3F,121,1,16}:/
$n1{3A,121,1,20}R$n1{3B-,121,1,22}R$n{3B,121,1,23}
/:3$n1{3B,121,1,23}R$n1{3B,121,1,23}$n1{3A,121,1,20}$n1{3F+,121,1,17}R$n1{3A,121,1,20}R:/
$n1{3B,121,1,23}R$n1{4C,121,1,24}R$n1{4C+,121,1,25}R/:$n1{3D,121,1,13}:/
/:$n1{3D,121,1,13}R$n1{3D,121,1,13}$n1{3C,121,1,12}$n1{2A,121,1,9}R$n1{3C,121,1,12}R:/
$n1{3E,121,1,15}R$n1{3E,121,1,15}$n1{3D,121,1,13}$n1{3B,121,1,23}R$n1{3D,121,1,13}R
$n1{3F+,121,1,7}R$n1{3F+,121,1,17}$n1{3E,121,1,15}/:$n{3C+,121,1,13}:/:/;

$CH2=
@4@E1,0,0,120,0@X80R%1/:$LOOP/:58R1:/@Q0Q10NS12
/:4/:$n{4A,60,1,40}$n{5D,60,1,54}$n{5F,60,1,64}
$n{5E,60,1,60}$n{4A,60,1,40}$n{5D,60,1,54}$n{4A,60,1,40}$n{5C,60,1,48}$n{4A,60,1,40}$n{5D,60,1,54}$n{4A,60,1,40}
$n{5E,60,1,60}$n{4A,60,1,40}/$n{5D,60,1,54}$n{4A,60,1.,60}R:/$n{5F,60,1,64}$n{5G,60,1&2,54}R:/
$n{4A,60,1,40}$n{5D,60,1,54}$n{5F,60,2.,48}R2/:16$n{5F,60,1,64}:/
/:3$n{5F,60,1,64}$n{5C,60,1,48}RR$n{5E-,60,1,57}RR$n{5B-,60,1,42}RR$n{5C,60,2,24}/R1
$n{5C,60,1,48}$n{4A-,60,1,38}$n{4B-,60,1,42}$n{5C,60,1,48}$n{5E-,60,1,57}$n{5F,60,1&1,128}$n{5E-,60,1,58}
$n{5F,60,1,64}$n{5C,60,1,48}RR$n{5E-,60,1,57}RR$n{5B-,60,1,42}RR$n{5C,60,2,24}R1
$n{5C,60,1,48}$n{4A-,60,1,38}RR$n{4B-,60,1,42}$n{4E-,60,1&1,57}$n1{4F,60,1&1,64}RR:/
/:3$n1{5C,60,1,48}:/$n{5C+,60,1,50}$n1{5E-,60,1,57}R$n1{5F+,60,1,66}R
$n1{5C,60,1,48}R$n1{5C+,60,1,50}R$n1{5D,60,1,52}R/:6$n{5E,60,1,59}:/$n1{5D,60,1,52}R$n1{5C+,60,1,50}R/:5$n{4B,60,1,44}:/
$n1{5E,60,1,58}R$n1{5F,60,1,63}R$n1{5F+,60,1,67}R/:6$n{5G,60,1,70}:/$n{5F+,60,1,66}$n{5G,60,1,70}
/:$n{5A,60,1,76}:/$n{5G,60,1,70}$n{5A,60,1,76}/:5$n{5B,60,1,86}:/:/;

$CH3=
@4@E1,1,0,120,0@X80@Q0Q10L1R%2/:$LOOP/:192R:/
/:3$n{5A,119,1&1,40}:/$n{5G,119,2,9}$n{5A,119,2,10}$n{5B-,119,2,11}$n{6C,119,2,12}
/:2$n{6D,119,1&1,54}:/$n{6C,119,1&1,48}$n{5B-,119,1&1,42}
$n{6C,119,1,24}$n{5A,119,1,20}/:3$n{5F,119,1,16}:/$n{5F,119,1,8}$n{5G,119,1,9}$n{5A,119,1,10}
/:3$n{5B-,119,1,21}://:3$n{5G,119,1,18}://:$n{5E,119,1,15}:/
/:3$n{5A,119,1&1,40}://:$n{6E,119,4,6}://:$n{6F,119,4,7}://:$n{6G,119,4,9}://:$n{6A,119,4,10}:/
/:$n{6B-,119,1&1,84}:/$n{6A,119,1&1,80}$n{6G,119,1&1,72}
$n{6A,119,1,40}$n{6F,119,1,32}$n{7C,120,1&1&2,120}R$n{7C,120,1,48}$n{7E,119,1,60}$n{7F,119,1,64}
/:3$n{7G,119,1,72}://:3$n{7E,120,1,60}:/$n{7C,120,1&1,96}/:16$n{5B-,119,1,21}://:32R:/
/:$n1{5F,119,1,8}$n1{5G,119,1,9}$n1{5A-,119,1,19}$n1{5G,119,1,9}$n1{5F,119,1,8}RRR
$n1{5F,119,1,8}$n1{5G,119,1,9}$n1{5A-,119,1,19}$n1{5B-,119,1,21}$n1{6C,119,1,24}RRR
$n1{5B-,119,1,21}$n1{6C,119,1,24}$n1{6C+,119,1,25}$n1{6D+,119,1,27}$n1{6F,119,1,30}RRR
$n1{6F,119,1,30}$n{6G,119,2,9}$n{6A-,119,2,19}$n{6B-,119,2,21}/:3$n{7C,119,2,24}:/R
/:2$n{7C,119,2,24}:/RR/:2$n{7C,119,2,24}://:2$n{7D,119,2,25}:/$n{6B-,119,1,42}RR//:$n{6B-,119,1,42}:/$n1{6B-,119,1,42}R
/:$n1{7D+,119,1,54}:/$n{6B-,119,1,42}$n{7C,119,1,48}$n{6A-,119,1,38}RR/:$n{7C,119,1,48}:/://:2$n{7C,119,2,24}:/RRRR
$n{4C+,119,1,25}$n{4D+,119,1,27}$n1{4F+,119,1,33}R$n1{4G+,119,1,35}R$n1{4A,119,1,38}R$n1{4A+,119,1,40}R
/:6$n{4B,119,1,44}:/$n1{4A,119,1,38}R$n1{4G+,119,1,35}R/:5$n{4F+,119,1,33}:/
$n1{4B,119,1,44}R$n1{5C,119,1,48}R$n1{5C+,119,1,52}R/:6$n{5D,119,1,58}:/
$n{5C,119,1,48}$n{5D,119,1,58}/:$n{5E,119,1,62}:/$n{5D,119,1,58}$n{5E,119,1,62}/:5$n{5F+,119,1,67}:/:/;

$CH4=L1@4O0/:$LOOP/:128R:/@X60@V127/:12$BRRR$SRRR$BRRR$S$H$H$H://:32$BR$H$H$SR$H$H:/:/;

T2700
$CH1;$CH2;$CH3;$CH4;$CH4;