__ 1 __ #f [op=fold; file=pro;]  ##6 # s(1)=99; #f [file=0.par;]  ~#case 1 ~  # I1=KY-300; s(3)=I1; #f [op=line; n=-5;] # S1=s(5); #f [op=line; n=-6;] # I2=s(4); S2=s(5); !~  #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [b=I2; le=S2;]~  # W=240; w=KY-5000; #pr \TI1 S1\E  # s(3)=w; #f [op=fcat; file=\Tp\E]  # a1=w; b1=s(5); !~  #io [op=wt; file=1.txt; fir=t(a1); n=b1;]    ~  # i=a1; j=444; #te [op=find; b=a1; le=b1; n=j; c=124;]  # n=s(1); &=n<1; !~  #case 1  #pf [op=o; le=n;]   #f [op=fold; file=null;]    ~    #rep n  # u=KY-5500; s(3)=u; c=i(j)-i; #pr \TI1 S1\Ti c\E # v=s(3)-u; !~      #pr \TI2 S2 s\Ti c\E # u1=s(4); v1=s(5)-4;  #d 5 s(13) -1*5 ! ~      #w [op=im; file=\Tu v\E form=\Tu1 v1\E mo=1; tw=W; sav=-2; sca=16;]~      #pf [op=m; siz=j-443;]  #rob [mo=1; le=t;]  # i=i+c+1; j=j+1; ! ~    #end   #pf [op=c;]  ~    #d 4 i(1) 124 34 44 34  #f [op=repl; b=1; le=4; mo=1; file=pro/1.txt;]  # s(3)=w; #pr "\E #f [op=line; n=-1; file=pro/1.txt;]  # a1=w; b1=s(5); s(3)=1; !  ~    #pr <html><head><title>\E  #f [op=line; n=-1; file=pro/0.par;]  ~    #pr </title>~<meta http-equiv="content-type" content="text/html; charset=windows-1251">~<link rel="stylesheet" media="all" type="text/css" href="http://kohnvict.ucoz.ru/js/gt-select.css">~<style type="text/css">~  h1{text-align:center; font: bold 20pt/28pt serif; color:\#0000ff;}~  p{text-align:justify; font:normal 16px/20px sans-serif; color:black; margin:10px 10px;}~  \#d0{display:block; position:absolute; overflow:hidden; width:1280px; left:4px; top:0px; border:ridge 5px gold;}~  \#d1{display:block; position:absolute; overflow:scroll; width:1280px; height:960px; left:4px; top:0px; background-color:\#f9f9f9; border:ridge 5px gold;}~</style>~<script type="text/javascript"> //ad="\E  #f [op=line; n=-4;]  #pr ";\n  ad="\TI1 S1 ";\n  adr=[\Ta1 b1 ]; ~  function geid(id){ return document.getElementById(id) };~  function make(n){ geid("d0").style.zIndex=2; geid("im").src=ad+adr[n]; };~  function back(){ geid("im").src="http://kohnvict.ucoz.ru/pic/img05.gif";  geid("d0").style.zIndex=-1; };~</script></head>\n<body background="http://kohnvict.ucoz.ru/pic/bgim1.gif">~<div id="d0" style=" zIndex=-1;"><center><a href="javascript:back()"><img id="im"></a></center></div>~<div id="d1"><p><span id="gtst"></span> &nbsp;</p>~<h1>\E  #f [op=line; n=-2;]  ~    #pr </h1>\n<p style="text-align:center;"><b>\E  #f [op=line; n=-3;]  ~    #pr </b>\n</p><p><b>.      ,       .           .          .    .         1920*1080     .             [Ctrl]  [-]. </b>~</p><p>\n\n\E  #te [op=find; b=a1; le=b1; n=1; c=44;]  # n=s(1); m=int(n/5); k=0; &=m<1; !~    #case 1  # i=a1; !~      #rep m  #pr </p><p style="text-align:center">\n\E~        #rep 5  #pr <a href="javascript:make(\I3 k;)"><img src="s\E # i=i+1; s=i(k+1)-i; #pr \Ti s ></a> \E # k=k+1; i=i(k)+1; #end   ~        #pr \n</p><p>\n\n\E~      #end  ~    #end |  #pr </p><center>\E  #f [op=line; n=-7;]  #pr  </center>~<p>.</p><div id="gte"></div></div>~<script type="text/javascript">wd=document.body.clientWidth; lf=Math.floor(wd-1280)/2; ~  if(lf<0){lf=0;} geid("d0").style.left=lf; geid("d1").style.left=lf; </script>~<script type="text/javascript" src="http://kohnvict.ucoz.ru/js/gt-select.js"></script>~<script type="text/javascript" src="http://translate.google.com/translate_a/element.js?cb=gteInit"></script>~</body></html>\E  # n=s(3)-1; s(3)=w; #pr \TI2 S2\E   # s=s(3)-w;~    #io [op=wt; fir=t(1); n=n; file=\Tw s m9s.htm\E]   #f [op=fold; file=oldf;]  #f [op=dele; file=1.txt;]    #m [op=win;] Job is done\E   ~  #end |  #case 0    #m [op=win;] Photos are absent !\E     #end |~#end |  ~
__ 2 __ #pro pr36    #f [op=fold; file=null;] ~#te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=find; n=1; c=47;]  # n=s(1); &=n<1; !~#case 0 #m [op=win;]  --     \n  !\n\u32;\E  # &0=1; #end |  ~#case 1  # &=abs(t(I1)-94)<1; !~  #case 0  #te [op=trim; b=I1; le=S1; n=2;]  #read [fir=i(1); n=1; b=i(4); le=i(5)+1;]  # S2=i(3)-1; I2=i(2)+1; #end | ~  #case 1  # i(1)=t(I1); # S2=S1-1; I2=I1+1; #end | ~  #f [op=find; file=\TI2 S2\E b=1; le=1;]  #m [op=win;] File has this symbol \I5 s(2);\u32*2;times.\E~#end |  #f [op=fold; file=oldf;]    ~@~#f [op=fold; file=pro;]  # s(3)=KY-550; #pr 0.par\E  ##36 ! ~
__ 3 __ #pro pr36~#te [op=trim; b=I1; le=S1; n=1;]  # I2=i(1); S2=i(2); I3=i(3); S3=i(4); a=i(5); S1=I1+S1-a; I1=a;  #read [fir=A1; n=8; b=I1; le=S1;]  ~# w=KY-6000; # s(3)=w;  #f [op=fcat; file=\TI2 S2\E]  # a1=w; b1=s(5); #te [op=find; b=a1; le=b1; n=1; c=124;]  ~# nn=A1*B1; J=99;  J1=J+nn; j1=J1; nm=E1*F1; i=a1; j=1; n=s(1);  #pf [op=o; le=n;]  ~#rep n  # c=i(j)-i; #io [op=rd; fir=r(J); file=arg; n=nn; le=0; mo=1;] \TI2 S2 /\Ti c\E  # &=(abs(A1-E1)+abs(B1-F1))<1; !~  #case 0  # J1=J; #end | ~  #case 1  # j0=J+C1+D1*A1; j1=J1;  #rep F1  #pas E1 r(j0) r(j1)  # j0=j0+A1; j1=j1+E1; #end  #end |  # &=G1<1; ! ~  #case 1  #ma [op=mii; b=J1; nx=E1; ny=F1; mo=3-G1;]  #end |  #d 6 A J1 E1 F1 -100 11 1 !~  #p [pa=H1; em=0;]  # c1=c-4; #pr \TI3 S3 /\Ti c1 |-\E #e [b=KY; le=640; n=2;] _text   #pf [op=m; siz=j;]   # i=i+c+1; j=j+1;  #end  ~#pf [op=c;]  # &=&&; !~@~#f [op=fold; file=null;]  # s(3)=KY-550; #pr pro/0.par\E  ##36; ! ~ 
__ 4 __ #pro pr36  #f [op=fold; file=null;] ~# w=KY-500; #pas S1 t(I1) t(w)  # t=100; s(3)=1; #pr Please wait . . .\E  #e [b=KY; le=670; n=17;] _text !~# s(3)=w; a=w; b1=S1; #te [op=repl; b=a; le=b1; c=92; mo=47;]  #te [op=find; n=1; c=47;]  # n=s(1); &=n<1; !~#case 0 #pr  --     \n  !\n\u32;\E #m [op=win;] \Tp\E  # &0=1; #end |  ~#case 1  # A=0; B=0; b=i(n)-a+1; p=a-8; q=b+8; s(3)=p; #pr file:///\E  #te [op=trim; b=a+b; le=b1-b; n=1;]  # &=s(1); !~  #case 2  #read [fir=A; n=2; b=a+b; le=b1-b;]  #end |  # &=(A*B)<1; !~  #case 0  #pr  --     \n  !\n\u32;\E #m [op=win;] \Tp\E  # &0=1; #end |~  #case 1  # w=1990000; # s(3)=w; #f [op=fcat; file=\Ta b\E]  # a1=w; b1=s(5); #te [op=find; b=a1; le=b1; n=1; c=124;] ~    # j=1; i=a1; a0=a1+b1; n=s(1); s(3)=a0; &=n<1; !~    #case 0  #m [op=win;]  The folder has no files !\E  #end |~    #case 1 #rep n  # c=i(j)-i; #pr \Ti c ","\E  # i=i(j)+1; j=j+1; #end  ~      # b0=s(3)-a0-2; u=1; s(3)=u; #f [op=line; file=pro/b/showA.txt; n=-1;]  # u=u+s(5); #te [op=repl; b=p; le=q; c=92; mo=47;]  ~      #pas q t(p) t(u)  # u=u+q; s(3)=u;  #rob [mo=1; le=t;]  #f [op=line; n=-2;]  # b=s(5); #te [op=find; b=u; le=b; n=1; c=124;] ~      # j=i(1)+1; s=u+b-j; s(3)=j-1;  #pas s t(j) t(j+1)  #pr \I2 A;\E  # j=i(2)+2; s=u+b-j+1; s(3)=j-1; ! ~      #pas s t(j) t(j+1)  #pr \I2 B;\E  # u=u+b+2; s(3)=u;  #rob [mo=1; le=t;]   #pr \Ta0 b0\E  # u=u+b0; s(3)=u; !    ~      #f [op=line; file=pro/b/showA.txt; n=-3;]  # u=u+s(5)-1;    #rob [mo=1; le=t;] ~      #io [op=wb; fir=t(1); n=u; file=pro/show.htm;]    #rob [mo=1; le=t;]~      # s(3)=1; #pr cd pro\nshow.htm\n\E  #io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=t;] #sys [op=rp;]  ~    #end |~  #end |~#end |  #fr [op=c; mo=1;]  #f [op=fold; file=oldf;] ~@   ~# &=1; #case 1  #f [op=fold; file=pro;]  # s(3)=KY-550; #pr 0.par\E  ##36  ##33  #end    ~ 
__ 5 __ #pro pr36   ~#te [op=trim; b=I1; le=S1; n=1;]  # n=s(1); &=abs(n-3)<1; !~#case 1  #m [op=win;] Input data are wrong !\nCheck and try again !\E  #end |~#case 0  # I1=i(1); S1=i(2); I2=i(3); S2=i(4); I3=i(5); S3=i(6); s(3)=1; !~  #f [op=fcat; file=\TI3 S3\E]  # I4=s(4); S4=s(5);  #te [op=find; b=I4; le=S4; c=124; n=2;]  ~  # N=s(1); j=1; i(j)=I4-1; j2=N+2; I6=s(3); I7=999999; S6=I7-I6; s(3)=I7; $=0; &=N<1; !~  #case 1  #f [op=fold; file=null; em=1;]~    #rep N   ~      # I5=i(j)+1; S5=i(j+1)-I5;  #te [op=find; b=I5; le=S5; c=46; n=j2;]  # n=s(1); &=n<1; ! ~      #case 1 # k=i(j2+n-1)+1; # &=abs(t(k)-t(I2))+abs(t(k+1)-t(I2+1))+abs(t(k+2)-t(I2+2)); !  ~        #case 0  #f [op=size; file=arg;] \TI3 S3 /\TI5 S5\E  # n=s(1)<S6; #io [op=rt; fir=t(I6); n=n; file=arg;] \TI3 S3 /\TI5 S5\E   ~          #te [op=fitt; b=I6; le=n; n=j2; c=I1; tw=S1;]  # N1=s(1); j3=j2; &=N1<1; !   ~          #case 1  #pr \TI5 S5\u32*3;\E  #rep N1 # o=i(j3)-I6; #pr \S o;\u32;\E  # j3=j3+1; #end  #pr \n\E  #end | ~        #end | ~      #end |  # j=j+1; !~    #end  ~    # n=s(3)-I7; s(1)=0; &=n<1; !~    #case 1  # $=1; #f [op=fold; file=oldf; em=1;]  #io [op=wt; fir=t(I7); n=n; file=word_in_files.txt;] ~      #te [op=show; b=I7; le=n; em=11; nx=500; ny=0; xs=0; ys=0; fs=16; fk=3; c=1;] list\E ~      #d 4 i(1) 0 0  3  0  #m [op=gen; b=1; nx=25; ny=70; siz=10; n=1;] Question\E Would you like to see or edit the files?\n\u32;\E See|Edit|Exit\E  ~      # &1=&; &2=1; &=(3-&)<1; !~      #case 1  #f [op=fold; file=null; em=1;] #te [op=find; b=I7; le=n; c=10; n=2;]  # N=s(1); j=1; i(1)=I7-1; !~        #rep N    # j2=N+2; I4=i(j)+1; S4=i(j+1)-I4; !~          #te [op=trim; b=I4; le=S4; n=j2;]  # I5=i(j2); S5=i(j2+1); j2=j2+2; N1=s(1)-1; !~          #f [op=size; file=arg;] \TI3 S3 /\TI5 S5\E  # n=s(1)<S6;  #io [op=rt; fir=t(I6); n=n;] \TI3 S3 /\TI5 S5\E   # n=s(5); !~          #rep N1  # &=&2; !~            #case 1   #read [fir=r(1); n=1; b=i(j2); le=i(j2+1);]  #p [op=edit; file=here; c=1;]~              # s=r(1); s1=(s-I6)<999; s2=(I6+n-s-1)<999; s3=I6+s-s1; s4=s1+s2+1; &=&1; !~              #case 1 # s(1)=s1; #f [mo=-1; b=s3; le=s4; em=11; nx=500; ny=0; xs=0; ys=0; fs=16; fk=3; c=1;] \TI3 S3 /\TI5 S5\E # &2=&;  #end |~              #case 2  # s5=s3+s4; s6=I6+n-s5-1; s7=s5+555; #pas s6 t(s5) t(s7) # s(3)=s3; !~                #f [mo=-2; b=s3; le=s4; em=11; nx=500; ny=0; xs=0; ys=0; fs=16; fk=3; c=1;] \TI3 S3 /\TI5 S5\E  ~                # &2=&; s5=s3+s(5); #pas s5 t(s7) t(s5) # n=n+s(5)-s4);  #end |~              # j2=j2+2; !~             #end | ~          #end  # j=j+1; &=&1; !~          #case 2 #io [op=wt; fir=t(I6); n=n; file=arg;] \TI3 S3 /\TI5 S5\E #end |  ~        #end |~      #end    ~    #end |  ~  #end | ~  # &=$; #case 0   #d 4 i(1) 0 0  1  0  #m [op=gen; b=1; nx=25; ny=70; siz=10; n=1;] Question\E Nothing is found !\n\u32;\E OK\E  #end |~#end |    ~@  ~# &=1; #case 1  #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36  ##33 #end    !~ 
__ 6 __ #f [op=fold; file=null;]~# a=I1; b=S1; #te [op=trim; b=a; le=b; n=1;] # n=s(1); #te [op=repl; b=i(1); le=i(2); c=92; mo=47;]~# 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 # &0=1; 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-4;  #w [op=im; mo=0; sav=k;]  # w=s(12); h=s(13);  !  ~  # u=2*n; c=i(u-3)-1; d=i(u-1)+i(u)+2-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 # &0=1; 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-5; &=e; #p [em=1; xp=10; yp=10;]  ~    #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;] #end |~    #case 2 #w [op=im; mo=2; n=k; sav=-2; form=\Ti(1) i(2)\Ti(j) i(j+1)\E  tw=-1; th=-1;]  ~      #w [op=im; mo=0; file=\Ti(1) i(2)\Ti(j) i(j+1) .jpg\E sav=0;] #end |~  #end | ~#end |  #f [op=fold; file=oldf;]~ 
__ 7 __  #pro pr36  #f [op=fold; file=null;]~# t=99; a=I1; b=S1;  #te [op=repl; b=a; le=b; c=92; mo=47;] #te [op=trim; b=a; le=b; n=1;]~#read [fir=r(1); b=i(5); le=i(6); n=1;] # W=r(1); w=KY-9000; # s(3)=w; #f [op=fcat; file=\Ti(1) i(2) \E]  # a1=w; b1=s(5); !~# J=99; i=a1; j=444; #te [op=find; b=a1; le=b1; n=j; c=124;]  # n=s(1); &=n<1; !~#case 0  #m [op=win;] Files are absent ! Plese change folder !\E  # &0=1; #end |~#case 1  #pf [op=o; le=n;]      ~  #rep n  # u=KY-9500; s(3)=u; c=i(j)-i; #pr \Ti c\E # v=s(3)-u; V=v-4; #d 5 s(13) -1*5 ! ~    # s(3)=1; #w [op=im; file=\Ti(1) i(2)\Tu v\E form=\Ti(3) i(4)\Tu V\E mo=1; tw=W; sav=-2; sca=16;]~    #pf [op=m; siz=j-443;]  #rob [mo=1; le=t;]  # i=i+c+1; j=j+1; ! ~  #end   #pf [op=c;]  ~#end |  #f [op=fold; file=oldf;]  #m [op=win;] Job is done !\E  ~@  ~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36 !~
__ 8 __  #f [op=fold; file=null;]  # &=1;~#case 1 ##6 #f [file=pro/0.par;]~  #case 1  # s(3)=901; #f [op=line; n=-1;]  #te [op=find; b=s(4); le=s(5); n=1; c=124;] ~    # I1=i(1)+1; S1=s(4)+s(5)-I1; # s(3)=i(1); #pr \u32;\E  #read [fir=i(1); n=3; b=901; le=i(1)-901+1;] ~    # W=i(1); H=i(2); N=i(3); n=2; j=1; i=11; k=1001; ~    #rep N  # s(3)=1; #f [op=line; n=-n;] #te [op=find; b=1; le=s(5); n=1; c=124;] ~      # i1=i(1)+1; i2=s(5)-i(1); #pas i2 t(i1) t(k)  # i(i)=k; i(i+1)=i2; k=k+i2;  ~      # s(3)=i(1); #pr \u32;\E #read [fir=r(j); n=7; b=1; le=i(1);]   ~      # r(j+2)=-r(j+2)*0.017453; j=j+7; i=i+2; n=n+1; #end  ~    #f [op=fold; file=pro/1/;]  # i=11; n=1; k=1001; ~    #rep N  #w [op=im; mo=0; file=\Ti(i) i(i+1)\E sav=n;]  # i(k)=s(12); i(k+1)=s(13); n=n+1; i=i+2; k=k+2; #end  ~    #eg [op=open; twi=W; the=H; col=246;]  # j=1; n=1; k=1001;~    #rep N  #eg [op=imag; n=n; b=j; em=0;]  # j=j+7; n=n+1; k=k+2; #end  ~    #eg [op=clos; c=1; sav=1;]   #f [op=topng; n=1; form=\TI1 S1\E]  ~    #w [op=im; mo=0; file=\TI1 S1 .png\E sav=0; em=1; xp=10; yp=10;]  ~    #w [op=im; mo=2; n=1; sav=-2; form=\TI1 S1\E tw=-1; th=-1;]   #f [op=fold; file=oldf;]  ~  #end | ~  #d 4 i(1) 0 0 2  0     #m [op=gen; b=1; nx=10; ny=20; siz=10; n=1;] Question\E Do you like to change parameters\n\u32;\E Yes|No\E    ~#end     ~ 
__ 9 __ #pro pr36   #f [op=fold; file=null;] ~# a=I1; b=S1;  #te [op=trim; n=971; b=a; le=b;]  # u=i(971); v=i(972);  #te [op=repl; b=u; le=v; c=92; mo=47;]  ~# s(3)=KY-9000; #f [op=fcat; file=\Tu v\E]  # p=s(4); q=s(5); #te [op=find; b=p; le=q; c=124; n=1;] # N=s(1); &=N<1; !~#case 0 #m [op=win;] The folder is empty. Please change input data !\E  # &0=1; #end |  ~#case 1  #read [fir=i(970); n=1; b=i(975); le=i(976);]  # N1=i(970); I2=p; S2=i(1)-p;  #w [op=im; mo=0; sav=2; file=\Tu v\TI2 S2\E ]  ~  # w=s(12); h=s(13);  #p [ xsh=0; ysh=0;]  # W=w; H=h; s=100; R=0; &=N1; !~  #case 1 # W=596; H=843; s=(W/h)<(H/w); s=s*100; R=90; #end | # j=p; n=1; !~  #pd [op=open; file=\Tu v\Ti(973) i(974) .pdf\E  twi=W; the=H; wid=W; hei=H; mo=0;]~  #rep N   # I=j; S=i(n)-j; #d 5 r(1) 0 0 0 s R  #pd [op=imag; mo=0; b=1; file=\Tu v\TI S\E]  # &=(N-n)<1; !~    #case 1 #pd [op=page;]  #end | # j=i(n)+1; n=n+1; !~  #end   #pd [op=clos;]  #rob [mo=1; le=99;]  #f [op=size;  file=\Tu v\Ti(973) i(974) .pdf\E]  # &=s(1)<1; !~  #case 1 # i=s(3); &=(t(u+1)-58)<1; #case 1 #pr \M\E #end | #pr \Tu v\Ti(973) i(974) .pdf\E # j=s(3)-i; #io [op=wt; fir=t(i); n=j; file=runsys.bat;]  ~    #rob [mo=1; le=99;] #sys [op=rp;] #end | ~  #case 0 #m [op=win;] File is not created !\E #end |~#end |  #f [op=fold; file=oldf;] ~@~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36 !~ 
__ 10 __ #f [op=fold; file=null;] ##6  #f [file=pro/0.par;]  ~#case 1  # s(3)=1; #f [op=line; n=-1;] # a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]  ~  #read [fir=r(1); n=3;]  # W=r(1); H=r(2); N=r(3); o=1; &=N>0; #case 0 # N=-N; o=2; #end | # &=N<1; !~  #case 1   # ZY=1; #pr Please wait . . .\E  ##17 #te [op=trim; n=1; file=pro/0.par; b=a; le=b;] # I1=i(7); S1=i(8); I2=i(9); S2=i(10); j=1; n=1; ! ~    #rep N  # n=n+1; #f [op=line; n=-n;]  # k=s(4); m=s(5); s(3)=k+m; #pr \u32;\E # m=m+1; #read [b=k; le=m; fir=r(j); n=6;] # j=j+6; #end   ~    #pd [op=open; file=\TI1 S1 .pdf\E twi=W; the=H; wid=W; hei=H; xsh=0; ysh=0; mo=0;]~    #pd [op=rpdf; file=arg; b=10001;] \TI2 S2 .pdf\E # j=1; k=0; !~    #rep N #pd [op=wpdf; n=r(j); b=j+1;] \TI2 S2 .pdf\E # j=j+6; k=k+1; &=o-k; #case 0 #pd [op=page;] \TI2 S2 .pdf\E # k=0; #end | #end~    #pd [op=clos;] \TI2 S2 .pdf\E #rob [mo=1; le=99;] #fr [op=c; mo=1;]  #f [op=size;  file=\TI1 S1 .pdf\E]  # &=s(1)<1; !~    #case 1 # i=s(3); &=(t(I1+1)-58)<1; #case 1 #pr \M\E #end | #pr \TI1 S1 .pdf\E  # j=s(3)-i; #io [op=wt; fir=t(i); n=j; file=runsys.bat;]  ~      #rob [mo=1; le=99;] #sys [op=rp;] #end | ~    #case 0 #m [op=win;] File is not created !\E #end |~  #end |~#end |  #f [op=fold; file=oldf;]~ 
__ 11 __  #f [op=fold; file=null;] ##6  #f [file=pro/0.par;] ~#case 1  # s(3)=1; #f [op=line; n=-1;] # a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]~  #read [fir=r(1); n=3;]  # W=r(1); H=r(2); N=r(3); o=1; &=N>0; #case 0 # N=-N; o=2; #end | # &=N<1; !~  #case 1   # YY=s(3); ZY=1; #pr Please wait . . .\E  ##17 # s(3)=YY; ~    #te [op=trim; n=201; b=a; le=b;] # I=i(207); S=i(208); j=1; n=1; k=1; ! ~    #rep N  # n=n+1; #f [op=line; n=-n; file=pro/0.par;]  # i=s(4); m=s(5); s(3)=i+m; #pr \u32;\E # m=m+1; ~      #read [b=i; le=m; fir=r(j); n=5;] # j=j+5; #te [op=trim; n=201;] #pas 2 i(211) i(k); # k=k+2; #end  ~    #pd [op=open; file=\TI S .pdf\E twi=W; the=H; wid=W; hei=H; xsh=0; ysh=0; mo=0;]  # j=1; k=1; l=0; ! ~    #rep N  #pd [op=rpdf; file=\Ti(k) i(k+1) .pdf\E b=10001;] # n=s(1); i=1; ! ~      #rep n  #pd [op=wpdf; n=i; b=j;] # i=i+1; l=l+1; &=o-l; #case 0 #pd [op=page;] # l=0; #end | #end  # j=j+5; k=k+2; ! ~    #end   #pd [op=clos;]  #f [op=size;  file=\TI S .pdf\E]  # &=s(1)<1; ! ~    #case 1 # i=s(3); &=(t(I+1)-58)<1; #case 1 #pr \M\E #end | #pr \TI S .pdf\E  ! ~      #io [op=wt; fir=t(i); n=s(3)-i; file=runsys.bat;]  #rob [mo=1; le=99;] #sys [op=rp;] #end | ~    #case 0 #m [op=win;] File is not created !\E #end |~  #end |~ #end |   #f [op=fold; file=oldf;] ~
__ 12 __  #f [op=fold; file=null;] ##6  #f [file=pro/0.par;] ~#case 1  # s(3)=1; #f [op=line; n=-1;] # a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]~    #f [op=choo; file=\Ta b\E mo=2;] pdf\E  ~  #case 1 # i=s(4); V=s(5); U=9999; #pas V t(i) t(U) ~    #f [op=copy; file=pro/tmp.pdf; n=1;] \TU V\E    #pd [op=rpdf; b=1;] # n=s(1); k=1; s(3)=1; !~    #rep n  #pr \I5 k r(2*k-1) r(2*k);\n\E  # k=k+1; #end~    #io [op=wt; fir=t(1); n=s(3)-1; file=pro/page-sizes.txt;]  #f [op=dele; file=pro/tmp.pdf;] ~    #te [op=find; b=U; le=V; c=47; n=1;]  # k=s(1); #f [op=line; n=1; em=0; file=pro/0.par; b=U; le=i(k)-U+1;]~    ##6  #f [file=pro/page-sizes.txt;]~  #end |~#end | ~ 
__ 13 __  #f [op=fold; file=null;] ##6  #f [file=pro/0.par;] ~#case 1   # s(3)=1;  #f [op=line; n=-1;]  # a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]~  #read [b=a; le=b; fir=i(1); n=1;] # N=i(1); #te [op=trim; n=1;] # I1=i(3); S1=i(4); I2=i(5); S2=i(6); j=1; k=1; n=1; ! ~  #rep N  # n=n+1; #f [op=line; n=-n;]  # a=s(4); b=s(5);  #read [b=a; le=b; fir=r(j); n=5;]~    #te [op=trim; n=201;] #pas 2 i(211) i(k) # j=j+5; k=k+2; #end  ~  #pd [op=rpdf; b=1001; file=\TI1 S1 .pdf\E] # W=r(1001); H=r(1002); ! ~  #pd [op=open; file=\TI2 S2 .pdf\E twi=W; the=H; wid=W; hei=H; xsh=0; ysh=0; mo=0;]~  #d 5 r(999) 0 0 1 1 0  #pd [op=wpdf; n=1; b=999;]  # j=1; k=1; !~  #rep N  #pd [op=imag; file=\Ti(k) i(k+1)\E mo=11; b=j;] # j=j+5; k=k+2;  #end   #pd [op=clos;]~  #f [op=size;  file=\TI2 S2 .pdf\E]  # &=s(1)<1; !~  #case 1 # i=s(3); &=(t(I2+1)-58)<1; #case 1 #pr \M\E #end | #pr \TI2 S2 .pdf\E  ! ~    #io [op=wt; fir=t(i); n=s(3)-i; file=runsys.bat;]  #rob [mo=1; le=99;] #sys [op=rp;] #end |  ~  #case 0 #m [op=win;] File is not created !\E #end |~ #end | ~ 
__ 14 __  #f [op=fold; file=null;] #e [n=6;] _scom  #f [file=pro/0.par;] ~ #case 1  # s(3)=1;  #f [op=line; n=-1;] # a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]~  #read [b=a; le=b; fir=i(1); n=1;] # N=i(1); #te [op=trim; n=1;] # I1=i(3); S1=i(4); I2=i(5); S2=i(6); j=1; k=1; n=1; !~  #rep N  # n=n+1; #f [op=line; n=-n;]  # a=s(4); b=s(5);  #read [b=a; le=b; fir=r(j); n=9;]~    #te [op=trim; n=201;] #pas 2 i(219) i(k)  #te [op=repl; b=i(k); le=i(k+1); c=95; mo=32;] # j=j+9; k=k+2; #end  ~  #pd [op=rpdf; b=1001; file=\TI1 S1 .pdf\E] # W=r(1001); H=r(1002); ! ~  #pd [op=open; file=\TI2 S2 .pdf\E twi=W; the=H; wid=W; hei=H; xsh=0; ysh=0; mo=0;]~  #d 5 r(999) 0 0 1 1 0  #pd [op=wpdf; n=1; b=999;]  # j=1; k=1; !~  #rep N  #col [b=1; le=1; fir=r(j+6);] #pd [op=text; tfo=r(j+4); b=j; col=1; sty=r(j+5);] \Ti(k) i(k+1)\E mo=11; b=j;] ~    # j=j+9; k=k+2;  #end   #pd [op=clos;]~  #f [op=size;  file=\TI2 S2 .pdf\E]  # &=s(1)<1; !~  #case 1 # i=s(3); &=(t(I2+1)-58)<1; #case 1 #pr \M\E #end | #pr \TI2 S2 .pdf\E  ! ~    #io [op=wt; fir=t(i); n=s(3)-i; file=runsys.bat;]  #rob [mo=1; le=99;] #sys [op=rp;] #end |  ~  #case 0 #m [op=win;] File is not created !\E #end |~ #end | ~ 
__ 15 __  #pro pr36  #f [op=fold; file=null;] ~ #te [op=trim; b=I1; le=S1; n=1;]  # s(3)=1; #pr \Ti(5) i(6)\u32;\Ti(3) i(4)\u32;\Ti(1) i(2)\u32;\E   ~ #e [b=KY; le=670; n=30;] _text  #f [op=fold; file=oldf;] ~@  ~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !~ 
__ 16 __  #pro pr36  #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=3; fir=i(1);]  # n=i(1); h=i(2); k=i(3); #te [op=trim; n=1;]  # I=i(7); S=i(8); !~ #d 2 i(9) 9 32  #f [op=repl; b=9; le=2; mo=1; file=arg;] \TI S .txt\E  # J=99; j=J; m=k; #pf [op=o; le=h;]~ #rep h  #io [op=rf; fir=r(j); n=n; file=arg; form=*m;] \TI S .txt\E # j=j+n; m=m+1;  #pf [op=m; siz=m-k;]~ #end   #pf [op=c;]  #io [op=wd; mo=1; fir=r(J); n=n*h; file=\TI S .dat\E]  #f [op=fold; file=oldf;]  ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom  ##33  #end   ~ 
__ 17 __    #f [op=fold; file=null; em=0;] ~#read [b=I1; le=S1; n=6; fir=i(1);]  # nx=i(1); ny=i(2); x=i(3); y=i(4); w=i(5); h=i(6); !~#te [op=trim; n=1;]  # I1=i(13); S1=i(14); I2=i(15); S2=i(16); J=99; m=nx*ny; J1=J+m; j1=J1; $=s(1)-8; &=$; !~#io [op=rd; fir=r(J); n=m; mo=1; file=\TI1 S1\E le=0;]  #case 1 #io [fir=r(J1); n=w*h; le=0; file=\TI2 S2\E]  #end | # j=J+x+y*nx; &=$; !~#case 0 #rep h  #pas w r(j) r(j1) # j1=j1+w; j=j+nx; #end  #io [op=wd; mo=1; fir=r(J1); n=w*h; file=\TI2 S2\E] #end |~#case 1 #rep h  #pas w r(j1) r(j) # j1=j1+w; j=j+nx; #end  #io [op=wd; mo=1; fir=r(J); n=w*h; file=\TI1 S1\E] #end |~ 
__ 18 __  #f [op=fold; file=null; em=0;] ~#read [b=I1; le=S1; n=8; fir=r(1);]  # nx=r(1); ny=r(2); ep=r(3); mo=r(4); d=r(5); dr=r(6); dd=r(7); nd=r(8); !~#te [op=trim; n=1;]  # I1=i(17); S1=i(18); I2=i(19); S2=i(20); J=99; m=nx*ny; J1=J+m; j=J1; d1=dr; !~#io [op=rd; fir=r(J); n=m; mo=1; file=\TI1 S1\E le=0;] # o=nd; k=0; &=nd<2; #case 2  #pf [op=o; le=o;] #end |~#rep nd  # k=k+1; # a=d1/(2.355*d); &=mo; !~  #case 1  #d 3 r(1) a 0 ep  #end |  #case 2  #d 3 r(1) 0 a ep  #end |  #case 3  #d 3 r(1) a a ep #end |~  #ma [op=mcg; b=J; sav=j; nx=nx; ny=ny; n=1; file=here; form=here;]  # d1=d1+ dd; j=j+m; &=nd<2; #case 2  #pf [op=m; siz=k;] #end |~#end   # &=nd<2; #case 2 #pf [op=c;]   #end |  #io [op=wd; mo=1; fir=r(J1); n=m*nd; file=\TI2 S2\E]  #f [op=fold; file=oldf;] ~ 
__ 19 __    #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=4; fir=i(1);]  # nx=i(1); ny=i(2); w=i(3); h=i(4); !~#te [op=trim; n=1;]  # I1=i(9); S1=i(10); I2=i(11); S2=i(12); #d 8 r(1) 0 1 0 1 0 1 0 1 !~#ma [op=mmi; n=1; nx=nx; ny=ny; wid=w; hei=h; file=\TI1 S1\E form=\TI2 S2\E em=0;]~ 
__ 20 __  #read [b=I1; le=S1; n=9; fir=r(1);]  # N1=r(1); N2=r(2); N3=r(3); N4=r(4); X1=r(5); X2=r(6); u2=r(7); u3=r(8); u4=r(9); !~#te [op=trim; n=1;]  # I1=i(19); S1=i(20); I2=i(21); S2=i(22); ! ~# N5=N1*N2; #te [op=find; b=I2; le=S2; n=1; c=46;]  # o=s(1); S3=i(o)-I2; #te [op=repl; b=I1; le=S1; c=95; mo=32;]~# &=(3-u3)<1; #case 1  #f [op=copy; file=pro/tmp.txt; n=1;] \TI2 S2\E  ~#d 2 i(1) 9 32 #f [op=repl; b=1; le=2; mo=1;]   #d 2 i(1) 44 46 #f [op=repl; b=1; le=2; mo=1;]  #end | # &=u3; ! ~#case 1  # o=N1+1; #io [op=rf; fir=r(1); n=o*N2; form=*u4;]  #ma [op=mtr; nx=o; ny=N2;]  #pas N5 r(N2+1) r(1)  #end |~#case 2  #io [op=rf; fir=r(1); n=N5; form=*u4;]  #ma [op=mtr; nx=N1; ny=N2;]    #end |~#case 3  #io [op=rd; fir=r(1); n=N5; file=arg; mo=1; le=u4*4;] \TI2 S2\E  #end |~# J=N5+1; j=J; i=N3; #rep N1 #pas N4 r(i) r(j) # i=i+N2; j=j+N4;  #end  # d=(X2-X1)/(N2-1); x1=X1+d*(N3-1); x2=x1+d*(N4-1); !~#d 6 A J N4 N1 x1 x2 247  # G=500*(1+sgn(u2))+int(abs(u2)*100); #pri  \TI2 S3 |\TI1 S1\E  ##1  ~# &=(3-u3)<1; #case 1  #f [op=dele; file=pro/tmp.txt;]  #end | 
__ 21 __  #read [b=I1; le=S1; n=11; fir=r(1);]  # N1=r(1); N2=r(2); x1=r(3); x2=r(4); y1=r(5); y2=r(6); p1=int(r(7)+0.5)>1; p2=int(r(8)+0.5)>1; u1=r(9); u2=r(10); u3=r(11); !~#te [op=trim; n=1;]  # I1=i(23); S1=i(24); I2=i(25); S2=i(26); J=21; ! ~# N3=N1*N2; #te [op=find; b=I2; le=S2; n=1; c=46;]  # o=s(1); S3=i(o)-I2; #te [op=repl; b=I1; le=S1; c=95; mo=32;]  ~# Q=u3; ##22 # u3=&9;# &=u3; ! ~#case 1  #f [op=copy; file=tmp.txt; n=1;] \TI2 S2\E   #d 2 i(1) 9 32 #f [op=repl; b=1; le=2; mo=1;] ~  #d 2 i(1) 44 46 #f [op=repl; b=1; le=2; mo=1;]  #io [op=rf; fir=r(J); n=N3; form=*0;] #end |~#case 2  #io [op=rd; fir=r(J); n=N3; file=arg; mo=1; le=0;] \TI2 S2\E #end |~# o=(&7<1)*10000+(1-&8<1)*1000+u2*100; ! ~# u=u1-0.95; v=u; u=1-2*int(u/3); v=u1-1-3*int(v/3); o=u*o; &=v; #case 1 # v=3; #end | ~#case 2 # v=3; NP=2; ##42 #end |  #p [pa=v; em=0;]  ~# F=J+N1*N2; #d 6 r(ZZ-30) x1 x2 y1 y2 0 1 ##31 ! ~# u=p1*10+p2;  #d 5 A J N1 N2 o u #pr \TI2 S3 |\TI1 S1\E  ##2 !  ~# &=u3; #case 1  #f [op=dele; file=tmp.txt;]  #end |  # &=NP; #case 2 # NP=1; ##42 #end |
__ 22 __  #pro pr36  #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=12; fir=r(1);]  # N1=r(1); N2=r(2); x1=r(3); x2=r(4); y1=r(5); y2=r(6); H=r(7); I=r(8); J=r(9); u4=r(10); K=r(11); L=r(12); !~#te [op=trim; n=1;]  # I1=i(25); S1=i(26); N3=N1*N2; #te [op=find; b=I1; le=S1; n=1; c=46;]  # o=s(1); S3=i(o)-I1; ~# &=(2-u4)<1; #case 1  #f [op=copy; file=pro/tmp.txt; n=1;] \TI1 S1\E  ~#d 2 i(1) 9 32 #f [op=repl; b=1; le=2; mo=1;]   #d 2 i(1) 44 46 #f [op=repl; b=1; le=2; mo=1;]  #end |  # &=u4;~#case 1  #io [op=rf; fir=r(1); n=N3; form=*0;]  #end |~#case 2  #io [op=rd; fir=r(1); n=N3; file=arg; mo=1; le=0;] \TI1 S1\E  #end |~  #d 7 A 1 N1 N2 x1 x2 y1 y2   #pr \TI1 S3\E   ##4    ~# &=(2-u4)<1;#case 1  #f [op=dele; file=pro/tmp.txt;]  #end |  #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36  ##33  #end   ~ 
__ 23 __  #pro pr36  #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=20; fir=r(1);] # nx=r(1); ny=r(2); x1=r(3); x2=r(4); y1=r(5); y2=r(6); z1=r(7); z2=r(8); sm=r(9); sa=r(10); vx=r(11);~# vy=r(12); vz=r(13); dv=r(14); sx=r(15); sy=r(16); tx=r(17); ty=r(18); kx=r(19); ky=r(20);~#te [op=trim; n=1;]  # I1=i(41); S1=i(42); I2=i(43); S2=i(44); #te [op=repl; b=I1; le=S1; c=95; mo=32;] #te [op=find; b=I2; le=S2; n=1; c=46;]  # o=s(1); S3=i(o)-I2; ~# J=99; &=(65537-kx*ky)<1>0;~#case 1  #io [op=rd; fir=r(J); n=nx*ny; mo=1; file=\TI2 S2\E le=0;]  # &=(abs(kx-nx)+abs(ky-ny))<1; ~  #case 1 #p [n=1; b=J; nx=nx; ny=ny; sa=J; wid=kx; hei=ky; file=here; fo=here;]~    #d 8 r(1) 0 1 0 1 0 1 0 1 #ma [op=mmi; em=0;]  #end |~  # F=1; #d 6 r(ZZ-30) x1 x2 y1 y2 z1 z2  #e [b=KY; le=670; n=31;] _text ! ~  #d 14 A J kx ky sm sa F vx vy vx dv sx sy tx ty  #pr \TI2 S3 |\TI1 S1\E  #e [b=KY; le=670; n=3;] _text  ~#end |  #case 0  #m [op=win;] kx*ky should be less than 65536\E #end | #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !~ ##33 #end   ~ 
__ 24 __  #pro pr36  #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=5; fir=r(1);] # nx=r(1); nz=r(2); x1=r(3); x2=r(4); tp=r(5);~#te [op=trim; n=1;]  # I1=i(11); S1=i(12); I2=i(13); S2=i(14); #te [op=repl; b=I1; le=S1; c=95; mo=32;]  ~# J=99;  n=nx*nz;  #io [op=rd; fir=r(J); n=n; mo=1; file=\TI2 S2\E le=0;]  ~  #ma [op=fno; b=J; nx=n; ny=1; mo=1;]  # u=0.03*(r(J+n+1)-r(J+n)); f2=r(J+n+1)+u; f1=r(J+n)-u; ~  #d 2 r(1) f1 f2 #e [b=KY; le=670; n=5;] _text #pas 5 r(1) r(10)  # xa=(x2-x1)/100; x3=x1-xa; x4=x2+xa; ! ~  #d 2 r(1) x3 x4   #e [b=KY; le=670; n=5;] _text  #pas 5 r(1) r(5) #d 4 r(1) nx nz x1 x2 3 r(15) 1 J tp !  ~  #pr none|\TI1 S1 , var=\TI2 S2\E   #e [b=KY; le=670; n=20;] _text  #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !~ ##33  #end   ~
__ 25 __  #pro pr36  #f [op=fold; file=null;] ~# s(3)=1; #te [op=trim; b=I1; le=S1; n=1;]  #pr \Ti(1) i(2)\E  #e [n=1; em=1; c=1;] _\09   #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !~ ##33  #end   ~ 
__ 26 __  #pro pr36  #f [op=fold; file=null;] ~#read [b=I1; le=S1; n=1; fir=i(1);]  # N=i(1); #te [op=trim;]  # I=i(3); S=i(4); s(3)=1;  ~#f [op=line; file=\TI S\E n=-N;]  # &=s(5); #case 0 # t(1)=32; s(5)=1; #end | ~# s(1)=0; #te [op=repl; b=1; le=s(5); c=126; mo=10;]  #e [n=6;] _scom  # s(3)=1;  #te [op=edit; b=1; le=s(5);] \TI S\I5 N;\E ~#case 1  #te [op=repl; le=s(5); c=10; mo=126;]  #f [op=line; file=\TI S\E n=N; em=0;]  #end |  #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text   ##33 #end   ~ 
__ 27 __  #pro stot   # n3=n<96; n1=int(sqr(n3)); n2=n1;&=(n3-n1*n2)<1; ! ~  #case 1  # n1=n1+1; &=(n3-n1*n2)<1;  #case 1 # n2=n2+1; #end | #end |     ~  # w1=W/n1; h1=H/n2;  sl=0; k=999;  #e _pipa  #case 1 # sl=1; #end |~  #case 0  # s(3)=1; #pr \Tu1 u2 s999\E  # a=1; b=s(5);  #f [op=size; file=\Tp\E]  # &=s(1)<1; ! ~    #case 1  # s(5)=b-4; #e [b=KY; le=670; n=37;] _text  # i=s(4)+1; &=abs(t(i)-57)+abs(t(i+1)-57)+abs(t(i+2)-57); ! ~      #case 0  #f [op=copy; file=\Ti1 s1\I-3 k; .jpg\E n=1;] \Ta b\E  #e _pipa  #case 1 # sl=1; #end |  #end | #end | #end | # &=sl; !   ~  #case 0   # k=1; #e _pipa ! ~    #case 1  # k2=2; #pf [op=o; le=n3;]~      #rep n3  # k=k2-1; #pf [op=m; size=k;]  #e _pipa  #case 1 #w [op=im; mo=2; n=1; sav=k2; twi=w1; the=h1; sca=16; file=here;]  #end |  # k2=k2+1;  #end  #pf [op=c;]~      #g [op=open; twi=W; the=H; col=247; trx=0; try=0; sca=100;]  # k2=2;  # y1=H-h1/2; ! ~      #rep n2 # x1=w1/2; ! ~        #rep n1  # &=(k2-n3-1)>0; ! ~          #case 0 #g [op=imag; nx=x1; ny=y1; n=k2;]  #end |  # x1=x1+w1; k2=k2+1; ! ~        #end   # y1=y1-h1; ! ~      #end  ~      # n2=n2-1; y1=H-h1; !~      #rep n2  #g [op=rect; nx=W/2; ny=y1; wid=W; hei=5; col=247; mo=0;]  # y1=y1-h1; #end   ~      # n4=n1-1; x1=w1; ! ~      #rep n4 #g [op=rect; nx=x1; ny=H/2; wid=5; hei=H; col=247; mo=0;]  # x1=x1+w1; #end   ~      #g [op=clo; sav=2;]  #w [op=im; mo=2; n=2; sav=-2; twi=W; the=H; sca=16; form=\Ti1 s1 999\E]  #f [op=copy; n=1; file=\Tu1 u2 s999\E] \P6 .jpg\E~    #end | # k=999;  #e _pipa ! ~  #end |~  #w [op=im; mo=2; n=1; sav=2; twi=W; the=H; sca=16; file=here;]   ~  #g [op=open; twi=w0; the=h0; col=247; trx=0; try=0; sca=100;]  #g [op=imag; nx=w0/2; ny=h0/2; n=2;]  #g [op=clo; sav=99;]~  # s(1)=0; s(102)=0; s(103)=0; #ch [n=99; xs=-3; ys=-3;]  # x=int((s(102)-x)/w1); y=int((H-s(103))/h1); k=(1+x+y*n1)>1<n3; ! ~@~#pro pipa  # &1=0; s(3)=1; #pr \Ti1 s1\I-3 k; .png\E  #f [op=size; file=\Tp\E]   # &=s(1)<1; ! ~  #case 0  #pr \Ti1 s1\I-3 k; .jpg\E  #f [op=size; file=\Tp\E]   # &=s(1)<1; #case 1 # &1=1; #end | #end | ~  #case 1 # &1=1; #end |  # &=&1; !~  #case 1  #w [op=im; mo=0; sav=1; file=\Tp\E]   # w=s(12); h=s(13); H=h0-6; o=w/h; W=o*H; &=(o0-o)>0; ! ~    #case 0  # W=w0-6; H=W/o; #end |  # x=(w0-W)/2-3; #end | # &=&1; !  ~@~#pro expr  #fr [op=o; mo=4; n=3; xs=0; ys=0;]  #pr \Ti1 s1\I-3 k; .pro\E # i=s(4); s=s(5); #f [op=size; file=\Tp\E]   # $$=1; &=s(1)<5; !~    #case 5  # $$=0; o=ZZ-200; #d 13 r(o) &9 i1 s1 i2 s2 k u1 u2 w0 h0 n W H  #e _file  # o=ZZ-200; #v 13 r(o) &9 i1 s1 i2 s2 k u1 u2 w0 h0 n W H   #end |  #fr [op=c; mo=4;] ~@ ~#pro pr36    #te [op=trim; b=I1; le=S1; n=301;]  # I1=i(301); S1=i(302); i=I1+S1-3; &=(abs(t(i)-122)+abs(t(i+1)-105)+abs(t(i+2)-112))<1; ! ~  #case 0  #f [op=fold; file=null;]  #z [op=gfo; file=\TI1 S1\E n=1; mo=1;] lect\E  #rob [le=99;]  #z [n=1;] lect/1\E #rob [le=99;]  ~    # i1=I1; s(3)=i1; s1=6;  #pr lect/s\E  # s(5)=s(5)-1; ##39  # n=&-1; s(5)=s(5)+1; #end |  ~  #case 1  # i1=KY-545; s(3)=i1; #pr \TI1 S1\u32;lect/ s \E  #e [b=KY; le=670; n=38;] _text  # u1=i1; u2=S1; n=&; i1=i1+S1; s(3)=i1; s1=6;  #pr lect/s\E #end |~  # w0=s(106); h0=s(107); o0=w0/h0; #g [op=open; twi=w0; the=h0; col=247;] #g [op=clo; sav=9;]  #fr [op=o; mo=3; n=9; xs=0; ys=0;]    # k=1; &9=1; &=1; ! ~  #case 1   #e _pipa ! ~    #case 0   #pr    \I4 k;\u32; \n   !!\n\u32;\E  # &9=0; #end |~    #case 1  #w [op=im; mo=2; n=1; sav=2; twi=W; the=H; sca=16; file=here;]  ~      #g [op=open; twi=w0; the=h0; col=247; trx=0; try=0; sca=100;] ~      #g [op=imag; nx=w0/2; ny=h0/2; n=2;]  #g [op=text; nx=w0-10; ny=h0-30; col=248; tfo=3; tki=1; tsi=24; sty=3;] \I2 k;\E ~      #g [op=clo; sav=3;]  # s(1)=0; s(102)=0; #ch [n=3; xs=-3; ys=-3;]   # x=int(2*s(102)/w0); y=int(2*s(103)/h0); o=abs(s(1)-16); &=s(2); !   ~      #case 10  # ku=k; k=999; #e _expr # k=ku; &=$$; #case 1 #e _expr #end | #end |   ~      #case 90  #z [op=sfo; n=1; file=lect.zip;]  lect\E  #end |~      # &=abs(s(2)-37)*(o+abs(x)+abs(y-1));  #case 0 # k=(k-1)>1; #end |   # &=abs(s(2)-39)*(o+abs(x-1)+abs(y-1));  #case 0 # k=(k+1)<n; #end |  ~      # &=abs(s(2)-38)*(o+abs(x-1)+abs(y));  #case 0 #e _stot  #end |  # &=abs(s(2)-27)*(o+abs(x)+abs(y));  #case 0 # &9=0; #end |~    #end | # &=&9; !  ~  #end    #fr [op=c; mo=3;]  # s(3)=1; #pr del /Q /S lect\nrd lect\\1\nrd lect\n\E  # n=s(3)-1; #io [op=wt; fir=t(1); n=n; file=runsys.bat;]  #rob [mo=1; le=99;]  #sys [op=rp;]    ~@~# &=1; #case 1  #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E  ##36    ##33  #end   ~ 
__ 28 __  # &=0;   ~#case 0  #f [op=fold; file=null;] # &z=0; s(3)=1; #f [op=list; file=pro/0.par; c=10; b=124; em=1;]  # s=s(5); !   ~  #d 6 i(1) 150 0 0 150 255 150 #col [b=2; le=2; fir=i(1);]   #p [ mo=0; em=1; xs=25; ys=70; col=2; hei=24; tsi=16; tfo=3; tki=1;]  ~  #sel [nx=9; ny=11; wid=101;]  Select Button\E  \T1 s\E    # n=&;  &=n<1; ~  #case -1 # &z=1; #end |  ~  #case 1 #f [op=line; n=-(n+1); em=0;] # a=s(4); b=s(5); #te [op=find; b=a; le=b; c=124; n=1;] # o=i(1)+1; b=a+b-o; a=o; ! ~    #read [b=a; le=b; n=1; fir=i(1);]  # n=i(1);  #te [op=trim;]  # i1=i(3); s1=i(4); #te [op=repl; b=i1; le=b1; c=92; mo=47;]  #pr \Ti1 s1\E  #f [op=size; file=\Tp\E]  # &=s(1)<1; ~    #case 0 #pr File  \Tp\u32*2; is absent !\E  #end | ~    #case 1 # &=n;~      #case 1   #e [c=1; n=1; em=1;] _\09  #end |~      #case 2 #io [op=wt; fir=t(i1); n=s1; file=runsys.bat;]  #rob [mo=1; le=99;]   #sys [op=rp;]  #end | ~      #case 3  #e _file #end |  ~    #end |~  #end |  #f [op=fold; file=oldf;]  # &=&z; ~#end    ~ 
__ 29 __  # &=0;   ~#case 0  #f [op=fold; file=null;]  # U0=2; s(3)=1; #pr \- ~   !    [Help]       \n\-~      [Start]  .    ,   \n\-~      .    .   \n\-~         \E  ~  #d 7 i(1) 0 18 0 222 0 3 0   #m [op=gen; nx=10; ny=30; b=1; n=1; siz=20;] Info Message\E  \Ts(4) s(5)\n\u32;\E  Help|Start|Exit\E    # U5=&;~  #case 1 #f [op=edit; c=1; mo=0; fk=3; fs=16; file=pro/0.par; em=11; xs=0; ys=0; nx=300; ny=0;]   #end |  ~  #case 2  # &=U0;~    #case 2    # s(3)=1; #f [op=choo; mo=2; file=pro/0;]  pro\E    ~      #case 1  # U1=s(4); U2=s(5); c=KY-U2; #pas U2 t(U1) t(c)  # U1=c; U0=1; #end |~    #end |   # &=U0;~    #case 1  #f [op=edit; c=1; mo=1; fk=3; fs=16; file=\TU1 U2\E em=11; nx=300; ny=0; xs=10; ys=30;]  ~      #case 1 #p [err=-1;]  #%  ~        #case 10101   #d 5 i(1) 0*3 1 0     ~          #m [op=gen; nx=0; ny=20; b=1; n=1; siz=20;] Error\E  Sorry, your program has invalid expression.\n Please improve and try again.\n\u32;\E  OK\E    ~          #f [op=edit; c=1; mo=1; fk=3; fs=14; file=\TU1 U2\E em=11; nx=300; ny=0; xs=10; ys=30;]  # U0=&;~        #end |  # &=U0;~        #case 1 #f [op=size;]   # U4=s(1);  #io [op=rt; fir=t(1); n=U4;]  # U3=U1-U4; #pas U4 t(1) t(U3)  #e [b=U3; le=U4;] _text  #p [err=0;]   #end |~      #end |~    #end |    # s(3)=1; #pr     ,      .\E~    #d 4 i(1) 0*2 3 0  #m [op=gen; nx=10; ny=30; b=1; n=1; siz=20;] Continuation\E  \Ts(4) s(5)\n\u32;\E  Current|New|Nothing\E    # U0=&;~    # &=U0>2;  ~  #end    #f [op=fold; file=oldf;]  # &=(U5-2)>0+(U0-2)>0;~#end ~ 
__ 30 __  # s(3)=999; #pr Symbol\E  # L=s(5); &=0;~#case 0   #f [op=fold; file=null;] # &9=0;~ # s(3)=101; #pri    ,  [ New ]    ,  [Exit]    .\E  #e [n=17;] _scom~ #e [n=7;] _scom ~ #pr Select Font|Arial|Arial Rounded MT Bold|Bookman Old Style|Bradley Hand ITC|\-~ Comic Sans MS|Courier New|Forte|Georgia|Lucida Console|Monotype Corsiva|Palatino Linotype|\-~ Pristina|Rockwell|Tahoma|Times New Roman|Verdana|New|Exit|Comic Sans MS|\E   #e [n=14;] _scom~ # s(3)=1; #fr [op=c; mo=1;]~ #case 1 #pri Arial\E  #end |~ #case 2 #pri Arial Rounded MT Bold\E  #end |~ #case 3 #pri Bookman Old Style\E  #end |~ #case 4 #pri Bradley Hand ITC\E  #end |~ #case 5 #pri Comic Sans MS\E  #end |~ #case 6 #pri Courier New\E  #end |~ #case 7 #pri Forte\E  #end |~ #case 8 #pri Georgia\E  #end |~ #case 9 #pri Lucida Console\E  #end |~ #case 10 #pri Monotype Corsiva\E  #end |~ #case 11 #pri Palatino Linotype\E  #end |~ #case 12 #pri Pristina\E  #end |~ #case 13 #pri Rockwell\E  #end |~ #case 14 #pri Tahoma\E  #end |~ #case 15 #pri Times New Roman\E  #end |~ #case 16 #pri Verdana\E  #end |~ # a9=1; b9=s(5);~ #case 17 #inp [n=1; le=50; mo=0; em=1; xs=10; ys=10;] Font\E    \E \T999 L\E~  #case 1 # b9=s(5)-1; L=b9; #pass L t(1) t(999)  #end |  #case 2  # b9=0;  #end |   #end |~ #case 18  # &9=1000; #end |~ # &=b9<1+&9;~ #case 1~  # s(3)=101; #pri   --    .  --  [PageUp]   .  \-~   --  [ Esc ].\E  #e [n=17;] _scom  # Z=0; i9=1; &=i9;~  #case 1  # i9=i9+1;~   #eg [op=open; col=246; twi=880; the=630;]   #eg [op=pai; mo=1; col=247;] ~   #p [op=text; b=1; sty=1; tk=0; ts=20; form=\Ta9 b9\E em=0;]  # Y=60; ~   # X=90; N=0; #rep 20 #d 2 r(1) X Y #eg \I2 N;\E # X=X+36; N=N+1; #end  # Y=Y+30;~   #rep 17  #d 2 r(1) 10 Y #eg \I5 Z;\E~    # X=100; N=Z; #rep 20 #d 2 r(1) X Y #eg \U N;\E # X=X+36; N=N+1; #end  # Y=Y+30; Z=Z+20;~   #end~   #eg [op=close; c=1; sav=0; em=1; xp=25; yp=70;] \Ta9 b9\E  # &=(s(2)-33)*(s(2)-38); #case 0  # i9=i9-2; Z=Z-680; #end | ~   # &=((100-i9)*abs(s(2)-27)*(Z+1))<1;~  #end  ~  #fr [op=c; mo=1;]~ #end |   # &=&9;  ~#end  ~ 
__ 31 __  #pro pr36    #f [op=fold; file=pro;]~# a=5; b=37; c=70; d=104; e=136; f=169; g=203; h=235; i=269; j=303; ! ~# k=339; l=374; m=409; n=442; o=475; p=508; q=541; r=576; s=606; ! ~# A=82; B=116; C=149; D=183; E=217; F=250; G=285; H=319; ! ~#d 8  i(1) a b G H r s G H  #d 32 i(9) a b F G b c F G m n F G n o F G o p F G p q F G q r F G r s F G  #d 32 i(41) a b E F b c E F m n E F n o E F o p E F p q E F q r E F r s E F #d 36 i(73) a b D E b c D E c d D E d e D E e f D E f g D E g h D E h i D E i j D E  #d 36 i(109) j k D E k l D E l m D E m n D E n o D E o p D E p q D E q r D E r s D E  #d 36 i(145) a b C D b c C D c d C D d e C D e f C D f g C D g h C D h i C D i j C D   #d 36 i(181) j k C D k l C D l m C D m n C D n o C D o p C D p q C D q r C D r s C D  #d 12 i(217) a b B C b c B C c d B C  #d 24 i(285) d e B C e f B C f g B C g h B C h i B C i j B C   #d 36 i(309) j k B C k l B C l m B C m n B C n o B C o p B C p q B C q r B C r s B C  #d 12 i(345) a b A B b c A B c d A B   #d 24 i(413) d e A B e f A B f g A B g h A B h i A B i j A B  #%  ~# a=112; b=144; c=178; d=210; e=242; f=275; g=309; h=341; i=374; j=408; ! ~# k=441; l=474; m=507; n=540; o=572; A=9; B=41; C=74; ! ~#d 28 i(229) a b B C b c B C c d B C d e B C e f B C f g B C g h B C   28 i(257) h i B C i j B C j k B C k l B C l m B C m n B C n o B C   28 i(357) a b A B b c A B c d A B d e A B e f A B f g A B g h A B  28 i(385) h i A B i j A B j k A B k l A B l m A B m n A B n o A B  # &=0; !~#case 0~  # s(3)=1; ZY=0.6; #pr        .       .\E #e [b=KY; le=670; n=17;] _text ! ~  #w [op=im; mo=0; c=1; sav=2; file=b/ptoe.png;]  #ch [n=2; xs=24; ys=70;] # x=s(102); y=s(103); i=1; n=1; &=0;  #fr [op=c; mo=1;]~  #case 0~    # a=(x-i(i))<1>0; b=(i(i+1)-x)<1>0; c=(y-i(i+2))<1>0; d=(i(i+3)-y)<1>0; ! ~    # &=a*b*c*d; ! ~    #case 1 # N=n; Z=1; #end |~    #case 0 # i=i+4; n=n+1; Z=0; #end |~    # &=(110-n)>0; #case 0 # N=n; Z=1; #end |  # &=Z; ! ~  #end  ~  # &=(110-N)<1; Z=1; !~  #case 1 ~    # s(3)=1; #f [op=line; n=-N; file=b/ptoe.dbn;] # a=s(5); s(1)=1; Z=0; ! ~    #te [op=repl; b=1; le=a; c=96; mo=10;]  #io [op=wt; fir=t(1); n=a; file=tmp.txt;]   #rob [mo=1; le=200;]~    # s(3)=1; #pr pro/tmp.txt\E   #e [n=1; em=1; c=1; ] _\09  # i(1)=13; ! ~    #f [op=repl; b=1; le=1; mo=1; file=tmp.txt;]  #f [op=size;]  # a=s(1);  #io [op=rt; fir=t(1); n=a; le=0;] ~    #te [op=repl; b=1; le=a; c=10; mo=96;] #f [op=line; n=N; em=0; file=b/ptoe.dbn;] ~  #end |  # &=Z;~#end     !~@~#f [op=fold; file=pro;]   # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom   ~ 
__ 32 __  #pro htag   ~#rep N  # &=i(j); ! ~  #case 256  #pr \n256  picture width =\S i(j+3);\E  #end |~  #case 257  #pr \n257  picture height =\S i(j+3);\E  #end | ~  #case 258  #pr \n258  bits per pixel =\S i(j+3);\E  #end | ~  #case 259  #pr \n259  compression =\S i(j+3);\u32*3;\E  #pr 1 == no compression, 2 == CCITT Group 3, 5 == LZV, 6 == JPEG \E #end | ~  #case 262  #pr \n262  color =\S i(j+3);\u32*3;\E  #pr 0 == min is white, 1 == min is black\E  #end | ~  #case 273  # &=i(j+2)<2; #case 1 # n=i(j+3); #end | ~    #case 2  #io [op=rb; fir=r(1); n=4; le=i(j+3);] \Tu V\E  #ma [op=vba; b=1; le=4;]  # &=K; ! ~      #case 1 # n=r(1)+B*(r(2)+B*(r(3)+B*r(4))); #end |~      #case 2 # n=r(4)+B*(r(3)+B*(r(2)+B*r(1))); #end |  ~    #end |  ~    #pr \n273  byte offset for picture =\S n;\E ~  #end |~ #case 274  #pr \n274  orientation =\S i(j+3);\u32*3;\E  #pr 1 == top-left, 2 == top-right, 3 == bottom-right, 4 == bottom-left, 5-8 == inversion of 1-4\E  #end |~ #case 277  #pr \n277  number of componets per pixel =\S i(j+3);\E  #end |~  #case 305  #pr \n305  program = \E  # n=i(j+2)-1; i=s(3); s(3)=i+n; #io [op=rb; fir=r(1); n=n; le=i(j+3);] \Tu V\E  #ma [op=vba; b=1; le=n;]  #pas n r(1) t(i)  #end |~  #case 306  #pr \n306  date = \E  # n=i(j+2)-1; i=s(3); s(3)=i+n; #io [op=rb; fir=r(1); n=n; le=i(j+3);] \Tu V\E  #ma [op=vba; b=1; le=n;]  #pas n r(1) t(i)  #end |~  # j=j+4; ! ~#end   #pr \TM L\E  ~#io [op=wt; fir=t(1); n=s(3)-1; file=arg;] \Tu v /tif-inf.txt\E  ##6  #f [ file=arg;] \Tu v /tif-inf.txt\E  ~@  #f [op=fold; file=null;]   # s(3)=5000; !   ~#te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]  #f [op=choo; mo=0; file=arg;] \Ti(1) i(2)\E  ~#case 1 # u=s(4); V=s(5);  #te [op=find; b=u; le=V; n=1; c=47;]  # n=s(1); v=i(n)-u; !   ~  #io [op=rb; fir=r(1); n=8; le=0; file=arg;] \Tu V\E  #ma [op=vba; b=1; le=8;] ~  # &=(abs(r(1)-73)+abs(r(2)-73)+abs(r(3)-42)+abs(r(4)))<1; ! ~  #case 1 # &=(abs(r(1)-77)+abs(r(2)-77)+abs(r(4)-42)+abs(r(3)))<1; ! ~    #case 1 #m [op=win;] This file can not be produced. Sorry!\E #stop #end |~    #case 0  # B=256; S=r(8)+B*(r(7)+B*(r(6)+B*r(5))); ! ~      #io [op=rb; fir=r(1); n=2; le=S; file=arg;] \Tu V\E  #ma [op=vba; b=1; le=2;]  # N=r(2)+B*r(1); S=S+2; M=9999; s(3)=M; j=111; #pr \n\n\E~      #rep N ~        #io [op=rb; fir=r(1); n=12; le=S; file=arg;] \Tu V\E #ma [op=vba; b=1; le=12;]~        # i(1)=r(2)+B*r(1); i(2)=r(4)+B*r(3); i(3)=r(8)+B*(r(7)+B*(r(6)+B*r(5))); &=(abs(i(2)-3)+abs(i(3)-1))<1; ! ~        #case 0  # i(4)=r(10)+B*r(9);  #end |  #case 1  # i(4)=r(12)+B*(r(11)+B*(r(10)+B*r(9)));  #end |~        #pr \I14 i(1) i(2) i(3) i(4);\n\E  # S=S+12; #pas 4 i(1) i(j)  # j=j+4; ! ~      #end   # L=s(3)-M; s(3)=1; #pr Motorola order\E  # j=111; K=2; #e _htag~    #end |~  #end |~  #case 0  # B=256; S=r(5)+B*(r(6)+B*(r(7)+B*r(8))); ! ~    #io [op=rb; fir=r(1); n=2; le=S; file=arg;] \Tu V\E #ma [op=vba; b=1; le=2;]  # N=r(1)+B*r(2); S=S+2; M=9999; s(3)=M; j=111; #pr \n\n\E~    #rep N ~      #io [op=rb; fir=r(1); n=12; le=S; file=arg;] \Tu V\E #ma [op=vba; b=1; le=12;]~      # i(1)=r(1)+B*r(2); i(2)=r(3)+B*r(4); i(3)=r(5)+B*(r(6)+B*(r(7)+B*r(8))); i(4)=r(9)+B*(r(10)+B*(r(11)+B*r(12))); ! ~      #pr \I14 i(1) i(2) i(3) i(4);\n\E  # S=S+12; #pas 4 i(1) i(j)  # j=j+4; ! ~    #end   # L=s(3)-M; s(3)=1; #pr Intel order\E  # j=111; K=1; #e _htag ! ~  #end |~#end | #f [op=fold; file=oldf;] ~@  ~
__ 33 __  #pro pr36  #f [op=fold; file=null;]  #te [op=repl; b=I1; le=S1; c=92; mo=47;] ~#te [op=trim; n=1;]  # I1=i(1); S1=i(2); I2=i(3); S2=i(4); #read [b=i(5); le=i(6); n=1; fir=$;] ~# w=KY-9000; # s(3)=w; #f [op=fcat; file=arg;] \TI1 S1\E  ~# a1=w; b1=s(5); J=99; i=a1; j=444; #te [op=find; b=a1; le=b1; n=j; c=124;]  # n=s(1); &=n<1; ! ~#case 1   #pf [op=o; le=n;]     ~  #rep n  # K=0; B=256; u=KY-9500; s(3)=u; c=i(j)-i; #pr \TI1 S1\Ti c\E # v=s(3)-u; #e _tita !~    #case 0  # k=201; S=0; ! ~      #rep N  ~        # &=i(k)-256; #case 0 # A1=i(k+3); S=S+1; #end |~        # &=i(k)-257; #case 0 # B1=i(k+3); S=S+1; #end |~        # &=i(k)-258; #case 0 # &=i(k+3)-16; #case 0 # S=S+1; #end | #end |~        # &=i(k)-273; #case 0 # K=i(k+2); &=K<2; #case 2 # C1=i(k+3); S=S+1; #end | #end |  # k=k+4; ! ~      #end   # D1=i(k); &=(4-S)<1; ! ~      #case 0  # &=K; ~        #case 2  #io [op=rb; fir=r(1); n=4; le=C1; file=arg;] \Tu v\E #ma [op=vba; b=1; le=4;]  # &=D1; ! ~          #case 1 # C1=r(1)+B*(r(2)+B*(r(3)+B*r(4))); #end | #case 2 # C1=r(4)+B*(r(3)+B*(r(2)+B*r(1))); #end |~        #end |  # nn=A1*B1; #io [op=rd; fir=r(J); file=arg;  n=nn; le=C1; mo=5; ord=D1;] \Tu v\E   ~        # c1=c-3; #io [op=wd; mo=1; file=arg;]  \TI2 S2\Ti c1 dat\E ~      #end | ~      #case 1  # &=$; #case 1 # s(3)=1; #pr File \Tu v\u32;is not processed !\E #m [op=win;] \Tp\E  #end | #end |~    #end |  #pf [op=m; siz=j-443;]  #rob [mo=1; le=99;]  # i=i+c+1; j=j+1; ! ~  #end   #pf [op=c;]   !~#end |  #f [op=fold; file=oldf;] ~@ ~#pro tita   # &1=1; YZ=ZZ-3; #d 3 r(YZ) j B S !   ~#io [op=rb; fir=r(1); n=8; le=0; file=arg;] \Tu v\E  #ma [op=vba; b=1; le=8;] ~# &=(abs(r(1)-73)+abs(r(2)-73)+abs(r(3)-42)+abs(r(4)))<1; ! ~#case 0  # &1=0; B=256; S=r(5)+B*(r(6)+B*(r(7)+B*r(8))); ! ~  #io [op=rb; fir=r(1); n=2; le=S; file=arg;] \Tu v\E #ma [op=vba; b=1; le=2;]  # N=r(1)+B*r(2); S=S+2;  j=201; ! ~  #rep N  #io [op=rb; fir=r(1); n=12; le=S; file=arg;] \Tu v\E #ma [op=vba; b=1; le=12;]~    # i(1)=r(1)+B*r(2); i(2)=r(3)+B*r(4); i(3)=r(5)+B*(r(6)+B*(r(7)+B*r(8))); &=(abs(i(2)-3)+abs(i(3)-1))<1; !~    #case 0  # i(4)=r(9)+B*r(10);  #end |  #case 1 # i(4)=r(9)+B*(r(10)+B*(r(11)+B*r(12))); #end |~    # S=S+12; #pas 4 i(1) i(j)  # j=j+4; ! ~  #end   # i(j)=1; ! ~#end |~#case 1 # &=(abs(r(1)-77)+abs(r(2)-77)+abs(r(4)-42)+abs(r(3)))<1; !  ~  #case 0  # &1=0; B=256; S=r(8)+B*(r(7)+B*(r(6)+B*r(5))); ! ~    #io [op=rb; fir=r(1); n=2; le=S; file=arg;] \Tu v\E  #ma [op=vba; b=1; le=2;] # N=r(2)+B*r(1); S=S+2; j=201; !  ~    #rep N   #io [op=rb; fir=r(1); n=12; le=S; file=arg;] \Tu v\E #ma [op=vba; b=1; le=12;] ~      # i(1)=r(2)+B*r(1); i(2)=r(4)+B*r(3); i(3)=r(8)+B*(r(7)+B*(r(6)+B*r(5))); &=(abs(i(2)-3)+abs(i(3)-1))<1; ! ~      #case 0  # i(4)=r(10)+B*r(9);  #end |  #case 1  # i(4)=r(12)+B*(r(11)+B*(r(10)+B*r(9)));  #end | ~      # S=S+12; #pas 4 i(1) i(j)  # j=j+4; ! 				  ~    #end   # i(j)=0; ! ~  #end |~#end |   #v 3 r(YZ) j B S # &=&1; !   ~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end   ~
__ 34 __  #pro pr36  #f [op=fold; file=null;]  #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]   ~#f [op=fold; file=arg; em=1;] \Ti(1) i(2)\E  # &=s(41);~#case 0  #pr #m [op=win;] Initial folder is absent. Check input data !\E  # &0=1; #end |~#case 1 #f [op=fold; file=arg; em=1;] \Ti(3) i(4)\E  # &=s(41);~  #case 0  #pr #m [op=win;] Destination folder is absent. Check input data !\E  # &0=1; #end |~  #case 1 #f [op=fold; file=null;]  # s(3)=KY-9000; #f [op=fcat; file=arg;]  \Ti(1) i(2)\E # i=s(4); s=s(5);  ~    #te [op=find; b=i; le=s; c=124; n=8;]  # i(7)=i-1; n=s(1); k=0; m=7;~    #rep n  # j=i(m)+1; t=i(m+1)-j; l=j+t-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(3) i(4)\Ti(5) i(6) \I-3 k;\Tl 4\E \Ti(1) i(2)\Tj t \E  #end |  # m=m+1;~    #end    ~  #end |~#end |   #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end   ~
__ 35 __  #pro pr36  #f [op=fold; file=null;]  #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]   ~#f [op=fold; file=arg; em=1;] \Ti(1) i(2)\E  # &=s(41);~#case 0  #pr #m [op=win;] Initial folder is absent. Check input data !\E  # &0=1; #end |~#case 1 #f [op=fold; file=arg; em=1;] \Ti(3) i(4)\E  # &=s(41);~  #case 0  #pr #m [op=win;] Destination folder is absent. Check input data !\E  # &0=1; #end |~  #case 1 #f [op=fold; file=null;]  # s(3)=KY-9000; #f [op=fcat; file=arg;]  \Ti(1) i(2)\E # a1=s(4); b1=s(5); #te [op=find; b=a1; le=b1; n=5; c=124;]  ~    # n=s(1); i=a1; j=5;   #pf [op=o; le=n;]  ~    #rep n  # c=i(j)-i; c1=c-4; k=i+c1; &=abs(t(k+1)-112)+abs(t(k+2)-110)+abs(t(k+3)-103); ~      #case 0  #pr \Ti(3) i(4)\Ti c1\E  #w [op=im; file=arg; mo=0; sav=-2; form=\Tp\E ] \Ti(1) i(2)\Ti c\E #end | #pf [op=m; siz=j-4;]  # j=j+1; i=i+c+1;~    #end  #pf [op=c;]~  #end |~#end |   #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end   ~
__ 36 __  #pro pr36  #f [op=fold; file=null;] #te [op=trim; b=I1; le=S1; n=1;]  ~ # s(3)=1; #pr cd \Ti(1) i(2)\ncopy /B \Ti(3) i(4)\u32;\Ti(5) i(6)\E~ #io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=99;] #sys [op=rp;]   #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end   ~
__ 37 __  #pro pr36  #f [op=fold; file=null;] ~#read [fir=r(1); b=I1; le=S1; n=8;]  # N1=r(1); N=r(2); X=r(3); x=r(4); w=r(5); dx=r(6); dw=r(7); m=r(8); ! ~#te [op=trim; n=1;]  # I=i(17); S=i(18); J=99; J1=J+N; k=0; xa=X/2; ! ~#io [op=rd; mo=1; fir=r(J); n=N; le=0; file=\TI S\E]  #d 5 r(ZZ-70)  x w dx dw N1 #e [n=29;] _scom !     ~# B1=AZ; B2=BZ; d=X/N; #e _pcmf # C=B3; #ma [op=vmc; b=J1; le=N;]  ~#d 7 A J N 2 -xa xa 247 1100 #pr pro/adgf|x=\S B1;, w=\S B2;, M=\S B3;\E #e [n=1;] _scom !    ~#f [op=fold; file=oldf;] ~@ ~#pro pcmf  # d=X/N; a=-2.7729/(B2*B2+1e-19); #d 5 r(1) 1 N d a B1 #e [n=1; b=J1;] _\08  #ma [op=vex; b=J1; le=N;]   ~# A=0; B=0; C=0; j=J;  #rep N  # a=r(j+N); A=A+a*a; b=r(j); B=B+a*b; C=C+b*b; j=j+1; #end  # B3=B/A; C=(C-B*B3)/N; &=m; ! ~#case 1   # k=k+1; s(3)=1;  #pr \G B1 B2 B3 C;\E  #f [op=line; n=k; file=pro/adgf.txt; b=s(4); le=s(5); em=0;]  #end |~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end  ~
__ 38 __  #pro pr36  #f [op=fold; file=null;] ~# a=I1; b=S1; #te [op=trim; b=a; le=b; n=1;]  # u=i(1); v=i(2); #e [n=6;] _scom  #f [file=\Tu v .txt\E ]  ~#case 1  #f [op=size;]  # N=s(1); #io [op=rt; fir=t(1); n=N;]  #f [op=copy; n=1; file=\Tu v .htm\E]  pro/b/ini-frame.htm\E~  #te [op=find; b=1; le=N; n=5; c=10;]  # a=1; b=i(5)-a; c=i(5)+1; d=i(6)-c; e=i(6)+1; f=N+1-e;~  #d 2 i(5) 35 49  #io [op=wt; fir=t(a); n=b; file=tmp1.txt;]  #io [op=rb; fir=r(1); le=0;]  #ma [op=vba; b=1; le=b;]  ~  #pas b r(1) i(7)   #f [op=repl; b=5; le=b+2; mo=2; file=\Tu v .htm\E] ~  #d 2 i(5) 35 50  #io [op=wt; fir=t(c); n=d; file=tmp1.txt;]  #io [op=rb; fir=r(1); le=0;]  #ma [op=vba; b=1; le=d;]  ~  #pas d r(1) i(7)   #f [op=repl; b=5; le=d+2; mo=2; file=\Tu v .htm\E] ~  #d 2 i(5) 35 51  #io [op=wt; fir=t(e); n=f; file=tmp1.txt;]  #io [op=rb; fir=r(1); le=0;]  #ma [op=vba; b=1; le=f;]  ~  #pas f r(1) i(7)   #f [op=repl; b=5; le=f+2; mo=2; file=\Tu v .htm\E] ~  #d 1 i(5) 13  #f [op=repl; b=5; le=1; mo=1;]  #d 7 i(5) 10 10 10 60 112 62 10  #f [op=repl; b=5; le=5+2; mo=2;] ~  # s(3)=1; &=(t(u+1)-58)<1; #case 1 #pr \M\E #end |  #pr \Tu v .htm\n\E  #io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=99;]  #sys [op=rp;] ~  #f [op=dele; file=tmp1.txt;]~#end |  #f [op=fold; file=oldf;] ~@ ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33 #end  ~
__ 39 __  # &=1; #case 1  #f [op=fold; file=pro;]  #e [n=6;] _scom  #f [file=0.par;]  ~#case 1 # s(3)=KY-199; #f [op=line; n=-1; ]  #read [b=s(4); le=s(5); fir=r(1); n=3;] # W=r(1); H=r(2); N=r(3); !  ~  #te [op=find; c=124; n=1;] # I=i(1)+1; S=s(4)+s(5)-I; j=1; k=2; n=1;~  #rep N  # n=n+1; #f [op=line; n=-n;] #read [b=s(4); le=s(5); fir=r(j); n=6;]~    #te [op=find; c=124; n=1;] # i(k)=i(1)+1; i(k+1)=s(4)+s(5)-i(k); j=j+6; k=k+2;  #end ~  #pd [op=open; file=\TI S .pdf\E tw=W; th=H; wid=W; hei=H; xsh=0; ysh=0; mo=0;]   # j=1; k=2;~  #rep N  #pd [op=imag; file=\Ti(k) i(k+1)\E mo=r(j); b=j+1;] # j=j+6; k=k+2;  #end  #pd [op=clos;]~  #f [op=size;  file=\TI S .pdf\E]  # &=s(1)<1; ~  #case 1 #f [op=fold; file=null;] #pr \M pro/\TI S .pdf\n\E # i=s(4); #io [op=wt; fir=t(i); n=s(5); file=runsys.bat;]  #sys [op=rp;] #end | ~  #case 0 #m [op=win;] File is not created !\E #end | ~#end |   #f [op=fold; file=oldf;]   ##33 #end  ~
__ 40 __  #pro pr36  #f [op=fold; file=null;]  #te [op=trim; b=I1; le=S1; n=1;]    ~# I1=i(1); S1=i(2); I2=i(3); S2=i(4); I3=i(5); S3=i(6); I=i(7); S=i(13)+i(14)+1-I;  s(3)=1; ! ~#w [op=im; mo=0; file=\TI1 S1\TI2 S2\E sav=1; c=1;]  # W9=s(106)-10; H9=s(107)-150; ! ~# w1=s(12); h1=s(13); z1=(w1/W9)>(h1/H9); Q=1; # &=z1<1; #case 1 # Q=0; #end |  # o1=Q; &=Q; #case 1 # z1=1; #end |  ~#case 0  #pr Program is working. Please wait ...\E  #e [n=17;] _scom !~   # w2=w1/z1; h2=h1/z1; #d 6 s(12) w2 h2 -1*4  #w [op=im; mo=2; n=1; sav=2; sca=16; file=here;]  #fr [op=c; mo=1;]~#end |  #pr \U32*3;      ,   [C]   \E #e [n=17;] _scom    ~#d 6 s(12) -1*6  #w [op=im; mo=3; n=2-o1; sav=0; c=1; file=here;]  #fr [op=c; mo=1;] # &=s(2)<1; ! ~#case 0  # A=s(102)*z1; B=s(103)*z1; C=s(104)*z1-A; D=s(105)*z1-B;  #end | ~#case 1  # C=0; D=0; &=abs(s(2)-67)<1; ! ~  #case 0  # s(3)=1; #inp [n=1; mo=0; le=50; em=2; xs=8; ys=28;]  \E  X, Y (left-bottom), W, H \E   \TI S\E   ~    #case 1 # i=s(3)-1; t(i)=32; #read [fir=i(1); n=4; b=s(4); le=s(5);]  # A=i(1); B=i(2); C=i(3); D=i(4);  #end |~  #end |~#end |  # Q=0; &=C<1+D<1; ! ~#case 2  #w [op=im; mo=3; sav=3; n=1; wid=C; hei=D; xs=A; ys=B;] # Q=1; ! ~  #d 6 s(12) -1*6  #w [op=im; mo=3; n=3; sav=0; c=1;] ~#end |   # &=Q; ! ~#case 1   #te [op=find; b=I3; le=S3; c=46; n=1;]~  # n=s(1); j=i(n)+1; S3=S3-4;  #p [form=\TI1 S1\TI3 S3\E]~  # s(3)=1; #pr jpg\E # &=(abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)))<1; ! ~  #case 0 #d 6 s(12) -1*6  #w [op=im; mo=3; n=3; sav=-2; c=1; file=here;]  #end | ~  #case 1 # s(3)=1; #pr png\E # &=abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)); ! ~    #case 0 #f [op=topng; n=3; form=\TI1 S1\TI3 S3\E ] #end |~  #end |~#end |  #f [op=fold; file=oldf;]~ @~ # &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text ##33 #end  ~
__ 41 __   #pro mpic  # &=1; #case 1 #e _titl ! ~#f [op=fold; file=null;]   # W=800; H=600; s(3)=1;  #f [op=choo; mo=1; file=pro/0;]  ~#case 1  ~ #w [op=im; mo=0; file=\Ts(4) s(5)\E sav=99;]  # &=(abs(s(12)-W)+abs(s(13)-H))<1; ! ~ #case 1 #w [op=im; mo=2; n=99; twi=W; the=H; sav=-2; file=here; form=pro/0/tmp; sca=16;] #e _wmes #end | ~ #case 0 ~  #ag [op=o; wid=W+4; hei=H+30; xs=(s(106)-s(14))/2; ys=(s(107)-s(15))/2; file=nomusic;] Mosaic Picture\E ~  #p [wid=100; hei=100;]   #ag [op=m; n=99; xs=0; ys=-13;]   !\E   # j=1; k=0; ! ~  #rep 6  # i=0; ! ~   #rep 8  #w [op=im; mo=3; n=99; ys=100*k; xs=100*i; sav=j; file=here;]  # j=j+1; i=i+1;  #end  # k=k+1; ! ~  #end   ~  #e _rndg  # &=1; #case 1 #ag [op=p;] # &=abs(s(2)-10)<1; #end    ~  #g [op=open; twi=W; the=H; col=256;]  # k=0; j=1; !   ~  #rep 6  # i=0; !~   #rep 8  #g [op=imag; nx=100*i+50; ny=100*k+50; n=i(j);]  # j=j+1; i=i+1;  #end  # k=k+1; ! ~  #end   #g [op=clos; sav=99;]  #ag [op=m; n=99; xs=0; ys=-13;]  \E~  #rep 1000~   # X=s(102); Y=s(103); # &=X+Y; #case 0 # X=x; Y=y; #end |  #ag [op=i;]~   # &=1; #case 1 #ag [op=p;] # &=(abs(s(2)-32)*abs(s(1)-16))<1; #end  ~   # x=s(102); y=s(103); # &=x+y; #case 0 # x=X; y=Y; #end | ~   # i1=int(x/100); k1=int(y/100); J1=(8*k1+i1+1)>1<48; ! ~   #g [op=open; twi=W; the=H; col=256;]    #g [op=imag; nx=W/2; ny=H/2; n=99;]~   #g [op=text; nx=100*i1+50; ny=100*k1+40; tfo=3; tki=2; tsi=30; col=244; sty=2;]  X\E~   #g [op=clos; sav=99;]  #ag [op=m; n=99; xs=0; ys=-13;] \u32;\E~   # X=s(102); Y=s(103); # &=X+Y; #case 0 # X=x; Y=y; #end |  #ag [op=i;]~   # &=1; #case 1 #ag [op=p;] # &=(abs(s(2)-32)*abs(s(1)-16))<1; #end~   # x=s(102); y=s(103); # &=x+y; #case 0 # x=X; y=Y; #end | ~   # i=int(x/100); k=int(y/100); J=(8*k+i+1)>1<48; !~   #g [op=open; twi=W; the=H; col=256;]   #g [op=imag; nx=W/2; ny=H/2; n=99;]~   #g [op=imag; nx=100*i+50; ny=100*k+50; n=i(J1);]  #g [op=imag; nx=100*i1+50; ny=100*k1+50; n=i(J);]~   #g [op=clos; sav=99;]  #ag [op=m; n=99; xs=0; ys=-13;]  \E~   # m=i(J); i(J)=i(J1); i(J1)=m; !~  #end   #ag [op=c;] #ini ~ #end |~#end | #f [op=fold; file=oldf;]~#m [op=yno;] Game is over ! Repeat ?\E  #end ~@~#pro rndg~ # k=1; #rep 48 # i(k)=k; k=k+1; #end   # k=1; #rep 48 # n=int(47.99*rnd(0))+1; m=i(k); i(k)=i(n); i(n)=m; k=k+1; #end ~@~#pro titl~ # s(3)=1; #pri Please wait ...\E  #e [n=17;] _scom  ~ #eg [op=open; col=246; twi=800; the=600;]  #d 4 r(1) 0 0 800 600 #%~ #eg [op=pai; mo=1; col=247;]  #pat [op=rect; n=1; b=1;]  #eg [op=fill; n=1;]~ #eg [op=pai; mo=1; col=246;]~ # s(3)=1; #pri Monotype Corsiva\E  #eg [op=chf; form=\Ts(4) s(5)\E  tsi=24; tki=0;] ~ #case 0  # s(3)=1; #pri Palatino Linotype\E  #p [form=\Ts(4) s(5)\E  tsi=22; tki=3;] #end |   # Y=32; ! ~ #eg [op=mtxt; emp=0; n=14;]~   -1  20  60 10 \u32*5; MOSAIC -   \E ~    1   0   50 10  \u32*40; \E~    1   0   50 0   ,   800*600 ( ).\E~    1   0   Y  0       ,    [Enter]\E  ~    1   0   Y  0     48  (100*100)   \E~    1   0   Y  0   .   -    \E~    1   0   Y  0    .  :   \E~    1   0   Y  0           .\E~    1   0   Y  0    .       ,\E~    1   0   Y  0           ,\E~    1   0   Y  0      .    .  \E~    1   0   Y  0    ,    .  , \E~    1   0   Y  0  ,  ,   .\E~    1   140  50  0       .\E~ #eg [op=clos; sav=99;] image\E  #d 6 s(12) -1*6   #fr [op=c; mo=1;]~ #w [op=im; mo=2; n=99; sav=0; c=1; file=here; em=1; xp=25; yp=70;] ~@~#pro wmes~ #d 7 i(1) 0 0 0 0 0 1  0  #m [op=gen; b=1; nx=10; ny=10; siz=10; n=1;] Warning\E ~         800*600\n          \n  tmp.jpg   pro/0/.    \n~        .\n\u32;\E OK\E ~@~#e _mpic ! ~
__ 42 __ #pro pr36   # ZY=0; s(3)=1;  #pr \u32*3; [Enter]   .  []   . \-~   [Esc]  .\E  #e [n=17;] _scom #read [fir=i(1); b=I1; le=S1; n=1;]  # &=i(1); ~ #e [c=1;] uni1  #e [c=2;] uni2  #e [c=3;] uni3  #e [c=4;] uni4    #fr [op=c; mo=1;]  ~ @~#pro uni1  #read [fir=i(1); n=8;]  # w=i(2); h=i(3); N1=i(4); N2=i(5); E=i(6); N3=i(7); R=i(8); W=w+40; H=h+40; ! ~# V=sqr(E/N3); N=N1*N2; k=1;  #rep N # i(k)=155*rnd(0)+50; i(k+1)=155*rnd(0)+50; i(k+2)=155*rnd(0)+50; k=k+3; #end  ~#col [b=1; le=N; fir=i(1);]  # D=2*R; D1=D+1; w1=w-R; h1=h-R; w2=w/N1; h2=h/N2; y=h2/2; k=1; ! ~#rep N2 # x=w2/2; #rep N1 # r(k)=x; r(k+1)=y; r(k+2)=0; r(k+3)=0; x=x+w2; k=k+4; #end # y=y+h2; #end  ~# j=2001; k=1; #rep N # r(j)=r(k); r(j+1)=r(k+1); j=j+2; k=k+4; #end  ~# k=3; #rep N3 # A=6.283185*rnd(0); r(k)=V*cos(A); r(k+1)=V*sin(A); k=k+4; #end  # K=99999; N1=4; ! ~#d 10 r(K) 0 0 0 h w h w 0 0 0   #ag [op=o; wid=W; hei=H+26; xs=1320-W; ys=(s(107)-H)/2; file=nomusic;] Gas Motion\E~#p [xs=0; ys=-13; wid=D; hei=D; tfo=3; tki=0; tsi=10; sty=2;] # &=0; ! ~#case 0  #g [op=open; twi=w; the=h; col=246; mo=0;]  # j=1; k=1; ! ~  #rep N  # y9=r(k+1); #g [op=oval; nx=r(k); ny=y9; col=j;] #g [op=text; ny=y9-4; col=255;] \I-2 j;\E # k=k+4; j=j+1; #end    ~  #g [op=clos; sav=2;]  #g [op=open; twi=W; the=H; col=245;] #g [op=imag; nx=W/2; ny=H/2; n=2;]~  #g [op=clos; sav=1;]   #ag [op=m; n=1;] Gas Motion\u32;\E  #rob [mo=1; le=10;]  # &=abs(s(2)-10); ! ~  #case 0  #ma [op=bsm;]  #ma [op=bsi;]  #ma [op=bsr;] #end |  # u=0; &=abs(s(2)-27); #case 0 # u=1; #end | # &=u; !  ~#end     #ag [op=c;] #ini # &=&&; !~@ ~#pro uni2  #d 3 i(1) 0 180 220  #col [fir=i(1); b=1; le=1;]  # k=999960; #read [fir=r(k); n=10; b=I1; le=S1;] ~# w=r(k+1); D=r(k+2); D8=r(k+3); N1=r(k+4); N2=r(k+5); C1=0.01*r(k+6); C2=0.01*r(k+7); V=r(k+8); M=r(k+9); ! ~# h=w; W=w+100; H=W; R=D/2; D1=D+1; R1=w/2; r2=R1-R; N3=N1-1; W2=W/2; H2=H/2; j=1; J=j+4*N1; ! ~# R8=D8/2; B1=6.283185/N1; k=0; m=0; c=1; ! ~#rep N1 # r=C1*r2; A=B1*k; r(j)=r*cos(A); r(j+1)=r*sin(A); A=6.283185*rnd(0); ! ~  # r(j+2)=c*V*cos(A); r(j+3)=c*V*sin(A); j=j+4; k=k+1; m=m+1; c=0; &=(m-M)<1; ! ~  #case 1 # m=0; c=1; #end |~#end   # &=N2<1; ! ~#case 1  # B2=6.283185/N2; k=0; ! ~  #rep N2 # r=C2*r2; A=B1/2+B2*k; r(j)=r*cos(A); r(j+1)=r*sin(A); r(j+2)=R8; j=j+3; k=k+1; #end  ~#end |~#ag [op=o; wid=W; hei=H+26; xs=1320-W; ys=(s(107)-H)/2; file=nomusic;] Movements\E~#p [xs=0; ys=-13;] # &=0; ! ~#case 0   ~  #g [op=open; twi=W; the=H; col=245;]~  #g [op=oval; nx=W2; ny=H2; wid=w; hei=h; mo=0; col=246;]  # j=1; #p [wid=D; hei=D;]~  #rep N1  #g [op=oval; nx=r(j)+W2; ny=r(j+1)+H2; col=1;] # j=j+4; #end  # &=N2<1; ! ~  #case 1~    #rep N2  # O=2*r(j+2); #g [op=oval; nx=r(j)+W2; ny=r(j+1)+H2; col=245; wid=O; hei=O;] # j=j+3; #end  ~  #end |   #g [op=clos; sav=1;]  ~  #ag [op=m; n=1;] Movements\u32;\E #rob [mo=1; le=10;]  # &=abs(s(2)-10); ! ~  #case 0  # k=1; ! ~    #rep N1 # x=r(k); y=r(k+1); X=r(k+2); Y=r(k+3); x=x+X; y=y+Y; r1=sqr(x*x+y*y); &=(r1-r2)<0; ! ~      #case 0 # x1=x/r1; y1=y/r1; x=x1*r2; y=y1*r2; A=2*(x1*X+y1*Y); X=X-A*x1; Y=Y-A*y1; #end |  # j=J; &=N2<1; ! ~      #case 1~        #rep N2 # x8=r(j); y8=r(j+1); R8=r(j+2); j=j+3; ! ~          # d1=x-x8; d2=y-y8; d3=sqr(d1*d1+d2*d2); S=R+R8-d3; &=S<0; ! ~          #case 0 # x1=d1/d3; y1=d2/d3; x=x+x1*S; y=y+y1*S;  A=2*(x1*X+y1*Y); X=X-A*x1; Y=Y-A*y1; #end |~        #end  ~      #end |   # r(k)=x; r(k+1)=y; r(k+2)=X; r(k+3)=Y; k=k+4; ! ~    #end  # N=N1; #ma [op=bsi;] ~  #end |  # u=0; &=abs(s(2)-27); #case 0 # u=1; #end | # &=u; ! ~#end   #ag [op=c;] #ini  # &=&&; ! ~@~#pro uni3   #read [fir=i(1); n=9; b=I1; le=S1;]  # w=i(2); h=i(3); N1=i(4); N2=i(5); E=i(6); N3=i(7); R=i(8); S=i(9); ! ~# W=w+50; H=h+40; V=sqr(E/N3); N=N1*N2; k=1; !~#rep 200 # i(k)=155*rnd(0)+50; i(k+1)=155*rnd(0)+50; i(k+2)=155*rnd(0)+50; k=k+3; #end ~#col [b=1; le=200; fir=i(1);]  # D=2*R; D2=2*D; S2=S/2; w1=w/2-D2; w2=w/2+D2; h1=h/2+S2; h2=h/2-S2; ! ~# w8=w/2/N1-10; h8=h/N2; y=h8/2; k=1; ! ~#rep N2 # x=w8/2; #rep N1 # r(k)=x; r(k+1)=y; r(k+2)=0; r(k+3)=0; x=x+w8; k=k+4; #end # y=y+h8; #end  ~# j=2001; k=1; #rep N # r(j)=r(k); r(j+1)=r(k+1); j=j+2; k=k+4; #end  ~# k=3; #rep N3 # A=6.283185*rnd(0); r(k)=V*cos(A); r(k+1)=V*sin(A); k=k+4; #end  ~#d 9 i(1) 200 255 200 0 0 0 220 220 220  #col [b=201; le=3; fir=i(1);]  # K=99999; N1=12; ! ~#d 26 r(K) 0 0 0 h w1 h w1 h1 w2 h1 w2 h w h w 0 w2 0 w2 h2 w1 h2 w1 0 0 0  !~# j=1; i=K; #rep N1 # i(j)=r(i+2)-r(i); i(j+1)=r(i+3)-r(i+1); j=j+2; i=i+2; #end  ~#ag [op=o; wid=W; hei=H+26; xs=1320-W; ys=(s(107)-H)/2; file=nomusic;]   \E~#p [xs=0; ys=-13; tfo=3; tki=0; tsi=10; sty=2;] # &=0; ! ~#case 0  #g [op=open; twi=w; the=h; col=245;]  #g [op=area; nx=r(K); ny=r(K+1); b=1; mo=0; col=246; n=N1;]  # j=1; k=1; ! ~  #rep N  # y9=r(k+1);  #g [op=oval; mo=0; wid=D; hei=D; nx=r(k); ny=y9; col=j-int((j-1)/200)*200;]~    #g [op=text; ny=y9-4; col=202;] \I-2 j;\E # k=k+4; j=j+1; ! ~  #end    #g [op=clos; sav=2;]  #g [op=open; twi=W; the=H; col=245;] #g [op=imag; nx=W/2; ny=H/2; n=2;]~  #g [op=clos; sav=1;]  #ag [op=m; n=1;]    \u32;\E #rob [mo=1; le=10;]  # &=abs(s(2)-10); !  ~  #case 0  #ma [op=bsm;] #ma [op=bsi;] #ma [op=bsr;]  #end |  # u=0; &=abs(s(2)-27); #case 0 # u=1; #end | # &=u; ! ~#end   #ag [op=c;] #ini  # &=&&;~@~#pro uni4  #read [fir=i(1); n=2;]  # V=i(2); ! ~ # W=900; H=600; R=10; D=2*R; h=10; h5=5*h; s=10; w1=W/3; w2=2*w1; x1=w1-h5+s; x2=w1+h+s; ! ~ # x3=w2-h+s; x4=w2+h5+s; x5=W/2+s; h1=H/2+s; c=1.1*R; y1=h1-c; y2=h1+c; x6=W+s; y3=H+s; ! ~ # N1=14; N=24; n=2*(N1+1); K=9999; ! ~ #d n r(K) s s s y3 x1 y2 x2 y2 x5 y3 x3 y2 x4 y2 x6 y3 x6 s x4 y1 x3 y1 x5 s x2 y1 x1 y1 s s ! ~ # j=1; i=K; #rep N1 # i(j)=r(i+2)-r(i); i(j+1)=r(i+3)-r(i+1); j=j+2; i=i+2; #end  # n=4*N; ! ~ #d n r(1) 0*n  # x=2*D+s; h=x; y=H/2-4*h+s; j=1; #rep 9 # r(j)=x; r(j+1)=y; y=y+h; j=j+4; #end  ~ # x=4*D+s; y=H/2-3*h+s; #rep 7  # r(j)=x; r(j+1)=y; y=y+h; j=j+4; #end  ~ # x=6*D+s; y=H/2-2*h+s; #rep 5  # r(j)=x; r(j+1)=y; y=y+h; j=j+4; #end  ~ # x=8*D+s; y=H/2-h+s; #rep 3  # r(j)=x; r(j+1)=y; y=y+h; j=j+4; #end  # N2=N; ! ~ # j=3; #rep N # A=6.283185*rnd(0); r(j)=V*cos(A); r(j+1)=V*sin(A); j=j+4; #end  ~ #ag [op=o; wid=W+20; hei=H+46; xs=1320-s(14); ys=(s(107)-s(15))/2; file=nomusic;] \E~ #p [xs=0; ys=-13; wid=W; hei=H;] ~ #  &=0; #p [wid=D; hei=D;]~ #case 0   ~  #g [op=open; twi=W+20; the=H+20; col=245;]~  #g [op=area; nx=r(K); ny=r(K+1); b=1; mo=0; col=246; n=N1;] # k=247; i=1; ! ~  #rep N~   #g [op=oval; nx=r(i); ny=r(i+1); col=k; mo=0;]  # i=i+4; k=k+1; &=k; #case 257 # k=247; #end | ~  #end  ~  #g [op=clos; sav=1;]  #ag [op=m; n=1;] \u32;\E  #rob [mo=1; le=10;]   # &=abs(s(2)-10); ! ~  #case 0  #ma [op=bsm;] #ma [op=bsi;] #ma [op=bsr;] #end | # u=0; &=abs(s(2)-27); #case 0 # u=1; #end | # &=u; ! ~ #end   #ag [op=c;] #ini # &=&&;~@~  # &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text ##33  #end  ~
__ 43 __ #pro pr36   #f [op=fold; file=null;]  # a=I1; b=S1; ~#te [op=trim; b=a; le=b; n=1;]~#read [n=4; b=i(5); le=a+b-i(5); fir=L;]  #f [op=size; file=\Ti(1) i(2) .dat\E]  # n=s(1)/4; &=n<1;~#case 1  #io [op=rd; fir=r(1); n=n; mo=1; le=0;]  #p [file=\Ti(3) i(4) .txt\E]  # &=M;~  #case 1  #pr E\I2 L;.10.3\E  #io [op=wf form=\Tp\E] #end |~  #case 2  # C=N; #ma [op=vmc; b=1; le=n;]  # C=-O; #ma [op=vac;]  # K=int(n/L); L0=n-L*K; s(3)=1; j=1;~    # &=K<1; #case 1 #rep K #rep L #pr \I5 r(j);\E # j=j+1; #end   #pr \n\E  #end  #end |~    # &=L0<1; #case 1 #rep L0  #pr \I5 r(j);\E # j=j+1; #end   #pr \n\E  #end |  #io [op=wt; fir=t(1); n=s(3)-1;]  ~  #end | ~#end |  ~#case 0  #m [op=win;] File \Ti(1) i(2) .dat\u32; is absent !\E  # &0=1; #end | ~ @~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ! ##33  #end  !  ~
__ 44 __ ~#pro mch2   #d 4 i(1) 0*2 2 0  #m [op=gen; nx=25; ny=70; b=1; n=1; siz=20;] Question\E \Ts(4) s(5)\n\u32;\E  Yes|No\E  @~#pro show # &=(t(a+1)-58)<1; #case 0 #pr \Ta b .htm\n\E #end | #case 1 #pri \M\Ta b .htm\n\E #end |  # e=s(4); f=s(5); #io [op=wt; fir=t(e); n=f; file=runsys.bat;] #rob [mo=1; le=99;] #sys [op=rp;]  @~#pro pr36  #read [fir=i(1); n=2; b=I1; le=S1;]  # nv=i(1); no=i(2); !~#f [op=fold; file=arg; em=1;]  pro/sites/\I-2 nv;\E  # &=s(41); !  ~#case 0  #f [op=fold; file=arg; em=0;]  pro/sites/\I-2 nv;\E  #f [op=copy; n=1; file=txthtmt.txt;]  ../01/txthtmt.txt\E  #f [op=copy; n=1; file=txthtmo.txt;]  ../01/txthtmo.txt\E    #f [op=copy; n=1; file=arg;]  ../pro\I-2 nv;.txt\E ../pro01.txt\E  #end |~#f [op=fold; file=null; em=0;]  # a=9999; s(3)=a; #pr pro/sites/pro\I-2 nv;\E # b=s(5); &=no; !~#case 1  # &=0; #pr \Ta b .txt\E  #e [n=1; em=1; c=1;] _\09 ! #end |~#case 2  #e _prun   #end |~#case 3 # &=1; ! ~  #case 1 #e [n=16;] _scom  # n=&; &=abs(n-99)<1; ! ~    #case 1 # s(3)=9999; #pr pro/sites/\I-2 nv;/txthtmo.txt\E # a=s(4); b=s(5); s(3)=1;  #f [op=line; n=-n; file=\Ta b\E]  # m=s(5); ! ~      #te [op=repl; b=1; le=m; c=96; mo=10;]  #e [n=6;] _scom #te [b=1; le=m; ]   \I3 n;\E   ~      #case 1 #te [op=repl; b=s(4); le=s(5); c=10; mo=96;]  #f [op=line; n=n; em=0;]  #end | ~    #end |  #  &=abs(n-99)<1; !~  #end  ~#end |~#case 4 #e [n=6;] _scom  # s(3)=1; #pr pro/sites/\I-2 nv;/txthtmt.txt\E  #f [file=\Tp\E]  \E #end |~#case 5 # s(3)=1; #pr cd pro/sites\ntxthtmh.htm\n\E  #io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=99;]  #sys [op=rp;]  #end |~@~#pro prun    ~   #f [op=copy; n=1; file=f2;] \Ta b .txt\E   #d 9 i(1) 1 1010 100*6 300 #%~   # s(3)=1; #f [op=line; n=-1;]  #read [fir=i(1); n=2; b=s(4); le=s(5);]  # n1=i(1); n2=i(2); u=0; u1=0; u2=0; u3=0; u4=0; u5=0; u6=0; u7=0; u8=0; ! ~   # s(3)=1; #f [op=line; n=-2;]  # r4=s(5); r3=KY-r4-199; #pas r4 t(1) t(r3)  ~   #d 3 i(1) 13 10 10  #f [op=repl; b=1; le=3; mo=2;] ~   # s(3)=1; #pr \#<&lt;\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=2;]  ~   # s(3)=1; #pr \#>&gt;\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=2;]  ~   # s(3)=1; #pr \u10*2;`</p><p>`\E  # o=s(5); #pas o t(1) i(1) #f [op=repl; b=1; le=o; mo=2;]~   # s(3)=1; #pr \#lb<a href="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]  ~   # s(3)=1; #pr \#le" target=_blank><img src="pic/icon.png" align="top"></a>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]  ~   # s(3)=1; #pr \#il<img align=left hspace=10 src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#ir<img align=right hspace=10 src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#it<img align=top hspace=10 src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#ib<img align=bottom hspace=10 src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#ie">\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#li" target=_blank><img align=left hspace=10 src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#lc"></a>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#lt" target=_blank>\E   # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#lo</a>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#mb<span class="m">\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \#me</span>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]~   # s(3)=1; #pr \u10;\#tb\u10;</p>``<h1>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   # s(3)=1; #pr \u10;\#te\u10;</h1>``<p>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   # s(3)=1; #pr \u10;\#sb\u10;</p>``<h2>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   # s(3)=1; #pr \u10;\#se\u10;</h2>``<p>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   # n=1; m=int(n2/10); ! ~   #rep 9  # s(3)=1; #pri \u10;\#a\I-1 n;\u10;`</p><center><textarea cols=\I3 m;\u32;rows=\I1 n;\u32;readonly>\E  # o=s(5); #pas o t(1) i(1)  ~    #f [op=repl; b=1; le=o; mo=5;]  # n=n+1; ! ~   #end  ~   # s(3)=1; #pri \u10;\#ae\u10;</textarea></center><p>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   # s(3)=1; #pri \u10;\#de\u10;\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # N=s(2); &=N<1; ! ~   #case 1  #f [op=line; n=-1;]  #read [fir=i(9989); n=2*N+2; b=s(4); le=s(5);] # n=1; ! ~    #rep N  # k=i(9989+2*n); m=n2-k; ! ~     # s(3)=1; #pr \u10;\#dl\I1 n;\u10;`</p><div class="b" style="left:0px; top:0px; width:\I-4 n2;px; height:\I-4 i(9990+2*n);px;">`<div class="a" style="left:0px; top:0;px; width:\I-4 k;px;"><p>`\E   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=6;]~     # s(3)=1; #pr \u10;\#dr\I1 n;\u10;`</p></div>`<div class="a" style="left:\I-4 k;px; top:0px; width:\I-4 m;px;"><p>`\E   # o=s(3)-1; #pas o t(1) i(1)  ~     #f [op=repl; b=1; le=o; mo=6;] # n=n+1; ! ~    #end  ~    # s(3)=1; #pr \u10;\#de\u10;`</p></div></div><p>`\E   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5;]~   #end |~   #f [op=line; n=1; em=1; file=f2;]  #f [n=1;] #d 3 i(1) 13 10 10  #f [op=repl; b=1; le=3; mo=2;]~   # s(3)=1; #pr %\u10;\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=o; file=f2;]~   # i(1)=10; #f [op=find; b=1; le=1; file=arg;] pro/sites/\I-2 nv;/txthtmt.txt\E  # N=s(2); &=N<1; !  ~   #case 1  # n=1; ! ~    #rep N  # s(3)=1; #pr \#\I-2 n;\E  #f [op=line; n=-n; file=arg;]  pro/sites/\I-2 nv;/txthtmt.txt\E  # o=s(3)-1;  #pas o t(1) i(1)  # k=3; k1=o-3; ! ~     #rep k1 # k=k+1; &=i(k)<976; #case 976  # i(k)=i(k)-1104; #end |  ~     #end  #f [op=repl; b=1; le=o; mo=3; file=f2;]  # n=n+1; !  ~    #end  ~   #end | ~   # s(3)=1; #pr \#fw</p><p><center><div class='f'><iframe frameborder=0 width='\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;] ~   # s(3)=1; #pr \#fh' height='\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;] ~   # s(3)=1; #pr \#fl' src="\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;] ~   # s(3)=1; #pr \#fe"></iframe></div></center></p><p>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;] ~   # s(3)=1; #pr \u10;\#c1\u10;\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o; file=f2;]  # &=s(2)<1; ! ~   #case 1 #f [op=line; n=-4; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #read [fir=i(1); b=s(4); le=s(5); n=1;]  # N=i(1);  #read [fir=i(991); b=s(4); le=s(5); n=2*N+2;]  # s(3)=6; ! ~    #pri </p>`<div class="b" style="left:0px; top:0px; width:\I-4 n2;px; height:\I-4 i(992);px;">`<div class="a" style="left:\I-4 i(993);px; top:0px; width:\I-4 i(994);px;"><p>`\E   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5; file=f2;]  # N1=N-1; k=2; ! ~    #rep N1  # s(3)=1; k1=2*k+1; k2=k1+1; #pri \u10;\#c\I1 k;\u10;</p></div>`<div class="a" style="left:\I-4 i(990+k1);px; top:0px; width:\I-4 i(990+k2);px;"><p>`\E  ~     # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5; file=f2;]  # k=k+1; ! ~    #end ~    # s(3)=1; #pr \u10;\#ce\u10;`</p></div></div><p>`\E   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=5; file=f2;]  ~   #end |~   # s(3)=1; #pr \#tl\u10;\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o; file=f2;]  # N=s(2); &=N<1; !  ~   #case 1  #f [op=line; n=-5; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E   #read [fir=i(891); b=s(4); le=s(5); n=N;] # u3=N; n=1; ! ~    #rep N # s(3)=1; #pri \#t\I-2 n;<a class="f" onclick="ifr(\S n;);">\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=4; file=f2;] ~     # s(3)=1; n0=n2-20; #pri \#l\I-2 n;</a></p>`<div id="if\I-2 n;" class='v'><iframe frameborder=0 width='\I-4 n0;' height='\I-4 i(890+n);' src="\E  # o=s(5); !~     #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=4;] # n=n+1; !  ~    #end  ~    # s(3)=1; #pr \#tl\u10;"></iframe></div><p>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=4;] ~   #end |~   # s(3)=1; #pr \#gt\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o; file=f2;]  # N=s(2); &=N<1; !   ~   #case 1  # s(3)=1;  #pri \#gt<span id="gtst"></span>\E  # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;] # u7=1; #end |~   # s(3)=1; #pr \u10;<br>\u10;\E    # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=1;]~   # s(3)=1; #pr \u32*3;&nbsp;\E  # o=s(5); #pas o t(1) i(1) #f [op=repl; b=1; le=o; mo=2;]~   # s(3)=1; #pr `\u10;\E   # o=s(5); #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=1;] ~   # s(3)=1; #pr \#o1\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; #case 1  #pr </p><p><center><div id="o1"></div></center></p><p>\E ~   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]  # u=1; #end | ~   # s(3)=1; #pri \#o2\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; ! ~   #case 1 #f [op=line; n=-2; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #read [fir=r(1); b=s(4); le=s(5); n=3;] # s(3)=4; ! ~    #pri </p><p><center><div id="clndr" style="display:block; position:relative; left:0px; top:0px; width:\I-4 r(2);px; height:\I-4 r(3);px; background-color:fff;"></div></center></p><p>\E ~    # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3; file=f2;]  # u1=1; ! ~   #end | ~   # s(3)=1; #pr \#o3\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; !  ~   #case 1 #f [op=line; n=-3; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #read [fir=r(4); b=s(4); le=s(5); n=1;]  # s(3)=4; ~    #pri </p><p><center><div style="display:block; position:relative; left:0px; top:0px; width:\I-4 r(4);px; height:\I-4 r(4);px;"><canvas id="o3"></canvas></div></center></p><p>\E ~    # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3; file=f2;]  # u2=1; !  ~   #end | ~   # s(3)=1; #pr \#o6\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; ! ~   #case 1 #pr </p><p><center><div id="o6"></div></center></p><p>\E # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3; file=f2;]  # u4=1; #end | ~   # s(3)=1; #pr \#o7\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; ! ~   #case 1 #pr </p><p><center><div id="o7"></div></center></p><p>\E # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3; file=f2;]  # u5=1; #end | ~   # s(3)=1; #pr \#o8\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; #case 1  #pri </p><p><center><div id="o8"></div></center></p><p>\E ~   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]  # u6=1; #end | ~   # s(3)=1; #pr \#o9\E  # o=s(5); #pas o t(1) i(1)  #f [op=find; b=1; le=o;]  # &=s(2)<1; #case 1  #pri </p><p><center><canvas id="o9"></canvas></center></p><p>\E ~   # o=s(3)-1; #pas o t(1) i(1)  #f [op=repl; b=1; le=o; mo=3;]  # u8=1; #end | ~   # s(3)=1; #pr ~<html><head><title>\Tr3 r4 </title>\n<meta http-equiv="content-type" content="text/html; charset=windows-1251">\n<link rel="stylesheet" media="all" type="text/css" href="js/shablon\I1 n1;.css">\E~   # &=u7;  #case 0  #pri </head>\n\E  #end |~   #case 1  #pr \n<link rel="stylesheet" media="all" type="text/css" href="js/gt-select.css"></head>\n\E  #end |  ~   # &=n1<2; #case 1 #pri <body background="pic/bgim1.gif">\E #end |  #case 2 #pri <body>\E #end | ~   #pri <center><div id="d1" style="width:\I-4 n2;px;"><p>\n\E    ~   #io [n=s(3)-1; op=wt; fir=t(1); file=f1;]~   # s(3)=1; #pr \n</p></div>\E # &=abs(n1-3)<1; ! ~   #case 1 #pr <p><br><br></p>\E #end |  ~   #pr \n<script type="text/javascript">function geid(id){return document.getElementById(id)}</script>\E ~   # &=u; ! ~   #case 1 #pr \n<script type="text/javascript" src="js/superlink.js"></script>\n<script type="text/javascript">\E  #f [op=line; n=-1; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #pri </script>\E ~   #end |  ~   # &=u1; ! ~   #case 1 #pr \n<script type="text/javascript" src="js/calend.js"></script>\n<script type="text/javascript">calendar(null,\S r(1);)</script>\E  ~   #end |~   # &=u2; !  ~   #case 1 #pr \n<script type="text/javascript" src="js/clocks.js"></script>\n<script type="text/javascript">o3={par:[\S r(4);,0,0]}; clock.call(o3,'o3');</script>\E  ~   #end |~   # &=u3<1; ! ~   #case 1  #pr \n<script type="text/javascript">\n function ifr(n){var rf,k;\n for(k=1; k <= \I2 u3;; k++){if(k < 10){ rf=document.getElementById('if0'+k).style;}else{rf=document.getElementById('if'+k).style;}  if(k == n){rf.display='block';}else{rf.display='none'; }}}</script>\E  ~   #end | ~   # &=u4; ! ~   #case 1 #pr \n<script type="text/javascript" src="js/menu2c.js"></script>\n<script type="text/javascript">\E  #f [op=line; n=-6; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #pri </script>\E ~   #end |  ~   # &=u5; ! ~   #case 1 #pr \n<script type="text/javascript" src="js/menu2r.js"></script>\n <script type="text/javascript">\E  #f [op=line; n=-7; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #pri </script>\E ~   #end |  ~   # &=u6; !~   #case 1 #pr \n<script type="text/javascript" src="js/superbook.js"></script>\n <script type="text/javascript">\E  #f [op=line; n=-8; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #pri </script>\E ~   #end |~   # &=u8; !~   #case 1 #pr \n<script type="text/javascript">\E  #f [op=line; n=-9; file=arg;] pro/sites/\I-2 nv;/txthtmo.txt\E  #pr </script>\n <script type="text/javascript" src="js/figure1.js"></script>\n\E~   #end |~   # &=u7; ! ~   #case 1 #pr \n<script type="text/javascript" src="js/gt-select.js"></script>\n <script type="text/javascript" src="http://translate.google.com/translate_a/element.js?cb=gteInit"></script>\n <div id="gte"></div>\E~   #end |    ~   #pr \n</body></html>\n\E~   # st=s(3)-1; #te [op=repl; b=1; le=st; c=96; mo=10;]  #pr \u160;\E  #te [op=find; c=t(st+1); n=1;]  # m=s(1);    ~   #io [n=s(3)-1; op=wt; fir=t(1); file=f3;]   ~   #f [op=copy; n=3; file=arg;] \Ta b .htm\E f1\E f2\E f3\E  #f [op=dele; file=f1;]  #f [op=dele; file=f2;]  #f [op=dele; file=f3;]~   #e _show  ~@ ~# &=1; #case 1  #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text ! ##33 #end   ~
__ 45 __  #pro pr36  #f [op=fold; file=null;]  #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]  # I1=i(1); S1=i(2); I2=i(3); S2=i(4); ! ~# s(3)=1; a=1; #f [op=fcat; file=\TI1 S1\E]  # b=s(5);  #te [op=find; b=a; le=b; n=1; c=124;]  # N=s(1); j=1; i=1; &=N<1; !~#case 0  #m [op=win;] The folder is empty ! Change input data !\E  # &0=1; #end |~#case 1 #rep N  # c=i(i)-j; #w [op=im; mo=0; sav=1; file=\TI1 S1\Tj c\E]  # w=s(12); h=s(13);   ~  # w2=w/2; c4=c-4; #w [op=im; mo=3; sav=-2;  form=\TI2 S2\Tj c4 -1\E wid=w2; hei=h; xs=w2; ys=0;]  ~  #w [form=\TI2 S2\Tj c4 -2\E wid=w2; hei=h; xs=0; ys=0;]  # j=i(i)+1; i=i+1; #end  ~#end |  #f [op=fold; file=oldf;] ~@~ # &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text ##33  #end  ~
__ 46 __  #pro pr36  #f [op=fold; file=null;]  # a=I1; b=S1; #te [op=repl; b=a; le=b; c=92; mo=47;]  ~#te [op=trim; n=1;]   # I1=i(1); S1=i(2); I2=i(3); S2=i(4); I3=I2+S2;! ~# n=s(1); $=1; &=(n-2)<1; #case 1 #read [fir=i(1); b=I3; le=a+b-I3; n=3;]  #col [b=1; le=1;] #$=2; #end |   ~# a=1;  s(3)=a; #f [op=fcat; file=\TI1 S1\E]  # b=s(5);  #te [op=find; b=a; le=b; n=1; c=124;]  # N=s(1); j=1; i=1; &=N<1; !~#case 0  #pr The folder is empty ! Change input data !\E  # &0=1; #end |~#case 1    #pf [op=o; le=N;] ~  #rep N  #pf [op=m; siz=i;]  # c=i(i)-j; c4=c-4; # &=$; ~    #case 1 #f [op=tocm; file=\TI1 S1\Tj c\E form=tmp.dat; dir=0;]   #end |  ~    #case 2 #f [op=tobm; file=\TI1 S1\Tj c\E form=tmp.dat; dir=0; col=1;] #end | ~    #f [op=size; file=tmp.dat;]  # n=s(1); #io [op=rb; fir=r(1); n=n; le=0;] #ma [op=vba; b=1; le=n;] ~    #io [op=wd; mo=1; file=\TI2 S2\Tj c4 .dat\E]   # j=i(i)+1; i=i+1; ~  #end   #pf [op=c;]  #f [op=dele; file=tmp.dat;] ~#end |  #f [op=fold; file=oldf;] ~@~ # &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text  ##33  #end  ~
__ 47 __  #pro pr36  #te [op=trim; b=I1; le=S1; n=201;]~#read [fir=r(1); n=4; b=i(207); le=I1+S1-i(207);]  # W=r(1); H=r(2); A=r(3); S=r(4); ! ~# I1=i(201); S1=i(202);  I2=i(203); S2=i(204); I3=i(205); S3=i(206); ! ~#f [op=fold; file=\TI1 S1\E emp=1;] # &=s(41); ! ~#case 1 # s(41)=0; #te [op=find; b=I3; le=S3; c=46; n=1;] # n=s(1); j=i(n)+1; S3=S3-4; J=1; !~  # s(3)=1; #pr jpg\E # &=abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)); #case 0 # K=1; #end | ~  # s(3)=1; #pr png\E # &=abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)); #case 0 # K=2; #end |  ~  #w [op=im; mo=0; file=\TI2 S2\E sav=1;]~  #eg [op=open; twi=W; the=H; col=246;]  # a=3.141593/180*A; w=W/2; h=H/2; ! ~  #d 7 r(1) w h a 0 0 S S  #eg [op=imag; b=1; n=1; em=0;]  # &=K; ! ~  #case 1  #eg [op=clos; c=1; sav=-1; n=1; form=\TI3 S3\E] \TI3 S3 .jpg\E  #end |  ~  #case 2 #eg [op=clos; c=1; sav=1;] .\E  #f [op=topng; n=1; form=\TI3 S3\E]  #w [op=im; mo=0; c=1; file=\TI3 S3 .png\E]  #end | ~#end | #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ##33  #end   ~
__ 48 __  #pro pr36  #f [op=fold; file=null;]  #te [op=trim; b=I1; le=S1; n=203;]~# I2=i(203); S2=i(204); S3=S2-4; #read [fir=r(1); n=4; b=i(205); le=I1+S1-i(205);] # X1=r(1); X2=r(2); Y1=r(3); Y2=r(4); ! ~#f [op=size; file=\TI2 S2\E]  # &0=2; &=s(1)<1; ! ~#case 0  #m [op=win;] \n   .\n   .\n\n\E # &0=0; #end |  # &=&0; !  ~#case 2   #w [op=im; mo=0; sav=1; em=0;]  # X=s(12); Y=s(13); N=X*Y; a=1+N; b=a+X; ! ~  #f [op=tobm; file=here; n=1; form=tmp.raw; dir=0; col=245;]  ~  #io [op=rb; file=tmp.raw; le=0; fir=r(1); n=N;]  #ma [op=vba; b=1; le=N;]  #ma [op=mss; nx=X; ny=Y;]~  # C=1/Y; #ma [op=vmc; b=a; le=X;]  # C=1/X;  #ma [op=vmc; b=b; le=Y;]~  #io [op=wf; fir=r(a); n=X; file=\TI2 S3 X.dat\E form=E1.12.4;]  #io [fir=r(b); n=Y; file=\TI2 S3 Y.dat\E]~  #d 7 A a X 1 X1 X2 247 1100 #pr \TI2 S3 X|Profile-X\E #e [n=1;] _scom~  #d 7 A b Y 1 Y1 Y2 247 1100 #pr \TI2 S3 Y|Profile-Y\E #e [n=1;] _scom~  #f [op=dele; file=tmp.raw;]   ~#end |  #f [op=fold; file=oldf;] ~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [b=KY; le=670; n=36;] _text ##33  #end   ~
__ 49 __  #f [op=fold; file=pro;]  # s(3)=1; &=1; !~#case 1 ##6  #f [file=0.par;] \P5\E  ~#case 1  # E=KY-1999; s(3)=E; #f [op=line; n=-1;]  #read [b=E; le=s(5); fir=A; n=4;]  # s(3)=1; ! ~  #pr %!PS-Adobe-2.0 EPSF-2.0\n%%Creator: ACL (http://kohnvict.ucoz.ru/acl/acl.htm)\n%%BoundingBox: 0 0\I5 A B;\n\E  ~  #f [op=size; file=b/ps-proc.txt;] # n=s(1); &=n<5; ! ~  #case 5 # j=s(3); #io [op=rt; fir=t(j); n=n;]  # s(3)=j+n; #pr \n\u32*3; 1.5 slw 0 0 0 srgb [] 0 setdash 1 setlinejoin 2 setlinecap\n\E~    #f [op=line; n=-2; file=0.par;]  #pr \n\E  #f [n=-3;]  #pr \n\E  # &=C<1; ! ~    #case 1 # k=4; ! ~      #rep C  # j=s(3); s(3)=E; #f [op=line; n=-k; file=0.par;]   #read [b=E; le=s(5); fir=A; n=2;] ~        #te [op=trim; n=1;]  # i(6)=s(5)-i(5)+E; #pr in\I-3 A;.dat\E  # a=s(4); b=s(5);  #f [op=size; file=\Tp\E]  # n=s(1)/4; &=n<1; ! ~        #case 1  # s(3)=j; i=1; #pr \n\E  #io [op=rd; mo=1; le=0; fir=r(i); n=n; file=\Ta b\E]  ~          #rep n # F=r(i)*B; #pr \I6 F;\E  # i=i+1; #end  #pr \n\Ti(5) i(6)\n\E ~        #end | # k=k+1; ! ~      #end  ~    #end |  #pr gr\nshowpage\n%%EOF\n\E~    # M=s(3)-1; s(3)=E;  #pr f\I-3 D;.eps\E  # a=s(4); b=s(5);  #io [op=wt; fir=t(1); n=M; file=\Ta b\E]   #rob [mo=1; le=400;]  ~    # E=E+100; s(3)=E; #f [op=line; file=0.par; n=-k;]  #pr \u32;\E  # L=s(3)-E; #te [op=repl; b=E; le=L; c=13; mo=32;] #te [op=trim; n=1;] # c=i(1); d=i(2); ! ~    # E=E+100; s(3)=E; #pr set path=\Tc d ;%path%\n cd \H\n epstopdf.exe \Ta b\n \Ta b\E  # s(3)=s(3)-3; #pr pdf\n\E  # L=s(3)-E; ! ~    #te [op=repl; b=E; le=L; c=47; mo=92;] #io [op=wt; fir=t(E); n=L; file=../runsys.bat;]  #rob [mo=1; le=400;]  #sys [op=rp; file=runsys.bat;]  ~  #end |~#end |  ##33 !~#end   #f [op=fold; file=oldf;]~
__ 50 __   #f [op=fold; file=pro;]  #e [n=6;] _scom   #f [file=0.par;] \P5\E  ~#case 1  # s(3)=KY-1999; #f [op=line; n=-1;]  # i1=s(4); s1=s(5); #e [b=i1; le=s1;] _text  # i1=s(4); s1=s(5);  #pr m\I-3 np;.dat\E # i3=s(4); s3=s(5); ! ~  #f [op=size; file=\Tp\E]  # ny=s(1)/(4*nx); &=ny<1; ! ~  #case 0  #pr File \Tp\u32; is absent !\E #e [n=33;] _scom  #end |~  #case 1  #pr Please wait . . .\E  #e [n=17;] _scom !~    # J=99;  o=(4-m)*(2-m)*(3-2*m); #p [pa=o; em=0;]  # o=-10000*(m*(5-m)/2-2)-100; #io [op=rd; mo=1; le=0; fir=r(J); file=\Ti3 s3\E n=nx*ny;]  ~    #d 15 r(1) 0 1 0 1 0 0 1 0 1 0 0 1 0 1 0  #% ~    #d 6 A J nx ny o pp 1  #pr p\I-3 np;| \E  # i2=s(4); s2=s(5)-2; #e [n=2;] _scom  # o=int(pp/10); pp=pp-o*10; nx=nx*o; ny=ny*pp;~    #rob [mo=1; le=100;]  #f [op=tops; mo=5; uni=6255; file=\Ti2 s2 .png\E  form=\Ti2 s2 EPS.txt\E]   #rob [mo=1; le=100;]~    # o=nx>ny;  # x=int(nx+o*(80+20)/500)+1; y=int(ny+o*(70+99)/500)+1; s(3)=999; ! ~    #pr %!PS-Adobe-2.0 EPSF-2.0\n%%BoundingBox: 0 0\I5 x y;\n\E ~    #io [op=wt; fir=t(999); n=s(3)-999; file=tmp1.txt;]  #d 2 r(1) f1 f2  #e [n=5;] _scom  #pas 5 r(1) r(15)  #d 2 r(1) y1 y2  #e [n=5;] _scom  #pas 5 r(1) r(10)  ~    #d 2 r(1) x1 x2  #e [n=5;] _scom  #pas 5 r(1) r(5) #d 4 r(1) nx ny Sc Sx  # s(3)=999; ~    #pr \n\E # j=1; #rep 19 #pr \S r(j);\E # j=j+1; #end  ~    #pr \Ti1 s1\n\n /c5 ed /c4 ed /c3 ed /c2 ed /c1 ed  /b5 ed /b4 ed /b3 ed /b2 ed /b1 ed  /a5 ed /a4 ed /a3 ed /a2 ed /a1 ed  /s2 ed /s1 ed /yi ed /xi ed\n   xi yi gt {/lm xi def}{/lm yi def} ifelse /Sca{lm mul 500 div}def   /x0 80 Sca def  /y0 70 Sca def  /s1 s1 Sca def  /s2 s2 Sca def\n   /x3 x0 s1 add def  /y3 y0 yi add 16 Sca add def /ri 4 Sca def  /FS 24 Sca def  /la x0 xi add x3 sub def\n gs x3 y3 21 Sca add tr 1 Sca slw 0 0 0 srgb la 0 ri dup 2 mul FS c1 c2 0 1 par c3 c4 c5 parx axx2 gr\n  gs /FS 28 Sca def x0 xi 2 div add s2 add 10 Sca m xti   10 Sca y0 yi add 22 Sca add m yti gr\n gs x3 y3 2 sub tr x0 xi add x3 sub 501 div 0.6 Sca sca\n\E ~    #io [op=wt; fir=t(999); n=s(3)-999; file=tmp2.txt;]   ~    # s(3)=999; #pr gr gs x0 y0 tr\n\E  #io [op=wt; fir=t(999); n=s(3)-999; file=tmp3.txt;]   ~    # s(3)=999; #pr gr /FS 24 Sca def  gs x0 y0  tr 1 Sca slw 0 0 0 srgb 0 yi ri dup 2 mul FS 0 1 b1 b2 par b3 b4 b5 parf axf gr\n gs x0 y0  tr 1 Sca slw 0 0 0 srgb xi 0 ri dup 2 mul FS a1 a2 0 1 par a3 a4 a5 parx axx  gr \n  showpage\n%%EOF\n\E   ~    #io [op=wt; fir=t(999); n=s(3)-999; file=tmp4.txt;]~    #f [op=copy; file=\Ti2 s2 .eps\E n=7;]  tmp1.txt\E b/ps-proc.txt\E tmp2.txt\E b/cm\I-2 m;EPS.txt\E tmp3.txt\E \Ti2 s2 EPS.txt\E tmp4.txt\E~    # j=1;  #rep 4 #pr tmp\I1 j;.txt\E  #f [op=dele; file=\Tp\E]  # j=j+1;  #end    ~    # K=1; s(3)=K; #pr \Ti2 s2 .eps\E  # a=s(4); b=s(5); # K=K+100; s(3)=K; #f [op=line; file=0.par; n=-2;]  # L=s(5); ~    #pr \u32;\E # L=L+1;  #te [op=repl; b=K; le=L; c=13; mo=32;]  #te [op=trim; n=1;]  # c=i(1); d=i(2);   ~    # K=K+100; s(3)=K;  #pr set path=\Tc d ;%path%\n cd pro\n epstopdf.exe \Ta b\n \Ta b\E  # s(3)=s(3)-3; #pr pdf\n\E  # L=s(3)-K;  ~    #te [op=repl; b=K; le=L; c=47; mo=92;]  #io [op=wt; fir=t(K); n=L; file=../runsys.bat;]  #rob [mo=1; le=200;]  #sys [op=rp; file=runsys.bat;]  #rob [mo=1; le=1999;] #fr [op=c; mo=1;]~  #end |~#end |  #f [op=fold; file=oldf;]~
__ 51 __   #f [op=fold; file=pro;] ~#g [op=open; tw=5; th=15; col=1;]  #g [op=clos; sa=1;]  # s(3)=99; #pr vk\E  # a=s(4); b=s(5); k=0; &=0; !~#case 0  #ch [n=1; xs=1; ys=1;]  # e=0; &=s(2); ! ~  #case 32  # e=1;  #end |~  #case 10  #rob [mo=3; xs=0; ys=0; wid=s(106); hei=s(107); n=2;]  # k=k+1;  #d 6 s(12) -1*6  #w [op=im; mo=2; sa=-2; file=here; form=\Ta b\I-3 k;\E]   #end |  # &=e; !~#end  !~    ~ 
__ 52 __  #pro pr36  # w=KY-500; #pas S1 t(I1) t(w) # s(3)=w; a=w; b1=S1; #te [op=trim; b=a; le=b1; n=1;]   # n=s(1); &=n>1; ! ~#case 1 #pr  --      \n  !\n\u32;\E #m [op=win;] \Tp\E  # &0=1; #end |  ~#case 2  # I2=i(1); S2=i(2); I3=i(3); S3=i(4); s(3)=1; #e [b=KY; le=670; n=6;] _text    #f [file=\TI2 S2 .txt\E] \P5\E   ~  #case 1  # i(1)=10; #f [op=find; b=1; le=1;]  # N=s(2); k=4; n=N-k-1;  # E=KY-9999; s(3)=E; #pr <html><head><title>\E  #f [op=line; n=-1;] ~    #pr </title>\n<meta http-equiv=Content-Type content="text/html; charset=windows-1251" />\n<link rel="stylesheet" type="text/css" href="http://kohnvict.ucoz.ru/jsp/vk3914.css" />\n\E~    #pr <script type="text/javascript">\n var w$,h$,p$,comm$;\ncomm$ = "\E #f [op=line; n=-2;]  ~    #pr ";\n ifc$ = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23];\n w$=800; h$=600; p$=5000; imga$ = new Array(); imga$ = [\n"\E~    #rep n  #f [op=line; n=-k;]  #pr ",\n"\E  # k=k+1; #end   #f [op=line; n=-k;]  ~    #pr "]  </script></head><body><center>\n<div id="mww0"><div id="pho0"><img id="bgi0"></div><div id="obj0"><div id="img0"><img id="fgi0"></div></div><div id="a"></div></div>\n<div id="head0"> \E~    #pr <div id="paa0"> </div>\n <div id="but0">\n  <button id="b10" onClick="stopf$()">I I</button> <button id="b20" onClick="starf$()">&\#9658;</button>\n  \E~    #pr <button id="b30" onClick="backf$()">&\#9668;</button> <button id="b40" onClick="nextf$()">N</button>\n  <button id="b50" onClick="beginf$()">B</button>\n  \E~    #pr <button id="b60" onClick="ponef$()">+1</button> <button id="b70" onClick="monef$()">-1</button>\n  <button id="b80" onClick="size$(1)">S</button> <button id="b90" onClick="size$(2)">M</button>\n  <button id="b00" onClick="size$(3)">L</button> <button id="ba0" onClick="size$(4)">H</button>\n  <button id="bb0" onClick="size$(5)">&\#9689;</button>\n  &nbsp : <button id="bd0" onClick="shof$()"></button>\n  <button id="be0" onClick="remf$()"></button>\n </div>\n</div>\n<div id="co0">\n <div id="coa0"><p id="pab0"> </p></div>\n <div id="mju"><audio autoplay loop controls src="\E  #f [op=line; n=-3;]~    #pr "></audio></div>\n <div id="cob"> &nbsp; !     Google Chrome. &nbsp; <br> &nbsp;      ,   . &nbsp; </div>\n <div id="he0"><p id="pac0"></p></div>\n</div>\n</center>\n\E~    #pr <script type="text/javascript" src="http://kohnvict.ucoz.ru/jsp/vk3914m.js"></script>\n</body></html>\E~    #io [op=wt; file=\TI3 S3 .htm\E  fir=t(E); n=s(3)-E;]  #rob [mo=1; le=99;]  # s(3)=1; #pr cd pro\n\TI3 S3 .htm\E  #io [op=wt; fir=t(1); n=s(3)-1; file=../runsys.bat;]  ~    #rob [mo=1; le=99;]   #sys [op=rp; file=runsys.bat;] ~  #end |~#end | @ ~# &=1; #case 1  #f [op=fold; file=pro;]  # s(3)=KY-550; #pr 0.par\E  #e [n=36;] _scom ##33 #end    ~
__ 53 __ #pro pr36  #f [op=fold; file=null;] # a=I1; b=S1; t(I1+S1)=32; #te [op=trim; b=a; le=b; n=1;] # &=abs(s(1)-9)<1; !~#case 1 # s(3)=1; #pr Input data are incomplete !\E #m [op=win;] \Tp\E #end |~#case 0 #te [op=repl; b=i(1); le=i(2); c=92; mo=47;] #te [b=i(3); le=i(4);] #read [fir=r(1); n=7; b=i(5); le=I1+S1+1-i(5);] ~   #v 7 r(1) nx ny x1 y1 x2 y2 n # nn=nx*ny; J=99; J1=J+nn; j=J1; n1=n-1; d1=(x2-x1)/n1; d2=(y2-y1)/n1; !~  #io [op=rd; mo=1; fir=r(J); n=nn; le=0; file=\Ti(1) i(2) .dat\E] # x=x1; y=y1; r(1)=0; r(2)=nx-1; r(3)=0; r(4)=ny-1; !~  #p [op=mmi; n=1; b=J; nx=nx; ny=ny; wid=1; hei=1; file=here; form=here; em=0;]~  #rep n  # r(5)=x; r(6)=x; r(7)=y; r(8)=y; #ma [ sav=j;]  # j=j+1; x=x+d1; y=y+d2; #end   ~  #io [op=wd; mo=1; fir=r(J1); n=n; file=\Ti(3) i(4) .dat\E]  #ma [op=fno; b=J1; nx=n; ny=1; mo=0;] ~  #d 7 A J1 n 1 0 n1 247 1100 #pr \Ti(3) i(4)|\S x1 y1 x2 y2 r(J1+n) r(J1+n+1);\E #e [b=KY; le=670; n=1;] _text ~#end |~@~#f [op=fold; file=null;]  # s(3)=KY-550; #pr pro/0.par\E  #e [n=36;] _scom ! ~
__ 54 __ #pro para  ##16  # M=1+&/100; #p [c=1; sca=1; op=img; mo=1;]  #d 4 s(14) -1*4  @~#pro pr36   #p [sav=0; c=1; em=0;] # s(3)=1000; &=1; #pr aclp.jar\E # a=s(4); b=s(5);   !~#case 1 ~  #f [op=fold; file=null;] #f [op=choo; mo=1; file=arg;] \Ta b\E # $=0; !~  #case 1  # $=1; !~    #win [op=img; mo=0; file=arg;] \Tp\E # a=s(4); b=s(5); w=s(12); h=s(13); s=-1; &=s(2); !~    #case 39 # s=0; #end | #case 38 # s=1; #end |  #case 40 # s=2; #end |  # &=s; !~    #case 0  #w [op=img; mo=0; c=0; file=arg;] \Tp\E  #p [c=1;] #end | ~    #case 1  #e _para  #w [tw=w*M; th=h*M; file=arg;] \Ta b\E  #end |~    #case 2  #e _para  #w [tw=w/M; th=h/M; file=arg;] \Ta b\E  #end | ~  #end |  # &=$; !~#end    ! ~@~#f [op=fold; file=pro;]   # s(3)=KY-550; #pr 0.par\E ##36  !  ~  
__ 55 __ #pro pr36  #f [op=fold; file=null;] #te [op=repl; b=I1; le=S1; c=92; mo=47;] #te [op=trim; n=1;]  #read [fir=C; n=2;] ~#v 4 i(5) f1 f2 f3 f4  # &u=C; &=(10-&u)<0; !~#case 0  # &v=0; w1=KY-4500; # s(3)=w1; #f [op=fcat; file=\Tf1 f2\E]  # a1=w1; b1=s(5); !~  # J=99; i1=a1; j1=444; #te [op=find; b=a1; le=b1; n=j1; c=124;]  # n1=s(1); &=n1<1; !~  #case 0  #pr ERROR !\nFiles are absent !\E  #m [op=win;] \Tp\E  # &0=0;  #end |~  #case 1 # &=(2-&u)<0; !~    #case 0  # w2=KY-9000; # s(3)=w2; #f [op=fcat; file=\Tf3 f4\E]  # a2=w2; b2=s(5); !~      # i2=a2; j2=888; #te [op=find; b=a2; le=b2; n=j2; c=124;]  # n2=s(1); &w=1; &=n2<2; #case 1 # &w=0; #end |  ~      #case 2 # &=&w-1+abs(n2-n1)<1;~        #case 1  #pr ERROR !\nNumber of files are different in two folders !\E  #m [op=win;] \Tp\E # &v=1; &0=0; #end |~      #end | ~    #end | # &=&v; !~    #case 0  #pf [op=o; le=n1;]  # k=0; !   ~      #rep n1  # u=KY-9300; s(3)=u; c=i(j1)-i1; #pr \Tf1 f2\Ti1 c\E # v=s(3)-u; #f [op=size; file=\Tu v\E] # n=s(1)/4; !~        #io [op=rd; fir=r(J); n=n; mo=1; le=0;]  # i1=i1+c+1; j1=j1+1; &v=0; &=(2-&u)<0; !~        #case 0 # J1=J+n; s(3)=u; c=i(j2)-i2; #pr \Tf3 f4\Ti2 c\E # v=s(3)-u; #f [op=size; file=\Tu v\E] # n2=s(1)/4; &=abs(n-n2)<1; !~          #case 1 #pr ERROR !\nFiles have different size !\E  #m [op=win;] \Tp\E  # k=k+1; &v=1; #end |~          #case 0 #io [op=rd; fir=r(J1); n=n2;]  # &=&w; #case 1 # i2=i2+c+1; j2=j2+1; #end | #end | ~        #end |  # &=&v; !~        #case 0  # &=&u;!~          #case 1  # V0=D; V1=1e99; C=-1; #ma [op=var; b=J1; le=n;]  #ma [op=vpo;]  #ma [op=vvm; b=J; trx=n;]  #end |~          #case 2  #ma [op=vvm; b=J; le=n; trx=n;]  #end |  ~          #case 3  # C=D; #ma [op=vac; b=J; le=n;]  #end |  ~          #case 4  # C=D; #ma [op=vmc; b=J; le=n;]  #end |~          #case 5  # C=D; D=-2*C/(n-1); #ma [op=via; b=J+n; le=n;]  #ma [op=vva; b=J; trx=n;]  # D=C; #end |~          #case 6  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vex;] #end |~          #case 7  # V0=D; V1=1e99; #ma [op=var; b=J; le=n;]  #ma [op=vlo;] #end |~          #case 8  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vsi;] #end |~          #case 9  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vco;] #end |~          #case 10  # C=D; #ma [op=vpo; b=J; le=n;]  #end |~          # k=k+1; #pr \Tf1 f2\I-4 k;.dat\E  #io [op=wd; mo=1; fir=r(J); n=n; file=\Tp\E] ~        #end |  #pf [op=m; siz=k;]  ~      #end   #pf [op=c;]~    #end |~  #end |~#end |   ~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !  ##33  #end   ~
__ 56 __ #pro 4323 # &=2; @ ~# t=100; &=0; ! ~#case 0  #f [op=fold; file=pro;] # &0=-1; i(1)=13; #f [op=repl; file=0.par; b=1; le=1; mo=1;]  #rob [mo=1; le=t;]  ~  # S1=0; s(1)=0; #f [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30;]  ~  #case 1 # $=s(1); #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  # &0=0; #end |~        #case 0 # &=S1<1; !~          #case 1  # o=KY-500; #pas S1 t(I1) t(o) # I1=o; ! ~            #te [op=trim; b=I1; le=S1; n=1;] # nv=s(1)/2; iv=0; #read [n=s(1); fir=i(5000);] #f [op=copy; n=1; file=1.par;] 0.par\E ~            #rep nv  #f [op=fold; file=null;]  # n=i(5000+iv); t(KY-1)=i(5001+iv)+1; ! ~              # s(3)=1; #f [op=line; n=-n; file=pro00.txt;] # a=1; b=s(5); #te [op=repl; b=a; le=b; c=126; mo=10;] #io [op=wt; fir=t(a); n=b; file=pro/1.acl;] ~              # s(3)=1; #f [op=line; n=-n; file=idc00.txt;] # a=1; b=s(5); #te [op=repl; b=a; le=b; c=126; mo=10;] #io [op=wt; fir=t(a); n=b; file=pro/0.par;] ~              #rob [mo=1; le=100;]  #e [file=pro/1.acl;] _file  # iv=iv+2; !~            #end    #f [op=copy; n=1; file=pro/0.par;] pro/1.par\E~          #end | ~          #case 0  #pr  --  \n  !\n\u32;\E  # &0=0; #end |    ~        #end |~      #end |  ~      #case 1 #pr  --      \n  !\n\u32;\E  # &0=0; #end |  ~    #end |~  #end |  # &=&0; !~#end    ~ 
__ 57 __ #pro 4323 # &=2; @ #f [op=fold; file=pro;]  # s(1)=0; #f [op=edit; c=1; mo=1; em=11; nx=800; ny=0; fk=3; fs=16; xs=10; ys=30; file=0.par; ]  # NY=1; &Y=0; &=&Y; ! ~#case 0  #f [op=fold; file=null;]  # s(3)=KY-500; #f [op=line; n=-NY; file=pro/0.par;]  # c=s(4); d=s(5); &Y=1; &=d<6; ! ~  #case 6  #read [b=c; le=d; fir=n; n=1;]  # I1=c+3; S1=d-3; s(3)=KY-3500; #f [op=line; n=-n; file=pro00.txt;] # a=s(4); b=s(5);~    #te [op=repl; b=a; le=b; c=126; mo=10;]  # t(KY-1)=0; #e _text  # &Y=0; NY=NY+1; ~  #end |  #rob [mo=1; le=200;]  # &=&Y;~#end   ~ 
__ 58 __ #pro pr36    #te [op=trim; b=I1; le=S1; n=201;]~#read [fir=i(1); n=3; b=i(207); le=I1+S1-i(207);]  # C=i(1); P1=i(2); P2=i(3); !  ~# I1=i(201); S1=i(202);  I2=i(203); S2=i(204); I3=i(205); S3=i(206); ! ~#f [op=fold; file=\TI1 S1\E emp=1;]  # &=s(41); !  ~#case 1 # s(41)=0; ! ~  #f [op=size; file=\TI2 S2\E]  # &=s(1)<1; &0=2; ! ~  #case 0 #m [op=win;] \n   .\n   .\n\n\E   # &0=0; #end |  # &=&0; !   ~  #case 2~    #w [op=im; mo=0; sav=1;]  #f [op=tocm; file=here; n=1; form=img.cm; dir=1;]   # &=C; !  ~    #case 1 #p [op=add; rat=P1;] #end |   ~    #case 2 #p [op=mul; rat=P1;] #end | ~    #case 3 #p [op=inc; bot=P1; top=P2;] #end |  ~    #case 4 #p [op=dec; bot=P1; top=P2;] #end | ~    #case 5 #p [op=cha; rat=P1;] #end |     ~    #case 6  #p [op=pow; rat=P1;] #end |~    #case 7  #p [op=log; bot=P1; top=P2;] #end |  ~    #case 8  #p [op=exp; bot=P1; top=P2;] #end | ~    #bi [file=img.cm; form=image.cm;] ~    #w [op=im; mo=24;  file=image.cm; sav=-2; form=\TI3 S3\E wid=s(12); hei=s(13); xs=0; ys=0; le=0;]~    #rob [mo=1; le=100;]  #w [op=im; mo=0; sav=0; c=1; file=\TI3 S3 .jpg\E]~    #f [op=dele; file=img.cm;]   #f [op=dele; file=image.cm;]~  #end |  ~#end | ~#case 0 #m [op=win;] \n .   .\n\n\E # &0=0; #end |  ~ #f [op=fold; file=oldf;]   ~@ ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ##33  #end  ~
__ 59 __ #pro pr36    #te [op=trim; b=I1; le=S1; n=201;]~# I1=i(201); S1=i(202);  I2=i(203); S2=i(204); I3=i(205); S3=i(206); I4=i(207); S4=i(208); I5=i(209); S5=i(210); ! ~#te [op=find; b=I2; le=S2; c=44; n=212;]  # N=s(1); i(211)=I2; j=212; k=251; ! ~#rep N # i(k)=i(j)-i(j-1); i(j)=i(j)+1; j=j+1; k=k+1; #end  # i(k)=I2+S2-i(j-1); N=N+1; ! ~#te [op=repl; b=I4; le=S4; c=44; mo=32;]  #read [fir=i(1); n=N; b=I4; le=S4+1;] ~# i=I5+S5; t(i)=32; k=N+1;  #read [fir=i(k); n=1; b=I5; le=S5+1;]  # i(k)=i(k)-1; ! ~#f [op=fold; file=\TI1 S1\E emp=1;]  # &=s(41); ! ~#case 1 # &0=2; s(41)=0; j=211; k=251; !~  #rep N  #f [op=size; file=\Ti(j) i(k)\E]  # &=s(1)<1; ! ~    #case 0   # &0=0;  #m [op=win;] \n \Ti(j) i(k)\U32; .\n  .\n\n\E #end | ~  #end   # &=&0; ! ~  #case 2  # j=211; k=251; i=1; O=0; ! ~    #rep N # &=t(I3); ! ~      #case 98  #f [op=tobm; file=\Ti(j) i(k)\E form=\I-2 i;.rif\E dir=1; col=245;] # O=1; #end | ~      #case 99  #f [op=tocm; file=\Ti(j) i(k)\E form=\I-2 i;.rif\E dir=1;] # O=1; #end |~      # i=i+1; j=j+1; k=k+1; ! ~    #end   # &=O; ! ~    #case 0 #m [op=win;]       !\E  # &0=0; #end |~    #case 1  #bi [op=sup; mo=i(N+1); file=order; form=sum.rif; b=1; bot=1; top=N;] 00.rif\E~      # i=1; #rep N #f [op=dele; file=\I-2 i;.rif\E] # i=i+1; #end  ~      # &=t(I3); #w [op=im; mo=0; sav=1; file=\Ti(211) i(251)\E]  # W=s(12); H=s(13); ! ~      #case 98  # M=8; #end |  #case 99 # M=24; #end |  ~      #p [file=sum.rif; form=\TI3 S3\E tw=W; th=H;]~      #w [op=im; mo=M; c=1; sav=-2; wid=W; hei=H; xsh=0; ysh=0; dir=1; nx=1; ny=1; le=0;]~      #w [op=im; mo=0; c=1; sav=0; file=\TI3 S3 .jpg\E]   #f [op=dele; file=sum.rif;]~    #end |~  #end |~#end |~#case 0 #m [op=win;] \n .   .\n\n\E  # &0=0; #end |  ~ #f [op=fold; file=oldf;]   !~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ##33  #end  ~ 
__ 60 __ #pro pr36    #te [op=trim; b=I1; le=S1; n=201;]~# I1=i(201); S1=i(202);  I2=i(203); S2=i(204); I3=i(205); S3=i(206); I4=i(207); S4=i(208); ! ~#te [op=find; b=I2; le=S2; c=44; n=212;]  # N=s(1); i(211)=I2; j=212; k=251; ! ~#rep N # i(k)=i(j)-i(j-1); i(j)=i(j)+1; j=j+1; k=k+1; #end  # i(k)=I2+S2-i(j-1); N=N+1; ! ~# i=I4+S4; t(i)=32; k=N+1;  #read [fir=i(k); n=1; b=I4; le=S4+1;] ! ~#f [op=fold; file=\TI1 S1\E emp=1;]  # &=s(41); ! ~#case 1 # &0=2; s(41)=0; j=211; k=251; !~  #rep N  #f [op=size; file=\Ti(j) i(k)\E]  # &=s(1)<1; ! ~    #case 0   # &0=0;  #m [op=win;] \n \Ti(j) i(k)\U32; .\n  .\n\n\E #end | ~  #end   # &=&0; ! ~  #case 2  # j=211; k=251; i=1; O=0; ! ~    #rep N # &=t(I3); ! ~      #case 98  #f [op=tobm; file=\Ti(j) i(k)\E form=\I-2 i;.rif\E dir=1; col=245;] # O=1; #end | ~      #case 99  #f [op=tocm; file=\Ti(j) i(k)\E form=\I-2 i;.rif\E dir=1;] # O=1; #end |~      # i=i+1; j=j+1; k=k+1; ! ~    #end   # &=O; ! ~    #case 0 #m [op=win;]       !\E  # &0=0; #end |~    #case 1  # &=i(N+1); #case 1 #p [op=pro;] #end | #case 2  #p [op=div;] #end | ~      #bi [file=order; form=res.rif; bot=1; top=N;] 00.rif\E~      # i=1; #rep N #f [op=dele; file=\I-2 i;.rif\E] # i=i+1; #end  ~      # &=t(I3); #w [op=im; mo=0; sav=1; file=\Ti(211) i(251)\E]  # W=s(12); H=s(13); ! ~      #case 98  # M=8; #end |  #case 99 # M=24; #end |  ~      #p [file=res.rif; form=\TI3 S3\E tw=W; th=H;]~      #w [op=im; mo=M; c=1; sav=-2; wid=W; hei=H; xsh=0; ysh=0; dir=1; nx=1; ny=1; le=0;]~      #w [op=im; mo=0; c=1; sav=0; file=\TI3 S3 .jpg\E]   #f [op=dele; file=res.rif;]~    #end |~  #end |~#end |~#case 0 #m [op=win;] \n .   .\n\n\E  # &0=0; #end |  ~ #f [op=fold; file=oldf;]   !~@  ~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ##33  #end  ~
__ 61 __ #pro pr36   #f [op=choo; file=pro/pdf/sample4.tex; mo=2;] tex\E  ~#case 1 # i=s(4); V=s(5); U=9999; #pas V t(i) t(U) ~  #f [op=fold; file=null;]  #f [op=copy; file=pro/pdf/tmp.tex; n=1;] \TU V\E   ~  #f [op=size; file=pro/pdf/swp4rus.dat;] # n=s(1); s(3)=1; #io [op=rt; fir=t(1); n=n;]   ~  #te [op=find; b=1; le=n; n=1; c=10;]  # N=int(s(1)/2); I=s(4)+s(5); J=s(1)+2; k=1; ! ~  # n=i(1)-1; #f [op=size; file=arg;] \T1 n pdflatex.exe\E  # &=s(1)<1; !~  #case 0 #m [op=win;] Error !\nPlease improve a path to the Miktex folder\nIn the file swp4rus.dat (first line).\n\E #end |~  #case 1   #p [file=pro/pdf/tmp.tex;]~    #rep N ~      # i=i(k)+1; m=i(k+1)-i; j=i(k+1)+1; n=i(k+2)-j; s(3)=I; &=1; ! ~      #case 1 #pri \Tj n\Ti m\E  #pas n t(I) i(J) # i(J+n)=t(I+n)-1104;  #f [op=repl; b=J; le=n+1; mo=n;]  #end |~      #case 2 #pri \Ti m\Tj n\E  # i(J)=t(I)-1104; #pas n t(I+1) i(J+1)  #f [op=repl; b=J; le=n+1; mo=1;]  #end |~      # k=k+2; ! ~    #end   ~    # s(3)=I; #pri \\input{tcilatex}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=n;] ~    # s(3)=I; #pri (--01--)\\begin{multicols}{2}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; #pri (--02--)\\end{multicols}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; #pri (--03--)\\begin{flushleft}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; #pri (--04--)\\end{flushleft}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; #pri (--05--)\\begin{minipage}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; #pri (--06--)\\end{minipage}\E # n=s(5); #pas n t(I) i(J)  #f [op=repl; b=J; le=n; mo=8;]~    # s(3)=I; n=i(1)-1;  #pr del tmp.pdf\n\T1 n pdflatex.exe tmp.tex\ndel tmp.pdf\n\T1 n pdflatex.exe tmp.tex\n\E  ~    #io [op=wt; fir=t(I); n=s(5); file=pro/pdf/runsys.bat;]  #rob [op=rp; le=99;]~    #m [op=win;] Click the file runsys.bat in the program [ pro/pdf ] folder !\nWhen it makes a work click [OK] here.\E ~    # n=V-3; #f [op=copy; file=arg; n=1;] \TU n pdf\E pro/pdf/tmp.pdf\E~    #m [op=win;] Job is done\nSee pdf file near the tex file in the folder [ pro/pdf ]\E~  #end |~#end |   !~@~#f [op=fold; file=null;]  # s(3)=KY-550; #pr pro/0.par\E  #e [n=36;] _scom ! ~
__ 62 __ #pro pr36    # s(3)=1; #pr \# \TI1 S1 !\E  #e [b=1; le=s(5);] _text ! ~#m [op=win;] \na=\G a;,  b=\G b;,  c=\G c;,  d=\G d;\ne=\G e;,  f=\G f;,  g=\G g;,  h=\G h;\n\E~  @~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ! ##33  #end  !  ~ 
__ 63 __ #pro pr36   #f [op=fold; file=null;] ~# w=KY-999; #pas S1 t(I1) t(w)  # s(3)=1; #pr Please wait . . .\E  #e [b=KY; le=670; n=17;] _text  # s(3)=w; a=w; b1=S1; #te [op=find; b=a; le=b1; n=1; c=92;]   ~# n=s(1); &=n<1; #case 0 #pr     \n,   !\n\u32;\E #m [op=win;] \Tp\E  # &0=1; #end |  ~#case 1 # b=i(n)-a+1; p=a-8; q=b+8; s(3)=p; #pr file:///\E  #read [fir=A; n=2; b=a+b; le=b1-b;]~  # w=KY-99999; # s(3)=w; #f [op=fcat; file=\Ta b\E]  # a1=w; b1=s(5); #te [op=find; b=a1; le=b1; n=1; c=124;]  # j=1; i=a1; a0=a1+b1; n=s(1); s(3)=a0;~  #rep n  # c=i(j)-i; &=t(i+c-1); #case 51 #pr \Ti c ","\E #end | # i=i(j)+1; j=j+1; #end  # b0=s(3)-a0-2;~  # u=1; s(3)=u; #f [op=line; file=pro/b/pmff.txt; n=-1;]  # u=u+s(5); #te [op=repl; b=p; le=q; c=92; mo=47;]  #pas q t(p) t(u)  # u=u+q; s(3)=u;  #rob [mo=1; le=t;]  ~  #f [op=line; n=-2;]  # b=s(5); # u=u+b; s(3)=u;  #rob [mo=1; le=t;]   #pr \Ta0 b0\E  # u=u+b0; s(3)=u; #f [op=line; file=pro/b/pmff.txt; n=-3;]  # u=u+s(5)-1; ~  #rob [mo=1; le=t;]   #io [op=wb; fir=t(1); n=u; file=pro/b/mp.htm;]    #rob [mo=1; le=t;]~  # s(3)=1; #pri cd pro\\b\nmp.htm\n\E  #io [op=wt; fir=t(1); n=s(3)-1; file=runsys.bat;]  #rob [mo=1; le=t;] #sys [op=rp;]  ~#end |  #fr [op=c; mo=1;]~  @~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ! ##33  #end  !  ~
__ 64 __ #pro pr36   #f [op=fold; file=null;]    ~#te [op=trim; b=I1; le=S1; n=1;]  # a=i(1); b=i(2); #te [op=find; b=a; le=b; c=46; n=1;]  # j=s(1); b=i(j)-a; #pas b t(a) t(999) ~# a=999; #f [op=copy; n=1; file=tmp.txt;] \Ta b .txt\E  # i(1)=13; #f [op=repl; b=1; le=1; mo=1;] ~#d 2 i(1) 37 10  #f [op=repl; b=1; le=2; mo=2;]  #d 3 i(1) 10 10 64  #f [op=repl; b=1; le=3; mo=2;]~#d 5 i(1) 32 61 61 32 96   #f [op=repl; b=1; le=5; mo=4;]~#d 8 i(1) 96 227 235 224 226 224 96 96  #f [op=repl; b=1; le=8; mo=7;]~# s(3)=1; #pr </p></section>\u10 10;<section><title><strong><p>\E  # n=s(5); #pas n t(1) i(3)  #d 2 i(1) 96 94   #f [op=repl; b=1; le=n+2; mo=2;] ~# s(3)=1; #pr </p></strong><empty-line/></title>\u10 10;<p>\E  # n=s(5);  #pas n t(1) i(3)  #d 2 i(1) 94 10   #f [op=repl; b=1; le=n+2; mo=2;]~# s(3)=1; #pr </p><empty-line/>\u10 10;<p>\E # n=s(5);  #pas n t(1) i(2)  # i(1)=64;  #f [op=repl; b=1; le=n+1; mo=1;]~# s(3)=1; #pr \u10 32;</p>\u10;<p> \E  # n=s(5);  #pas n t(1) i(1)   #f [op=repl; b=1; le=n; mo=2;]~#d 6 i(1) 96 230 224 237 240 96  # s(3)=1; #pr <?xml version="1.0" encoding="Windows-1251"?><FictionBook xmlns:xlink="http://www.w3.org/1999/xlink" xmlns="http://www.gribuser.ru/xml/fictionbook/2.0"><description><title-info><genre>\E~# n=s(5);  #pas n t(1) i(7)  #f [op=repl; b=1; le=n+6; mo=6;]~#d 5 i(1) 96 232 236 255 96  # s(3)=1; #pri </genre><author><first-name>\E  # n=s(5);  #pas n t(1) i(6)  #f [op=repl; b=1; le=n+5; mo=5;]~#d 10 i(1) 96 238 242 247 229 241 242 226 238 96  # s(3)=1; #pri </first-name><middle-name>\E  # n=s(5);  #pas n t(1) i(11)  #f [op=repl; b=1; le=n+10; mo=10;]~#d 9 i(1) 96 244 224 236 232 235 232 255 96  # s(3)=1; #pri </middle-name><last-name>\E  # n=s(5);  #pas n t(1) i(10)  #f [op=repl; b=1; le=n+9; mo=9;]~#d 10 i(1) 96 237 224 231 226 224 237 232 229 96  # s(3)=1; #pri </last-name></author><book-title>\E  # n=s(5);  #pas n t(1) i(11)  #f [op=repl; b=1; le=n+10; mo=10;]~#d 11 i(1) 96 224 237 237 238 242 224 246 232 255 96  # s(3)=1; #pri </book-title><annotation><p>\E  # n=s(5);  #pas n t(1) i(12)  #f [op=repl; b=1; le=n+11; mo=11;]~#d 11 i(1) 96 231 224 227 238 235 238 226 238 234 96  # s(3)=1; ! ~#pr </p></annotation><coverpage><image xlink:href="\#coverpic" /></coverpage><lang>ru</lang></title-info></description><body><section><title><strong><p>\E  ~# n=s(5);  #pas n t(1) i(12)  #f [op=repl; b=1; le=n+11; mo=11;]~#d 7 i(1) 96 234 238 237 229 246 96  # s(3)=1; #pri </p></section></body><binary content-type="image/jpeg" id="coverpic">\E  ~# n=s(5);  #pas n t(1) i(8)  #f [op=repl; b=1; le=n+7; mo=7;]~# s(3)=1; #pri </binary>\u10;</FictionBook>\E  # n=s(5);  #io [op=wt; fir=t(1); n=n; file=tmp1.txt;]~#f [op=mb64; file=arg; form=bin; mo=1;]  \Ta b .jpg\E  #d 2 i(1) 13 10  #f [op=repl; b=1; le=2; mo=2; file=arg;]  \Ta b .bin\E~#f [op=copy; n=3; file=arg;] \Ta b .fb2\E  tmp.txt\E  \Ta b .bin\E  tmp1.txt\E] ~#f [op=dele; file=tmp.txt;]  #f [file=tmp1.txt;]  #f [file=arg;] \Ta b .bin\E~# s(3)=1; &=abs(t(a+1)-58)<1; #case 0 #pr \Ta b .fb2\E #end | #case 1 #pr \M\Ta b .fb2\E #end |  # n=s(5); !~#io [op=wt; fir=t(1); n=n; file=runsys.bat;]  #rob [mo=1; n=99;]  #sys [op=rp;]  #rob [mo=1; n=99;]   !~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom ! ##33  #end  !  ~
__ 65 __ #pro pr36  #f [op=fold; file=null;] #te [op=repl; b=I1; le=S1; c=92; mo=47;] #te [op=trim; n=1;]  #read [fir=C; n=2;] ~#v 6 i(5) f1 f2 f3 f4 f5 f6  # &u=C; &=(&u-14)>0; !~#case 0  # &v=0; J=99; #f [op=size; file=\Tf1 f2\E] # n=s(1)/4; &=n<1; !~  #case 0  #pr ERROR !\nFile \Tf1 f2\E \u32;is absent !\E  ##33  # &v=1; &0=0; #end |~  #case 1  #io [op=rd; fir=r(J); n=n; mo=1; le=0;]  # &=(2-&u)<0; !~    #case 0 # J1=J+n; #f [op=size; file=\Tf3 f4\E] # n2=s(1)/4; &=n2<1; !~      #case 0  #pr ERROR !\nFile \Tf3 f4\E \u32;is absent !\E  ##33  # &v=1; &0=0; #end |~      #case 1 # &=abs(n-n2)<1; !~        #case 1 #pr ERROR !\nFiles have different size !\E  ##33  # &v=1; &0=0; #end |~        #case 0 #io [op=rd; fir=r(J1); n=n2;] #end | ~      #end |~    #end |~  #end |  # &=&v; !~  #case 0  # &=&u; !~    #case 1  # V0=D; V1=1e99; C=-1; #ma [op=var; b=J1; le=n;]  #ma [op=vpo;]  #ma [op=vvm; b=J; trx=n;]  #end |~    #case 2  #ma [op=vvm; b=J; le=n; trx=n;]  #end |  ~    #case 3  # C=D; #ma [op=vac; b=J; le=n;]  #end |  ~    #case 4  # C=D; #ma [op=vmc; b=J; le=n;]  #end |~    #case 5  # C=D; D=-2*C/(n-1); #ma [op=via; b=J+n; le=n;]  #ma [op=vva; b=J; trx=n;]  # D=C; #end |~    #case 6  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vex;] #end |~    #case 7  # V0=D; V1=1e99; #ma [op=var; b=J; le=n;]  #ma [op=vlo;] #end |~    #case 8  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vsi;] #end |~    #case 9  # C=D; #ma [op=vmc; b=J; le=n;]  #ma [op=vco;] #end |~    #case 10  # C=D; #ma [op=vpo; b=J; le=n;]  #end |~    #case 11  # nx=int(D/1000);  ny=n/nx; s=W/2.355; j=J; J1=J+n; j1=J1; #d 3 r(1) s 0 0 #ma [op=mcg; file=here; form=here; b=J; sa=J; nx=nx; ny=ny; n=1;] ~      #rep ny  #ma [op=cwm; b=j; le=nx; mo=0;]  # r(j1)=D; j=j+nx; j1=j1+1; #end    # J=J1; n=ny;  #end |~    #case 12  # nx=D; ny=n/nx; #ma [op=mtr; b=J; nx=nx; ny=ny;]  #end |~    #case 13  # nx=D; ny=n/nx; J1=J+n; #ma [op=mss; b=J; nx=nx; ny=ny; em=1;]  # s(41)=0; J=J1; n=nx; C=1/ny; #ma [op=vmc; b=J; le=n;] #end | ~    #case 14  # nx=D; ny=n/nx; J1=J+n; #ma [op=mss; b=J; nx=nx; ny=ny; em=2;]  # s(41)=0; J=J1; n=ny; C=1/nx; #ma [op=vmc; b=J; le=n;] #end | ~    #io [op=wd; mo=1; fir=r(J); n=n; file=\Tf5 f6\E] ~  #end |~#end |   ~#case 1  # w1=KY-4500; # s(3)=w1; #f [op=fcat; file=\Tf1 f2\E]  # a1=w1; b1=s(5);   ,   ~#end | ~~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36 !  ##33  #end   ~
__ 66 __ #pro paus  #rob [mo=1; le=99;] @  # &=1; !~#case 1  #f [op=fold; file=null;]  # s(3)=KY-19; #pr pro/0.par\E # I1=s(4); S1=s(5); !~  # s(3)=99; #pr <html><head><title>\E  #f [op=line; file=\TI1 S1\E n=-2;] ~  #pr </title>\n<meta http-equiv="content-type" content="text/html; charset=utf-8">~<style  type="text/css">~h2{text-align:left; font: bold 16pt/22pt serif; color:\#0000aa; margin:12px 10px;}~p{text-align:justify; font:normal 16px/20px sans-serif; color:black; margin:10px 10px;}~span{font:bold 16px/20px sans-serif; color:black;}~\#d1{display:block; position:relative; overflow:hidden; left:10px; top:4px; background-color:\#f9f9f9; border:ridge 5px gold;}~</style></head>~<body background="\E   #f [op=line; file=\TI1 S1\E n=-6;] #pr "><center><div id="d1" style="width:1010px;">\n\E ~  #f [op=line; file=\TI1 S1\E n=-7;] #pr \n<center><div id="mww0"><div id="a"></div></div></center>~<p><b><a href="\E  #f [op=line; file=\TI1 S1\E n=-3;] ~  #pr " target="_blank"></a>&nbsp; &nbsp; &nbsp; &nbsp; <a href="\E  #f [op=line; file=\TI1 S1\E n=-4;]~  #pr " target="_blank">  </a></b> &nbsp; &nbsp; &nbsp; &nbsp;<span id="t"></spane></p>~<h2>\E  #f [op=line; file=\TI1 S1\E n=-5;]  ~  #pr </h2><p>\n\n     \n\n<p><br></p></div><p><br></p></center>~<script type="text/javascript"> var af, ef, w, h, k, n;\n\E  #f [op=line; file=\TI1 S1\E n=-8;]  ~  #pr \nimga = new Array(n); for(k=0; k<9; k++){k1=k+1; imga[k]=af+"0"+k1+ef;} for(k=9; k<n; k++){k1=k+1; imga[k]=af+k1+ef;}~function geid(id){return document.getElementById(id);}~txt=""; for(k=0; k < n; k++){txt += "<a href="+imga[k]+" target=a><img src="+imga[k]+" width=100; height=75;></a>";~j=Math.floor((k+1)/10)*10-1; if(k == j){txt += "<br>";}}~geid("mww0").style.width=1012; da=geid("a"); da.style="width:1000px; display:block; top:0px; left:0px;"; da.innerHTML = txt;~if( n > 1){geid("t").innerHTML = " ,       !";}~</script></body></html>\E  # n=s(3)-99; ~  #f [op=line; file=\TI1 S1\E n=-1;]  # u=s(4); v=s(5);  #io [op=wt; fir=t(99); n=n; file=\Tu v\E] ~  #e _paus  # &=0;  #e [n=1; em=1; c=1;] _\09 ! ~  #case 1  #f [op=line; file=\TI1 S1\E n=-1;]  # u=s(4); v=s(5); !~    #d 64 i(1) 0 13 0 10 0 13 0 10 0 13 0 10 0 60 0 47 0  112 0 62 0 60 0 112 0 62 0 13 0 10   0 13 0 10 0 36 0 13 0 10 0 60 0 98 0 62  0 36 0 13 0 10 0 60 0 47 0 98 0 62 0 13 0 10 !~    #f [op=repl; b=1; le=30; mo=8; file=\Tu v\E] #e _paus   #f [b=31; le=16; mo=6;]  #e _paus     #f [b=47; le=18; mo=6;]  #e _paus   # &=0;  #e [n=1; em=1; c=1;] _\09 !~   #end |  ##33  ~#end ~
__ 67 __#pro pr36  #f [op=fold; file=null;] #te [op=repl; b=I1; le=S1; c=92; mo=47;]  ~#read [b=I1; le=S1; n=8; fir=r(1);]  # N1=r(1); N2=r(2); N3=r(3); N4=r(4); X1=r(5); X2=r(6); u2=int(r(7)*100)<999; u4=r(8); !~#te [op=trim; n=1;]  # I1=i(17); S1=i(18); I2=i(19); S2=i(20); I3=i(21); S3=i(22); !    ~#te [op=repl; b=I1; le=S1; c=95; mo=32;] #te [b=I2; le=S2;] #te [b=I3; le=S3;] ~# s(3)=KY-4500; #f [op=fcat; file=\TI2 S2\E]  # a1=s(4); b1=s(5); ! ~# J=99; i1=a1; j1=444; #te [op=find; b=a1; le=b1; n=j1; c=124;]  # n1=s(1); &=n1<1; !~#case 0  #pr ERROR !\nFiles are absent !\E  #m [op=win;] \Tp\E  # &0=0;  #end | ~#case 1 #pf [op=o; le=n1;]  # k=0; !   ~  #rep n1  ~    # N5=N1*N2;  # u=KY-5000; s(3)=u; c=i(j1)-i1; #pr \Ti1 c\E # v=s(3)-u; !~    #te [op=find; b=u; le=v; n=1; c=46;]  # o=s(1); w=i(o)-u; #f [op=size; file=arg;] \TI2 S2\Tu v\E  # n=s(1)/4; !~    #io [op=rd; fir=r(J); n=N5; mo=1; le=u4*4;] \TI2 S2\Tu v\E # i1=i1+c+1; j1=j1+1; !~    # J1=J+N5; j=J1; i=J+N3-1; #rep N1 #pas N4 r(i) r(j) # i=i+N2; j=j+N4; #end  # d=(X2-X1)/(N2-1); x1=X1+d*(N3-1); x2=x1+d*(N4-1); !~    #d 7 A J1 N4 N1 x1 x2 247 u2 #pri  \TI3 S3\Tu w |\TI1 S1\E  #e [b=KY; le=670; n=1;] _text  # k=k+1; #pf [op=m; siz=k;]~  #end  #pf [op=c;]  ~#end |  ~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !  ##33  #end   ~
__ 68 __ #pro pr36  #f [op=fold; file=null;] #te [op=repl; b=I1; le=S1; c=92; mo=47;]  ~#read [b=I1; le=S1; n=1; fir=r(1);]  # N=r(1); #te [op=trim; n=1;]  # I1=i(3); S1=i(4); I2=i(5); S2=i(6); !    ~#te [op=repl; b=I1; le=S1; c=95; mo=32;] #te [b=I2; le=S2;] # s(3)=KY-4500; #f [op=fcat; file=\TI1 S1\E]  # a1=s(4); b1=s(5); ! ~# i1=a1; j1=444; #te [op=find; b=a1; le=b1; n=j1; c=124;]  # n1=s(1); &=n1<1; !~#case 0  #pr ERROR !\nFiles are absent !\E  #m [op=win;] \Tp\E  # &0=0;  #end | ~#case 1  #pf [op=o; le=n1;]  # k=0; !   ~  #rep n1  # u=KY-5000; s(3)=u; c=i(j1)-i1; #pr \Ti1 c\E # v=s(3)-u; #te [op=find; b=u; le=v; n=1; c=46;]  # o=s(1); w=i(o)-u; !~    #f [op=tops; mo=3+N; uni=6255; file=\TI1 S1\Tu w .png\E  form=\TI2 S2\Tu w EPS.txt\E] ~    # i1=i1+c+1; j1=j1+1; k=k+1; #pf [op=m; siz=k;]~  #end  #pf [op=c;]  ~#end |  ~@~# &=1; #case 1 #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E #e [n=36;] _scom !  ##33  #end   ~ ~
__ 69 __  #pro pr36  #f [op=fold; file=null;]  #te [op=trim; b=I1; le=S1; n=1;]  ~# a=i(1); b=i(2); # s(3)=a+b; ZY=1; #pr ,    !       [Esc].    !\E  ##17  ~# &=(t(a+1)-58)<1; #case 0 #pr \Ta b\E #end | #case 1 #pr \M\Ta b\E #end |  ~# a=s(4); b=s(5); #te [op=repl; b=a; le=b; c=92; mo=47;]    #ag [op=s;] File:\Ta b\E  #fr [op=c; mo=1;]  #ini  ~@~ # &=1; #case 1  #f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36  ##33  #end    
__ 70 __  #te [op=trim; b=I1; le=S1; n=1;]  # &=s(1)<10>9; !~#case 10 # I2=i(1); S2=i(2); I3=i(3); S3=i(4); a=i(5); S1=I1+S1-a+1; I1=a;  #read [fir=A1; n=8; b=I1; le=S1;]  ~  # nn=A1*B1; J=99;  J1=J+nn; nm=E1*F1;    #f [op=size; file=arg;]  \TI2 S2 .dat\E  # &=s(1)<1; !~  #case 0  #pr Source File \TI2 S2 .dat is absent !\n Please improve this error !\E ##33 # &0=0; #end | ~  #case 1  #io [op=rd; fir=r(J); file=arg; n=nn; le=0; mo=1;] \TI2 S2 .dat\E  # &=(abs(A1-E1)+abs(B1-F1))<1; !~    #case 0  # J1=J; #end | ~    #case 1  # j0=J+C1+D1*A1; j1=J1;  #rep F1  #pas E1 r(j0) r(j1)  # j0=j0+A1; j1=j1+E1; #end  #end |  # &=G1<1; ! ~    #case 1  #ma [op=mii; b=J1; nx=E1; ny=F1; mo=3-G1;]  #end |  ~    # Q=H1; ##22 # H1=&9; L1=(&7<1)*10000+(1-&8<1)*1000+100; L1=-L1;~    #d 6 A J1 E1 F1 L1 11 1  # K1=H1; &=H1<4; #case 4 # NP=H1-2; ##42 # K1=H1<3; #end | #p [pa=K1; em=0;]  ~    #pr \TI3 S3|Fig from pro 70\E ##2 # &=H1<4; #case 4 # NP=1; ##42 #end |~  #end |  ~#end |  #case 9  #pr Input Data are wrong ! Something is absent.\n Please improve this error !\E ##33 # &0=0; #end | 
#pro byte  # a=256; b=a*a; c=b*a;  # i(i)=int(A/c); A=A-i(i)*c; i(i-1)=int(A/b); A=A-i(i-1)*b; i(i-2)=int(A/a); i(i-3)=A-i(i-2)*a;  @~#pro pr36   #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]  #read [fir=r(1); n=3;]  # Nx=r(1); Ny=r(2); Mo=r(3); I1=i(7); S1=i(8); ! ~#d 40 i(1)  73  73  42   0   8   0   0   0  10   0 254   0   4   0   1   0   0   0   0   0   0   0   0   1   4   0   1   0   0   0   0   2   0   0   1   1   4   0   1   0  !~#d 40 i(41)   0   0  50   2   0   0   2   1   3   0   1   0   0   0  16   0   0   0   6   1   3   0   1   0   0   0   1   0   0   0  14   1   2   0  34   0   0   0 134   0  !~#d 40 i(81)   0   0  17   1   4   0   1   0   0   0 168   0   0   0  21   1   3   0   1   0   0   0   1   0   0   0  22   1   3   0   1   0   0   0  50   2   0   0  23   1  !~#d 30 i(121)   4   0   1   0   0   0   0 200   8   0   0   0   0   0  118 107  85 116 105 108 105 116 121  54  54  49  10  109 105 110  !~#d 18 i(151)  61  48  46  48  10 109  97 120  61  54  53  53  51  53  46  48  10   0  !~# i=34; A=Nx; #e _byte # i=46; A=Ny; #e _byte  # i=118; A=Ny; #e _byte  # i=130; N=Nx*Ny; A=N*2; #e _byte  !~#io [op=wb; fir=i(1); n=168; file=head.dat;]  #io [op=rd; fir=r(1); mo=1; le=0; n=N; file=\TI1 S1 .dat\E] ~#io [op=wd; fir=r(1); n=N; mo=5; ord=1; file=tmp.raw;]   #f [op=copy; file=\TI1 S1 .tif\E n=2;]  head.dat\E  tmp.raw\E~#f [op=dele; file=head.dat;]  #f [op=dele; file=tmp.raw;]   ~@~# &=1; #case 1  # s(3)=KY-550; #f [op=fold; file=pro;]  #pr 0.par\E  ##36   ##33  #end   !~
#pro pr36  #read [fir=Nv; n=1; b=I1; le=S1;]  #te [op=trim;]  # I2=i(3); S2=i(4); #te [op=repl; b=I2; le=S2; c=92; mo=47;]  ~# w=KY-9999; # s(3)=w;  #f [op=fcat; file=\TI2 S2\E]  # i1=w; s1=s(5); #te [op=find; b=i1; le=s1; n=201; c=124;]  ~# J=99; i=i1; j=201; n=s(1); $=0; &=n<5; #case 5  #pf [op=o; le=n;]  # $=1; #end |    ~#rep n  # c=i(j)-i; s(3)=99; #pr \TI2 S2\Ti c\E  # u=99; v=s(5); s(3)=1; &=Nv; !~  #case 1 # k=17; #pr windows-1251utf-8\E  #pas k t(1) i(1)  #f [op=find; file=\Tu v\E b=1; le=k-5;]  # &=s(2)<1; !~    #case 1 #f [op=repl; le=k; mo=k-5;]  #f [op=ruco;]  #end |  #end |~  #case 2 # k=25; #pr http://kohnvict.ucoz.ru..\E #pas k t(1) i(1)  #f [op=find; file=\Tu v\E b=1; le=k-2;]  # &=s(2)<1; !~    #case 1 #f [op=repl; le=k; mo=k-2;]  #end |  #end |~  # &=$; #case 1 #pf [op=m; siz=j;]  #end | # i=i+c+1; j=j+1; ! ~#end   # &=$; #case 1 #pf [op=c;] #end | ~@~# &=1; #case 1  #f [op=fold; file=null;]  # s(3)=KY-550; #pr pro/0.par\E  ##36   ##33  #end  E  ~
__ 73 __ #read [fir=Nv; n=1; b=I1; le=S1;]  #te [op=trim;]  # K=s(1); &=K<2; !~#case 2  # I2=i(3); S2=i(4); #te [op=repl; b=I2; le=S2; c=92; mo=47;]  #end |  # &=K<3; #case 3  #read [fir=h; n=1; b=i(5); le=i(6);]  #end |  ~# &=K<5; #case 5  #read [fir=r(1); n=2; b=i(7); le=i(9)+i(10)-i(7);]  # W=r(1); H=r(2);   #end |~# w=KY-9999; # s(3)=w;  #f [op=fcat; file=\TI2 S2\E]  # i1=w; s1=s(5); #rob [mo=1; le=99;]  #te [op=find; b=i1; le=s1; n=201; c=124;]  ~# J=99; i=i1; j=201; n=s(1); $=0; &=n<5; #case 5  #pf [op=o; le=n;]  # $=1; #end |    ~#rep n  # c=i(j)-i; s(3)=99; #pr \TI2 S2\Ti c\E  # u=99; v=s(5); s(3)=1; &=Nv; !~  #case 1  #te [op=find; b=u; le=v; c=46; n=1;] # n=s(1); k=j; j=i(n)+1; v=v-4; J=1; !~    # s(3)=1; #pr jpg\E # &=abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)); #case 0 # K=1; #end | ~    # s(3)=1; #pr png\E # &=abs(t(j)-t(1))+abs(t(j+1)-t(2))+abs(t(j+2)-t(3)); #case 0 # K=2; #end |  ~    #d 4 s(14) -1*4 #p [op=im; mo=1;  tw=-1; th=h; sca=16;]  # &=K; !~    #case 1 #w [sav=-2; file=\Tu v .jpg\E form=\Tu v\E]  #end |  ~    #case 2 #w [sav=1; file=\Tu v .png\E]  #f [op=topng; n=1; form=\Tu v\E]  #end |  # j=k;  #end |~  #case 2  #w [op=im; mo=0; file=\Tu v\E sav=1;]  # w=s(12); h=s(13); v=v-4; #eg [op=open; tw=W; th=H; col=246;]  ~    # r(1)=W/2; r(2)=H/2; #d 5 r(3) 0 0 0 1 1 #eg [op=imag; n=1; b=1; em=0;]   #eg [op=clos; c=1; sav=-2; form=\Tu v\E]    #end |~  # &=$; #case 1 #pf [op=m; siz=j-200;]  #end | # i=i+c+1; j=j+1;  !~#end   # &=$; #case 1 #pf [op=c;] #end | 
__ 74 __  #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #te [op=trim; n=1;]  # I2=i(1); S2=i(2);  !~#f [op=copy; n=1; file=pro/b/textforsite.js;]  \TI2 S2 .txt\E  #rob [mo=1; le=99;] # i(1)=13;  #d 3 s(9) 1 1 1  #f [op=repl;] ~#d 25 i(1) 10 10 10   39 43 11 39 60 104 50 62  10 10   60 47 104 50 62 60 112 62 39 43 11 39  #d 5 s(9) 1 11 3 14 2 ! ~#f [op=rep2;]  #rob [mo=0; le=99;]~#d 9 i(1) 10 10  60 112 62 39 43 11 39    #d 3 s(9) 1 9 2 #f [op=repl;]  ~#d 9 i(1) 10  60 98 114 62 39 43 11 39    #d 3 s(9) 1 9 1 #f [op=repl;]~#d 2 i(1) 11 10  #d 3 s(9) 1 2 1 #f [op=repl;]~#d 4 i(1) 38 49  39 43 # s(3)=1; #pr var txt=\E  # n=s(5); m=n+4; #pas n t(1) i(5) #d 3 s(9) 1 m 4 #f [op=repl;]  ~#d 2 i(1) 38 49 # s(3)=1; #pr var txt=\E  # n=s(5); m=n+2; #pas n t(1) i(3) #d 3 s(9) 1 m 2 #f [op=repl;]  ~#d 2 i(1) 38 50  # s(3)=1; #pr ';\ndocument.getElementById("01").innerHTML = txt;\E  # n=s(5); m=n+2; !~#pas n t(1) i(3)  #d 3 s(9) 1 m 2 #f [op=repl;] #rob [mo=1; le=99;]  #pr cd pro/b\nini-fr01.htm\n\E # a=s(4); !~#io [op=wt; fir=t(a); n=s(5); file=runsys.bat;] #rob [mo=1; le=99;]  #sys [op=rp;]  
__ 75 __  # s(3)=KY-600; # c=I1; d=S1; #f [op=choo; mo=0; file=\Tc d\E] ~#case 1  # a=s(4); b=s(5); s(3)=1; #pr pdf htm jpg png gif mp3 wma mp4 wmv avi flv mkv mov \E  ~  # K=52;  #e _test  # &=s<1; ~  #case 0  #pr Wait|Go|The file \Ta b\u32; is selected.\nChoose between Wait to see it directly or Go further !\E ##33 ~    #case 1  # &=s(45);~      #case 1 #io [op=wt; fir=t(a); n=b; file=runsys.bat;] #rob [mo=1; le=99;] #d 2 i(1) 47 92 #f [op=repl; b=1; le=2; mo=1;] #e paus  #sys [op=rp;]  #end |  ~      #case 2 #sys [op=rp; file=arg;] chromium \M\Ta b\n\E  #end | ~      #pr Wait, see browser, then click !\E ##33  ~    #end |~  #end |~  #case 1 # K=4; s(3)=1; #pr dat \E  #e _test  # &=s<1;~    #case 0 #e _sfff #end |~    #case 1 # K=4; s(3)=1; #pr acl \E  #e _test  # &=s<1;~      #case 0  #e [file=\Ta b\E] _file  #end |~      #case 1 # K=4; s(3)=1; #pr mid \E  #e _test  # &=s<1;~        #case 0  #f [op=fold; file=null;]  #ag [op=o; wid=500; hei=150; xsh=25; ysh=70; file=arg;] \Ta b\E \Ta b\E  #rep 9999 #e _paus #end  #ag [op=c;]  #ini  #end |~        #case 1  # &=0; #pr \Ta b\E #e [n=1; em=1; c=1;] _\09  #end |~      #end |~    #end |~  #end |  #pr Yes|No|Would you like to repeat ?\E  ##33 # &1=&; #case 1 # s(3)=KY-600; #f [op=choo; mo=0; file=\Ta b\E] # &1=&; #end | # &=&1; ! ~#end    ~@~#pro test  # i=0; &=1; #case 1 # j=a+b-3; i=i+1; s=0; #rep 3 # s=s+abs(t(i)-t(j)); # j=j+1; i=i+1; #end  # &=(s*(K-i))<1; #end  @~#pro sfff #f [op=size; file=\Ta b\E] # J=1; n=s(1)/4; &=n<1; ~#case 1 #io [op=rd; mo=1; fir=r(J); n=n; le=0;] ~  #d 17 s(9) J 0 0 980 600 870 500 90 50 1 3 6 n 1 1 26 0  #w [op=pf; file=here; n=1; c=1; col=247; tfo=3; tki=0;] -1 1 30 570 2 \Ta b\E ~  # c=b-4; #f [op=topng; n=1; form=\Ta c\E] #w [op=im; sav=0; file=\Ta c .png\E mo=0;]~#end | 
__ 76 __ #te [op=trim; b=I1; le=S1; n=1;] # N=s(1); &=N<1;~#case 1  #read [b=I1; le=S1; n=N; fir=i(1);] # s(3)=KY-600; #pr jsc\I1 s(45);.txt\E # a=s(4); b=s(5); !~  # i(99)=10; #f [op=find; b=99; le=1; file=\Ta b\E] # Nm=s(2)+1; # k=1;~  #rep N  # s(3)=1; n=i(k); &=(Nm-n)<1; !~    #case 1 #f [op=line; n=-i(k); file=\Ta b\E]  #sys [op=rp; file=arg;]  \T1 s(5)\E #end | # k=k+1;!~  #end ~#end |   
__ 77 __ #te [op=repl; b=I1; le=S1; c=92; mo=47;]  #read [fir=Nv; n=1;] #te [op=trim;]  ~# K=s(1); &=K<4; #case 4 # s(3)=199; #pr \Ti(3) i(4)\Ti(5) i(6)\E  # a=s(4); b=s(5); ! ~#pr \Ti(3) i(4)\Ti(7) i(8)\E  # c=s(4); d=s(5); #end |  # &=K<6; !~#case 6  # u=i(9); v=i(11)+i(12)-i(9)+1;  #read [fir=r(1); n=2; b=u; le=v;] #end |  # &=K<8; !~#case 8  # u=i(13); v=i(15)+i(16)-i(13)+1;  #read [fir=r(3); n=2; b=u; le=v;] #end | ~#f [op=size;  file=arg;] \Ta b\E  # n=s(1)/4; &=n<1; !~#case 0  #pr File \Ta b\u32; is absent !\nPlease change input data.\E ##33 # &0=0; #end |  ~#case 1 # &=Nv; !~  #case 1 # W=r(1); H=r(2); N=W*H; &=abs(n-N)<1; !~    #case 1 #pr  File \Ta b\u32; has wrong size !\nPlease change input data.\E ##33 # &0=0; #end |~    #case 0  #io [op=rd; le=0; mo=1; fir=r(1); n=n;] \Ta b\E  #ma [op=mtr; b=1; nx=W; ny=H;] ~      #e _paus  #io [op=wd; mo=1;] \Tc d\E  #end | ~  #end | ~  #case 2  # V0=r(1); V1=r(2);  #io [op=rd; le=0; mo=1; fir=r(1); n=n;] \Ta b\E  #e _paus !~    #ma [op=var; b=1; le=n;]  #io [op=wd; mo=1;] \Tc d\E ~  #end |~  #case 3  # N=r(1)*r(2);  &=abs(n-N)<1; ! ~    #case 1 #pr  File \Ta b\u32; has wrong size !\nPlease change input data.\E ##33 # &0=0; #end |~    #case 0  #io [op=rd; le=0; mo=1; fir=r(5); n=n;] \Ta b\E  #e _paus !~      #ma [op=vsm; mo=2; b=5; nx=r(1); ny=r(2); le=r(3); to=r(4);] #io [op=wd; mo=1;] \Tc d\E #end |~  #end |~  #case 4  # W=abs(r(1); w=sgn(r(1)+1; H=abs(r(2); h=sgn(r(2)+1; N=W*H; &=abs(n-N)<1; ! ~    #case 1 #pr  File \Ta b\u32; has wrong size !\nPlease change input data.\E ##33 # &0=0; #end |~    #case 0 # &=w; #case 0 # &=h; #case 0 # m=0; #end |  #case 2 # m=1; #end | #end | ~      #case 2 # &=h #case 0 # m=2; #end |  ~        #case 2 #pr Error ! One or two sizes must be negative !\nPlease change input data.\E ##33 # &0=0; m=3; #end | ~      #end |  # &=m>2; ! ~      #case 2 #io [op=rd; le=0; mo=1; fir=r(5); n=n;] \Ta b\E  #e _paus !~        #ma [op=mii; mo=m; b=5; nx=W; ny=H;] #io [op=wd; mo=1;] \Tc d\E #end |~    #end |~  #end | ~  #case 5  # n1=r(1); n2=r(2); N=n1*n2;  &=abs(n-N)<1; ! ~    #case 1 #pr  File \Ta b\u32; has wrong size !\nPlease change input data.\E ##33 # &0=0; #end |~    #case 0 # J=99; J1=J+n; #io [op=rd; mo=1; fir=r(J); n=n; le=0;] \Ta b\E #ma [op=fno; b=J; nx=n1; ny=n2; mo=1;]  ~      #d 7 A J1 n2 2 1 n2 247 1100  #pr \Tc d|\Tc d\E ##1  #end |~  #end |~#end | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
#pro pr36   # &=0; !~#case 0  # Nr=10;  ##7 ~#pr Select what to show | Picture size | Text size | All together | Exit |Comic Sans MS|\E~##14  # &1=&;  #e [c=1;] 0001 #e [c=2;] 0002 #e [c=3;] 0003  # &=(3-&1)<0; !~#end     !~@~#pro 0001   ~#pr Make a click of Cross in the top-right corner to stop an animation!\E  ##17  ~# W=s(106)*0.7; H=W*0.57; X0=s(106)/2; Y0=s(107)/2; w=W/2; h=H/2; X=X0-w; Y=Y0-h; !~#w [op=im; mo=0; sa=98; file=b/coffee.jpg; em=0;]  #w [sa=99; file=b/pic0.png;]~#eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=98;]~#d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;] ~#eg [op=clos; sav=2;] 0\E~#ag [op=o; wid=W; hei=H; xsh=X; ysh=Y; file=b/ddt-osen.mid;] Demo\E  # M=50; S=0.96*W/1423/M; !~#rep Nr  #  m=1; !~  #rep M      ~    #eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=2;]~    #d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;]  # u=S*m; !~    #d 7 r(5) w h 0 0 0 u u  #eg [op=image; n=99; b=5;] ~    #eg [op=clos; sav=3;] 0\E~    #ag [op=m; n=3; xs=0; ys=-13; file=nomusic;]  Demo\E  #rob [mo=1; le=25;]   # m=m+1; !~  #end  ~  #rep 25 #rob [mo=1; le=250;] #end   ~  #eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=2;]~  #d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;]  #eg [op=clos; sav=3;] 0\E~  #ag [op=m; n=3; xs=0; ys=-13; file=nomusic;]  Demo\E  #rep 10 #rob [mo=1; le=150;] #end ~#end    #ag [op=c;] #ini ~ #fr [op=c; mo=1;] # &=&&; !~@~#pro 0002   ~#pr Make a click of Cross in the top-right corner to stop an animation!\E  ##17  ~# s(3)=99901; #pr  Monotype Corsiva\E   #eg [op=chf; form=\Ts(4) s(5)\E  ts=28; tk=0;] ~#case 0  # s(3)=99901; #pr Palatino Linotype\E  #p [form=\Ts(4) s(5)\E  ts=18; tk=3;] #end | ~# W=1024; H=768; X=(s(106)-W)/2; Y=(s(107)-H)/2; !~#w [op=im; mo=0; sav=98; file=b/coffee.jpg; em=0;]~#eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=98;]~#d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;] ~#eg [op=clos; sav=2;] 0\E~#ag [op=o; wid=W; hei=H; xsh=X; ysh=Y; file=b/ddt-osen.mid;] Demo\E  # M=15; !~#rep Nr  #  m=1; !~  #rep M      ~    #eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=2;]~    #d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;]  # s=16; h=45; !~    #eg [op=pai; mo=1; col=246;]   #eg [op=mtxt; n=m; em=0;]~    1 50 90 s      ACL\E~    1  0 h s      ACL ,\E~    1  0 h s      Java\E~    1  0 h s    24.4.13 (13  2024 )\E~    1  0 h s    ACL (advanced command language)\E~    1  0 h s   .  ( , )\E ~    1  0 h s         \E~    1  0 h s   .  ,  : \E~    1  0 h s  http://kohnvict.ucoz.ru/vkacl/ACLnews.htm \E~    1  0 h s        . ACL   \E~    1  0 h s      , \E~    1  0 h s  , ,    . .\E~    1  0 h s   ACL  ,  Java,    \E~    1  0 h s     ,  \E~    1  0 h s      \E  ~    #eg [op=clos; sav=3;] 0\E~    #ag [op=m; n=3; xs=0; ys=0; file=nomusic;]  Demo\E  #rep 10 #rob [mo=1; le=250;] #end ~    # m=m+1; !~  #end  #rep 5 #rob [mo=1; le=250;] #end   ~  #eg [op=open; tw=W; th=H; col=246;]  #eg [op=pai; mo=3; c=2;]~  #d 4 r(1) 0 0 W H  #path [op=rect; b=1; n=1;] #eg [op=fill;]  #eg [op=clos; sav=3;] 0\E~  #ag [op=m; n=3; xs=0; ys=0; file=nomusic;]  Demo\E  #rep 10 #rob [mo=1; le=150;] #end ~#end    #ag [op=c;] #ini ~ #fr [op=c; mo=1;] # &=&&; !~@~#pro 0003 # Nr=2; #e _0001 #e _0002 # &=&&; !~@~#f [op=fold; file=pro;] # s(3)=KY-550; #pr 0.par\E ##36   ~
  ,   :  32, 