__ 01 __ # YZ=ZZ-28; #pas 26 A r(YZ)  #te [op=find; b=s(4); le=s(5); n=14990; c=124;]  ~# i(14993)=s(4); i(14994)=i(14990)-s(4); i(14991)=i(14990)+1; i(14992)=s(4)+s(5)-i(14991); ! ~# I=int(G/1000); G=0.01*(G-I*1000); J=30*G; K=470*G; L=0; M=25; &=sgn(B); #case -1 # W=-B; K=510; L=40; M=0; #end |~#case 1 # W=430; &=sgn(F); #case 1 # W=860; #end | #end |  ~#p [tw=(W+120)*G; th=(500+L)*G; wid=W*G; hei=400*G; xs=100*G; ys=(50+L)*G; bot=3*G; top=6*G; tsi=20*G;] ~#p [b=A; le=0; mo=0; sty=1; nx=abs(B); ny=C; sa=2; uni=0; msi=0; c=1; col=abs(F); tf=3; tk=0;]  ~#w [op=pf; n=1; file=here;] D E J K -2 \Ti(14991) i(14992)\E  # H=s(3); #pr \Ti(14993) i(14994)\E #f [op=topng; n=2; fo=\Tp\E]   ~# &=I; #case 1 #rob [mo=1; le=99;]  #w [op=im; mo=0; c=1; sa=0; file=\Tp .png\E em=1; xp=M; yp=70;]   #end | ~# s(3)=H; #p [em=0;] #pas 26 r(YZ) A   ~
__ 02 __ # YZ=s(109)-299; #pas 26 A r(YZ+17) #pas 26 a r(YZ+45) # j=F; r=0; &=E>0; #case 0 # E=-E; r=1; #end | # m=int(E/10); n=E-m*10; i=1; &=D>0; ! ~#case 0 # D=-D; i=0; #end |  # l=149990; #te [op=find; b=s(4); le=s(5); n=l; c=124;] # i(l+3)=s(4); i(l+4)=i(l)-s(4); i(l+1)=i(l)+1; i(l+2)=s(4)+s(5)-i(l+1); ! ~# e=0.5; a=B*m; b=C*n; u=int(D/1e5+e); D=D-u*1e5; v=int(D/1e4+e); D=D-v*1e4; v=11-22*v; I=int(D/1e3+e); D=0.01*(D-I*1e3); q=D*sqr(a*a+b*b)/700; ! ~# E=B*m+int(250*q/D+e); F=C*n+int(120*q/D+e); T=C*n+int(25*q/D+e); G=int(90*q/D+e); H=int(60*q/D+e); ! ~# O=int(90*q/D+e); P=B*m+int(3*q/D+e); Q=C*n+int(3*q/D+e); R=G+P+int(50*q/D+e); M=B*C; W=int((20+u)*q/D+e); ! ~ # &=(2*a/b)<(2*b/a)>1; #case 1 # W=int(W/1.3); #end | # Z=int(20*q/D+e); a=int(4*q/D+e); b=2*a; c=int(25*q/D+e); d=int(15*q/D+e); ! ~# f=E-30*q; g=int(30*q/D+e); h=int(15*q/D+e); p=int(3*q/D+e); K=YZ+2; J=K+10; #pas 15 r(j) r(K) # &=r; #case 0 #d 5 r(J) 0 1 0 0.2 1 #end | ~  # N=A+M; #pas 2 r(N) r(YZ+43) #ma [op=fno; b=A; nx=M; ny=1; mo=r;] # X=r(N); Y=r(N+1); L=K-1; S=K+4; U=H-int(15*q/D); V=F-int(35*q/D); ! ~#d 15 s(9) J A 32 B C B C 0 0 v 1 99999 m n 1 #w [op=im; file=here;]  # &=i; ! ~#case 1  #p [dir=0;]  #d 15 s(9) J 0 100 1 C 1 C 0 0 v 1 99999 Z n 2  #w [op=im; file=here;]  #d 15 s(11) 1 E F P Q G H 1 a b -1 -1 1 W L ! ~  #w [n=0; op=mm; file=here; tfo=3; tki=0;]  #d 15 s(11) 2 O T c Q 0 d 11211 a b -1 -1 2 W S  #w [n=0; op=mm; file=here;] ~  #g [op=open; tw=f; th=g; col=246; trx=0; try=0; sca=100;]    # u=1/log(10); ! ~  # &=(abs(X)*1e99-1)>0<1; #case 0 # x=0; #end | #case 1 # s=X/abs(X); t=10^int(4-u*log(s*X)); x=s*int(s*X*t +0.5)/t; #end | ~  # &=(abs(Y)*1e99-1)>0<1; #case 0 # y=0; #end | #case 1 # s=Y/abs(Y); t=10^int(4-u*log(s*Y)); y=s*int(s*Y*t +0.5)/t; #end | ~  #g [op=text; nx=h; ny=p; col=247; tfo=3; tsi=W; tki=0; sty=1;] \Ti(l+1) i(l+2)\u32*2;mima=\G x;,\G y;\E ~  #g [op=clos; sav=3;] -\E  #d 4 i(l+5) R U h V  #w [op=ff; n=3; b=l+5; sav=1; file=here; c=1;] 0\E  ~  # &=(100*abs(D-1))<1; #case 1 #w [op=im; mo=2; n=1; tw=E*D; th=-1; sav=1; sca=4;] #end | ~#end | #f [op=topng; n=1; form=\Ti(l+3) i(l+4)\E]  # &=I; #case 1 #w [op=im; mo=0; c=1; sav=0; file=\Ti(l+3) i(l+4).png\E] #end | ~# &=r; #case 0 # C=Y-X; #ma [op=vmc; b=A; le=M;]  # C=X; #ma [op=vac;] #end | #pas 2 r(YZ+43) r(N) #pas 26 r(YZ+17) A  #pas 26 r(YZ+45) a ~~~ A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,x,y,YZ
__ 03 __ #pro hc01  # a=r(F); b=r(F+1); f=r(F+4); d=r(F+3)/(f+1); c=r(F+2); e=int((c-a)/d); c=c-e*d; e=e+1; @  ~ ~# YZ=s(109)-299; #pas 15 A r(YZ+18) #pas 10 a r(YZ+33)  ~# h=149990; #te [op=find; b=s(4); le=s(5); n=h; c=124;] # i(h+3)=s(4); i(h+4)=i(h)-s(4); i(h+1)=i(h)+1; i(h+2)=s(4)+s(5)-i(h+1); !  ~# O=int(D/1000+0.5); D=0.01*(D-O*1000); i=int(E/10); j=E-i*10; !  ~#e _hc01  #pas 4 a r(YZ)  #pas 2 e i(6)    # F=F+5; #e _hc01  #pas 4 a r(YZ+4)  #pas 2 e i(8)    # F=F+5; #e _hc01  #pas 4 a r(YZ+8)  #pas 2 e i(10)  ~#p [trx=0; try=0; sca=100;]  #g [op=open; tw=800*D; th=600*D; col=246;] ~#d 5 i(1) B C i 10 18 1 i(12) j   #pas 6 G r(YZ+12)   #p [tf=3; tk=0; ts=26*D; col=247;]   ~#g [op=axon; n=YZ; c=1; b=A; wid=600*D; hei=500*D; xs=100*D; ys=60*D;] ~#g [op=text; nx=M*D; ny=(600-N-26)*D; col=247; sty=1;] \Ti(h+1) i(h+2)\E ~#g [op=clos; sa=2;]  -\E  #pr \Ti(h+3) i(h+4)\E  #f [op=topng; n=2; fo=\Tp\E] # &=O; #case 1 #w [op=im; mo=0; sa=0; file=\Tp .png\E] #end | ~#pas 15 r(YZ+18) A  #pas 10 r(YZ+46) a  ~
__ 04 __ # YZ=ZZ-14;  #pas 14 A r(YZ)  # N=sgn(C); C=abs(C); !~#p [nx=B; ny=C; trx=1+I; try=J; twi=900+L; the=600+M; wid=460; hei=500+M; xsh=90+H; ysh=70;] ~#p [bo=5; to=10; ts=K; tk=0; tf=3; c=1; file=here; b=A;] #w [op=mp; sa=1;] D E F G   ~#f [op=topng; n=1; fo=tmp;] #f [op=copy; n=1; file=arg;] \Ts(4) s(5) a.png\E tmp.png\E  ~# &=N<0; #case 0 #w [op=im; mo=0; sa=0; file=\Ts(4) s(5) a.png\E em=1; xp=25; yp=70;] #end | ~#ma [op=mii; mo=2;] #w [op=mp; sa=2; file=here;] D E G F  ~#f [op=topng; n=2; fo=tmp;] #f [op=copy; n=1; file=arg;] \Ts(4) s(5) b.png\E tmp.png\E ~# &=N<0; #case 0 #w [op=im; mo=0; sav=0; file=\Ts(4) s(5) b.png\E em=1; xp=25; yp=70;] #end | ~#f [op=dele; file=tmp.png;]  #pas 14 r(YZ) A  ~
__ 05 __ # YZ=s(109)-75; #pas 5 a r(YZ)  # a=(r(2)-r(1))/5; b=log(a)/log(10); i=int(b); &=b>0; #case 0 # i=i-1; #end |  ~# c=10^i; j=int(a/c+0.5); # &=(j-1)*(j-2)*(j-3); #case 0 # j=2; r(5)=3; #end | # &=(j-4)*(j-5)*(j-6); #case 0 # j=5; r(5)=4; #end |  ~# &=(j-7)*(j-8)*(j-9)*(j-10); #case 0 # j=10; r(5)=4; #end | # d=j*c; r(4)=d; e=int(r(1)/d)*d; &=(e-r(1)+1e-9)>0; #case 0 # e=e+d; #end | # r(3)=e; #pas 5 r(YZ) a  
__ 06 __ #p [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30;]  # s(1)=0; !   
__ 07 __ #p [fk=3; fs=16; em=0;]  # X=25; Y=70; W=460; H=34; K=1; s(3)=1; #d 15 i(1) 200 180 160 0 0 0 255 255 0 200 255 200 60 120 100  #col [fir=i(1); b=1; le=5;]  
__ 08 __ #ma [op=mtr; b=AZ; nx=2; ny=BZ;]  #ma [op=vvm; le=BZ*2; trx=0;]  #ma [op=vva; le=BZ; trx=BZ;]  
__ 09 __ # YZ=s(109)-10; #d 8 r(YZ) r(2) r(3) 0 1 r(5) r(6) 0 1 #ma [op=mmi; n=YZ; b=r(1); nx=r(4); ny=1; sav=r(1); wid=r(7); hei=1; file=here; form=here; em=0;]  
__ 10 __ # YZ=ZZ-10; #d 8 r(YZ) r(2) r(3) r(2) r(3) r(6) r(7) r(6) r(7)  #ma [op=mmi; n=YZ; b=r(1); nx=r(4); ny=r(4); sav=r(5); wid=r(8); hei=r(8); file=here; form=here; em=0;]  
__ 11 __ #p [op=edtf; mo=1; em=0;]  # s(1)=0; !   
__ 12 __ #ma [op=mtr; b=AZ; nx=2; ny=BZ;]  # C=CZ; #ma [op=vac; le=BZ;]  #ma [op=mtr; nx=BZ; ny=2;]  
__ 13 __ #ma [op=mtr; b=AZ; nx=2; ny=BZ;]  # C=-1; #ma [op=vmc; b=AZ+BZ; le=BZ;]  #ma [op=mtr; b=AZ; nx=BZ; ny=2;]  
__ 14 __ ~#te [op=find; b=s(4); le=s(5); c=124; n=101;]  # N=s(1)-2; I=i(101+N)+1; S=i(102+N)-I; #p [form=\TI S\E]  ~# I=s(4); S=i(101)-I; W1=W+10; H1=N*(H+2)+H+8; W2=W/2; H2=H/2; Y1=2*H/3; Y0=5*H/6+4; !  ~#eg [op=open; twi=W1; the=H1; col=1;] #d 2 r(1) 8 Y0  #eg [op=pai; col=2; mo=1;]  ~#eg [op=text; sty=1; b=1; tki=K; tsi=Y1; em=0; ] \TI S\E # i=1; j=101; x=5; y=3*H2+6; y1=H+2; !  ~#rep N  # r(1)=x; r(2)=y-H2; r(3)=r(1); r(4)=r(2)+H; r(5)=r(1); r(6)=r(2); r(7)=W; r(8)=H; i(i)=x; i(i+1)=y; I=i(j)+1; S=i(j+1)-I; !    ~ #eg [op=pai; col=4; mo=2; b=1; sty=0;]  #pat [op=rect; b=5; n=1;]  #eg [op=fill;] ~ #eg [op=pai; col=3; mo=1;]   # r(1)=x+5; r(2)=y-3; #eg [op=text; sty=4; b=1;] \TI S\E  ~ # u=j-100; &=(u*(10-u))<1>0; #case 1 # u=u+48; #end |  ~ #case 0 # &=abs(u-10)<1; #case 0 # u=48; #end |  ~  #case 1 # &=((37-u)*(u-10))<1>0; #case 1 # u=u+54; #end | #end |  ~ #end |  # r(1)=x+W-5; r(2)=y-3; #eg [op=text; sty=6; b=1;] \Uu;\E # j=j+1; i=i+2; y=y+y1; !  ~#end  #eg [op=clos; sav=1;] -\E   ~# s(2)=0; #ch [n=1; xs=X; ys=Y;] # u=s(2); &=((58-u)*(u-48))<1>0; !   ~#case 1 # i=u-48; #end | #case 0 # &=abs(u-48)<1; #case 0 # i=10; #end |  ~ #case 1 # &=((91-u)*(u-64))<1>0; #case 1 # i=u-54; #end |  ~  #case 0 # x=s(102); y=H1-s(103); i=0; j=2; !   ~   #rep N # &=(W-abs(x-i(j-1)))<0+(H2-abs(y-i(j)))<0; #case 0 # i=j/2; #end | # j=j+2; #end   ~  #end | ~ #end | ~#end | # &=i;  !   ~
__ 15 __ ~#d 12 r(ZZ-20) a b f1 f2 y H J N N2 W X Y ! ~# a=s(4); b=s(5); X=20; Y=60; W=900; H=34; N2=1; #pr Please read the file "\Tp " !\E  ~#g [op=open; twi=W; the=H; col=256; sca=100; trx=0; try=0;]  ~#te [op=find; b=s(4); le=s(5); n=1; c=10;]  ~#p [nx=10; col=255; tfo=2; tki=1; tsi=22; sty=1;]  # y=H-22; &=s(1)<2; !  ~#case 0 # f1=s(4); f2=s(5); #g [op=text; ny=y;] \Tf1 f2\E #end | ~#case 1 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; f1=i(1)+1; f2=s(4)+s(5)-f1; !   ~  #g [op=text; ny=y;] \Tf1 f2\E  ~#end | ~#case 2 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; N=s(1)-1; J=2; !  ~  #rep N  # f1=f1+f2; f2=i(J)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; J=J+1;  #end ~  # f1=f1+f2; f2=s(4)+s(5)-f1; #g [op=text; ny=y;] \Tf1 f2\E   ~#end |   ~#g [op=clos; sav=N2;] \E  #fr [op=o; mo=1; n=N2; xs=X; ys=Y;]  ~#g [op=open; twi=134; the=28; col=247; sca=100; trx=0; try=0;] ~#g [op=rect; nx=22; ny=14; wid=34; hei=26; col=246; mo=0;] ~#g [op=text; ny=6; col=250; tfo=3; tki=1; tsi=20; sty=2;]  OK\E ~#g [op=rect; nx=88; ny=14; wid=84; col=246;] ~#g [op=text; ny=6; col=248;] CANCEL\E ~#g [op=clos; sav=100;] \E   ~# X=860; Y=60; !  ~#ch [n=100; xs=X; ys=Y;]  #fr [op=c; mo=1;]  ~# &=(s(102)-39)>0; #case 0  # s(3)=1; &=$; #case 0 #pr \M\E  #f [op=fold; file=null;]  #end |  ~#case 1 #f [op=fold; file=null;]  #f [op=line; file=vkNP/par.txt; n=-17;]  #pr \u32;\E #end |  #pr \Ta b\n\E   ~#io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=200;] #sys [op=rp;]   ~#f [op=fold; file=oldf;] #end  |  ~#v 12 r(ZZ-20) a b f1 f2 y H J N N2 W X Y ! 
__ 16 __ ~# r(ZZ)=n; #d 6 i(1) 150 0 0 150 255 150 # &=&Z; #case 99 #pas 6 r(1) i(1) #end | #col [b=2; le=2; fir=i(1);]  # s(3)=1; n=1; ! ~#rep 99  #pr \I-2 n;|\E # n=n+1; #end  # n=s(3)-1; !    ~#sel [nx=11; ny=9; mo=0; em=1; xs=24; ys=70; col=2; wid=38; hei=28; tsi=24; tfo=3; tki=1;]  Choose Variant\E   \T1 n\u32;\E  #p [em=0;]  # n=r(ZZ); ! 
__ 17 __ #g [op=open; twi=s(5)*10; the=36; col=256; sca=100; trx=0; try=0;] ~ #g [op=rect; nx=10+s(12)/2; ny=28; wid=s(12); hei=5; col=248; mo=0;] ~ #g [op=text; nx=10; ny=6; col=255; tfo=3; tki=0; tsi=18; sty=1;] \Ts(4) s(5)\E ~ #g [op=clos; sav=99;] \E  #p [ys=(1-ZY)*s(107)+(2*ZY-1)*80;] ~ #fr [op=o; mo=1; n=99; xs=ZY*80; ]  ~  ~ ~
__ 18 __ ~#pro scar #te [op=find; b=s(4); le=s(5); n=14990; c=124;] # i(14993)=s(4); i(14994)=i(14990)-s(4); !  ~# i(14991)=i(14990)+1; i(14992)=s(4)+s(5)-i(14991); I=int(G/1000); G=0.01*(G-I*1000); J=30*G; K=470*G; !  ~#p [tw=980*G; th=500*G; wid=870*G; hei=400*G; xs=90*G; ys=50*G; bot=3*G; top=6*G; tsi=26*G;] ~#p [b=A; le=0; mo=0; sty=1; nx=B; ny=C; sav=2; uni=0; msi=0; c=1; col=F; tfo=3; tki=0;]  ~#w [op=pf; n=1; file=here;] D E J K -2 \Ti(14991) i(14992)\E     ~#f [op=topng; n=2; form=1537;]  #f [op=copy; n=1; file=arg;] \Ti(14993) i(14994).png\E 1537.png\E  #f [op=dele; file=1537.png;]   ~# &=I; #case 1 #w [op=im; mo=0; c=1; sav=0; file=arg; em=1; xp=10; yp=30;] \Ti(14993) i(14994).png\E  #end |  ~@ ~# YZ=ZZ-17; #d 15 r(YZ) a b A B C D E F G H I J K N X  #v 4 r(YZ-4) A B X N  # H=KY-99; a=s(4); b=s(5); s(3)=H; #pr \Ta b\E # a=H; s(3)=1; ! ~# H=1100; &=N>0; #case 0 # H=100; N=-N; #end | #ma [op=mtr; b=A; nx=2; ny=B;] #d 5 C 1 -X X 247 H #pr \Ta b /scarRe\I1 N;|Scar Re \I1 N;,\I8 A B;\E  ~#e _scar  # A=A+B; #d 5 C 1 -X X 247 H #pr \Ta b /scarIm\I1 N;|Scar Im \I1 N;,\I8 A B;\E  #e _scar  # A=A-B; !  ~#p [em=0;] #ma [op=mtr; b=A; nx=B; ny=2;] #v 15 r(YZ) a b A B C D E F G H I J K N X ! ~
__ 19 __ # YZ=ZZ-99; #pas 26 A r(YZ) # A=s(4); B=s(5); I=s(3); #te [op=trim; b=A; le=B; n=4981;]  ~#read [fir=i(4976); n=5; b=i(4987); le=A+B-s(9);]  # D=i(4978)<i(4979); E=i(4978)/2; F=i(4979)/2; G=F/3; !  ~#p [tw=i(4978); th=i(4979); trx=0; try=0; sca=100; wid=D-4; hei=D-4; tf=3; tk=1; ts=G; mo=0; sty=1;] #g [op=open; col=247;]   ~#g [op=oval; col=251; nx=E; ny=F;] #p [op=text; col=246; nx=E-G;] #g [ny=F+G/2;] ONCE\E  #g [ny=F-G/2;] AGAIN\E   ~#g [op=clos; c=0; sav=2;] fin\E   #g [op=open; col=247; ] ~#g [op=oval; col=251; nx=E; ny=F;] #p [op=text; col=246; nx=E-G-50;] #g [ny=F+G/2;] FILE IS\E  #g [ny=F-G/2;] ABSENT\E   ~#g [op=clos; c=0; sav=3;]  # D=i(4980)/10; #f [op=fold; file=\Ti(4981) i(4982)\E]  ~# C=i(4977)-i(4976); E=0; &=C>0; #case 0 # E=1; #end | # &=E; !  ~#case 0 # N=C+1; H=1; #end |  #case 1 # N=-C+1; H=-1; #end |  ~#p [op=o; wid=i(4978)+8; hei=i(4979)+26; xs=(s(106)-s(14))/2; ys=(s(107)-s(15))/2;]  ~#ag [file=\Ti(4985) i(4986)\E] \Ti(4981) i(4982)\E  # O=i(4976)-H; C=O; M=0; L=1; s(2)=0; &=s(2); !  ~#case 0 # M=M+L; &=(M-N)<2>0; !  ~  #case 0  # s(3)=I; # C=C+L*H; E=i(4984); K=E-7; J=i(4983)+E-4; # &=K<1; !  ~    #case 1  #pr \Ti(4983) K\I-3 C;\TJ 4\E #end |  #case 0  #pr \I-3 C;\TJ 4\E #end |  ~    #f [op=size; file=\TI E\E]  # &=s(1)<1; !  ~    #case 1 #d 6 s(12) i(4978) i(4979) -1*4 #w [op=im; c=0; mo=1; sav=1; sca=16; n=1;] #end |  ~    #case 0 #p [n=3;] #end | ~    #ag [op=m; xs=0; ys=-13;] \TI E\E #rep 10 #ag [op=p;] #rob [mo=1; le=D;] #end   ~  #end |  ~  #case 1  #d 6 s(12) i(4978) i(4979) -1*4 #ag [op=m; n=2; xs=0; ys=-13;] \u32;\E   ~   #rep 10 #ag [op=p;] #rob [mo=1; le=D;] #end #end |  ~  #case 2  # C=O; M=0; #end |  ~  # L=0; P=0; &=s(2); #case 32 # L=1; #ag [op=i;] #end | #case 10 # L=1; #end | #case 27 # P=1; #end | # &=P; !   ~#end  #ag [op=c;]  #ini # &=12345; #f [op=fold; file=oldf;] #pas 26 r(YZ) A !  ~A B C D E F G H I J K L M N O  ~
__ 20 __ ~#pro curv  #  j=1+(k-1)*n;  #pas 3 r(j+n) r(Q) #ma [op=fno; b=j; nx=n; ny=1; mo=1;] # M=r(j+n+1); #pas 3 r(Q) r(j+n)  ~ #d 7 A j n 1 x y 247 1100  # I=int(G/1000); G=0.01*(G-I*1000); J=30*G; K=470*G; !  ~ #p [tw=980*G; th=500*G; wid=870*G; hei=430*G; xs=90*G; ys=50*G; bot=3*G; top=6*G; tsi=26*G;] ~ #p [b=A; le=0; mo=0; sty=1; nx=B; ny=C; sav=2; uni=P; msi=0;] #w [op=pf; file=here; n=0; c=1; col=F; tfo=3; tki=0;] D E    ~ g [op=open; twi=W; the=H; col=246;]  g [op=image; nx=490; ny=250; n=3; file=here;]  g [op=clos; sav=2;]   ~ #ag [op=m; n=2; xs=0; ys=-13; wid=W; hei=H;] \Tc d\u32*2;k = \S k;\u32*2;Max =\G M;\E  #rob [mo=1; le=e;] # &=s(2); !    ~@ ~# YZ=ZZ-99; #pas 26 A r(YZ)  #pas 26 a r(YZ+26)  ~# a=s(4); e=s(5); #te [op=find; b=a; le=e; n=1; c=124;] # b=i(1)-a; c=i(1)+1; d=a+e-c;  s(2)=0; s=0; e=r(17)*100; !  ~# n=r(1); m=r(2); N=n*m; W=980; H=500; x=r(3); y=r(4); k=r(15); i=r(16); P=YZ-14; Q=P+11; r(P)=1; #pas 10 r(5) r(P+1) # &=i<1; !  ~#case 0 #io [op=rd; fir=r(1); n=N; mo=1; file=\Ta b\E le=0;] #end | #case 1 #pas N r(i) r(1) #end |  ~#ag [op=o; wid=W+20; hei=H+46; xs=(s(106)-W)/2; ys=(s(107)-H)/2; file=nomusic;] -\E  # &=0; !  ~#case 0  #e _curv !   ~ #case 40 # &=s; #case 0 # s=1; k=k+1; &=k-1; #case m # k=1; #end | #end | #end | ~ #case 48 # s=0; #end | ~ #case 10 # s=0; k=k+1; &=k-1; #case m  # k=1; #end |  #end |  ~ #case 8  # s=0; k=k-1; &=k; #case 0  # k=m; #end |  #end | ~ #case 39 # &=s; #case 0 # e=e/2; s=1; #end | #end |  ~ #case 37 # &=s; #case 0 # e=e*2; s=1; #end | #end | ~ #case 38 # &=s; !  ~  #case 0 # s=1; &=1; !   ~   #case 1 # U=(k+1)<m; #inp [n=1; le=28; mo=4; em=0;] Curve number\E Number of curve to show \E \S U;\E # R=&; !   ~    #case 1 #read [fir=i(1); n=1; b=s(4); le=s(5);] # k=i(1); #e _curv #end | # &=R; !  ~   #end   ~  #end | ~ #end | # &=1-abs(s(2)-27)<1; !   ~#end    # &=12345; ! ~#ag [op=c;] #ini   #pas 26 r(YZ) A   #pas 26 r(YZ+26) a  !  ~A B C D E F G H I J K M N P Q R W    a d c d e i j k m n s x y  ~
__ 21 __~#d 19 r(ZZ-20) a b c d e h j k m n n1 n2 u v w x y H W ! ~# u=s(4); v=s(5); s(3)=1; #f [op=line; n=-1; file=\Tp\E]  #pr \u32;\E # a=1; c=s(3); b=c-1; #te [op=trim; b=a; le=b; n=1;]  ~# n=s(1); j=3; #pr \Ti(1) i(2)/\Ti(j) i(j+1)\E # a=s(4); b=s(5);  #f [op=size; file=\Ta b .png\E]  # e=1; &=s(1); !~#case 0  #f [file=\Ta b .jpg\E] # e=2; &=s(1); !~  #case 0  #pr File \Ta b .jpg\u32; is absent ! Change input data !\E #m [op=win;] \Tp\E # e=0; #end |~#end |   # &=e<1; !~#case 1 # &=e; #case 1 #p [file=\Ta b .png\E] #end | #case 2 #p [file=\Ta b .jpg\E] #end | ~  # k=1; m=n-2;  #w [op=im; mo=0; sav=k;]  # w=s(12); h=s(13); s(3)=c; ! ~  #f [op=line; n=-2; file=\Tu v\E]  #pr \u32;\E  # d=s(3)-c; #read [fir=i(91); n=2; b=c; le=d;] ~  # n1=i(91); n2=i(92); W=n1*w+2*(n1-1); H=n2*h+2*(n2-1); ! ~  #rep m  ~    # s(3)=c; #pr \Ti(1) i(2)/\Ti(j) i(j+1)\E # a=s(4); b=s(5);  #f [op=size; file=\Ta b .png\E]  # e=1; &=s(1); !~    #case 0  #f [file=\Ta b .jpg\E] # e=2; &=s(1); !~      #case 0  #pr File \Ta b\u32; is absent ! Change input data !\E #m [op=win;] \Tp\E # e=0; #end |~    #end |   # &=e<1; !~    #case 1 # &=e; #case 1 #p [file=\Ta b .png\E] #end | #case 2 #p [file=\Ta b .jpg\E] #end | #w [op=im; mo=0; sav=k;] ~    #end |  # j=j+2; k=k+1; !~  #end  # &=(k-n1*n2)>0; !~  #case 1 #eg [op=open; twi=W; the=H; col=246;]  # k=1; x=w/2; y=h/2; #d 7 r(1) x y 0 0 0 1 1 !  ~    #rep n2  ~      #rep n1  # &=(m-k)<0; #case 0 #eg [op=imag; n=k; b=1; em=0;]  #end |  # k=k+1; x=x+w+2; r(1)=x; #end   ~      # y=y+h+2; r(2)=y; x=w/2; r(1)=x; !  ~    #end  ~    #eg [op=clos; c=1; sav=k;]  # j=2*n-1; &=e; #case 1 #f [op=topng; n=k; form=\Ti(1) i(2)/\Ti(j) i(j+1)\E]   ~    #w [op=im; mo=0; file=\Ti(1) i(2)/\Ti(j) i(j+1) .png\E sav=0; em=1; xp=2; yp=2;] #end |~    #case 2 #w [op=im; mo=2; n=k; sav=-1;  form=\Ti(1) i(2)/\Ti(j) i(j+1)\E em=1; xp=2; yp=2; tw=-1; th=-1;] #end |~  #end | ~#end |  #v 19 r(ZZ-20) a b c d e h j k m n n1 n2 u v w x y H W ! ~
__ 22 __ #d 3 r(ZZ-5) o e Q  # e=0.01; # o=int(Q/10+e); &9=Q-10*o; Q=o; o=int(Q/10+e); &8=Q-10*o; Q=o; o=int(Q/10+e); &7=Q-10*o; Q=o; o=int(Q/10+e); &6=Q-10*o; Q=o; o=int(Q/10+e); &5=Q-10*o; Q=o; o=int(Q/10+e); &4=Q-10*o; Q=o; o=int(Q/10+e); &3=Q-10*o; Q=o; o=int(Q/10+e); &2=Q-10*o; Q=o; o=int(Q/10+e); &1=Q-10*o;  #v 3 r(ZZ-5) o e Q !  ~ 
__ 23 __ # YZ=ZZ-12; #d 12 r(YZ) y f1 f2 J W H X Y M N N1 N2  #v 8 r(YZ-8) W H X Y M N N1 N2 !  ~#g [op=open; twi=W; the=H; col=256; sca=100; trx=0; try=0;] # &=M; #case 0   #te [op=find; b=s(4); le=s(5); n=1; c=10;]  ~  #p [nx=10; col=255; tf=2; tk=1; ts=22; sty=1;]  # y=H-22; &=s(1)<2;  #case 0 # f1=s(4); f2=s(5); #g [op=text; ny=y;] \Tf1 f2\E #end |  ~  #case 1 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28;  # f1=i(1)+1; f2=s(4)+s(5)-f1; #g [op=text; ny=y;] \Tf1 f2\E #end |  ~  #case 2 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; N=s(1)-1; J=2;   #rep N  # f1=f1+f2; f2=i(J)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; J=J+1; #end   ~    # f1=f1+f2; f2=s(4)+s(5)-f1; #g [op=text; ny=y;] \Tf1 f2\E   #end |  #end | ~#case 1 # f1=s(4); f2=s(5); J=-N1; y=H-20;  #p [nx=10; col=255; tf=2; tk=1; ts=22; sty=1;]  #rep N  #f [op=line; file=\Tf1 f2\E n=J;] #g [op=text; ny=y;] \Ts(4) s(5)\E  # J=J-1; y=y-28;  #end  #end |   ~#g [op=clos; sav=N2;] \E  #fr [op=o; mo=1; n=N2; xs=X; ys=Y;]  #v 12 r(YZ) y f1 f2 J W H X Y M N N1 N2 !  ~
__ 24 __ ~#pro chva #d 6 i(1) 150 0 0 150 255 150 #col [b=2; le=2; fir=i(1);]  # s(3)=1; n=1; #rep 99  #pri \I-2 n;|\E # n=n+1; #end  # n=s(3)-1; !    ~#sel [nx=11; ny=9; mo=0; em=1; xs=24; ys=70; col=2; wid=38; hei=28; ts=24; tf=3; tk=1;]  Choose Variant\E   \T1 n\u32;\E  #p [em=0;] @ ~# a=s(4); b=s(5); o1=KY-10198; #pas b t(a) t(o1)  # o2=b; o3=L; &=1; !  ~#case 1  # a=o1; b=o2; #te [op=find; b=a; le=b; n=1; c=124;]  # k=i(1)-a; !  ~  #f [op=fold; file=\Ta k\E em=1;]  # c=i(1)+1; d=i(2)-c; e=i(2)+1; f=i(3)-e; g=i(3)+1; h=i(4)-g; i=i(4)+1; j=i(5)-i; !  ~  #f [op=size; file=\Tc d\E] # n=s(1); &=n<1; !  ~  #case 0  #m [op=win;] File \Ta k /\Tc d\n is absent !\E # &b=1; #end | ~  #case 1  #io [op=rb; fir=t(1); n=n; le=0;] # I2=1; S2=n; # s(3)=1+n; !  ~    #f [op=size; file=\Te f\E] # n=s(1); &=n<1; !  ~    #case 0  #m [op=win;] File \Ta k /\Te f\n is absent !\E # &b=1; #end |  ~    #case 1  #f [op=line; n=-1;] # I1=s(4); S1=s(5); #f [op=line; n=-2;]  # I3=s(4); S3=s(5); #te [op=find; b=I2; le=S2; n=1; c=124;]    ~      # s(3)=KY-10398;  #inp [n=s(1); mo=5; le=o3; em=12; xs=25; ys=70;] \TI1 S1\E  \TI2 S2\E \TI3 S3\E   ~      #te [op=repl; b=s(4); le=s(5); c=10; mo=124;]  #f [op=line; n=2; em=0;] #te [op=repl; c=124; mo=32;]  ~      #case 6   #e _chva  # &b=1; s(3)=1; #f [op=line; n=-(&+2); em=0;]  #f [op=line; n=2; b=1; le=s(5);]  #end | ~      #case 5   #e _chva  # &b=1; s(3)=1; #f [op=line; n=-2; em=0;]  #f [op=line; n=&+2; b=1; le=s(5);]  #end | ~      #case 4  # &b=1; s(1)=0; #f [op=edit; mo=1; c=1; file=\Ti j\E em=12; xs=10; ys=30; fk=3; fs=16; nx=300; ny=0;]  #end |  ~      #case 3  # &b=1; s(1)=0; #f [op=edit; mo=1; c=1; file=\Tg h\E em=12; xs=10; ys=30; fk=3; fs=16; nx=300; ny=0;]  #end |  ~      #case 2  # &b=0;  #end |  ~      #case 1  # &b=1; #f [op=fold; file=oldf;]  #d 23 r(ZZ-23) a b c d e f g h i j k n o1 o2 o3 I1 I2 I3 S1 S2 S3 &b L ! #e _genp #v 23 r(ZZ-23) a b c d e f g h i j k n o1 o2 o3 I1 I2 I3 S1 S2 S3 &b L #end |  ~    #end |  ~  #end |   # &=&b; !  ~#end    !      ~
__ 25 __ #g [op=open; twi=W; the=H; col=256; sca=100; trx=0; try=0;] # &=M; !  ~#case 0   #te [op=find; b=s(4); le=s(5); n=1; c=10;]  ~ #p [nx=10; col=255; tfo=2; tki=1; tsi=22; sty=1;]  # y=H-22; &=s(1)<2; !  ~ #case 0 # f1=s(4); f2=s(5); #g [op=text; ny=y;] \Tf1 f2\E #end | ~ #case 1 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28;  # f1=i(1)+1; f2=s(4)+s(5)-f1; #g [op=text; ny=y;] \Tf1 f2\E #end | ~ #case 2 # f1=s(4); f2=i(1)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; N=s(1)-1; J=2; !  ~  #rep N  # f1=f1+f2; f2=i(J)-f1;  #g [op=text; ny=y;] \Tf1 f2\E  # y=y-28; J=J+1;  #end   ~  # f1=f1+f2; f2=s(4)+s(5)-f1; #g [op=text; ny=y;] \Tf1 f2\E   ~ #end |   ~#end | ~#case 1 # f1=s(4); f2=s(5); J=-N1; y=H-20;  #p [nx=10; col=255; tfo=2; tki=1; tsi=22; sty=1;] ~ #rep N  #f [op=line; file=\Tf1 f2\E n=J;] #g [op=text; ny=y;] \Ts(4) s(5)\E  # J=J-1; y=y-28;  #end   ~#end |   ~#g [op=clos; sav=N2;] \E  #fr [op=o; mo=1; n=N2; xs=X; ys=Y;]  ~
__ 26 __ # YZ=ZZ-7; #d 6 r(YZ) A B C D E F  #v 3 r(YZ-3) A B F  # E=sgn(A); D=sgn(B); A=A*E; B=B*D; D=D<0+E<0; C=A+B-1; ! ~#d 17 s(9) A 0 0 940 570 830 470 90 50 1 3 6 B 1 D 20 0 ! ~#w [op=pf; file=here; form=\Tp /sm\I1 F;\E n=0; c=1; col=247; tfo=3; tki=0; em=1; xp=20; yp=20;] A C    ~#v 6 r(YZ) A B C D E F ! 
__ 27 __ # YZ=ZZ-7; #d 3 r(YZ) X Y S #v 3 r(YZ-3) X Y S !  ~#g [op=open; twi=30*S; the=20*S; col=247; sca=100; trx=0; try=0;] ~#g [op=text; ny=5*S; nx=5*S; col=246; tfo=3; tki=1; tsi=14*S; sty=1;]  OK\E  ~#g [op=clos; sav=100;] \E  #ch [n=100; xs=X; ys=Y;] #v 3 r(YZ) X Y S ! ~  ~ ~
__ 28 __ ~#pro pict ~# YZ=s(109)-299; #pas 26 A r(YZ+17) #pas 26 a r(YZ+45)  ~# j=F; r=0; &=E>0; #case 0 # E=-E; r=1; #end | # m=int(E/10); n=E-m*10; i=1; &=D>0; #case 0 # D=-D; i=0; #end |   ~# l=149990; #te [op=find; b=s(4); le=s(5); n=l; c=124;] # i(l+3)=s(4); i(l+4)=i(l)-s(4); i(l+1)=i(l)+1; i(l+2)=s(4)+s(5)-i(l+1); !  ~# e=0.5; a=B*m; b=C*n; v=int(D/10000+e); D=D-v*10000; v=11-22*v; I=int(D/1000+e); D=0.01*(D-I*1000); q=D*sqr(a*a+b*b)/700; !  ~# E=B*m+int(250*q/D+e); F=C*n+int(120*q/D+e); T=C*n+int(25*q/D+e); G=int(90*q/D+e); H=int(60*q/D+e); !  ~# O=int(90*q/D+e); P=B*m+int(3*q/D+e); Q=C*n+int(3*q/D+e); R=G+P+int(50*q/D+e); M=B*C; W=int(26*q/D+e); Z=int(20*q/D+e); !  ~# a=int(4*q/D+e); b=2*a; c=int(25*q/D+e); d=int(15*q/D+e); f=E-30*q; g=int(30*q/D+e); h=int(15*q/D+e); p=int(3*q/D+e); !  ~# K=YZ+2; J=K+10; #pas 15 r(j) r(K) # &=r; #case 0 #d 5 r(J) 0 1 0 0.2 1 #end |   ~# N=A+M; #pas 2 r(N) r(YZ+43) #ma [op=fno; b=A; nx=M; ny=1; mo=r;] # X=r(N); Y=r(N+1); !   ~# L=K-1; S=K+4; U=H-int(15*q/D); V=F-int(35*q/D); !  ~#d 15 s(9) J A 32 B C B C 0 0 v 1 99999 m n 1  !    ~#w [op=im; file=here;]  # &=i; !   ~#case 1  #p [dir=0;]   ~ #d 15 s(9) J 0 100 1 C 1 C 0 0 v 1 99999 Z n 2 !  ~ #w [op=im; file=here;]  ~ #d 15 s(11) 1 E F P Q G H 1 a b -1 -1 1 W L  !  ~ #w [n=0; op=mm; file=here; tfo=3; tki=0;]  ~ #d 15 s(11) 2 O T c Q 0 d 11211 a b -1 -1 2 W S  !  ~ #w [n=0; op=mm; file=here;] ~ #g [op=open; tw=f; th=g; col=246; trx=0; try=0; sca=100;]    # u=1/log(10); !  ~ # &=(abs(X)*1e9-1)>0<1; #case 0 # x=0; #end | #case 1 # s=X/abs(X); t=10^int(4-u*log(s*X)); x=s*int(s*X*t +0.5)/t; #end |  ~ # &=(abs(Y)*1e9-1)>0<1; #case 0 # y=0; #end | #case 1 # s=Y/abs(Y); t=10^int(4-u*log(s*Y)); y=s*int(s*Y*t +0.5)/t; #end |  ~ #g [op=text; nx=h; ny=p; col=247; tfo=3; tsi=W; tki=0; sty=1;] \Ti(l+1) i(l+2)\u32*2;mima= \G x;, \G y;\E ~ #g [op=clos; sav=3;] -\E  ~ #d 4 i(l+5) R U h V  #w [op=ff; n=3; b=l+5; sav=1; file=here; c=1;] 0\E   ~ # &=(100*abs(D-1))<1; #case 1 #w [op=im; mo=2; n=1; tw=E*D; th=-1; sav=1; sca=4;] #end |  ~#end |  ~# &=r; #case 0 # C=Y-X; #ma [op=vmc; b=A; le=M;]  # C=X; #ma [op=vac;] #end |  ~#pas 2 r(YZ+43) r(N) #pas 26 r(YZ+17) A  #pas 26 r(YZ+45) a   ~ #ag [op=m; n=1; xs=0; ys=-13; wid=W; hei=H;] \Tc d\u32*2;k = \S k;\E  #rob [mo=1; le=e;] # &=s(2); !      ~@ ~# XZ=s(109)-99; #pas 26 A r(XZ)  #pas 26 a r(XZ+26)  # a=s(4); e=s(5); b=9999; #pas e t(a) t(b)  # a=b; !  ~#te [op=find; b=a; le=e; n=1; c=124;] # b=i(1)-a; c=i(1)+1; d=a+e-c;  s(2)=0; s=0; e=r(16)*100; !   ~# n=r(1); m=r(2); l=r(3); N=n*m; M=N*l;  k=r(14); i=r(15); F=XZ-15; W=int((n+254)*r(19)); H=int((m+100)*r(19)); !  ~#p [pa=r(17); em=0;] #pas 10 r(4) r(F) #d 5 r(F+10) 0 1 0 0.2 3  2 B n m  # D=1000+int(r(19)*100); E=r(18)*11; &=i<1; !   ~#case 0 #io [op=rd; fir=r(1); n=M; mo=1; file=\Ta b\E le=0;] #end |  ~#case 1 #pas M r(i) r(1) #end |  ~#ag [op=o; wid=W+20; hei=H+46; xs=(s(106)-W)/2; ys=(s(107)-H)/2; file=nomusic;] -\E  # &=0; !   ~#case 0  # A=1+N*k-N; b=b-4; s(3)=1; #pr \Ta b |\Tc d \E   #e _pict   # b=b+4; !  ~ #case 40 # &=s; #case 0 # s=1; k=k+1; &=k-1; #case l # k=1; #end | #end | #end | ~ #case 48 # s=0; #end | ~ #case 10 # s=0; k=k+1; &=k-1; #case l  # k=1; #end |  #end |  ~ #case 8  # s=0; k=k-1; &=k; #case 0  # k=l; #end |  #end |  ~ #case 39 # &=s; #case 0 # e=e/2; s=1; #end | #end |  ~ #case 37 # &=s; #case 0 # e=e*2; s=1; #end | #end |  ~ #case 38 # &=s; !   ~  #case 0 # s=1; &=1; !   ~   #case 1 # U=(k+1)<l; #inp [n=1; le=28; mo=4; em=0;] Figure number\E Number of figure to show \E \S U;\E # R=&; !   ~    #case 1 #read [fir=i(1); n=1; b=s(4); le=s(5);] # k=i(1);  # A=1+N*k-N; b=b-4; #pr \Ta b |\Tc d \E #e _pict #end | # &=R; !    ~   #end   ~  #end | ~ #end |    ~ # &=1-abs(s(2)-27)<1; !     ~#end    # &=12345; !  ~#ag [op=c;] #ini   #pas 26 r(XZ) A   #pas 26 r(XZ+26) a   ~ ~A B C D E F G H I J K M N P Q R W    a d c d e i j k m n s x y  ~
__ 29 __~#pro comp  # B1=b1+d1*b3; B2=b2+d2*b4;  #e _pcmf  # K2=n3+b3+b4*n0; r(K2)=C; e=e+1; # &=u9; #case 0 # u9=C; #end | @  ~# YZ=ZZ-65; #d 62 r(YZ) b1 b2 b3 b4 b5 b6 b7 b8 b9 c c0 c1 c2 d1 d2 e e0 e1 e2 e3 e4 e7 e8 e9 k1 k2 k3 k4 m0 m1 m2 m3 m4 n0 n3 w w1 u0 u1 u2 u3 u4 u5 u6 u7 u8 u9 v v1 v2 v3 v4 B1 B2 C K1 K2 N1 W Y1 Y2 &8 ! ~#v 5 r(YZ-5) b1 b2 d1 d2 N1 !~#d 3 i(1) 220 255 255  #col [b=1; le=1; fir=i(1);]  ~# K1=997001; k1=K1; C=0; #ma [op=vic; b=k1; le=625;]~# n0=25; n3=k1+312; w=int(625/n0); W=w*(n0+1); e=0; e7=1; e8=1; b8=1e-50; ! ~# Y1=(s(106)-W)/2; Y2=(s(107)-W)/2; b3=0; b4=0; b5=0; b6=0; b9=0; c0=0; ! ~#ag [op=o; wid=W; hei=W; xs=Y1; ys=Y2; file=nomusic;] Variation Par\E ~# m0=0; m1=0; m2=0; m3=0; m4=0; u5=0; u6=0; u7=0; u8=0; u9=0; ! ~# u0=0; u1=0; u2=0; u3=0; u4=0; &=0; e9=0; ! ~#case 0  # &=b6-int(b6/10)*10+e8; !  ~  #case 0  # &=b6<1>(-1); ! ~    #case 1 #pas 405 r(K1+250) r(K1) # C=0; #ma [op=vic; b=K1+405; le=250;] # n3=n3-250; e8=1; #end |~    #case -1 #pas 405 r(K1) r(K1+250) # C=0; #ma [op=vic; b=K1; le=250;] # n3=n3+250; e8=1; #end |~  #end |  # &=b5-int(b5/10)*10+e7; ! ~  #case 0  # &=b5<1>(-1); ! ~    #case 1 #ma [op=mtr; b=K1; nx=25; ny=25;]  #pas 405 r(K1+250) r(K1) # C=0; ! ~      #ma [op=vic; b=K1+405; le=250;] #ma [op=mtr; b=K1;] # n3=n3-10; e7=1; !  ~    #end |~    #case -1 #ma [op=mtr; b=K1; nx=25; ny=25;] #pas 405 r(K1) r(K1+250) # C=0; ! ~      #ma [op=vic; b=K1; le=250;] #ma [op=mtr; b=K1;] # n3=n3+10; e7=1; !  ~    #end |~  #end |  ~  # k1=K1; k4=k1+625; #pas 625 r(k1) r(k4)  ~  #g [op=open; twi=W; the=W; col=1; trx=0; try=0;] # k2=0; ! ~  #rep n0 # k1=0; !  ~    #rep n0 # k3=k2*n0+k1+k4; c=r(k3); c1=255; &=c>0; #case 0 # w1=3; c1=248; #end | ~      # &=c1; #case 255 # w1=(w*(1-c/(u9+1e-50)))>3;  #end |~      #g [op=rect; col=c1; nx=w*(k1+1); ny=w*(k2+1); wid=w1; hei=w1; mo=0;]  # k1=k1+1; ! ~    #end  # k2=k2+1; ! ~  #end  ~  #g [op=clos; sav=1;]  -\E  ~  #ag [op=m; n=1; xs=0; ys=0; file=nomusic;] \I4 e;\E # &=(N1-e)<0; ! ~  #case 0  # &=m0 ; b7=0; !  ~    #case 0 # b3=b5; b4=b6; #e _comp # u0=C; b7=1; m0=1; #end | # &=m1+b7; ! ~    #case 0 # b3=b5+1; b4=b6; #e _comp # u1=C; b7=1; m1=1; #end | # &=m2+b7; ! ~    #case 0 # b3=b5; b4=b6+1; #e _comp # u2=C; b7=1; m2=1; #end | # &=m3+b7; ! ~    #case 0 # b3=b5-1; b4=b6; #e _comp # u3=C; b7=1; m3=1; #end |  # &=m4+b7; ! ~    #case 0 # b3=b5; b4=b6-1; #e _comp # u4=C; b7=1; m4=1; #end |  # &=b7; ! ~    #case 0~      # v1=u0-u1; e1=v1/abs(v1+b8); v2=u0-u2; e2=v2/abs(v2+b8); v3=u0-u3; ! ~      # e3=v3/abs(v3+b8); v4=u0-u4; e4=v4/abs(v4+b8); &=e1+e2+e3+e4; ! ~      #case -4 # e9=1; #end |  # &=e9; !  ~      #case 0  # b0=1; v=v1; !  ~        # &=(v2-v)<0; #case 0 # b0=2; v=v2; #end |  ~        # &=(v3-v)<0; #case 0 # b0=3; v=v3;  #end |  ~        # &=(v4-v)<0; #case 0 # b0=4; #end |  # &=(b0-b9)*c0; ! ~        #case 0 # &=b0; ! ~          #case 1 # b5=b5+1; m0=1; m1=0; m2=0; m3=1; m4=0; u3=u0; u0=u1; e7=0; #end |~          #case 2 # b6=b6+1; m0=1; m1=0; m2=0; m3=0; m4=1; u4=u0; u0=u2; e8=0;#end |~          #case 3 # b5=b5-1; m0=1; m1=1; m2=0; m3=0; m4=0; u1=u0; u0=u3; e7=0; #end |~          #case 4 # b6=b6-1; m0=1; m1=0; m2=1; m3=0; m4=0; u2=u0; u0=u4; e8=0; #end | ~        #end |~        #case 1  # &=b0; ! ~          #case 2 # b6=b6+1; m0=1; m1=0; m2=0; m3=1; m4=1; u4=u0; u0=u2; u3=u6; e8=0; #end |~          #case 3 # b5=b5-1; m0=1; m1=1; m2=0; m3=0; m4=1; u1=u0; u0=u3; u4=u7; e7=0;#end |~          #case 4 # b6=b6-1; m0=1; m1=1; m2=1; m3=0; m4=0; u2=u0; u0=u4; u1=u8; e8=0; #end | ~        #end |~        #case 3  # &=b0; ! ~          #case 4 # b6=b6-1; m0=1; m1=0; m2=1; m3=0; m4=0; u2=u0; u0=u4; u3=u8; e8=0; #end |~        #end |~        #case -3  # &=b0; ! ~          #case 1 # b5=b5+1; m0=1; m1=0; m2=1; m3=1; m4=0; u3=u0; u0=u1; u2=u5; e7=0; #end |~        #end |~        #case -1  # &=b0; ! ~          #case 1 # b5=b5+1; m0=1; m1=0; m2=0; m3=1; m4=0; u3=u0; u0=u1; u4=u5; e7=0; #end |~          #case 2 # b6=b6+1; m0=1; m1=1; m2=0; m3=0; m4=1; u4=u0; u0=u2; u1=u6; e8=0; #end |~          #case 3 # b5=b5-1; m0=1; m1=1; m2=0; m3=0; m4=0; u1=u0; u0=u3; u2=u7; e7=0; #end | ~        #end | ~        # b9=b0; c0=1; u5=u1; u6=u2; u7=u3; u8=u4; ! ~      #end |~    #end |~  #end |  # &=(N1-e)<0+e9; !   ~#end  #ag [op=c;] #ini  ~#w [op=im; mo=2; n=1; twi=-1; the=-1; c=1; sav=0; file=here;]~# AZ=b1+d1*b5; BZ=b2+d2*b6; ! ~#v 62 r(YZ) b1 b2 b3 b4 b5 b6 b7 b8 b9 c c0 c1 c2 d1 d2 e e0 e1 e2 e3 e4 e7 e8 e9 k1 k2 k3 k4 m0 m1 m2 m3 m4 n0 n3 w w1 u0 u1 u2 u3 u4 u5 u6 u7 u8 u9 v v1 v2 v3 v4 B1 B2 C K1 K2 N1 W Y1 Y2 &8 ! ~
__ 30 __~#d 16 r(ZZ-20) A B C D E F I K L M S a b j k o !~#f [op=fold; file=null;]  # a=s(4); b=s(5); c=KY-200; #pas b t(a) t(c)  # a=c; k=14972; ! ~#te [op=trim; n=k; b=a; le=b;]  #read [fir=r(1); n=2; b=i(k+2); le=a+b-s(9);]  ~# K=r(1); M=r(2); I=i(k); S=i(k+1);  #f [op=size; file=arg;] \TI S\E  # L=s(1); &=L<1>0; ! ~#case 0  #m [op=win;] File\n\TI S\n is absent !\E #end |~#case 1  #d 6 A 128 -129 256 -1 1104 1040 ! ~ #io [op=rb; fir=r(1); n=L; le=0;]  \TI S\E  # &=(M-2)*(M-3); ! ~ #case 0 # j=1; #rep L # o=r(j); o=o-K; &=o>B; #case B # o=o+C; #end | # r(j)=o; j=j+1; #end  #end |~ # j=1; #rep L # t(j)=r(j); &=r(j)>D; #case D # t(j)=r(j)+E; #end | # j=j+1; #end  ~ # s(1)=1; s(3)=1; #te [op=edit; b=1; le=L; em=12; xs=10; ys=30; fk=3; fs=16; nx=300; ny=0;] \TI S\E  ~ # L=s(5);  j=1; #rep L # r(j)=t(j); &=t(j)<F; #case F # r(j)=t(j)-E; #end | # j=j+1; #end  # &=(M-2)*(M-1); ! ~ #case 0 # j=1; #rep L # o=r(j); o=o+K; &=o<A; #case A # o=o-C; #end | # r(j)=o; j=j+1; #end  #end | ~ #io [op=wb; fir=r(1); n=L; file=arg;]  \TI S\E~#end |  #f [op=fold; file=oldf;]  #v 16 r(ZZ-20) A B C D E F I K L M S a b j k o ! ~~
__ 31 __ ~# YZ=ZZ-24; #d 14 r(YZ) x1 x2 y1 y2 z1 z2 a b c d e i j k #v 6 r(YZ-6) x1 x2 y1 y2 z1 z2 ! ~# a=(x2-x1)/5; b=log(a)/log(10); i=int(b); &=b>0; #case 0 # i=i-1; #end |  ~# c=10^i; j=int(a/c+0.5); k=F+4; &=(j-1)*(j-2)*(j-3); #case 0 # j=2; r(k)=3; #end | # &=(j-4)*(j-5)*(j-6); ! ~#case 0 # j=5; r(k)=4; #end | # &=(j-7)*(j-8)*(j-9)*(j-10); #case 0 # j=10; r(k)=4; #end |  ~# d=j*c; r(F+3)=d; e=int(x1/d)*d; &=(e-x1+1e-9)>0; #case 0 # e=e+d; #end | # r(F+2)=e; r(F+1)=x2; r(F)=x1; !   ~# a=(y2-y1)/5; b=log(a)/log(10); i=int(b); &=b>0; #case 0 # i=i-1; #end |  ~# c=10^i; j=int(a/c+0.5); k=F+9; &=(j-1)*(j-2)*(j-3); #case 0 # j=2; r(k)=3; #end | # &=(j-4)*(j-5)*(j-6); ! ~#case 0 # j=5; r(k)=4; #end | # &=(j-7)*(j-8)*(j-9)*(j-10); #case 0 # j=10; r(k)=4; #end |  ~# d=j*c; r(F+8)=d; e=int(y1/d)*d; &=(e-y1+1e-9)>0; #case 0 # e=e+d; #end | # r(F+7)=e; r(F+6)=y2; r(F+5)=y1; !   ~# a=(z2-z1)/5; b=log(a)/log(10); i=int(b); &=b>0; #case 0 # i=i-1; #end |  ~# c=10^i; j=int(a/c+0.5); k=F+14; &=(j-1)*(j-2)*(j-3); #case 0 # j=2; r(k)=3; #end | # &=(j-4)*(j-5)*(j-6); !  ~#case 0 # j=5; r(k)=4; #end | # &=(j-7)*(j-8)*(j-9)*(j-10); #case 0 # j=10; r(k)=4; #end |  ~# d=j*c; r(F+13)=d; e=int(z1/d)*d; &=(e-z1+1e-9)>0; #case 0 # e=e+d; #end | # r(F+12)=e; r(F+11)=z2; r(F+10)=z1; !   ~#v 14 r(YZ) x1 x2 y1 y2 z1 z2 a b c d e i j k  !  
__ 32 __ ~#te [op=find; b=s(4); le=s(5); c=124; n=101;]  # N=s(1)/2-1; I=i(101+2*N)+1; S=i(102+2*N)-I; #p [form=\TI S\E]  ~# I=s(4); S=i(101)-I; W1=2*W+25; H1=N*(H+2)+H+8; W2=W/2; H2=H/2; Y1=2*H/3; Y0=5*H/6+4; !  ~#eg [op=open; tw=W1; th=H1; col=1;] #d 2 r(1) 8 Y0  #eg [op=pai; col=2; mo=1;]  ~#eg [op=text; sty=1; b=1; tk=K; ts=Y1; em=0; ] \TI S\E # i=1; j=101; x=5; y=3*H2+6; y1=H+2; !  ~#rep N  # r(1)=x; r(2)=y-H2; r(3)=r(1); r(4)=r(2)+H; r(5)=r(1); r(6)=r(2); r(7)=W; r(8)=H; i(i)=x; i(i+1)=y; I=i(j)+1; S=i(j+1)-I; !    ~  #eg [op=pai; col=4; mo=2; b=1; sty=0;]  #pat [op=rect; b=5; n=1;]  #eg [op=fill;] ~  #eg [op=pai; col=3; mo=1;]   # r(1)=x+5; r(2)=y-3; #eg [op=text; sty=4; b=1;] \TI S\E  ~  # u=j-100; &=(u*(10-u))<1>0; #case 1 # u=u+48; #end |  ~  #case 0 # &=abs(u-10)<1; #case 0 # u=48; #end |  ~    #case 1 # &=((37-u)*(u-10))<1>0; #case 1 # u=u+54; #end | #end |  ~  #end |  # r(1)=x+W-5; r(2)=y-3; #eg [op=text; sty=6; b=1;] \Uu;\E # j=j+1; i=i+2; y=y+y1; !  ~#end  # x=W+20; y=3*H2+6; !  ~#rep N  # r(1)=x; r(2)=y-H2; r(3)=r(1); r(4)=r(2)+H; r(5)=r(1); r(6)=r(2); r(7)=W; r(8)=H; i(i)=x; i(i+1)=y; I=i(j)+1; S=i(j+1)-I; !    ~  #eg [op=pai; col=4; mo=2; b=1; sty=0;]  #pat [op=rect; b=5; n=1;]  #eg [op=fill;] ~  #eg [op=pai; col=3; mo=1;]   # r(1)=x+5; r(2)=y-3; #eg [op=text; sty=4; b=1;] \TI S\E  ~  # u=j-100; &=(u*(10-u))<1>0; #case 1 # u=u+48; #end |  ~  #case 0 # &=abs(u-10)<1; #case 0 # u=48; #end |  ~    #case 1 # &=((37-u)*(u-10))<1>0; #case 1 # u=u+54; #end | #end |  ~  #end |  # r(1)=x+W-5; r(2)=y-3; #eg [op=text; sty=6; b=1;] \Uu;\E # j=j+1; i=i+2; y=y+y1; !  ~#end    #eg [op=clos; sav=1;] -\E   ~# s(2)=0; #ch [n=1; xs=X; ys=Y;] # u=s(2); &=((58-u)*(u-48))<1>0; #case 1 # i=u-48; #end |  ~#case 0 # &=abs(u-48)<1; #case 0 # i=10; #end |  ~  #case 1 # &=((91-u)*(u-64))<1>0; #case 1 # i=u-54; #end |  ~    #case 0 # x=s(102); y=H1-s(103); i=0; j=2; u=W/2; !   ~      #rep N # &=(u-abs(x-i(j-1)-u))<0+(H2-abs(y-i(j)))<0; #case 0 # i=j/2; #end | # j=j+2; #end   ~      #rep N # &=(u-abs(x-i(j-1)-u))<0+(H2-abs(y-i(j)))<0; #case 0 # i=j/2; #end | # j=j+2; #end   ~    #end | ~  #end | ~#end | # &=i;  !   ~
__ 33 __ # YZ=ZZ-10; #pas 10 AZ r(YZ) # AZ=BY-100; BZ=s(3); EZ=s(4); FZ=s(5); #te [op=find; b=EZ; le=FZ; c=124; n=AZ;] # JZ=s(1); &=JZ<1; ! ~#case 0 # s(3)=EZ; s(1)=1; GZ=EZ+3; HZ=2; FZ=FZ+3; JZ=1; #pr OK|\TEZ FZ \E #end |  #case 1 # CZ=s(1)-1; GZ=i(AZ+CZ)+1; HZ=GZ-EZ-1; #end |  ~# IZ=EZ+FZ-GZ; #te [op=find; b=GZ; le=IZ; c=10; n=AZ;]  # CZ=s(1)+2; DZ=CZ+2; #d DZ i(AZ) 0*CZ JZ 0 !    ~#m [op=gen; b=AZ; nx=25; ny=70; siz=10; n=1;] message\E  \TGZ IZ \n\u32;\E  \TEZ HZ\E # s(3)=BZ; #pas 10 r(YZ) AZ ! 
__ 34 __ # YZ=ZZ-11; #d 11 r(YZ) a b d e h j m u v x y ! ~# m=6*10000; h=m*60; d=h*24; #f [op=modi; file=\Tp\E]  # b=int(s(1)/d); a=s(2)*10+b-365*31-8; b=s(1)-b*d; ! ~#d 30 r(1) 365*3 366 365*3 366 365*3 366 365*3 366 365*3 366 365*3 366 365*3 366 365*2  # j=1; e=r(j); &=(a-e)<0; !  ~#case 0 # j=j+1; e=e+r(j);  &=(a-e)<0; #end  # y=j; a=a-e+r(j); #d 12 r(1) 31 28 31 30 31 30 31 31 30 31 30 31 ! ~# &=j-int(j/4)*4; #case 0 # r(2)=r(2)+1; #end |  # j=1; e=r(j); &=(a-e)<0; #case 0 # j=j+1; e=e+r(j);  &=(a-e)<0; #end   ! ~# x=j; a=a-e+r(j)+1; u=int(b/h); b=b-u*h; v=int(b/m); b=int((b-v*m)/1000); u=u+3; DZ=(y*100+x)*100+a; TZ=(u*100+v)*100+b; !  ~#v 11 r(YZ) a b d e h j m u v x y ! ~ ~ ~
__ 35 __ # YZ=ZZ-99; #pas 26 A r(YZ) #pas 26 a r(YZ+26) # s(1)=0; #f [op=edit; c=1; mo=1; file=\Ts(4) s(5)\E em=11; nx=300; ny=0; xs=10; ys=30; fk=3; fs=16;]   ~#case 1 # H=1; #f [op=size;] # D=s(1); s(3)=1; #io [op=rt; fir=t(1); n=D;] #te [op=find; b=1; le=D; c=10; n=2;]  ~ # i=1; j=1; i(1)=0; F=A+B+2; G=F+1; &=A<1; #case 1 #rep A #read [b=i(i)+1; le=i(i+1)-s(9); fir=r(j); n=2;] # i=i+1; j=j+2; #end  #end |  # &=B<1; ! ~ #case 1 #rep B #te [op=trim; b=i(i)+1; le=i(i+1)-s(9); n=F;]  # D=i(F); E=i(G); r(j)=E; #pas E t(D) t(C)  # C=C+E; i=i+1; j=j+1; #end  #end |  ~#end |  #case 2 # H=2; #end |  ~# &=H; #pas 26 r(YZ) A #pas 26 r(YZ+26) a   ~
__ 36 __ #pro exe1 # &=&z; #case 0 #e _pr36 #end | #case 1 #e _prex #end | @~# I0=s(4); S0=s(5); k=t(KY-1)-1; &=k<1; !  ~#case -1  #e _exe1 #end |~#case 0  # &0=-1; i(1)=13; #f [op=repl; file=\TI0 S0\E b=1; le=1; mo=1;]  #rob [mo=1; le=99;]   ~  # S1=0; s(1)=0; #p [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30;]  #f [file=\TI0 S0\E]  ~  #case 1 # $=s(1); &=$; #case 1 # $=0; #end | #f [op=size;] # n=s(1); #io [op=rt; fir=t(1); n=n;]  # j=$+1; &=(j+1-n)>0; ! ~    #case 0   # &1=0; # &=$<1; #case 1  # &1=abs(t($)-10)<1; #end |  # &=&1; !~      #case 0  # &=abs(t(j)-10)<1; #case 1 # j=j+1;  &=abs(t(j)-10)<1; #end   # I1=$+1; S1=j-I1; &=(S1-500)<1>0; ! ~        #case 1 #pr  --  \n  !\n\u32;\E ##33 # &0=0; #end |~        #case 0 # &=S1<1; #case 1  # o=KY-500; #pas S1 t(I1) t(o) # I1=o; #e _exe1 #end |  ~          #case 0  #pr  --  \n  !\n\u32;\E ##33 # &0=0; #end |    ~        #end |~      #end |  ~      #case 1 #pr  --      \n  !\n\u32;\E ##33 # &0=0; #end |  ~    #end |~  #end |  # &=&0; !~#end    ~#case 1  # i(1)=13; #f [op=repl; file=\TI0 S0\E b=1; le=1; mo=1;]  #rob [mo=1; le=99;] #f [op=size;] # n=s(1); #io [op=rt; fir=t(1); n=n;]~  # j=0; &=k<1; #case 1 # j=j+1; I1=j; &=abs(t(j)-10)<1;  #case 1 # j=j+1;  &=abs(t(j)-10)<1; #end  # k=k-1; &=k<1; #end   ~  # S1=j-I1; &=(S1-500)<1>0;  #case 0 # &=S1<1; #case 1  # o=KY-500; #pas S1 t(I1) t(o) # I1=o; #e _exe1 #end |  #end |~#end | ~~
__ 37 __   # YZ=ZZ-10; #d 9 r(YZ) a b i m n s td tk tl   #f [op=fold; file=arg; em=1;] \Tp\E  # a=s(4); b=s(5); &=s(41); !~  #case 0  #m [op=win;] Initial folder  \Ta b\u32*2; is absent in SP 37. Check input data !\E  #end |~  #case 1  #f [op=fold; file=null;]  # s(3)=KY-9999; #f [op=fcat; file=arg;]  \Tp\E # i=s(4); s=s(5); m=98; !  ~    #te [op=find; b=i; le=s; c=124; n=m+1;]  # i(m)=i-1; n=s(1); s(3)=201; td=0; tl=0; !~    #rep n  # tk=0; i=i(m)+1; s=i(m+1)-i;  #f [op=modi; file=\Ta b\Ti s\E]  ~      # &=sgn(s(1)-td); #case 1 # td=s(1); tk=1; #end |  # &=sgn(s(2)-tl); #case 1 # tl=s(2); tk=1; #end |   # &=tk; #case 1  #pr \Ti s\E #end |  # m=m+1;  #end   ~  #end |   #v 9 r(YZ) a b i m n s td tk tl !~
__ 38 __    # YZ=ZZ-10; #d 10 r(YZ) a b i j k l m n s &0 !  ~  # &0=1; j=301; #te [op=repl; b=s(4); le=s(5); c=92; mo=47;]  #te [op=trim; n=j;]   #f [op=fold; file=arg; em=1;] \Ti(j) i(j+1)\E  # &=s(41); ! ~  #case 0  #pr Initial folder is absent. Check input data !\E #e _4324  # &0=0; #end |~  #case 1 #f [op=fold; file=arg; em=0;] \Ti(j+2) i(j+3)\E  ~    #f [op=fold; file=null;]  # s(3)=KY-9999; #f [op=fcat; file=arg;]  \Ti(j) i(j+1)\E  # i=s(4); s=s(5); ! ~    #te [op=find; b=i; le=s; c=124; n=j+7;]  # m=j+6; i(m)=i-1; n=s(1); k=0; ! ~    #rep n  # a=i(m)+1; b=i(m+1)-a; l=a+b-3; # &=(abs(t(l)-106)+abs(t(l+1)-112)+abs(t(l+2)-103))*(abs(t(l)-112)+abs(t(l+1)-110)+abs(t(l+2)-103)); ! ~      #case 0  # k=k+1; l=l-1; #f [op=copy; file=arg; n=1;] \Ti(j+2) i(j+3)\Ti(j+4) i(j+5) \I-3 k;\Tl 4\E \Ti(j) i(j+1)\Ta b \E  #end |  # m=m+1; ! ~    #end    ~  #end |  # &=&0*k; #v 10 r(YZ) a b i j k l m n s &0 ! ~
__ 39 __    # YZ=ZZ-10; #d 10 r(YZ) a b i j k l m n s &0 !  ~  # &0=1; j=301; i(j)=s(4); i(j+1)=s(5); #f [op=fold; file=arg; em=1;] \Tp\E  # &=s(41); ! ~  #case 0  #m [op=win;] Folder is absent. Check input data !\E  # &0=0; #end |~  #case 1 #f [op=fold; file=null;]  # s(3)=KY-9999; #f [op=fcat; file=arg;]  \Ti(j) i(j+1)\E  # i=s(4); s=s(5); ! ~    #te [op=find; b=i; le=s; c=124; n=j+3;]  # m=j+2; i(m)=i-1; n=s(1); k=0; ! ~  # &=n<1; #case 1  #rep n  # a=i(m)+1; b=i(m+1)-a; l=a+b-3; # &=(abs(t(l)-106)+abs(t(l+1)-112)+abs(t(l+2)-103))*(abs(t(l)-112)+abs(t(l+1)-110)+abs(t(l+2)-103)); ! ~      #case 0  # k=k+1; #end |  # m=m+1; ! ~    #end   #end | ~  #end |  # &=&0*k; #v 10 r(YZ) a b i j k l m n s &0 ! ~
__ 40 __  # H=s(3); YZ =ZZ-20;  #d 19 r(YZ) d e j n np u v A B C D E F G H I J K X  #v 6 r(1) j n np d u e  # v=int(u/10); u=u-10*v; &=u<1; !~#case 1 #ma [op=mss; b=j; nx=n; ny=1;] # S=r(j+n)*d; X=n*d/2; &=sgn(e-abs(S)); #case 1 # S=0; #end |  # &=np>1; !~  #case 1  # G=100+1000*(2-u); #d 6 A j n 1 -X X 247  #pr \Tp|\Tp, S =\S S;\E ~    #te [op=find; b=s(4); le=s(5); n=14990; c=124;]  ~    # i(14993)=s(4); i(14994)=i(14990)-s(4); i(14991)=i(14990)+1; i(14992)=s(4)+s(5)-i(14991); ! ~    # I=int(G/1000); G=0.01*(G-I*1000); J=30*G; K=470*G; ! ~    #p [tw=980*G; th=500*G; wid=860*G; hei=400*G; xs=100*G; ys=50*G; bot=3*G; top=6*G; tsi=28*G;] ~    #p [b=A; le=0; mo=0; sty=1; nx=B; ny=C; sa=2; uni=0; msi=0; c=1; col=F; tf=3; tk=0;]  ~    #w [op=pf; n=1; file=here;] D E J K -2 \Ti(14991) i(14992)\E  #pr \Ti(14993) i(14994)\E #f [op=topng; n=2; fo=\Tp\E]   ~    # &=I; #case 1 #w [op=im; mo=0; c=1; sa=0; file=\Tp .png\E em=1; xp=25; yp=70;]   #end |  # &=v; !~      #case 1 #io [op=wd; mo=1; fir=r(j); n=n; file=\Tp .dat\E]  #rob [mo=1; le=99;]  ~     #end | ~  #end |  ~#end |  #v 19 r(YZ) d e j n np u v A B C D E F G H I J K X  # s(3)=H; #p [em=0;]   ~ 
__ 41 __  # YZ=ZZ-192;  #d 17 r(YZ) J N1 n1 d1 N2 n2 d2 k M m I1 I2 N3 D C L N    #v 8 r(YZ-8) J N1 n1 d1 N2 n2 d2 k !  ~# &=abs((k+1)*(k-1)*1e9)<1; #case 1 #m [op=win;] k is wrong ! Must be 1 or -1.\E #end |  ~#case 0  # M=N1*n1; m=k*int(log(M)/log(2)+0.1); I1=YZ-2*M; I2=I1+M-N1; N3=2*N1; !~  # D=d1; &=k; #case 1 # D=1/(M*D); #end | # C=0; L=J; !~  #rep N2 #ma [op=vic; b=I1; le=2*M;] #pas N3 r(L) r(I2) #ma [op=fft; b=I1; nx=m; em=2;] #pas N3 r(I2) r(L) # L=L+N3;  #end  ~  #p [em=0;] # &=N2<2; !~  #case 2 # N=N1*N2; #ma [op=mtr; b=J; nx=2; ny=N;]  #ma [nx=N1; ny=N2;] #ma [b=J+N;] #ma [b=J; nx=N; ny=2;]~    # M=N2*n2; m=k*int(log(M)/log(2)+0.1); I1=YZ-2*M; I2=I1+M-N2; N3=2*N2; !~    # D=d2; &=k; #case 1 # D=1/(M*D); #end | # C=0; L=J; !~    #rep N1 #ma [op=vic; b=I1; le=2*M;] #pas N3 r(L) r(I2) #ma [op=fft; b=I1; nx=m; em=2;] #pas N3 r(I2) r(L) # L=L+N3;  #end  ~    #p [em=0;] #ma [op=mtr; b=J; nx=2; ny=N;] #ma [nx=N2; ny=N1;] #ma [b=J+N;] #ma [b=J; nx=N; ny=2;]~  #end | ~#end |  #v 17 r(YZ) J N1 n1 d1 N2 n2 d2 k M m I1 I2 N3 D C L N ! ~
__ 42 __  #f [op=fold; file=null;]  # s(3)=888; #pr pro/hdata/cm\I1 NP;.txt\E  #f [op=size; file=\Tp\E]  # &=s(1)<1; #case 0  #pr File \Tp\u32; is absent !\E ##33 #end |  #case 1 #f [op=copy; n=1; file=colmap.txt;]  \Tp\E  #e _paus  #end | #f [op=fold; file=oldf;] 
__ 43 __  #p [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30;]  # s(1)=0;  #f [file=\Tp\E] \P5\E ~#case 1 # &0=1; $=s(1); &=$; #case 1 # $=0; #end | #f [op=size;] # n=s(1); #io [op=rt; fir=t(1); n=n;]  # j=$+1; &=(j+1-n)>0; ! ~  #case 0   # &1=0; # &=$<1; #case 1  # &1=abs(t($)-10)<1; #end |  # &=&1; !~    #case 0  # &=abs(t(j)-10)<1; #case 1 # j=j+1;  &=abs(t(j)-10)<1; #end   # I1=$+1; S1=j-I1; &=(S1-500)<1>0; ! ~      #case 1 #pr  --  \n  !\n\u32;\E ##33 # &0=0; #end |~      #case 0 # &=S1<1; #case 1  # o=KY-500; #pas S1 t(I1) t(o) # I1=o; #end |  ~        #case 0  #pr  --  \n  !\n\u32;\E ##33 # &0=0; #end |    ~    #end |  #end |  ~    #case 1 #pr  --      \n  !\n\u32;\E ##33 # &0=0; #end |  ~#end |  #end |  ~
-- 44 -- # &0=0; a=s(4); b=s(5); #p [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30;]  # s(1)=0;  #f [file=\Ta b\E] \P5\E ~#case 1 # $=s(1); #f [op=size;] # k=s(1)-1; i=KY-k-100; #io [op=rt; fir=t(i); n=k;]   #te [op=find; n=1; b=s(4); le=s(5); c=10;] # j=1; jm=s(1); &=1; !~  #case 1  # Ka=1; &=($+i-i(j))>0; #case 0 # Ka=0; #end |  #  j=j+1; &=Ka+(j-jm)>0; !~  #end   # j=j-1; &0=1; !~#end |   ~
