From c5f0e1e345d7f4444793c720cdcfc9c9c192e32a Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 17:43:09 +0400
Subject: [PATCH 1/9] added original Beautifier module.

---
 src/tools/beautifier/Beautifier.Mod | Bin 0 -> 36838 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)
 create mode 100644 src/tools/beautifier/Beautifier.Mod

diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/Beautifier.Mod
new file mode 100644
index 0000000000000000000000000000000000000000..27abc010490318052e684530ba1f4311ab124f8d
GIT binary patch
literal 36838
zcmd6QUu;}inpdS~W@iev$N<Z-K!7uqnNB%l--(@0cPH*{kvMk8({9_co$j6;^@wu$
zIxbSK^3<)0<DQ)sE6~0mgtRY+x0T>w9{?dC#0y&Bfmg%>;tBBtk4Ol_)2?WKzwi6b
zx#!%v<)pi(M-wHfI`{nh&Ue25=R3Fl*Oh~NjmDMzi{YgEeEC+k-y3Ed!%3sj_;dJo
z<!a*!Kjbez{`Y_T?6d#$$5$HscjZBMFc^)7>x2BXXxzv59@-wW@yu{n8(-H!nrQNh
zukJ_F{kqQccUa$O{CO?$Axdf8U(vds^5bgb?l;iHz`WW(fu(P1-5=rOYksoBFxl0{
zpVj)`L_2`Bpe0Pi(tjtQR~z5f(y!ww{{9&){XcDq7HqkprElQ_bMnLbmGJzg)=7t}
z9EknCflsvjEquk_-_?GLTKAcjzV&sf`&(N2ms*F$jm97T^+u!pUVd>t8XvV=2Pgf)
zjq@G~h3k#5iTz>W`orVV__RCekA|*$IGRq}XqdaF+9`9J6Ng^YB0oY)_o!Q(9AvFl
zTSr{;gG^3B7uR{P{_f`XqTAiuSzCYjcyE2t<&$2vfL^^pw<y}Jq?<f*qhlA1u}JWG
z`FPkLK5_j?;qv3-yhq3Y#8D2&3GSlnXL;sy002q2G0x_Di*EA)|69j@`|k<3w)%to
z`J~7`9QP;rIIL?j!l*?)p16bVp<8lmC*5(khZcoj{!xxe#z4W7!RQc#eBq9!xkJD4
zbU5jsV%jr&^gj`>ver3=?hpHues|FSL@~$Jy+1md4s!Qkbadg)`;!x=;Ov~`Lj|dG
zzOV{39VXB|m}2o?A+(1t3+?v$hn>TP)mf<V5K!mO&kXLv(P)r&hwg*!xZgd*ih+)U
zy~peB{3IXd&#)L&qWNe%0dj_2Ah3rgqh4=124=_Hb>i!6JnH2IHul){PP)S<e0~g)
zE4ZbHL|%oKCV0ecIn2?HM2+!DcBd1FscPGcv;4T*la?U2(^HUDu?R|^$_8`({sjBi
za{#y?cNmRs00Im@9Ui$ZW<$Hf9H0rUT9Z@RXhMlqZg)>#FnfZE3Jiy%!O@q30R6W|
zlm2l(A6GEoANz$x*c<1?WJH4R9+Oi{LIC}vvD@C<a(!jjFv8I&FNQZJ?xg!n_yQZ?
zhsatH1n#<Y9}U4mBnIsJV1Q{3FWiH?J5?~V4cR+)6Zkvs4{{(duYfKzW5{L`*#?CY
zqsc-}x`mN~Ed}DMW;Gzq{Pb*c!6o%4?y`lrmWL*Yj+a}=Pl&eJ^>H*V1j_`lCkMto
z{5}!32{M{QW)iso?_h-|c^@L7l!Yb*r-kPolln`0BJZ=7%JI2EX-R|<Fj|5s6M4b^
zB%j!boh%bse!SLhb&mVvViM%#f~pt=ew>T&1HA5dI_!yl`Puy}`_a$c(mU>Fx3X;c
z*3YpJ@DP+j{|QtP)?4H~PyvW&I6XZC-*F2;BCZ7iU_u!K8ZJa?6q7C_H^ph@4o>o-
z><WqPhIxLZ^cCT7i6{<Gkxd6&43yIg*YXE**7D{rVktRx_De2g6I!R;;{U39h<=YP
zQ8`LKqBF7X;b{H&*;aoD{u1lpStPLyb=ZKjF@!dRo@~}pek@dky>f&8)4bLE;ePk@
zY;Sb#-gdh?o7)HLd+uPz-QU~0|0CD=;qLmo@8AFE;pY46+xwe4+wP{@d-uWa=11#W
z`<uVLzTkE?+}fl2d#f#O*P#~zAn}p=oI}qYIjpj@dPofetlQ|!i$IcqK8JJyJYB2_
zynB!ON68N&4ho5yDnH8Hhafx1m15dEL0b;k8jkqriO?p*;A!^=%Yq0L>a?D)Z8&4s
ztwsYEISic=RIGn#nY4KZ_E<Ch)NaM4&IkARTyf77@?MUq#!$t(=#Uqbsij&IOR0dC
zEhx-g=caJ?%?0_$pVP*I0L-x*h<hT3v}giW#3|$?IJ$QNW<r0J|1D)wwzHWahDH=Y
zg~QP3@&tXTKtMT=^|lCDOF6Y=0WdPq9S{wepzfoEy3;9k0{Alpp_04n$M8eQZXD)N
zB&v|H7X)4)rkv~^J?jG5g@XwTOKm_A53q(KHy90{05B>AKd49cF3gTcKxVroAo*g7
z?S0^Kn2%ST*dcxo4q$++I&RBw#D4eOgPonN_50iUkOmF4**)V9qkZg|D>tp{*fWP6
zlrNnC3}7lt0iguuG7{Wy-Ja8f>Fv%zt=Iz^?^(;W95|k%V`;#9O?$8ZhIx;s7sLTH
zwTjrT+GB*v8C<ZyCqn4mK`{!=O7IV0W4Tgbz?|m(2;`8{+;6ret_@$<aZm~Ni{_%h
zduAvD#EIJwTL57~F0oyzs&=bHMESHcXU75~g{_4$qS^|ZxNy(yKib(lfQ(ypEj9y}
zam$6LxB){JunUg<k?__ypG?PSXU+*5VI9CItj)w#AzSUg2W){kxaV|s&Y>M!6Cx2T
z<~NsHD%74i15lX-)<C}pZd;^fMWzEwgGQ#~F=RLGEtOT>&<hhnSdr>&oOa6(=*KE#
zEXstg+gEJ3_tZ6Xo&EO~O8(1-J($Fp76O9$qCc7zV&sjm(_`?;6LAA59^FL_j6sPM
zkS3gdQ@pRuAvi946>b}QzEatyOf<Vs6W>hP55UJ81?LSzmz%h1lh8#wnsNDRZF&km
zRSU=C(Wx6}XCtvp3VwlYb&PG}Bt-aROxF<GT<Q`$El&Edq#-+@a$p}Vp&wK<wisew
z8t2E@iTh%0=g-9mLZwdhwv&0_nJ$w^*t{y8jm;^Z6`^#J*G}@@)0hVUp?^Hf1aRyE
zVh|!goIw2H=|DpR{UIO~VyDQ)itzV{tD(p}C-diL#l2Q{!9C0e`Gf=vwNl6zEZ7gT
zwB+ef<N$lQ!$EiW)a=^sA-+uf`lwJ*hQK-Epuit!|2!WIT89geCG^=jkq5V&2Sf#{
z6f{R?4ZcJ8KD+K!dZG}@@X-)<5Kr-*W48i+$Z!JLTxIm2$Eaaa-;LM+=Tqa2)Mpi1
zfUSN^uaOUB28xDOn3ulN8M*6OKDfwQW>m}|=rEt0Q`OBl&xE5txdBf`d}`Pn<EH=t
zN*?601RY-@kks)$tB*eD=jU_@<5C9_jy$w6hLXbi`LWvCGZ99@E5(US0@qZA$z10#
z_<UoTOJoh?h1M|avpo_=@uJ=G-#QhR9i82Cv>e}E--AZYpCDvJmfhOfMkwh3q`AKR
z(D}}*t%uXo(+dhOacjX5AQ{l3I4c04v{%g(fQ3LhIqDZ@gYE^$=={Vxjnpp|V^IH5
zC<=oiv_m6>2;1$Bi+t_$XiE&`xFk|)jy{RpUN4^n4RFN8NW++r7Q`v+B5on6ojUee
zpDv47>v1);y{MGQxX+#=Fa_l8DSNTqgt|wRMjz5j7lQ?~yd`y(kNJ>hE1W^vU^=}h
zFm)UmiDFTFyhMF*0%?e8VU?A3x=6nmOj!lxk#XgssmS2Wf-<@T$VdqVthRQ__ypFB
zC1Q9O25<<01P)AHdDMkE<@`$?g$buwtbx{u8j9=}ZKvO4+U~L9@#~F+q<`k%+-mHh
zVy&qbst_<uzT;Wup-|<3oK^=T+})DN9J~N*y|)rdG?VV$%_ky=HlTF4_;#!Mq)wa>
zlptE>h_r)Q5&}yI*+5KrRx*o0O&qur2;e^@A5G6>V??CEFcHxskpRc=K0U=w6h>=_
zsrLTP!^d0e3kcT+0a!vQ5(@qgiJB;|z#B0m@vr=+(>{m>Bh#9VWo4`V`0S`V$rU~N
zUCDYvcBlk=EMjcrqU{1fK~@$BU+L3gG#&TyrQQhMTbPl;xz*l~=oFL+`LPU_gs7GK
z9rqLb^U)pBVc-|oXBJ7^L3Cp@Tv~DaG82r#qnxAf<){1kX}>pugMv_bX}~5Gv-=K_
zf)*pfPq>OOh7*%T_fVrP&;}5l78>E4v{d#H0ntw|t{n|<D}te7&Y)N|VRY;kL~m)4
zVz7LTc3``upBM}!#cAm+LYl(~^Df2(x1AOZ=Q9OU`Wl85tSrV$75NEv5M!v>gE7(5
z9nh49XfG!Zi=jd2=IzS{#Ch;Dl8s4gYIo-TbTZ-*3q|+^2x5Q(819nDB|20xwd@f{
zRAQ?a!V}ylv6j(=g1a)8ID(AL*qAs~!vf1um0T6@I)c@jS#)7P5R9#WTm$huWYJuQ
z*c*2dL{4eAd_Ld6Kb%66YWT<phs32Goox)dPhkG<ufrq&xp#p^(u{arBbyIa0A<uT
zb81aPyPnY?rLB#&7@VgmfyUtuO(1<C`i#IuZm2K>O~TxS+ax{x1VpNV(r($8ay-rf
zAt}KV--G4`CNLvi4$>e^V<c%%^#FZA9D~t0R{)Dw&Lo5o#wa0_p`NBkMC;&u1k-lB
zbLKz^nMIg99<am$2Dlub&_WL(EW};%3^9ebG`97&TWIZ{^#ofx49w4r#7H0rRt<HN
zsZg~N{MMlsX=$$7K!d@~S)mYdC>VxZGE9}BkUxm4G+aRJ8j4zyWg^}%IXT5{^=P07
z{Q&-PYS;?15YJv#a5Ew8xiR}^IMUhiU1QoyYiik4J&IttxB`Q5CjfB?4P=BcYM71s
z05;)iA{1n{P~$G0PTC@ppiwZWi_`7^=l~5Nc%Q>57%w3_L|Ys<9B@lHHzghyn@k%X
z*3Rfs6)^>xjt8UZ6z-{vMEMui20Lz_p>;%t5sP6^fhMz@Lyp0D#EbQU1`y7QPr)=8
z8gK-Hn3X>QK1pRpT+hg#zMjvX_F))eV)Ga;5!Z}>KjNVZ4^q;AIAN6o0Jw`-(VP<w
zf^NzkeoIx|_?iIv29QHLC&L-9XnYeprKvnu^)IRF*8_eY^8cSdF7qZ{*~IZYt*VeT
zapeOZ@cTrCC{JONBV29#-_Jh#?AxDwv+?i#GqNtQgQsV4_bbbH;h^{2-8b0wlt~8v
z`fErMIOtD+Cj?1+0DjzRLu;Kte!~re^qS;DSS$>g?v3yTzB0`6e(^U7p5m@#)BfSp
ztlP^FuWH{vgh<5!I(m`=x)4D@QN(r?wokCsXNb0xv&H0MkS{%%!V97=q4EoR1{#?3
zC)0@p!-@-p4o+P$I-Z=<y)_zqJS4jyv~odlzSSRovgqz3l8kfcmQREzl4T-K0pfph
zv5Qk@uon^r)bit|EE@c+_6K?djGimmEtr5X$no7R-^p&hk=?xmE0ob?Ji6us51ggd
zymiOzAdYhP_2%BzW)s}$Es$Vzc($j5tN8&!Mo{8%=7RI<=B>Lr$Qv@qgDFxXh80Ty
z*5>mZ4l`Xzv66`s##bSFhokdF$6n*yPTYCg3S}|QrwAzYhjV5qgC;t9IXI@Do<VqE
z1{}Qs(F(XmYA_ucKo8&1M<Pjsi&k^_mQkK810G24Dd5o6P;QkL>sSm~m^+WUn1+6!
zc_L)p0?q(}jk#+BWf~a3mo|`{PJk`Dz#8LOsw>J6)1)oDu4iBfuvwN8VoSONS`GL{
zh1Km3Aa|R~%ke5?5>OmW*kmTvB#a2k##B}!?w=8y2n=e{tkr%55+vPJrHyh?kTu@3
z$XZ}w=K0{?-{eOq{V6S33XzqprKLMr3A|sQV)Yj}g#3-hP5UD4h*?U%QP<KEoZ?v;
z4NJz7hXGbXP(q&8$pVs=c=A_YdcNC9%VjP7n$BlgT@aR^{p~leh_w6~t!ovQ+xdCp
zn}AA2xY|fsy@KceTn9;>v;Cc#=WPFjn&)i)Px1VftBq?~{X;GN1ugxSek5~ntZB`2
zj&)ai%QCMv-T@{t@^`fHp4Q0*Ty6Z1nh`j%AivR&>@q7=*8WX2kyfFx>_#ZrLTsRQ
zoyW-VyIQh3Cf{L7tNYVQ9TVYDH?wl<nkF0Gin><%5L!vbt6$73s1`C0;1h)&4>Mzh
zR-}91s?qpMNy+xkAWcgt-0h^Fr3XsCnVB(N(%A57lRQZ3oR$o)e=Vs?ci>@ESDBKS
zNjdmN)HozT8UR<5I!=Pwg?a<v29A-m^&_RC0y&D2q_LJFR077WrJ%YxW=ChYeq1oV
z3gSac5iyO%lD4#x5w2{efqS)Kb@DI}r<Dw9BU~#<=4WVWLM4KwB=M9^Qu5zS*1)va
zlD=NR41YOk{6<u&>?uWr0i7<$fVR3+Sr~GyE+SwoQDzP}wkEQfVIs-Q4W(2#L@hCx
zw5$&H-DowiQIpd3q?EQaEX>G{N7^TOPP7QZ11H<=8GTrZ6j&nAs52Re0@TFVpP+)~
z_rLgOR~ldE`ATeoKmRYk#*wz?!19mr9CF)f^|wHfXgo8~Pv`XhhuYgH{dch`7|XVe
z_(SP^?fS23Mu>F4O|6z)t;|1{kZfcz5*i*Cf)Z2xN(sQIsKe@Rr<C`d2mm9GKu9UY
z+VX6pj3JGYP2pL|$k9qB?5$+%X{GP!>{d#t%WxteNEz3bHoLL4^)rGOc58T5EKM3d
ztK3Gpo~+hP6zgYWTEA4-%CyLrXLsa^>nK(-ycjH2XQdQ_X4YB1RB1_vFvF|K4Btzj
zPVpjxg?_bA8!Xn+FlZ&ii(!H#)L-X(RkCpj5Rp_t%XHdEe4#ESx0Ku4I??|G-~GYw
zDIb3W&Sb*JrKe02z9DQaP?BM7F*d&~^t%eFl}yT8%ak-_p+OrNq}I=nUfWOL4zs5O
zU|VOS7@n+@YO!<+j2vb}5cdTCQbm0`+Kd^o5eU?}eiSuMBn0YPNu90B`lZksjtw8y
z&q@Znl^$SBe3d4FiVOqR&r0dO8M9cOjrnZ=gTHNs)9P$*tn~e)?k$~N1Z$XGP#wgZ
zm0r_+R{D;Xgnz5{svsnY#gy99I@?nl<zX_W&0zD9YJerXMq{H`ztkK^XOKk)hPU|)
z6T3R5S)(>l>N%u?*+kaT0JOnuXu!w~u#$8S)L0=_W%ioOJ!a*G?Jyvc?sL`MV@0CP
zY=lr-G9EFAA13_-vw>yJ^|F@V)0W@Tl{zh1T{@<bjMb$=(AXte6gB-1biCv_7yDna
z2G|LvI-g)nJWN`#H-*yIf^8uaS6Xqb=NPN5_pLc|e?#ZC#r-x~0TLsWf1o8>-0RvB
z_t7}Pn_6ea@Lhm|er7q->MKY2ds;Hp{D)eyQC?3*`Q-AIn^c~+^1+;yb4^u@5L5p~
z=eD)3Y004cyINY&t^+L@%>Q0X*6%;efqC9uf2u<!yGv;5>`U(Y?&lo;PZYXLr+GVp
z^+ZdyOSUfy+VbD(M*<h;7wK6;XIGROZ2wPnWSjN(=j?=0@C)|wAI<4ayB75Sg5IPk
z3}Awf6pWHFx$H@!;rK8J0Hgf>s1Ik>Z%mmy=YG+81&y1Ro^pdx^>=j0-v9t;X`<y=
z`x#pQiI%Qw%RkbR8ODEKA0{(%N6bP?o)e<`bJ}Bi;($V_@%s>=nimqCJFL3qwdS=}
zYxDhGq}ocHTihoG;}ITRw6g?!PH_makGLx`$rsCv8vBk9&2Yn)_w(V@3b?4YwzIu|
z&}!mj2+94o?tX*`w>J3o;YX{jCQ@+m70;SY<j?t>*QJp4dUK)G++>?&X~QHtO{+{>
zth33AAI4hXJej9gK7m$-dccOaD-92E!X}wEano(KT+(SV>-H#Q1S6?ZPO;=h6%#3V
zl+E-Prm<<#KIbY=i)Dq$nXjyePxSDXu(w(VKiXYyH9ZV(yS??boxO+GTFoZYoBbI*
z!tVZ<9yM~aq)fkUH6==q{X|+)t9kA-;q<;E@O|i?=ru<?IbK_IgEc?;%59GBa|2sV
zp4=Vy$~()fGynl`nJpvP1yAq!I%bRF#JYpz0ZlB3fYz&1CCJFxy4I3AtgYtS&hC#o
zprEH2SB#{C=F?2?o8Eg{`?Yv*!@*Zu*P{7(_Oj*=V+5Fxw#;*XrT}7=CUdor5EUgq
z_D&H0m-{dV0;(M*TgKcUKHA(`cb^tnj<k?hU58cgxLZiM-2vtgu;WF>(Ft+ygwR?S
zBp<x(+MPBU3ZtaW+~x+Fv&GG}J9xCd4Ro(@@C8Y`lno>^Y~xZO&SLD0DO|xIX(jVu
zlo!miVDmg&Pv;>w`Qhy*2`-Wd4GErOtj^+_={a(jAjNk`=a-{xPj1B47rChscCETk
zda;6AwQ+xIe;vrz4dL{if}4TGErC^eDPjp1t-+^drjFdAklT~~%wHB>-SNVx?`_*g
zW`8V@6i|T;)EOx*wIXbT0m1zQAlPqqKq^-eI#osju`CEJU~l)<ch~P9*x-Jo$J+<E
z2l~Qc7BI{XE-8^@NskFmR5;Ai^$TEo$yFM<B@13J8AB`vj0<{!2tU_#Ti-Sg@s$b6
z4P^qvDx}}R<GpP|p$di!jK&e!DcWH<uR|V|&)MK@C{GT^O&J<Rl1(k=OP91eDnKdB
z^XFjtEam4aJ%DYmyY?!OEFvH<GFY9A41~`L4e7#t3DgnI!R4VBF6Tk=`|XPAS;rRq
z5C4)oJSj)UdF8G)vD~xLvwL1uXR4)Fz4(1bcGBE|EFP~z{E&*DX%?}tz_aYA=vB*^
z<c4kT%kIW$?Gbg$wn}el-67(WrdY1x!$<%(pi2zIaHSaV`ReX-XS-h$!Rz~{qaqV1
zB%?c#baUhy4l{jjs~38{EXqd|vd^_gItSik5Hjw8-kNM?JOxeP^E(1awvdg4r$M(F
zW#dtrA04Y^asW~Mi%PIIHHy54>4q*e-n>;eOJ45zqPr+{uBSE`ffN@J01kp_J%(KH
zMWh`Z^(WarugAN6$wJB2aOp8`lO{z~N8R}~^kswN+3}?fOxatkH)4kwhE&c;j@-Gi
z@<iv>qJYgt!WNNHn*qv>K)>jYV^cWe!$;Op_|+qy)`wqrL@0y~)V)gC74aT+8q*Tc
zBC7~6G|VQbfFQ&-WD65OZE30k<w(wYB^Bf>q>TK5xMto13=E{F_!I{boJ|ijv`r~8
zk7*a+4)IIqvYV#M#H24LDe?g>-C)9Ja)(9dk`0P^y7Th${N%EEm`Wn1l5H_k`S%3?
zRCIv8loN?XqD|f|@(%2E)kz*%`~<?n07z1yJt5=Q?~~2|#;@*;OyjlS%<fPL%*Vee
zgP;<0tB+L(dkrMwiNtg)gu;bYC{8OfBs=$yFIX>KtSlsH7l?u&hVKU!r0dsdBi|ga
z$Y7>4u6F1xkyrp^yiWTB*^_*`4PQ8tfm7)`W?Mtf_2~ZALFew>$jSt@2ML?X-s<&>
znk-ATDPM5^0?a4Uw|c*^)hx~bCT~9QiUlv(cJUq(e)sOn?Ul&q>d%TYvwZ-sq-L_~
zkcLfahfuHQ;|`ME1mPxvlt4u1qelG*F?Yt<@o<uH9CR??NT)NECA_E(b}xY;AZiWu
zxv%EEXEc1;S-Tw8K=JjOPSwGSae$1n6(<jv=6D+%KI8SoP7Gjmn7$5^fZ2q<gDZfQ
zQKBXyKC1+fl1F(JrIs)vs;^bZ=J0{*qn0(i6fs8Bu*x@@a;(~*$dLOtK(a9KYMY%Q
zUp1on67+OQ*PetIf6SOMbY5pPzrS5v-nT71>)`TY5B1F<@bq!_1kS#9@Oj^)v_inu
zVBYu^{Sj~e)p3C#FENlKx46_rmntKQJL4Tm5!Rb(z3!mrFR-eJRp?192#8QE{rJ|$
zG~8LbasP%$@1`s*Zc`BHH1B8IQjOW5l=foKTKO%va$CweUZtq5y|LdEw(1<O{a8DH
z?7r`iv3L^!l^;uY%#4VeyTfn-{&3npNNo8HnSoz#-w9t|lW!7n`Emba34y?0#A<`_
zj3LY>4z2XnA{^Ybb02+d&_WFCHO3mYHe_%NhC&;pWV%zp@`K_vUQ&)mQkblpY<kiW
z3-Wi^C6Zy#VIW5v-aB!K;HjgNKuIhFOv2PHUr#_+4T4z7aS`vR0u|~e3l2XuUooCC
zMMycF_*beiJ%*~<SAB603HJysh^F7MwT5MIS>n>`R$4Rq?ys^FogcwAB0IXYiuxD-
z&Bv+edn#7se;wGnJnxD8E2TjyCdzzQ@kpwAO|I|Eii*@nKvpwiiscIyX725Kt=T)F
zT3YdOGU2nWjYU^Ljg+#Z)vVEr8;C^+i!AdMH8dB36D$$Q4pOBN7#2K$LpUNCSXCmm
zl$f{VB!rAn0bWKklNbj`dgpCHDplSYfhf~E{)ju6V<ZY#Wt6y?g{VG+aKNVSEm;A#
z?$fb^_#*igt78MFe6#|C22^6bga{R48qRE{N*)AUE(CK*oWau%sZ4@^#+X1bgn<=^
zC<!!rnk+F8k0>(5<4iukPaMl*ZMQZ$yXc%}xP%2Yqzt4Lrr`mi4qd69S%?83<3o+b
z7N`!$9tbJxWWWyvlK#PNZ49P(0hC<@OKl?CC}Vgof?(PXYb*(Omd<&FL|=8rJC|Z)
z5hT6CZ7+E!2>`^v)b#;g@*ordWZMfPz^1m8>#`qS{^%m)RSG%11CN!kZV3_1HTAW-
z60Ghsa8x4Za+)Y(8-cB>+#cQ|QDf);*>lX>8fzigyCf7Ccd-Bf|CH?P#d@$SR)Nm$
zkz7%NY#t*$U%r<;ynAbV_a5(-vkQ-4c)3dYumFZHe(*qFLP27{yyWd$*!Mb=nXQag
zqzr9Q@*<y=(D-qT<&{G#!8%Biz*c@msnFs30zkWUQ~CIw@^0Hf%tOR!Nd#GtZxM)|
z=lx1`U{Z@pg=jXTKwEQ!aa+EJDrL}WbBZ_NQVS~@IwX3jA|{r2s>?(e)hx*4N?Jvj
z7GW%yjHscCNAiN{IMMtP<ZM<p3~kivFwHuPcveSxH-h3FnIXVvq*RMw8#cvoITQja
zN?~E=YjIq55G2di)vu?j+JjV6F85b;_<EYy*j3m$cO)8T{l!|~B&4MSlm@uB&%k2-
zq=fp#I4&{ZAst2ah(#>gP?UFRg?J|i=9vw<aE&N{fTh_9GtX~D5M^|C%P5ja9RWjm
zj3-}sX2j};!D;TxjKgyR9fk*697eW-qhNs{h*L#?H@YO4C1As>d+GVGS~ZW^6Q|cN
z)6wI~gZHTiiJj&2kH7~p;cKx)Tq0+T&j2>d*9xV20(Pvuf~Q7Jyzsp{UW?4yjiu5U
zL1+o1lwzNEg(D>~^tZc8AJZ!aV@@3Qheo7A9I;DSL1YI{e!P&c=K<r=gl;3lt)%-V
zf#sm+LB!kirECy=A}(3ILm(!-_yLy~_>dM*c>WMoz17OZCU_#q#Mg=30HKRH@L6x&
z+bz5i1hE#b0aw7ez9qLJ8?uO3eE!_OeFPkr;f)sjcs4pdj@8+Gqz1yK_XE49=B(2D
zMQ@whGymsad!cmXlD&lojw_{Hp1G8Bhqj@3v?fe}F3n^pA(MH-$bn$Vim<I~JXTUF
z=|RK~#}6=xPaKjNJP6j@SkPMYAqb-c?K+UmMb5Z@v<<ivOhgjFx#b})K;!LxdiUGE
zT}tAFw2yAwydlOank$Wp1p#)m)B<mMMEMAkM8J7ct3&$)aUvwH>YZ+Buvgkk1|f0b
zCr#BOX%gx=c4W!})3VbX;*1Fsc*7>iOTVzyRoe8kUrL>_Ve2k(Et*VV80UC>gO9~u
zK2Xg2To=`j30F@Im+$Y4k56RAem_v^cO9U$$N3ZJ_Ho-@sDQH%*=`jRFXU|C9UEYr
z{Q?B)(k{neYLQ5Qp;Q^ED$y&jH-l>-BF9HjIoE0&H1!q!yz>RRCY(3RsANew1B-&I
z{#mOT9}Wb;SDv&|v_aqNKr)V(0`ZZ><D&Znhpo{Sg31-&_;mv1aYZ=(sD`0EAkm&^
zI9nubxYnAjKR*L!<8aY;Kr}cQEhXxGZT)bOy4Qx4N!IWNlkQoON7MYQ1Od19&$i$P
z|6F>NVP`*QgmiENDFpuz*yn|El0=kam0lXx0sPLBB*YPw6suVif`0Tq63sx*vFRZ1
zE-EbrmyZ$33a@bWsUAN5yz<)Rr!YDRX$QOw8kEslOkK-M?dnoX&srEDG-|*a-588O
zZ2`;h#_EkyCrZd{e~qA2MUbfe)It!|Bw<Tz1?z2Ij4EkDP(QKA@u5a`)6vT{!0L$-
z;}}gd0IUi6$Q<P)$>LJA3W3Iasw14D;-wJbjS70cq)^%pSZoD=+8#(S3q=4fx)zg~
zCh`y9sm?sv+(;iu4wM(LT<$!Z&LbjKW(J(-GyN_+;TzADok3IBcG!N%LaHDN(WFo#
z2AV$5w9fR|hnokF(kELxJG<$Vwfll2Pisy3PKsaAW2rTx7!GaeAjNHyAa<?!qxh}F
z<jwK~n}U_2L@aCti1brDSL-bT&Aa~q$WvQ0;s<gno+pG`%ArK$q#6oU$vetKSBdob
zoVv=pCts1KNtO`aDe(e@Q_Am4RY)@SFHJdAF<(&=gq^2|@<wgE`)X!8F4GeQUxAdq
zjTFf-Mrk#AprSEKPZjDuLLxFWSCOLawG}fqgAt;nSI_;m0hKz%Fryb#bc(31WiLuE
z2-FI))G(}`gw5x=nCXOJ1%FjNqdLaKH@yn~0ze#;&~<q!w}Uaxa6p0OLJOQiBf)YL
zm*P|Z2)TbL;$aY9?w&xIKr!lw%wJH<P}N9+i6z*R2!y0kXzTY)(2z*?SSL0)q*)0v
zU9zLpS`t2@g8<N_h1bC~>apD8Qs$;wR`DP7_+?{wQa3Ny08NYr6{J8C1ir;ntKyR=
z^v&>@B2^Am^rhu|(Rg50dAB&zdiVlFd&fWDg6Q#0D+F5=Z#jyy+wBeTavLq+8OXwq
z*yJx9A(7YR*(qQAi7g3jG8n^q{U;}IH1h1jN)<@&Lq2~r`}~n1JI@ddJHq?Ml0iBA
zBYBQr63DY>{i4rzlA#UFa&H{T(IjOAk0%MA;$N5H4QFf(kjSGoqq7&ShF17jw-`ZX
zcG5q>QBi=H%)vuBAj4P8E?VhZm-tdEHyNF*{W2j6Or?&tS_1XCgjKm2ryP*1O=j9F
zu=HniRBG0WKJf&&!V*9VKpfD*uQs_F35yrXNFAmcnNj)il}X510cmh<Fz`Vc0YR?s
z1T)r31e%F31wE02Ni&gSsdH1^3>9!*B-RP1C3nXdFquwh%p{Tsq*6G1L2>l?rIF!m
zo-q3AWYI5Q6un?AUtAKs#8SSbAX2jVqH;)k*V_bM3@I4~Zz-jC1ZCn2J}>gOE8aE8
z+^D-k{hSm3D&}75&`>u~8ULy}G9JEPun*&hRd?Z+=EV4EB{4sQ{*#vk>urzP+$v~&
z?~M4nm^H6V#)+CZq)5L+crXfcF{3IkeHFZ4nCawY<jcFHRv|WwU2<FhXl<)wFC<1V
z(Z7%wDnG4>Z=1qE@n>qHxk8$;$$!m$LK>8xPb9p_%lDaYW2rmx;$I}~ioy-KUC5Q+
zac|JbM>8ZY5?uMl6Y`J!F$AByDRsRQF-UFvt(=KHBm54k9imx0sRElNT<|1L^^bB`
zx*j#L%cG7E{z&+gcR^=*Q$v|#FoSspK22+uTo#H6`N>iM?SEWIkV3Vj^WU)Gjg)S*
zqiCSs?-P}nf&r2cLrL%Y>8^y+8mkofg1!cwW=I|5m6=7jO#G_jn|_&T!wY!+QXD)z
zzMMKhiTz+eF_1pM_2`<VB)O%GpB4%7jqBu&zV<N(d4SF^ANb&oJYX!(9=t9O-Yp-z
zArCgo2cQa!v5f}=fXCqxg@-%Rc069UbjW*qb#+*s?!j9aGa#`2PEx|5WmvGMd+!Hu
zZ&ENyMk5Z?bk#Y&Z=-esq*wti>&m;+1q((HJZ&q1LDY7^#SeavRQnTFo#T2^_bN($
zt16IJf#Y#%Ip^a1j$*W>OHL#R2R6P)X;w(qsz4MT9)s^o$q41<fcYv~6*WYZN5<!z
z&3uAbgoxboQc962E_TWh0VMVOuxwJk()GRaN_T~d`CC&vc=2pC=~oN`0^!LxH4E&m
z-JZfP3#ZMfDx*Rq`K=$|cYfqm{9bP*H}d`E>hydjKKxO$S%7h!_!I}iG+f_T(g>No
z%q9b2>C@DEmUGSEL23({ZNx)zMFtHQ1Va%3qO<J+!X;fLcqf--+Rp#sofkm^0gI6?
zw{oNgi514YXp(3lQ9J-h;srSH^4Y{>9uPqwi-=MKZJNNuZy`_%;u5h>55UU|_`6zy
zSt3?W8@$q#u#*Bz$$EJ=+*&XVW`QBh88dMmSn&iUTq?Q)tV|hH(L4uKtiOy#eZiH+
zkU(c#zSI@J)L3WZZbZaIbsJh9ETmjj!*M(T#fiY_=M7-b@L(|Wyir$DEPZkOreze0
zc<Ffa>_KGJSFcm-<<v8Lrd7Mijd&k5VPm4xC!(0`v7dLx5W<s_@o4%)f3u?uCi2A)
zG(kior)&i3Lbv!HeQdYU!t(+>m^s)9T!XWpV@NJvdKhbkN4Y3Tv_;-NDb;tWE=!<L
z$iSW@4BpmKM%DZsTUQt>$h;fQZX<=NRPZGrRRV~!K`J2Kf>d!ojiz~56BDHyLTk{1
zLc#i@@fToDgj(2**;f?kmIqnn@kUh7l5PoLu@J(2if^ro&@J*JJ`dCu7MrSYY2d_^
zOL_LCnN*)kCE~nepJz;^vjwtFyfF)J0)u6yg6Cb|J4B4VcB>`7h?}Fu*J>3AO|fU<
z<aC47&jqBZ;W<O1F;qUqHxR`xGx>1EJN2&WIMUJ!EW9_fX}Xsl(D3e>ifd&mC|HZ0
zHa!@H+#-f^(3|H%i6RhWwCDR!O}Ilu41Gy3K>E&<2-)s3U&<>FG3P%GSoEA<6HvCB
z0m&O$UND;~GJ$d?U~0orW3q0Ezr8ocYk=Ny%N_`m327!nNuo2k3A$~y<fwy_jP&$>
zW`|403(S@BoN3MCS2aZC;rj)Ls8VAg3Q<W#kWW!Xz+d!?5horh71>vjvE`RuiD&sA
z&iTSS#>_>S7IS{BH5{TtL5Dm1x@MTsUp`IGuj*wt^j9!ZkE9TOYNbLB!CbPOZm~~3
zKec@olm&rBX9E9x+T=xrw345EVx7i1%P^-`nr59K5fMKV#Cv&V^lW1~l%M?8xK!%D
zudHaK50|SorpPS5CN5T6NdUy7WcWvTUELBcV&PDimS;NR9sD8=kMq?hgew^C49nZ*
zbj5zWeVl^V1L`m-fI?^!3W%>RL}5h=d|4n02#TSGZzDtjZW{`G;~)weT6j$h%R0gx
zD`~^mt%PU-y1k)Ot=y8*n_9P`{q9=HrY3fPoZHfpP@$lJ5GoXOd_skS4o|31FhB?v
zOF9I>VyOg+r4lTb?iyHO6Lt~CwbujkSL1LGlPJawC)*E2`0~dYiKo-nguX?$x&9tW
zUu#!<EocvWl+?ZE>-1O{wdfcpgsU;k-}m9~I)-~TFz^QWy=3Xdw>0v8I_X1ae8Z1w
znRz;_uLX7tT)v+X5aD;&1F*{hTFK6<^t|nRGF5|Xc@TFE)0VE94jwNE)a_Tp+>EZ1
zpQk^{`Lnw6Ba7uSKqUsK<PN5=fM~2ztbYO%!Lkw%D<)<Y)RotLXXHCpdfxR_;I&HK
z?K{4X?;Eh?$BU!o7B3Jnl{I}?L9{!!-}Ix%n?x~AyaBI;b?FOCtJPr(B*QX={k5=a
zHRu%lmW7+5AGD(tB(wt|R~lI2^Nl;_qz0aP$_4AP`T-Iz<WV9huf-x2KTVyr{y)gW
BoWTG9

literal 0
HcmV?d00001


From 9d7f23c9188dcd5958e8b8af81005b0fb85e65f4 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 17:44:01 +0400
Subject: [PATCH 2/9] ocat fixed

---
 src/tools/ocat/OCatCmd.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/ocat/OCatCmd.Mod b/src/tools/ocat/OCatCmd.Mod
index 030011a1..3d76a745 100644
--- a/src/tools/ocat/OCatCmd.Mod
+++ b/src/tools/ocat/OCatCmd.Mod
@@ -2,7 +2,7 @@ MODULE OCatCmd;  (* J. Templ, 13-Jan-96 *)
 
 (* looks at the OBERON search path and writes one or more Oberon or ascii texts to standard out *)
 
-  IMPORT Args, Console, Files := Files0, Texts := Texts0;
+  IMPORT Args, Console, Files, Texts;
 
   PROCEDURE Cat*;
     VAR path: ARRAY 128 OF CHAR; i: INTEGER; T: Texts.Text; R: Texts.Reader; ch: CHAR; tab: BOOLEAN;

From ada56e2770150a74484ed9da69b25e230382a4e1 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 17:44:45 +0400
Subject: [PATCH 3/9] Beautifier converted to plain ascii file.

---
 src/tools/beautifier/Beautifier.Mod | Bin 36838 -> 23291 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/Beautifier.Mod
index 27abc010490318052e684530ba1f4311ab124f8d..0a822d43ed96fe02f2dd5bde0f10ac5ed5eff6fd 100644
GIT binary patch
literal 23291
zcmd5^`%fEJ+WtL%#SxVnlY%#pq-|hZDRE3eA%K8vT2)!em~pUTJji20(eCDN|DNZ4
z-*cN8o6z0tw~<;r=lb4n=gho0eD!v}?_L&z>-l&zE@s<~{~kQpdvkPneCl?}$$5WL
zTvluNIi2Ir;aM>&r}%q4Uvnq(*?9T^t*6Bw^PSn?vasLy^S5zvQ_S$=O)<T;hwTRs
zdWQ!mrw^Pv9h|wJ+~eoJa>xB0{(klAHabpT^S8p`T<4KHDTecLId$vqb#Z%B&d%MV
zRgBx?xD7v!1NWxq#dKa9)#tEHKP-+arsn{?Huxn6KWPp=n-znPjo}9zy&gco+6Sfk
zXfUp?yX&ercQ+Ts)L}DMj@%qna^uQjwc$l^E@+(Il)a0=?C=U}0qc{i;fv9{m>o_h
zw`jrQY?(|BuPQulf`F&L9rb~}r^Qe1xZgWGeuXCINS!VB;`sQ*Z*JqUJKS---51BC
zs&m81psKdq$u9W1cR&{O4_<A9)qi_&jE9>oVPe&NHydMr&N=f<FRw=<Z5s8~+@$BX
z*nGk*uvq_>zU*=_s4h-@@3Rf|8k_+9==iYLfA#jb?>gAhecbYWtKi&t?mB?30eT(m
zRY3f*|I6M1;OiY8{nmkiee4qNRf7DnD`>i{pLF5_;3%tS`(J?)z4G!B(o!if*qS0-
zb&rd|c`@TI&JoJt<$Nn(=!O?tMo|v~`nlN#H-ERg2VMGHb&GQDzI7e;{p=pEx>twj
zg~*2;2=(wnAokOS7vS$oX9a^>2D-f+OyGz|EADi+e*l<z++dYlR8ESr92C_YQa4oW
zTzOSYDYqhO`Bqryj;&U0t5^MeE9#oxU^pqOumM03f~WLt5dLUZ4tGK28sSfdgXxs^
z=Zs|X?BMThVZ^lL#4Y#o@NmEX;y@d(&~yN+;|0eAK4D*jVY&`^w)0~Dq))ynUkE^_
z5}p9Rb?EQu?NzaUR$fDSxlwU`Ju51QVeVq^sc^@|uo!<TW=h;T^DC3YpKN(5`6{IX
z9pIzxNz<wwffWXZuoSR?@0>y14YO)XL1<P*CPc`N`$zp3r#VjU?ZN5Z{@n|$Vxhxh
zCjv~u)JTICnhgB;O2``Bdl$v<qnm=SG@60*X7+agpVH$S!;%u9N)efRdi=J(4byn~
z_V~a<t@fe|-Scvja(kzoT@EJhYCtyz3s~uX%BVx=kx3|ZS7cPZUe!G+E65Gp(}pak
z6KF>gEw2*{y8Mk>*#^DMHU#~K1)zQl^_zs&dE`?Nm}Dm+DiiyVY+IoLjt-E4slFbW
zT4wtCW-$9$oU8M8omJIJ_48f%6YS)tE${HVI($2r=}%NP4I8@Yf*m0j1^g3;aj>^9
z>hY<2UJdKd-6`yV+dC14r~7AuFT9rdGQLC9v%x?;P{u?9+p^URR|;N6h=cN=M1XYb
zIyKW&UM23~toX1-U%%z{4-ep@PGN|+HsS)Eo~?N_m{mpZ@_c_hEz}q;Fnx%@WIDn#
zZx{VDEuH#rzxSG(k7*DM0&451g>Ptvq;Gk?0G9o6HRtHy3cW=}TaI+<%BdKnv+In;
zlcL2ItD(*p5QE+VRkYi1&DT3EV7sQAxj)w2ZDc|aJ6VFFmx#eZal>ddz`EvE`sd?$
z_heqq3U_h~-+9^X!KD=|BAnvelllA^Cd-IXa|aoO;P|l&Fu_L%R}KgB;%!yTR6#nA
z*93GKB|1XTEKu$O(vD!T=0<6F-DTsh%@k+rIRHrrxF-@r_#oulWOt&7U^tmgSgUT$
zx?yB@jt<yK{JJXDDeBO~OG0zKCHDR-T4Fkn<R2`1Z!no4GC8|-loYY<7L|Am;OL@l
z9jyX9XzQ0az(?i)xnZ_bRZNgPVAoHQjQB7}n3n2#=N_B=efeh0R6JgiDs_J;<|hIN
zx;h|guBpO)@$=MM_cO8p^<@e5vY$XOEayfNo!EX0*r{7Ww;CMey34o-4(Pwd9Aba)
zI^L;Jvas$*&3N=@V&5o)Batr-bFL<<+SQ$kxz!Oe&00j9&6=u!sG~zV3N2<f+F9w9
z*OPOH6(DJd-H3MT2D%Qu?gPBM8=RFhNJkgS&V07JKh+I)U+kZDo<A3%FwX#e3C23J
z;^3}i#yhj}k~_K10xMqpaRv3*nSvdN+wpfxQ|d0KM>`%&yk;T<C}thV$w00VCak&f
zd@vag`P)aoPd3wxZ`@)NAv+9g0kfN56p)_jJSw7!2U)FKcV;2bQB$S^B;G)m<u4Lc
z&AOxMyvwC9#UK>HZuCZ|(GT1bhzN}ZU1PG@iVG57t#nu7%HFj40ee#z)p=*-3}eP|
zm;ex{&J}mKL-+JzTy-)i>kEx_p$t~ALAX|1CmAEwxGoNvth~KChYMIJC5a}q`FWpm
zLbH;QtvZ${OER>nO)9HCkewA*lfe)yglAHngPl&5Ai|%a^`V&iYD7IeVhY^|C|so#
zosi5Su=Hh#5Kw}Vqw%bov*0kmpD4`^9x28*&~t{aVXbX<etmg~fIv$LsZMwTX2E!t
zn<w7wi!7r_FUub8(_nI4AUm84uO|a3SOv4Jh){A+sG*np{qcJy419X{;-R?!r--J*
zsxCOd%%XKTU85~cw;|!PJ^$5hK9OgkovS_S=p@Z>PBgAF>iw<@ym#NZjScq*#h%|~
z2>|fs@RfTeg$|l+p-*QF@!R-8cH++`&%)2A@=FRrzmMNbg$4;Ma8E*ZUB@EvFjSH|
zaSiOZ5MYeSwt6MeeUH_U{T<l_tKwk=!e+iX%yvEn+<W;tG$u<blr~@Fqqzb-q?I70
z@?!8}Mad?@4tNv?s8}VNkU$x+8GBci&$yT-!k()fuc`P3k>Fwg;In16DF8Xa^34Mv
z9;Bs_R014jN-GpA|MY=Qim>MY29+Pl0>rnR$23hCgEE!kTnjn`abJ34)*RqVV+Ws`
zy%v)i%}Zu=)as+=tGQF%Z%U5QG(ELM1o1&?d(Mj?77Vr|dgb8-9p0v|{;8_&@2t5B
z*?%-f5V1D5yMv;NDA<NOJ#>soLiR4z*3Jz~@Ze0SK_ksYX$I8c;=$@t)I^lZ(F2pf
zfo6YBXE58WDx-Ai<|Pf}SS%3ACzi!&OsbYo5@W4fpd<xFhkf9dWa8(UR4+5Dn0kDJ
zDK>3_NEA?=C-T`ANI<|NHrQ3FCFH(3C5jzt8$qK%YnT&LZxT%EsEM3LQl!i3Vv&GC
z$nQvT-=m{@<<)KHrh9gc-0Cdon)X>V0f2Rn=7>B*3Ijn&Y(#(QLt;Zu*X1k}(sf%9
zt?eK9xih(jGXZ3%xG$+dVOL>UA_ZDD8;{&gp#@4v!exm<B||;p;wG##l=yFs!<Qf=
z7$zf%(OfqKGgJ|%)JEuUgk#Z+DNe7D*USqhHJ(;B971JejmVoMnz_?<m2H&<AzU0z
z5i4d4La}@tZL)*GG#&U4<$Z>Kd*pF)#(-y(_mw8ikUVO3!)`QfMu@-3Uxb*c#Q+tf
z`g=bS49K>d0E?6PU<MrKv%z>GzvGOMv708p9#1ARhc)#9<X$H60rsK#%gf1N`q5%!
z>`Y7Wm=e%NHHqMm!e{Aw)LUUs1Su?KCPMYOQJ#eLNtMtemm4b_p9n8KT(wOp__m9v
z{ECCGfQ3{8Aa*dA$7E_W7I2?+`>0ZpZ)?J7bVwNCNkTxDP%g}%i8Qs2b=8Q0w^O<4
z<l@1qwV;@g(S|0>5CboiPNb$zWNJ<DpIiez-dBD3n5?HB!<ZtP<4NTykPzC21=}om
zB#Zql8)xv}!4JPl&XKrelv2X&N9ShN*cc}XS0WloM}{q}1lQERf)t)j-PCm8Fl#nL
zgh#WO#qLo!65C~fq$zPLr0IYpukfKHfD8vvFe^3vi-(Bp(|Fx{vIG(_Ch{p9f=FB1
zv=73^pc%*H39Evwq+N~0HnD30PEcK*FQPffy<ZOJ>0h`Wk6^-bJVWGio?%=Ln1yOr
zoh(7HHE<P75OCjTYh}As5IG(93chf5PDhQuJ$zh3&R&U3YLff_@Rf+?GG~4&c%;lz
z;W%&lp<r#IwRRLL7|ZKM%iLCZRD#z~(&%^`mQCE$wCw+J#e;~LW(U_~%8knjVHBkm
z7axEmmJz$e<2F1l(-^EH>{rWa5}pN`iJG7;2%xz%rm4^v9J&QMEhttqTdzd7oslj|
zQD`1$5&W5U$lDtrcmy**HJeM48ZYAu0rtx%=l9F<BMMT)YfZ6UcbmelHTRFl|MF~y
zzIKP@gnvGjqfyYLyGWj>0rNEkXe}qnK9l>&T(PBqTPv$s>Y51viW3kRMRsX=DRk$d
zw;Xti1_@BEO`yb$(Q(#cMe(%AfYCvc`KOt?7fCT^wod?0Mu&?iKvtkhggBePb^sr-
z{szP+(v5VNA&e{~vLw=UH7m~sXSl^vT_HQGQ1+kS6sYD%!Ih!i!$%MONdadmAH@$t
zS;OrRc4Zm^fMVE`2TD3GwMuCW!jwFOSu5)Xu^}8G$elE07;#1#fg?|p?5#0#fjFn4
z42pt}QUq_8<_HI!YSZlk9(73^$bg4`TmM0!XT=SjOwebJTc$4Br=~@43@G|2!b|6J
z$!JtUNcOZk0^&z`0iY|h;sYX&*$RbM&LmV!637*{1teA$fi`9_zJScj=#UWEBObyh
zab*eyT~_AF<O;?7Q9P68Ccc!--`i>B+IRS~>}?|NrK5R75-${psibR=bIqi{?c2b%
z^t>k6)_9IC))NLqmy(rYbda7Uy{!fx;1uHpNgUVUo(M8!_fPkC{I_F=ncX+#c|1n~
z1Qbq@pZbx22d9Cpne=eyvfKaT3Wfql$9@V5^GQ?{x#0U3Ex8wyVIA7os#i`XgR81Y
zHv2~e1jpi6`=}56%jU&{0Kap>1?nfo1^?m1g~Wo8B$@efad}c)j^WG7DX!lM3%o2)
zNSK@J<-2A~!}7ujjszf~X)J>iKOTemn~1KMA*~NL#bAlETVk6}?>Z;bZ75E#bdXC~
zpO3X{yJ?>mME#isx0t8R$$_OvW$8&obV6(c=lO8^Vb-HH$dewyQe}>Y%SRyI+*!P0
zYbH9a0}T>-=q06Go2`4@5dj%Q>Au(%azGQ@hIqrf!z%Kq@?0uRNNs|^1e?fZj8Rsd
zf@?HZNx2Y@u)5;%vAKCa-vI4wwCwHVO>%9{n`%S9rTCy>Eiv=-&V8r>DQ;AMn;OLl
z3!Po+hJ=E$i;+-Js{<{fmg9l?bKam=hV!;}d#Ag3%l_fvQQp#fAyiA`6Wm0is8pxo
z^IslqDe1E*Oa^OHd?DCNM{A%KSx`GZvEUhM57S`Up3oSQ@)>;^p(XH!BvTER!0rLb
zO@Qp2Nj_SDnHagupk)pbJt)9NYe(0prmbQ1mb=D~jD0=7mSJ%Z_ZGdx9quaI;J@pJ
z>U_u@5;5RmoL%s}pGT^+xSQVk!(FSz9;fD;Vr>~wMnXzl4Bp230^Tq7`5c5m1+m>`
z+{*ziNU~r!%}h2@B~ft6Z)#KvX1RW}xl}h(%?#QtB(1x(=+ewHFjL}Tm%UpdXBz<s
zZ-|$qQ_P}#>6U&1j^+{`Q0}23UjOWyaO*VZ3qtq1)2?|z1awt%dnBE~F87iQaLS5E
zUYe&Y<FJq?v2K}Jie%#Q7Qh6`W?=}urIg^9&G~!C%HPEvI*LZL>$$U!5OA$8Sjj7k
zWkd$IVr3x>Ev-Vv|A)xhH)Rw^2PV_7M3WD4JhaAlbZ`PT<GnCr1<uw{oS3^?+>|<F
z);@xbz&*l5z=#>RoJtHHo6?d-a|GB#z)H_Sw9=)WJLtdb6bOWi?qzu{q7(*p5#%3_
zKU^T0D!T8;;-m{Q{EqFr&Gy}tF+~?e$MZ>TWiGTU?RXEP=zbbk<1-zj*Xfnca%4?|
z#A9m$sm+Rz&j-Lo(3K~wiKO0%7julSjFwQgdoeyoF*d+XQ_8bhki~a2(N6^H9)vLe
z&?JSf(Qd>+Js(WP&?No}0ajkk(-=BxXjT<7U4itG%MRJ<^`uyTS)SiU$!j&dk^&j-
z5oQ`zoX(=)VD>$?N+#q>ZL}`dVxiSaeNFq^YMl+{9hQt}gm8I6sT2v6*-uO3NLWRs
zmJ>DWcI_q2$S^gj$-1bos}<J`LW1`!)#YsSAf(Y`ise)G8;XD4?EN{TXWK3_d0*Gy
z{r{M|J8=5<jNKQY^dB&FDqCM<@fR36UExkM=f!n_Y16uhXo?&p++C(f-$BGlk?2Lx
zgu2Rbcl;-&F$4iPc1o&Nw3_VtUrymXj9(*r^J{C8^xsY2{NBi(6OPbxK(1y3yu7pI
z4j@7he;L@n4=r~C%d4Hq-~-BtCw;!B1p(n@Wn4Q(={YGS^5$O=voy@&D;Kf47?LvU
zk-*EpS=#@#x8JdiP`dT6dSko1Cw=Q1@e*KB2^HsvnueVQnfuYJcDSqOw=|DoX7&y5
zeAxxEAxiXoC*I=La1jyjm>jwvn8#os?&lI}`Ndlm@8by)+kTYZ;f00Iw#$COcVNrw
zxj#0wYe~WDc_{6)iW(a{TPt>SQS>i*y5%pB28Wg@G~du}EMh~0DG3pO17yAMFBhz6
zSq4MA?+HAnuwmgHgcO*ERt6K$9<JntSbgI*z?p*u(NWvu>?K?!OE`xM{bHMB5rbB*
zu8knuRrmtHxA+>sV94uWd@<I)sfv4jm49<Wp$6Mn%&lkdo<NyYhVKikYIRls@w_1a
zpT6f>FF^v>Up73G29{5);d^QLB{uvZ4STTxGK4h_&>*LzsKF(A5g|~)Yo~%&^&n?a
zR{n~014UPU&Yp0Don~NOWgzd8(-=u|fTE&GxA`QM%kOOUPJkK}P`qa^#zZJ$0?Y%}
z2o%J5)uj!8$-4cyyYBH#*7q%*lJaQ{gC>N0t2l1Fwsf|SBXj(Tn*RueN^g|TT)b7f
zeJ?oTp$h>2n<mE#Vqi&~+Db9fFKp@Dy*F($xMC2!@$+Q%7wmHT9iR)zE=WODQAOB_
z-)yLfeV}qEMT3^ui~q-e_{Ko=aalM*J5WTGSXQ%a+;BBv70-w7Eyz`4?;?}0hQRCC
zefRvhE%m_~(hD%IlOD>^qx$!4RAj<UcV331+-Y-OHoy{T*+7RdcqAe8Hn8QJ7`ZAW
zN<d(IkZ;;LRZFDuYT63rOaAfwGNFXPmeO6`gOe^?&oMnG{Fyg4*9NHQN)_%S+)?s(
zVIdDeND>iFg_ibAL7>aU=K;c{k_1H(S<Zx_j}9guH^yn3m(P5XymR4CsAYvz=@&ql
z?G#~DFTmZUjkosI%FD%U5snOO(WP1$@6RKj0R>OA9R1CReo{~Ihdy_)J<-fu0h_wX
zlW!c>T;BJDyP>T?3tL2+6$gAYB`L$)tNg#{k`)-bp#E>HTcVdy^lSHow1X6;LM8W`
zEZ#XO1~VA*`Ngcf{=mOQQjg^aV;J^?`fH|qfEP3K4{A`UDOBno7=0%Gft|K3c%<L^
zU=US*pPJ*o2v@m(j#pufK5<?PzU%~K3Nf_223LSgwO+4}MZ`JV0~Ji_Ll<8nOb6t~
zHL?care;>B#C2P(W;$Dg0-Yw#Kdz8-li{n?(n7c@gbs}4%yworzjC5-lUhE`jtpw5
zLj<~7jX-B0>yU&`-aOgiK^Uw9<CO+<hyxN!5Y#=h1U&N8+kf|R&^XIF;jv=OG9fKl
z8fwKBkTza}3HHHH7f;l<m`hAEPnw#Hgba&ZoQf{r)Ji3{zNZjT1LrnDPltzV@MLDt
zO59S#ry}f1Zix9?WyP+ogzVCbL=71(?==ro{D-t^d1VO1#64Kf+kmT*PYodd87@vA
zQ~R?tfkc%TG(y<G99yB}d#lNJoDxj#NFx)cCO6+d2TCVqMx>`bPPyO4>T5mFjas!2
zev}gIUU#zhD&FVYNC5I2%kRxZAzyF{CTe~|sC65aLhs$%G~Fw4(9}$S&B<5)%SAsA
z<JTzq+1grTvpeeM<fJQDy{sM>XqmOLh{sdIs{57h8hS$HRYJSDdHbhX_@%c}5lDnD
zgec-j7yctRPCa7x;PC(Ool{CjxXss)kXU`sy8fIXejSmcx$|bjOII#){G8=3KZS|=
z{{_0Nv>dC-!Bv~P!}Z$vt%SU>9JzBnmG7RK@5@UXo14CvicdCZ`Btu`;!<dMRxk-|
zwhIAU7sxcI%ol$4*e|U4G1B7jodNmErXe2|J;4o$cAy=%26(6^!?(#7UGcOjPx8@J
zJfXITKKVQ=o{+raNxr{|CoR1^<(txY+R$a5`9~f5y?;cZ1yg^pEjJ&_<B!(6sdJzE
zM}t8q26{b_!2%$j6eIx<Pr8i&h$r1e0K}7lBoOjZ*AWQ$m_W$K1VTPOHwYtpj!;Xt
z@2FIGISyBwNO`=Ih$|QpE-NE8-ghZqofW;Ey5{!!uf-;7_onZLh=O@}=TqOQR|C+E
zsXpRp{R`14`6*hwR{q();)Y0cQWZ|t;OA`lC5!~XAN(eE%T#v(o(6wFfM2o&h$kud
z8v%Z~Yg(WC#IKFel5??jf;(tzw275(UB4AKkztP=Z~F|~9H0Eeonze3(hn#kXhEiI
zak&>;gA5{Oy^_ojv=p+<KzWIY8<1~)@2BHBZ+-4_-v?E#cRqRMJNfk!Bgg`5eRIOo
z@WBp5^9im`e)Ox#=bEu@#-yhKS^Z3Oqd%}oE*01Cc^YV;F|MNYz>0aP<!r0wNzOa#
d+z8uw!mZzLh@s$1+~d)<%nZx&$!i=B{tp8SRBZqN

literal 36838
zcmd6QUu;}inpdS~W@iev$N<Z-K!7uqnNB%l--(@0cPH*{kvMk8({9_co$j6;^@wu$
zIxbSK^3<)0<DQ)sE6~0mgtRY+x0T>w9{?dC#0y&Bfmg%>;tBBtk4Ol_)2?WKzwi6b
zx#!%v<)pi(M-wHfI`{nh&Ue25=R3Fl*Oh~NjmDMzi{YgEeEC+k-y3Ed!%3sj_;dJo
z<!a*!Kjbez{`Y_T?6d#$$5$HscjZBMFc^)7>x2BXXxzv59@-wW@yu{n8(-H!nrQNh
zukJ_F{kqQccUa$O{CO?$Axdf8U(vds^5bgb?l;iHz`WW(fu(P1-5=rOYksoBFxl0{
zpVj)`L_2`Bpe0Pi(tjtQR~z5f(y!ww{{9&){XcDq7HqkprElQ_bMnLbmGJzg)=7t}
z9EknCflsvjEquk_-_?GLTKAcjzV&sf`&(N2ms*F$jm97T^+u!pUVd>t8XvV=2Pgf)
zjq@G~h3k#5iTz>W`orVV__RCekA|*$IGRq}XqdaF+9`9J6Ng^YB0oY)_o!Q(9AvFl
zTSr{;gG^3B7uR{P{_f`XqTAiuSzCYjcyE2t<&$2vfL^^pw<y}Jq?<f*qhlA1u}JWG
z`FPkLK5_j?;qv3-yhq3Y#8D2&3GSlnXL;sy002q2G0x_Di*EA)|69j@`|k<3w)%to
z`J~7`9QP;rIIL?j!l*?)p16bVp<8lmC*5(khZcoj{!xxe#z4W7!RQc#eBq9!xkJD4
zbU5jsV%jr&^gj`>ver3=?hpHues|FSL@~$Jy+1md4s!Qkbadg)`;!x=;Ov~`Lj|dG
zzOV{39VXB|m}2o?A+(1t3+?v$hn>TP)mf<V5K!mO&kXLv(P)r&hwg*!xZgd*ih+)U
zy~peB{3IXd&#)L&qWNe%0dj_2Ah3rgqh4=124=_Hb>i!6JnH2IHul){PP)S<e0~g)
zE4ZbHL|%oKCV0ecIn2?HM2+!DcBd1FscPGcv;4T*la?U2(^HUDu?R|^$_8`({sjBi
za{#y?cNmRs00Im@9Ui$ZW<$Hf9H0rUT9Z@RXhMlqZg)>#FnfZE3Jiy%!O@q30R6W|
zlm2l(A6GEoANz$x*c<1?WJH4R9+Oi{LIC}vvD@C<a(!jjFv8I&FNQZJ?xg!n_yQZ?
zhsatH1n#<Y9}U4mBnIsJV1Q{3FWiH?J5?~V4cR+)6Zkvs4{{(duYfKzW5{L`*#?CY
zqsc-}x`mN~Ed}DMW;Gzq{Pb*c!6o%4?y`lrmWL*Yj+a}=Pl&eJ^>H*V1j_`lCkMto
z{5}!32{M{QW)iso?_h-|c^@L7l!Yb*r-kPolln`0BJZ=7%JI2EX-R|<Fj|5s6M4b^
zB%j!boh%bse!SLhb&mVvViM%#f~pt=ew>T&1HA5dI_!yl`Puy}`_a$c(mU>Fx3X;c
z*3YpJ@DP+j{|QtP)?4H~PyvW&I6XZC-*F2;BCZ7iU_u!K8ZJa?6q7C_H^ph@4o>o-
z><WqPhIxLZ^cCT7i6{<Gkxd6&43yIg*YXE**7D{rVktRx_De2g6I!R;;{U39h<=YP
zQ8`LKqBF7X;b{H&*;aoD{u1lpStPLyb=ZKjF@!dRo@~}pek@dky>f&8)4bLE;ePk@
zY;Sb#-gdh?o7)HLd+uPz-QU~0|0CD=;qLmo@8AFE;pY46+xwe4+wP{@d-uWa=11#W
z`<uVLzTkE?+}fl2d#f#O*P#~zAn}p=oI}qYIjpj@dPofetlQ|!i$IcqK8JJyJYB2_
zynB!ON68N&4ho5yDnH8Hhafx1m15dEL0b;k8jkqriO?p*;A!^=%Yq0L>a?D)Z8&4s
ztwsYEISic=RIGn#nY4KZ_E<Ch)NaM4&IkARTyf77@?MUq#!$t(=#Uqbsij&IOR0dC
zEhx-g=caJ?%?0_$pVP*I0L-x*h<hT3v}giW#3|$?IJ$QNW<r0J|1D)wwzHWahDH=Y
zg~QP3@&tXTKtMT=^|lCDOF6Y=0WdPq9S{wepzfoEy3;9k0{Alpp_04n$M8eQZXD)N
zB&v|H7X)4)rkv~^J?jG5g@XwTOKm_A53q(KHy90{05B>AKd49cF3gTcKxVroAo*g7
z?S0^Kn2%ST*dcxo4q$++I&RBw#D4eOgPonN_50iUkOmF4**)V9qkZg|D>tp{*fWP6
zlrNnC3}7lt0iguuG7{Wy-Ja8f>Fv%zt=Iz^?^(;W95|k%V`;#9O?$8ZhIx;s7sLTH
zwTjrT+GB*v8C<ZyCqn4mK`{!=O7IV0W4Tgbz?|m(2;`8{+;6ret_@$<aZm~Ni{_%h
zduAvD#EIJwTL57~F0oyzs&=bHMESHcXU75~g{_4$qS^|ZxNy(yKib(lfQ(ypEj9y}
zam$6LxB){JunUg<k?__ypG?PSXU+*5VI9CItj)w#AzSUg2W){kxaV|s&Y>M!6Cx2T
z<~NsHD%74i15lX-)<C}pZd;^fMWzEwgGQ#~F=RLGEtOT>&<hhnSdr>&oOa6(=*KE#
zEXstg+gEJ3_tZ6Xo&EO~O8(1-J($Fp76O9$qCc7zV&sjm(_`?;6LAA59^FL_j6sPM
zkS3gdQ@pRuAvi946>b}QzEatyOf<Vs6W>hP55UJ81?LSzmz%h1lh8#wnsNDRZF&km
zRSU=C(Wx6}XCtvp3VwlYb&PG}Bt-aROxF<GT<Q`$El&Edq#-+@a$p}Vp&wK<wisew
z8t2E@iTh%0=g-9mLZwdhwv&0_nJ$w^*t{y8jm;^Z6`^#J*G}@@)0hVUp?^Hf1aRyE
zVh|!goIw2H=|DpR{UIO~VyDQ)itzV{tD(p}C-diL#l2Q{!9C0e`Gf=vwNl6zEZ7gT
zwB+ef<N$lQ!$EiW)a=^sA-+uf`lwJ*hQK-Epuit!|2!WIT89geCG^=jkq5V&2Sf#{
z6f{R?4ZcJ8KD+K!dZG}@@X-)<5Kr-*W48i+$Z!JLTxIm2$Eaaa-;LM+=Tqa2)Mpi1
zfUSN^uaOUB28xDOn3ulN8M*6OKDfwQW>m}|=rEt0Q`OBl&xE5txdBf`d}`Pn<EH=t
zN*?601RY-@kks)$tB*eD=jU_@<5C9_jy$w6hLXbi`LWvCGZ99@E5(US0@qZA$z10#
z_<UoTOJoh?h1M|avpo_=@uJ=G-#QhR9i82Cv>e}E--AZYpCDvJmfhOfMkwh3q`AKR
z(D}}*t%uXo(+dhOacjX5AQ{l3I4c04v{%g(fQ3LhIqDZ@gYE^$=={Vxjnpp|V^IH5
zC<=oiv_m6>2;1$Bi+t_$XiE&`xFk|)jy{RpUN4^n4RFN8NW++r7Q`v+B5on6ojUee
zpDv47>v1);y{MGQxX+#=Fa_l8DSNTqgt|wRMjz5j7lQ?~yd`y(kNJ>hE1W^vU^=}h
zFm)UmiDFTFyhMF*0%?e8VU?A3x=6nmOj!lxk#XgssmS2Wf-<@T$VdqVthRQ__ypFB
zC1Q9O25<<01P)AHdDMkE<@`$?g$buwtbx{u8j9=}ZKvO4+U~L9@#~F+q<`k%+-mHh
zVy&qbst_<uzT;Wup-|<3oK^=T+})DN9J~N*y|)rdG?VV$%_ky=HlTF4_;#!Mq)wa>
zlptE>h_r)Q5&}yI*+5KrRx*o0O&qur2;e^@A5G6>V??CEFcHxskpRc=K0U=w6h>=_
zsrLTP!^d0e3kcT+0a!vQ5(@qgiJB;|z#B0m@vr=+(>{m>Bh#9VWo4`V`0S`V$rU~N
zUCDYvcBlk=EMjcrqU{1fK~@$BU+L3gG#&TyrQQhMTbPl;xz*l~=oFL+`LPU_gs7GK
z9rqLb^U)pBVc-|oXBJ7^L3Cp@Tv~DaG82r#qnxAf<){1kX}>pugMv_bX}~5Gv-=K_
zf)*pfPq>OOh7*%T_fVrP&;}5l78>E4v{d#H0ntw|t{n|<D}te7&Y)N|VRY;kL~m)4
zVz7LTc3``upBM}!#cAm+LYl(~^Df2(x1AOZ=Q9OU`Wl85tSrV$75NEv5M!v>gE7(5
z9nh49XfG!Zi=jd2=IzS{#Ch;Dl8s4gYIo-TbTZ-*3q|+^2x5Q(819nDB|20xwd@f{
zRAQ?a!V}ylv6j(=g1a)8ID(AL*qAs~!vf1um0T6@I)c@jS#)7P5R9#WTm$huWYJuQ
z*c*2dL{4eAd_Ld6Kb%66YWT<phs32Goox)dPhkG<ufrq&xp#p^(u{arBbyIa0A<uT
zb81aPyPnY?rLB#&7@VgmfyUtuO(1<C`i#IuZm2K>O~TxS+ax{x1VpNV(r($8ay-rf
zAt}KV--G4`CNLvi4$>e^V<c%%^#FZA9D~t0R{)Dw&Lo5o#wa0_p`NBkMC;&u1k-lB
zbLKz^nMIg99<am$2Dlub&_WL(EW};%3^9ebG`97&TWIZ{^#ofx49w4r#7H0rRt<HN
zsZg~N{MMlsX=$$7K!d@~S)mYdC>VxZGE9}BkUxm4G+aRJ8j4zyWg^}%IXT5{^=P07
z{Q&-PYS;?15YJv#a5Ew8xiR}^IMUhiU1QoyYiik4J&IttxB`Q5CjfB?4P=BcYM71s
z05;)iA{1n{P~$G0PTC@ppiwZWi_`7^=l~5Nc%Q>57%w3_L|Ys<9B@lHHzghyn@k%X
z*3Rfs6)^>xjt8UZ6z-{vMEMui20Lz_p>;%t5sP6^fhMz@Lyp0D#EbQU1`y7QPr)=8
z8gK-Hn3X>QK1pRpT+hg#zMjvX_F))eV)Ga;5!Z}>KjNVZ4^q;AIAN6o0Jw`-(VP<w
zf^NzkeoIx|_?iIv29QHLC&L-9XnYeprKvnu^)IRF*8_eY^8cSdF7qZ{*~IZYt*VeT
zapeOZ@cTrCC{JONBV29#-_Jh#?AxDwv+?i#GqNtQgQsV4_bbbH;h^{2-8b0wlt~8v
z`fErMIOtD+Cj?1+0DjzRLu;Kte!~re^qS;DSS$>g?v3yTzB0`6e(^U7p5m@#)BfSp
ztlP^FuWH{vgh<5!I(m`=x)4D@QN(r?wokCsXNb0xv&H0MkS{%%!V97=q4EoR1{#?3
zC)0@p!-@-p4o+P$I-Z=<y)_zqJS4jyv~odlzSSRovgqz3l8kfcmQREzl4T-K0pfph
zv5Qk@uon^r)bit|EE@c+_6K?djGimmEtr5X$no7R-^p&hk=?xmE0ob?Ji6us51ggd
zymiOzAdYhP_2%BzW)s}$Es$Vzc($j5tN8&!Mo{8%=7RI<=B>Lr$Qv@qgDFxXh80Ty
z*5>mZ4l`Xzv66`s##bSFhokdF$6n*yPTYCg3S}|QrwAzYhjV5qgC;t9IXI@Do<VqE
z1{}Qs(F(XmYA_ucKo8&1M<Pjsi&k^_mQkK810G24Dd5o6P;QkL>sSm~m^+WUn1+6!
zc_L)p0?q(}jk#+BWf~a3mo|`{PJk`Dz#8LOsw>J6)1)oDu4iBfuvwN8VoSONS`GL{
zh1Km3Aa|R~%ke5?5>OmW*kmTvB#a2k##B}!?w=8y2n=e{tkr%55+vPJrHyh?kTu@3
z$XZ}w=K0{?-{eOq{V6S33XzqprKLMr3A|sQV)Yj}g#3-hP5UD4h*?U%QP<KEoZ?v;
z4NJz7hXGbXP(q&8$pVs=c=A_YdcNC9%VjP7n$BlgT@aR^{p~leh_w6~t!ovQ+xdCp
zn}AA2xY|fsy@KceTn9;>v;Cc#=WPFjn&)i)Px1VftBq?~{X;GN1ugxSek5~ntZB`2
zj&)ai%QCMv-T@{t@^`fHp4Q0*Ty6Z1nh`j%AivR&>@q7=*8WX2kyfFx>_#ZrLTsRQ
zoyW-VyIQh3Cf{L7tNYVQ9TVYDH?wl<nkF0Gin><%5L!vbt6$73s1`C0;1h)&4>Mzh
zR-}91s?qpMNy+xkAWcgt-0h^Fr3XsCnVB(N(%A57lRQZ3oR$o)e=Vs?ci>@ESDBKS
zNjdmN)HozT8UR<5I!=Pwg?a<v29A-m^&_RC0y&D2q_LJFR077WrJ%YxW=ChYeq1oV
z3gSac5iyO%lD4#x5w2{efqS)Kb@DI}r<Dw9BU~#<=4WVWLM4KwB=M9^Qu5zS*1)va
zlD=NR41YOk{6<u&>?uWr0i7<$fVR3+Sr~GyE+SwoQDzP}wkEQfVIs-Q4W(2#L@hCx
zw5$&H-DowiQIpd3q?EQaEX>G{N7^TOPP7QZ11H<=8GTrZ6j&nAs52Re0@TFVpP+)~
z_rLgOR~ldE`ATeoKmRYk#*wz?!19mr9CF)f^|wHfXgo8~Pv`XhhuYgH{dch`7|XVe
z_(SP^?fS23Mu>F4O|6z)t;|1{kZfcz5*i*Cf)Z2xN(sQIsKe@Rr<C`d2mm9GKu9UY
z+VX6pj3JGYP2pL|$k9qB?5$+%X{GP!>{d#t%WxteNEz3bHoLL4^)rGOc58T5EKM3d
ztK3Gpo~+hP6zgYWTEA4-%CyLrXLsa^>nK(-ycjH2XQdQ_X4YB1RB1_vFvF|K4Btzj
zPVpjxg?_bA8!Xn+FlZ&ii(!H#)L-X(RkCpj5Rp_t%XHdEe4#ESx0Ku4I??|G-~GYw
zDIb3W&Sb*JrKe02z9DQaP?BM7F*d&~^t%eFl}yT8%ak-_p+OrNq}I=nUfWOL4zs5O
zU|VOS7@n+@YO!<+j2vb}5cdTCQbm0`+Kd^o5eU?}eiSuMBn0YPNu90B`lZksjtw8y
z&q@Znl^$SBe3d4FiVOqR&r0dO8M9cOjrnZ=gTHNs)9P$*tn~e)?k$~N1Z$XGP#wgZ
zm0r_+R{D;Xgnz5{svsnY#gy99I@?nl<zX_W&0zD9YJerXMq{H`ztkK^XOKk)hPU|)
z6T3R5S)(>l>N%u?*+kaT0JOnuXu!w~u#$8S)L0=_W%ioOJ!a*G?Jyvc?sL`MV@0CP
zY=lr-G9EFAA13_-vw>yJ^|F@V)0W@Tl{zh1T{@<bjMb$=(AXte6gB-1biCv_7yDna
z2G|LvI-g)nJWN`#H-*yIf^8uaS6Xqb=NPN5_pLc|e?#ZC#r-x~0TLsWf1o8>-0RvB
z_t7}Pn_6ea@Lhm|er7q->MKY2ds;Hp{D)eyQC?3*`Q-AIn^c~+^1+;yb4^u@5L5p~
z=eD)3Y004cyINY&t^+L@%>Q0X*6%;efqC9uf2u<!yGv;5>`U(Y?&lo;PZYXLr+GVp
z^+ZdyOSUfy+VbD(M*<h;7wK6;XIGROZ2wPnWSjN(=j?=0@C)|wAI<4ayB75Sg5IPk
z3}Awf6pWHFx$H@!;rK8J0Hgf>s1Ik>Z%mmy=YG+81&y1Ro^pdx^>=j0-v9t;X`<y=
z`x#pQiI%Qw%RkbR8ODEKA0{(%N6bP?o)e<`bJ}Bi;($V_@%s>=nimqCJFL3qwdS=}
zYxDhGq}ocHTihoG;}ITRw6g?!PH_makGLx`$rsCv8vBk9&2Yn)_w(V@3b?4YwzIu|
z&}!mj2+94o?tX*`w>J3o;YX{jCQ@+m70;SY<j?t>*QJp4dUK)G++>?&X~QHtO{+{>
zth33AAI4hXJej9gK7m$-dccOaD-92E!X}wEano(KT+(SV>-H#Q1S6?ZPO;=h6%#3V
zl+E-Prm<<#KIbY=i)Dq$nXjyePxSDXu(w(VKiXYyH9ZV(yS??boxO+GTFoZYoBbI*
z!tVZ<9yM~aq)fkUH6==q{X|+)t9kA-;q<;E@O|i?=ru<?IbK_IgEc?;%59GBa|2sV
zp4=Vy$~()fGynl`nJpvP1yAq!I%bRF#JYpz0ZlB3fYz&1CCJFxy4I3AtgYtS&hC#o
zprEH2SB#{C=F?2?o8Eg{`?Yv*!@*Zu*P{7(_Oj*=V+5Fxw#;*XrT}7=CUdor5EUgq
z_D&H0m-{dV0;(M*TgKcUKHA(`cb^tnj<k?hU58cgxLZiM-2vtgu;WF>(Ft+ygwR?S
zBp<x(+MPBU3ZtaW+~x+Fv&GG}J9xCd4Ro(@@C8Y`lno>^Y~xZO&SLD0DO|xIX(jVu
zlo!miVDmg&Pv;>w`Qhy*2`-Wd4GErOtj^+_={a(jAjNk`=a-{xPj1B47rChscCETk
zda;6AwQ+xIe;vrz4dL{if}4TGErC^eDPjp1t-+^drjFdAklT~~%wHB>-SNVx?`_*g
zW`8V@6i|T;)EOx*wIXbT0m1zQAlPqqKq^-eI#osju`CEJU~l)<ch~P9*x-Jo$J+<E
z2l~Qc7BI{XE-8^@NskFmR5;Ai^$TEo$yFM<B@13J8AB`vj0<{!2tU_#Ti-Sg@s$b6
z4P^qvDx}}R<GpP|p$di!jK&e!DcWH<uR|V|&)MK@C{GT^O&J<Rl1(k=OP91eDnKdB
z^XFjtEam4aJ%DYmyY?!OEFvH<GFY9A41~`L4e7#t3DgnI!R4VBF6Tk=`|XPAS;rRq
z5C4)oJSj)UdF8G)vD~xLvwL1uXR4)Fz4(1bcGBE|EFP~z{E&*DX%?}tz_aYA=vB*^
z<c4kT%kIW$?Gbg$wn}el-67(WrdY1x!$<%(pi2zIaHSaV`ReX-XS-h$!Rz~{qaqV1
zB%?c#baUhy4l{jjs~38{EXqd|vd^_gItSik5Hjw8-kNM?JOxeP^E(1awvdg4r$M(F
zW#dtrA04Y^asW~Mi%PIIHHy54>4q*e-n>;eOJ45zqPr+{uBSE`ffN@J01kp_J%(KH
zMWh`Z^(WarugAN6$wJB2aOp8`lO{z~N8R}~^kswN+3}?fOxatkH)4kwhE&c;j@-Gi
z@<iv>qJYgt!WNNHn*qv>K)>jYV^cWe!$;Op_|+qy)`wqrL@0y~)V)gC74aT+8q*Tc
zBC7~6G|VQbfFQ&-WD65OZE30k<w(wYB^Bf>q>TK5xMto13=E{F_!I{boJ|ijv`r~8
zk7*a+4)IIqvYV#M#H24LDe?g>-C)9Ja)(9dk`0P^y7Th${N%EEm`Wn1l5H_k`S%3?
zRCIv8loN?XqD|f|@(%2E)kz*%`~<?n07z1yJt5=Q?~~2|#;@*;OyjlS%<fPL%*Vee
zgP;<0tB+L(dkrMwiNtg)gu;bYC{8OfBs=$yFIX>KtSlsH7l?u&hVKU!r0dsdBi|ga
z$Y7>4u6F1xkyrp^yiWTB*^_*`4PQ8tfm7)`W?Mtf_2~ZALFew>$jSt@2ML?X-s<&>
znk-ATDPM5^0?a4Uw|c*^)hx~bCT~9QiUlv(cJUq(e)sOn?Ul&q>d%TYvwZ-sq-L_~
zkcLfahfuHQ;|`ME1mPxvlt4u1qelG*F?Yt<@o<uH9CR??NT)NECA_E(b}xY;AZiWu
zxv%EEXEc1;S-Tw8K=JjOPSwGSae$1n6(<jv=6D+%KI8SoP7Gjmn7$5^fZ2q<gDZfQ
zQKBXyKC1+fl1F(JrIs)vs;^bZ=J0{*qn0(i6fs8Bu*x@@a;(~*$dLOtK(a9KYMY%Q
zUp1on67+OQ*PetIf6SOMbY5pPzrS5v-nT71>)`TY5B1F<@bq!_1kS#9@Oj^)v_inu
zVBYu^{Sj~e)p3C#FENlKx46_rmntKQJL4Tm5!Rb(z3!mrFR-eJRp?192#8QE{rJ|$
zG~8LbasP%$@1`s*Zc`BHH1B8IQjOW5l=foKTKO%va$CweUZtq5y|LdEw(1<O{a8DH
z?7r`iv3L^!l^;uY%#4VeyTfn-{&3npNNo8HnSoz#-w9t|lW!7n`Emba34y?0#A<`_
zj3LY>4z2XnA{^Ybb02+d&_WFCHO3mYHe_%NhC&;pWV%zp@`K_vUQ&)mQkblpY<kiW
z3-Wi^C6Zy#VIW5v-aB!K;HjgNKuIhFOv2PHUr#_+4T4z7aS`vR0u|~e3l2XuUooCC
zMMycF_*beiJ%*~<SAB603HJysh^F7MwT5MIS>n>`R$4Rq?ys^FogcwAB0IXYiuxD-
z&Bv+edn#7se;wGnJnxD8E2TjyCdzzQ@kpwAO|I|Eii*@nKvpwiiscIyX725Kt=T)F
zT3YdOGU2nWjYU^Ljg+#Z)vVEr8;C^+i!AdMH8dB36D$$Q4pOBN7#2K$LpUNCSXCmm
zl$f{VB!rAn0bWKklNbj`dgpCHDplSYfhf~E{)ju6V<ZY#Wt6y?g{VG+aKNVSEm;A#
z?$fb^_#*igt78MFe6#|C22^6bga{R48qRE{N*)AUE(CK*oWau%sZ4@^#+X1bgn<=^
zC<!!rnk+F8k0>(5<4iukPaMl*ZMQZ$yXc%}xP%2Yqzt4Lrr`mi4qd69S%?83<3o+b
z7N`!$9tbJxWWWyvlK#PNZ49P(0hC<@OKl?CC}Vgof?(PXYb*(Omd<&FL|=8rJC|Z)
z5hT6CZ7+E!2>`^v)b#;g@*ordWZMfPz^1m8>#`qS{^%m)RSG%11CN!kZV3_1HTAW-
z60Ghsa8x4Za+)Y(8-cB>+#cQ|QDf);*>lX>8fzigyCf7Ccd-Bf|CH?P#d@$SR)Nm$
zkz7%NY#t*$U%r<;ynAbV_a5(-vkQ-4c)3dYumFZHe(*qFLP27{yyWd$*!Mb=nXQag
zqzr9Q@*<y=(D-qT<&{G#!8%Biz*c@msnFs30zkWUQ~CIw@^0Hf%tOR!Nd#GtZxM)|
z=lx1`U{Z@pg=jXTKwEQ!aa+EJDrL}WbBZ_NQVS~@IwX3jA|{r2s>?(e)hx*4N?Jvj
z7GW%yjHscCNAiN{IMMtP<ZM<p3~kivFwHuPcveSxH-h3FnIXVvq*RMw8#cvoITQja
zN?~E=YjIq55G2di)vu?j+JjV6F85b;_<EYy*j3m$cO)8T{l!|~B&4MSlm@uB&%k2-
zq=fp#I4&{ZAst2ah(#>gP?UFRg?J|i=9vw<aE&N{fTh_9GtX~D5M^|C%P5ja9RWjm
zj3-}sX2j};!D;TxjKgyR9fk*697eW-qhNs{h*L#?H@YO4C1As>d+GVGS~ZW^6Q|cN
z)6wI~gZHTiiJj&2kH7~p;cKx)Tq0+T&j2>d*9xV20(Pvuf~Q7Jyzsp{UW?4yjiu5U
zL1+o1lwzNEg(D>~^tZc8AJZ!aV@@3Qheo7A9I;DSL1YI{e!P&c=K<r=gl;3lt)%-V
zf#sm+LB!kirECy=A}(3ILm(!-_yLy~_>dM*c>WMoz17OZCU_#q#Mg=30HKRH@L6x&
z+bz5i1hE#b0aw7ez9qLJ8?uO3eE!_OeFPkr;f)sjcs4pdj@8+Gqz1yK_XE49=B(2D
zMQ@whGymsad!cmXlD&lojw_{Hp1G8Bhqj@3v?fe}F3n^pA(MH-$bn$Vim<I~JXTUF
z=|RK~#}6=xPaKjNJP6j@SkPMYAqb-c?K+UmMb5Z@v<<ivOhgjFx#b})K;!LxdiUGE
zT}tAFw2yAwydlOank$Wp1p#)m)B<mMMEMAkM8J7ct3&$)aUvwH>YZ+Buvgkk1|f0b
zCr#BOX%gx=c4W!})3VbX;*1Fsc*7>iOTVzyRoe8kUrL>_Ve2k(Et*VV80UC>gO9~u
zK2Xg2To=`j30F@Im+$Y4k56RAem_v^cO9U$$N3ZJ_Ho-@sDQH%*=`jRFXU|C9UEYr
z{Q?B)(k{neYLQ5Qp;Q^ED$y&jH-l>-BF9HjIoE0&H1!q!yz>RRCY(3RsANew1B-&I
z{#mOT9}Wb;SDv&|v_aqNKr)V(0`ZZ><D&Znhpo{Sg31-&_;mv1aYZ=(sD`0EAkm&^
zI9nubxYnAjKR*L!<8aY;Kr}cQEhXxGZT)bOy4Qx4N!IWNlkQoON7MYQ1Od19&$i$P
z|6F>NVP`*QgmiENDFpuz*yn|El0=kam0lXx0sPLBB*YPw6suVif`0Tq63sx*vFRZ1
zE-EbrmyZ$33a@bWsUAN5yz<)Rr!YDRX$QOw8kEslOkK-M?dnoX&srEDG-|*a-588O
zZ2`;h#_EkyCrZd{e~qA2MUbfe)It!|Bw<Tz1?z2Ij4EkDP(QKA@u5a`)6vT{!0L$-
z;}}gd0IUi6$Q<P)$>LJA3W3Iasw14D;-wJbjS70cq)^%pSZoD=+8#(S3q=4fx)zg~
zCh`y9sm?sv+(;iu4wM(LT<$!Z&LbjKW(J(-GyN_+;TzADok3IBcG!N%LaHDN(WFo#
z2AV$5w9fR|hnokF(kELxJG<$Vwfll2Pisy3PKsaAW2rTx7!GaeAjNHyAa<?!qxh}F
z<jwK~n}U_2L@aCti1brDSL-bT&Aa~q$WvQ0;s<gno+pG`%ArK$q#6oU$vetKSBdob
zoVv=pCts1KNtO`aDe(e@Q_Am4RY)@SFHJdAF<(&=gq^2|@<wgE`)X!8F4GeQUxAdq
zjTFf-Mrk#AprSEKPZjDuLLxFWSCOLawG}fqgAt;nSI_;m0hKz%Fryb#bc(31WiLuE
z2-FI))G(}`gw5x=nCXOJ1%FjNqdLaKH@yn~0ze#;&~<q!w}Uaxa6p0OLJOQiBf)YL
zm*P|Z2)TbL;$aY9?w&xIKr!lw%wJH<P}N9+i6z*R2!y0kXzTY)(2z*?SSL0)q*)0v
zU9zLpS`t2@g8<N_h1bC~>apD8Qs$;wR`DP7_+?{wQa3Ny08NYr6{J8C1ir;ntKyR=
z^v&>@B2^Am^rhu|(Rg50dAB&zdiVlFd&fWDg6Q#0D+F5=Z#jyy+wBeTavLq+8OXwq
z*yJx9A(7YR*(qQAi7g3jG8n^q{U;}IH1h1jN)<@&Lq2~r`}~n1JI@ddJHq?Ml0iBA
zBYBQr63DY>{i4rzlA#UFa&H{T(IjOAk0%MA;$N5H4QFf(kjSGoqq7&ShF17jw-`ZX
zcG5q>QBi=H%)vuBAj4P8E?VhZm-tdEHyNF*{W2j6Or?&tS_1XCgjKm2ryP*1O=j9F
zu=HniRBG0WKJf&&!V*9VKpfD*uQs_F35yrXNFAmcnNj)il}X510cmh<Fz`Vc0YR?s
z1T)r31e%F31wE02Ni&gSsdH1^3>9!*B-RP1C3nXdFquwh%p{Tsq*6G1L2>l?rIF!m
zo-q3AWYI5Q6un?AUtAKs#8SSbAX2jVqH;)k*V_bM3@I4~Zz-jC1ZCn2J}>gOE8aE8
z+^D-k{hSm3D&}75&`>u~8ULy}G9JEPun*&hRd?Z+=EV4EB{4sQ{*#vk>urzP+$v~&
z?~M4nm^H6V#)+CZq)5L+crXfcF{3IkeHFZ4nCawY<jcFHRv|WwU2<FhXl<)wFC<1V
z(Z7%wDnG4>Z=1qE@n>qHxk8$;$$!m$LK>8xPb9p_%lDaYW2rmx;$I}~ioy-KUC5Q+
zac|JbM>8ZY5?uMl6Y`J!F$AByDRsRQF-UFvt(=KHBm54k9imx0sRElNT<|1L^^bB`
zx*j#L%cG7E{z&+gcR^=*Q$v|#FoSspK22+uTo#H6`N>iM?SEWIkV3Vj^WU)Gjg)S*
zqiCSs?-P}nf&r2cLrL%Y>8^y+8mkofg1!cwW=I|5m6=7jO#G_jn|_&T!wY!+QXD)z
zzMMKhiTz+eF_1pM_2`<VB)O%GpB4%7jqBu&zV<N(d4SF^ANb&oJYX!(9=t9O-Yp-z
zArCgo2cQa!v5f}=fXCqxg@-%Rc069UbjW*qb#+*s?!j9aGa#`2PEx|5WmvGMd+!Hu
zZ&ENyMk5Z?bk#Y&Z=-esq*wti>&m;+1q((HJZ&q1LDY7^#SeavRQnTFo#T2^_bN($
zt16IJf#Y#%Ip^a1j$*W>OHL#R2R6P)X;w(qsz4MT9)s^o$q41<fcYv~6*WYZN5<!z
z&3uAbgoxboQc962E_TWh0VMVOuxwJk()GRaN_T~d`CC&vc=2pC=~oN`0^!LxH4E&m
z-JZfP3#ZMfDx*Rq`K=$|cYfqm{9bP*H}d`E>hydjKKxO$S%7h!_!I}iG+f_T(g>No
z%q9b2>C@DEmUGSEL23({ZNx)zMFtHQ1Va%3qO<J+!X;fLcqf--+Rp#sofkm^0gI6?
zw{oNgi514YXp(3lQ9J-h;srSH^4Y{>9uPqwi-=MKZJNNuZy`_%;u5h>55UU|_`6zy
zSt3?W8@$q#u#*Bz$$EJ=+*&XVW`QBh88dMmSn&iUTq?Q)tV|hH(L4uKtiOy#eZiH+
zkU(c#zSI@J)L3WZZbZaIbsJh9ETmjj!*M(T#fiY_=M7-b@L(|Wyir$DEPZkOreze0
zc<Ffa>_KGJSFcm-<<v8Lrd7Mijd&k5VPm4xC!(0`v7dLx5W<s_@o4%)f3u?uCi2A)
zG(kior)&i3Lbv!HeQdYU!t(+>m^s)9T!XWpV@NJvdKhbkN4Y3Tv_;-NDb;tWE=!<L
z$iSW@4BpmKM%DZsTUQt>$h;fQZX<=NRPZGrRRV~!K`J2Kf>d!ojiz~56BDHyLTk{1
zLc#i@@fToDgj(2**;f?kmIqnn@kUh7l5PoLu@J(2if^ro&@J*JJ`dCu7MrSYY2d_^
zOL_LCnN*)kCE~nepJz;^vjwtFyfF)J0)u6yg6Cb|J4B4VcB>`7h?}Fu*J>3AO|fU<
z<aC47&jqBZ;W<O1F;qUqHxR`xGx>1EJN2&WIMUJ!EW9_fX}Xsl(D3e>ifd&mC|HZ0
zHa!@H+#-f^(3|H%i6RhWwCDR!O}Ilu41Gy3K>E&<2-)s3U&<>FG3P%GSoEA<6HvCB
z0m&O$UND;~GJ$d?U~0orW3q0Ezr8ocYk=Ny%N_`m327!nNuo2k3A$~y<fwy_jP&$>
zW`|403(S@BoN3MCS2aZC;rj)Ls8VAg3Q<W#kWW!Xz+d!?5horh71>vjvE`RuiD&sA
z&iTSS#>_>S7IS{BH5{TtL5Dm1x@MTsUp`IGuj*wt^j9!ZkE9TOYNbLB!CbPOZm~~3
zKec@olm&rBX9E9x+T=xrw345EVx7i1%P^-`nr59K5fMKV#Cv&V^lW1~l%M?8xK!%D
zudHaK50|SorpPS5CN5T6NdUy7WcWvTUELBcV&PDimS;NR9sD8=kMq?hgew^C49nZ*
zbj5zWeVl^V1L`m-fI?^!3W%>RL}5h=d|4n02#TSGZzDtjZW{`G;~)weT6j$h%R0gx
zD`~^mt%PU-y1k)Ot=y8*n_9P`{q9=HrY3fPoZHfpP@$lJ5GoXOd_skS4o|31FhB?v
zOF9I>VyOg+r4lTb?iyHO6Lt~CwbujkSL1LGlPJawC)*E2`0~dYiKo-nguX?$x&9tW
zUu#!<EocvWl+?ZE>-1O{wdfcpgsU;k-}m9~I)-~TFz^QWy=3Xdw>0v8I_X1ae8Z1w
znRz;_uLX7tT)v+X5aD;&1F*{hTFK6<^t|nRGF5|Xc@TFE)0VE94jwNE)a_Tp+>EZ1
zpQk^{`Lnw6Ba7uSKqUsK<PN5=fM~2ztbYO%!Lkw%D<)<Y)RotLXXHCpdfxR_;I&HK
z?K{4X?;Eh?$BU!o7B3Jnl{I}?L9{!!-}Ix%n?x~AyaBI;b?FOCtJPr(B*QX={k5=a
zHRu%lmW7+5AGD(tB(wt|R~lI2^Nl;_qz0aP$_4AP`T-Iz<WV9huf-x2KTVyr{y)gW
BoWTG9


From d18008eafa32b81b015be515646b020165ed9950 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 18:57:55 +0400
Subject: [PATCH 4/9] Beautifier compiled

---
 src/tools/beautifier/Beautifier.Mod | 86 ++++++++++++++++-------------
 1 file changed, 49 insertions(+), 37 deletions(-)

diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/Beautifier.Mod
index 0a822d43..c87712d6 100644
--- a/src/tools/beautifier/Beautifier.Mod
+++ b/src/tools/beautifier/Beautifier.Mod
@@ -1,6 +1,6 @@
 MODULE Beautifier;     
 
-IMPORT FoldElems, Fonts, Oberon, Out, Strings, TextFrames, Texts, Viewers, MenuViewers;
+IMPORT Oberon, Out, Strings, Texts;
 
 CONST
   Tab = 09X;   LF = 0DX;
@@ -23,7 +23,7 @@ VAR
   fC, lC: ARRAY 23 OF INTEGER;
   hashT: ARRAY 51 OF Keyword;
 
-PROCEDURE (VAR k: Keyword) Init (s: ARRAY 10 OF CHAR; class: SHORTINT); 
+PROCEDURE (VAR k: Keyword) Init (s: ARRAY (*10*) OF CHAR; class: SHORTINT); 
 BEGIN
   COPY(s, k.word);
   k.class := class
@@ -66,7 +66,7 @@ BEGIN
     END
   END
 END passProcHead;
-
+(*
 PROCEDURE MarkedViewer (): TextFrames.Frame; 
   VAR v: Viewers.Viewer;
 BEGIN
@@ -77,17 +77,17 @@ BEGIN
     RETURN NIL
   END
 END MarkedViewer;
-
+*)
 PROCEDURE NoNotify (t: Texts.Text; op: INTEGER; beg, end: LONGINT);  END NoNotify;
 
 PROCEDURE ParseCmdLine (VAR bText: Texts.Text; VAR oldNotifier: Texts.Notifier); 
 VAR
   beg, end, time: LONGINT;
-  f: TextFrames.Frame;
+  (*f: TextFrames.Frame;*)
   par: Oberon.ParList;
   s: Texts.Scanner;
   t: Texts.Text;
-
+(*
 PROCEDURE OpenText (fileName: ARRAY OF CHAR; VAR t: Texts.Text; VAR f: TextFrames.Frame); 
   VAR menuF: TextFrames.Frame; v: Viewers.Viewer; x, y: INTEGER;
 BEGIN
@@ -97,13 +97,21 @@ BEGIN
   Oberon.AllocateUserViewer(0, x, y);
   v := MenuViewers.New(menuF, f, TextFrames.menuH, x, y)
 END OpenText; 
+*)
+PROCEDURE OpenText (fileName: ARRAY OF CHAR; VAR t: Texts.Text); 
+BEGIN
+  NEW(t);
+  Texts.Open(t, fileName);
 
+END OpenText; 
 BEGIN
   oldNotifier := NIL; par := Oberon.Par;
   Texts.OpenScanner(s, par.text, par.pos);
   Texts.Scan(s);
   IF s.class = Texts.Name THEN                (* Called by filename *)
-    OpenText(s.s, bText, f)
+    (*OpenText(s.s, bText, f)*)
+    OpenText(s.s, bText)
+  (*
   ELSIF (s.class = Texts.Char) & (s.c = "*") THEN    (* Called by selected viewer *)
     f := MarkedViewer()
   ELSIF (s.class = Texts.Char) & (s.c = "^") THEN    (* Called by selection *)
@@ -114,17 +122,18 @@ BEGIN
         OpenText(s.s, bText, f)
       END
     END
+    *) (* commented out oberon system specific parts. -- noch *)
   END;
-  IF f # NIL THEN
+  (*IF f # NIL THEN
     bText := f.text;
     oldNotifier := f.text.notify;
     bText.notify := NoNotify
   ELSE
     Out.String("Could not find TextFrames.Frame. Program aborted."); Out.Ln;
     HALT(99)
-  END
+  END*)
 END ParseCmdLine;
-
+(*
 PROCEDURE GetFontsFromText (bText: Texts.Text; VAR expNamFnt, cmtFnt: Fonts.Font); 
 VAR
   r: Texts.Reader;
@@ -145,7 +154,7 @@ BEGIN
   Strings.Insert("i", i, italicfont);
   cmtFnt := Fonts.This(italicfont)
 END GetFontsFromText;
-
+*)
 PROCEDURE UpdateText (bText: Texts.Text; oldNotifier: Texts.Notifier); 
 BEGIN
   IF oldNotifier # NIL THEN
@@ -273,7 +282,7 @@ BEGIN
     END
   END
 END IndentCheck;
-
+(*
 PROCEDURE ChangeFont (bText: Texts.Text; expNamFnt, cmtFnt: Fonts.Font); 
 VAR
   s: Texts.Scanner; ch: CHAR; oPos, pos: LONGINT; exp: BOOLEAN; noExpLine: INTEGER;
@@ -316,21 +325,22 @@ BEGIN
     END
   END
 END ChangeFont;
-
+*)
 PROCEDURE Format*; 
 VAR
-  bText: Texts.Text; oldNotifier: Texts.Notifier; expNamFnt, cmtFnt: Fonts.Font;
+  bText: Texts.Text; oldNotifier: Texts.Notifier;(* expNamFnt, cmtFnt: Fonts.Font;*)
 BEGIN
   bText := NIL; oldNotifier := NIL;
   ParseCmdLine(bText, oldNotifier);
   IF bText = NIL THEN
-    Out.String("Usage: Beautifier.Format * | ^ | Filename.Mod"); Out.Ln
+    (*Out.String("Usage: Beautifier.Format * | ^ | Filename.Mod"); Out.Ln*)
+    Out.String("Usage: beautifier Filename.Mod"); Out.Ln
   ELSE
-    GetFontsFromText(bText, expNamFnt, cmtFnt);
+    (*GetFontsFromText(bText, expNamFnt, cmtFnt);
     FoldElems.ExpandAll(bText, 0, TRUE);
-    ChangeFont(bText, expNamFnt, cmtFnt);
+    ChangeFont(bText, expNamFnt, cmtFnt);*)
     IndentCheck(bText);
-    FoldElems.CollapseAll(bText, {FoldElems.tempLeft});
+    (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier)
   END
 END Format;
@@ -384,16 +394,16 @@ BEGIN
   IF bText = NIL THEN
     Out.String("Usage: Beautifier.RemSemicolons * | ^ | Filename.Mod"); Out.Ln
   ELSE
-    FoldElems.ExpandAll(bText, 0, TRUE);
+    (*FoldElems.ExpandAll(bText, 0, TRUE);*)
     RemSemicolons(bText);
-    FoldElems.CollapseAll(bText, {FoldElems.tempLeft});
+    (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier)
   END
 END RemoveSemicolons;
 
 
 PROCEDURE FoldProcedures (bText: Texts.Text); 
-  VAR s: Texts.Scanner; start, end: LONGINT; procName: ARRAY 24 OF CHAR; err: BOOLEAN; ch: CHAR; e: FoldElems.Elem; te: Texts.Elem;
+  VAR s: Texts.Scanner; start, end: LONGINT; procName: ARRAY 24 OF CHAR; err: BOOLEAN; ch: CHAR; (*e: FoldElems.Elem;*) te: Texts.Elem;
 BEGIN
   Texts.OpenScanner(s, bText, 0);
   Texts.Scan(s);
@@ -404,7 +414,7 @@ BEGIN
         start := Texts.Pos(s);
         (* --- Read to end of line *)
         Texts.Read(s, ch);
-        WHILE (ch # LF) & ((s.elem = NIL) OR ~(s.elem IS FoldElems.Elem)) DO Texts.Read(s, ch) END;
+        WHILE (ch # LF) & ((s.elem = NIL)(* OR ~(s.elem IS FoldElems.Elem)*)) DO Texts.Read(s, ch) END;
         te := s.elem;
 
         (* --- find end of procedure *)
@@ -420,7 +430,7 @@ BEGIN
         END;
 
         (* --- Check, whether Procedure has not yet been folded *)
-        IF (te = NIL) OR ~(te IS FoldElems.Elem) THEN
+        (*IF (te = NIL) OR ~(te IS FoldElems.Elem) THEN
           (* --- Insert FoldElems *)
           NEW(e); e.mode := FoldElems.expRight; e.W := FoldElems.elemW; e.H := FoldElems.elemH;
           e.handle := FoldElems.FoldHandler; e.visible := TRUE; Texts.WriteElem(w, e); Texts.Insert(bText, end, w.buf);
@@ -428,14 +438,14 @@ BEGIN
           e.handle := FoldElems.FoldHandler; NEW(e.hidden); Texts.OpenBuf(e.hidden); e.visible := TRUE;
           Texts.WriteElem(w, e); Texts.Insert(bText, start, w.buf);
           Texts.OpenScanner(s, bText, end)
-        END
+        END*)
       END
     ELSIF (s.class = Texts.Name) & (s.s = "BEGIN") THEN        (* Fold Module-Body *)
       start := Texts.Pos(s) - 1;
       Texts.OpenReader(s, bText, start);
       (* --- Read to end of line *)
       Texts.Read(s, ch);
-      WHILE (ch # LF) & ((s.elem = NIL) OR ~(s.elem IS FoldElems.Elem)) DO Texts.Read(s, ch) END;
+      WHILE (ch # LF) & ((s.elem = NIL)(* OR ~(s.elem IS FoldElems.Elem)*)) DO Texts.Read(s, ch) END;
       te := s.elem;
 
       (* --- Find end of Module *)
@@ -447,7 +457,7 @@ BEGIN
         END
       END;
       (* --- Check, whether Procedure has not yet been folded *)
-      IF (te = NIL) OR ~(te IS FoldElems.Elem) THEN
+      (*IF (te = NIL) OR ~(te IS FoldElems.Elem) THEN
         (* --- Insert FoldElems *)
         NEW(e); e.mode := FoldElems.expRight; e.W := FoldElems.elemW; e.H := FoldElems.elemH;
         e.handle := FoldElems.FoldHandler; e.visible := TRUE; Texts.WriteElem(w, e); Texts.Insert(bText, end, w.buf);
@@ -455,7 +465,7 @@ BEGIN
         e.handle := FoldElems.FoldHandler; NEW(e.hidden); Texts.OpenBuf(e.hidden); e.visible := TRUE;
         Texts.WriteElem(w, e); Texts.Insert(bText, start, w.buf);
         Texts.OpenScanner(s, bText, end)
-      END
+      END*)
     ELSIF (s.class = Texts.Char) & (s.c = "(") & (s.nextCh = "*") THEN
       passComments(s)
     END;
@@ -470,9 +480,9 @@ BEGIN
   IF bText = NIL THEN
     Out.String("Usage: Beautifier.FoldProc * | ^ | Filename.Mod"); Out.Ln
   ELSE
-    FoldElems.ExpandAll(bText, 0, TRUE);
+    (*FoldElems.ExpandAll(bText, 0, TRUE);*)
     FoldProcedures(bText);
-    FoldElems.CollapseAll(bText, {FoldElems.tempLeft});
+    (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier)
   END
 END FoldProc; 
@@ -643,31 +653,32 @@ BEGIN
   IF bText = NIL THEN
     Out.String("Usage: Beautifier.SpaceOps * | ^ | Filename.Mod"); Out.Ln
   ELSE
-    FoldElems.ExpandAll(bText, 0, TRUE);
+    (*FoldElems.ExpandAll(bText, 0, TRUE);*)
     SpaceOperators(bText);
     SpaceFormParms(bText);
     RemSpaces(bText);
-    FoldElems.CollapseAll(bText, {FoldElems.tempLeft});
+    (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier)
   END
 END SpaceOps; 
 
 PROCEDURE Beautify*; 
-  VAR bText: Texts.Text; oldNotifier: Texts.Notifier; expNamFnt, cmtFnt: Fonts.Font;
+  VAR bText: Texts.Text; oldNotifier: Texts.Notifier; (*expNamFnt, cmtFnt: Fonts.Font;*)
 BEGIN
   ParseCmdLine(bText, oldNotifier);
   IF bText = NIL THEN
-    Out.String("Usage: Beautifier.SpaceOps * | ^ | Filename.Mod"); Out.Ln
+    (*Out.String("Usage: Beautifier.SpaceOps * | ^ | Filename.Mod"); Out.Ln*)
+    Out.String("Usage: Beautifier Filename.Mod"); Out.Ln
   ELSE
-    GetFontsFromText(bText, expNamFnt, cmtFnt);
+    (*GetFontsFromText(bText, expNamFnt, cmtFnt);
     FoldElems.ExpandAll(bText, 0, TRUE);
-    ChangeFont(bText, expNamFnt, cmtFnt);
+    ChangeFont(bText, expNamFnt, cmtFnt);*)
     IndentCheck(bText);
     RemSemicolons(bText);
     FoldProcedures(bText);
     SpaceOperators(bText);
     SpaceFormParms(bText);
-    FoldElems.CollapseAll(bText, {FoldElems.tempLeft});
+    (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier);
   END
 END Beautify; 
@@ -715,5 +726,6 @@ BEGIN
   Texts.OpenWriter(w);
   NEW(b);
   Texts.OpenBuf(b);
-  InitHashTable
+  InitHashTable;
+  Beautify
 END Beautifier.

From 9f6c788219572da97e3aa0ab767a39ad5cc2e417 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 19:31:48 +0400
Subject: [PATCH 5/9] texts module can save plain ascii files with CloseAscii
 function.

---
 src/runtime/Texts.Mod               | 80 +++++++++++++++++++++++++++++
 src/tools/beautifier/Beautifier.Mod |  1 +
 2 files changed, 81 insertions(+)

diff --git a/src/runtime/Texts.Mod b/src/runtime/Texts.Mod
index f20750d9..d6af078e 100644
--- a/src/runtime/Texts.Mod
+++ b/src/runtime/Texts.Mod
@@ -877,5 +877,85 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
     Files.Rename(name, bak, res); Files.Register(f)
   END Close;
 
+  PROCEDURE StoreAscii* (VAR r: Files.Rider; T: Text);
+    VAR r1: Files.Rider; u, un: Run; e: Elem; org, pos, delta, hlen, rlen: LONGINT; ecnt, fcnt: SHORTINT; ch: CHAR;  (* << *)
+      fno: SYSTEM.INT8;
+      msg: FileMsg; iden: IdentifyMsg;
+      mods, procs: ARRAY 64, 32 OF CHAR;
+      fnts: ARRAY 32 OF FontsFont;
+      block: ARRAY 1024 OF CHAR;
+
+    PROCEDURE StoreElem (VAR r: Files.Rider; pos: LONGINT; e: Elem);
+      VAR r1: Files.Rider; org, span: LONGINT; eno: SYSTEM.INT8;
+    BEGIN COPY(iden.mod, mods[ecnt]); COPY(iden.proc, procs[ecnt]); eno := 1;
+      WHILE (mods[eno] # iden.mod) OR (procs[eno] # iden.proc) DO INC(eno) END;
+      Files.Set(r1, Files.Base(r), Files.Pos(r));
+      Files.WriteLInt(r, 0); Files.WriteLInt(r, 0); Files.WriteLInt(r, 0); (*fixup slot*)
+      Files.Write(r, eno);
+      IF eno = ecnt THEN INC(ecnt); Files.WriteString(r, iden.mod); Files.WriteString(r, iden.proc) END;
+      msg.pos := pos; org := Files.Pos(r); e.handle(e, msg); span := Files.Pos(r) - org;
+      Files.WriteLInt(r1, -span); Files.WriteLInt(r1, e.W); Files.WriteLInt(r1, e.H) (*fixup*)
+    END StoreElem;
+
+  BEGIN
+    org := Files.Pos(r); msg.id := store; msg.r := r; (*Files.WriteLInt(msg.r, 0)*); (*fixup slot*)
+    u := T.head.next; pos := 0; delta := 0; fcnt := 1; ecnt := 1;
+    (*WHILE u # T.head DO
+      IF u IS Elem THEN iden.mod[0] := 0X; u(Elem).handle(u(Elem), iden) ELSE iden.mod[0] := 1X END;
+      IF iden.mod[0] # 0X THEN
+        fnts[fcnt] := u.fnt; fno := 1;
+        WHILE fnts[fno].name # u.fnt.name DO INC(fno) END;
+        Files.Write(msg.r, fno);
+        IF fno = fcnt THEN INC(fcnt); Files.WriteString(msg.r, u.fnt.name) END;
+        Files.Write(msg.r, u.col); Files.Write(msg.r, u.voff)
+      END;
+      IF u IS Piece THEN rlen := u.len; un := u.next;
+        WHILE (un IS Piece) & (un.fnt = u.fnt) & (un.col = u.col) & (un.voff = u.voff) DO
+          INC(rlen, un.len); un := un.next
+        END;
+        Files.WriteLInt(msg.r, rlen); INC(pos, rlen); u := un
+      ELSIF iden.mod[0] # 0X THEN StoreElem(msg.r, pos, u(Elem)); INC(pos); u := u.next
+      ELSE INC(delta); u := u.next
+      END
+    END;
+    Files.Write(msg.r, 0); Files.WriteLInt(msg.r, T.len - delta);
+    (*!!!hlen := Files.Pos(msg.r) - org;*) hlen := Files.Pos(msg.r) - org + 2;
+    Files.Set(r1, Files.Base(msg.r), org); Files.WriteLInt(r1, hlen); (*fixup*)
+    *)
+    Files.Set(r1, Files.Base(msg.r), 0);
+    u := T.head.next;
+    WHILE u # T.head DO
+      IF u IS Piece THEN
+        WITH u: Piece DO
+          IF u.ascii THEN Files.Set(r1, u.file, u.org); delta := u.len;  (* << LF to CR *)
+            WHILE delta > 0 DO Files.Read(r1, ch); DEC(delta);
+              (*IF ch = 0AX THEN Files.Write(msg.r, CR) ELSE*) Files.Write(msg.r, ch); (*END*)
+            END
+          ELSE Files.Set(r1, u.file, u.org); delta := u.len;
+            WHILE delta > LEN(block) DO Files.ReadBytes(r1, block, LEN(block));
+              Files.WriteBytes(msg.r, block, LEN(block)); DEC(delta, LEN(block))
+            END;
+            Files.ReadBytes(r1, block, delta); Files.WriteBytes(msg.r, block, delta)
+          END
+        END
+      ELSE iden.mod[0] := 0X; u(Elem).handle(u(Elem), iden);
+        IF iden.mod[0] # 0X THEN Files.Write(msg.r, ElemChar) END
+      END;
+      u := u.next
+    END;
+    r := msg.r;
+    IF T.notify # NIL THEN T.notify(T, unmark, 0, 0) END
+  END StoreAscii;
+
+  PROCEDURE CloseAscii* (T: Text; name: ARRAY OF CHAR);
+    VAR f: Files.File; r: Files.Rider; i, res: INTEGER; bak: ARRAY 64 OF CHAR;
+  BEGIN
+    f := Files.New(name); Files.Set(r, f, 0); (*Files.Write(r, textTag); Files.Write(r, version);*) StoreAscii(r, T);
+    i := 0; WHILE name[i] # 0X DO INC(i) END;
+    COPY(name, bak); bak[i] := "."; bak[i+1] := "B"; bak[i+2] := "a"; bak[i+3] := "k"; bak[i+4] := 0X;
+    Files.Rename(name, bak, res); Files.Register(f)
+  END CloseAscii;
+
+
 BEGIN del := NIL; NEW(FontsDefault); FontsDefault.name := "Syntax10.Scn.Fnt"
 END Texts.
diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/Beautifier.Mod
index c87712d6..a8b53f2d 100644
--- a/src/tools/beautifier/Beautifier.Mod
+++ b/src/tools/beautifier/Beautifier.Mod
@@ -680,6 +680,7 @@ BEGIN
     SpaceFormParms(bText);
     (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier);
+    Texts.CloseAscii(bText, 'test');
   END
 END Beautify; 
 

From 886c18303e77b7bde77276a4acc5f6fcae2b6b44 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 19:38:07 +0400
Subject: [PATCH 6/9] added dump text functions to beautifier.

---
 src/tools/beautifier/Beautifier.Mod | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/Beautifier.Mod
index a8b53f2d..a949c5e4 100644
--- a/src/tools/beautifier/Beautifier.Mod
+++ b/src/tools/beautifier/Beautifier.Mod
@@ -662,6 +662,31 @@ BEGIN
   END
 END SpaceOps; 
 
+PROCEDURE TextToString(VAR T : Texts.Text; VAR string : ARRAY OF CHAR);
+   VAR R : Texts.Reader;
+   ch : CHAR;
+   i : LONGINT;
+BEGIN
+   COPY("", string);
+   Texts.OpenReader(R, T, 0);
+   i := 0;
+   WHILE Texts.Pos(R) < T.len DO
+      Texts.Read(R, ch);
+      IF ch # 0DX THEN string[i] := ch ELSE string[i] := 0AX END;
+      INC(i);
+   END;
+   (*string[i] := 0X;*)
+END TextToString;
+
+PROCEDURE DumpText(VAR t: Texts.Text);
+VAR s : POINTER TO ARRAY OF CHAR;
+BEGIN
+   NEW(s, t.len + 1);
+   COPY("", s^);
+   TextToString(t, s^);
+   Out.String(s^); Out.Ln;
+END DumpText;
+
 PROCEDURE Beautify*; 
   VAR bText: Texts.Text; oldNotifier: Texts.Notifier; (*expNamFnt, cmtFnt: Fonts.Font;*)
 BEGIN
@@ -680,7 +705,8 @@ BEGIN
     SpaceFormParms(bText);
     (*FoldElems.CollapseAll(bText, {FoldElems.tempLeft});*)
     UpdateText(bText, oldNotifier);
-    Texts.CloseAscii(bText, 'test');
+    (*Texts.CloseAscii(bText, 'test');*)
+    DumpText(bText)
   END
 END Beautify; 
 

From e6532bfe234afa0095e1246a9b64fa0cd506ce9f Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 19:40:08 +0400
Subject: [PATCH 7/9] reverted back Texts module changes.

---
 src/runtime/Texts.Mod | 82 +------------------------------------------
 1 file changed, 1 insertion(+), 81 deletions(-)

diff --git a/src/runtime/Texts.Mod b/src/runtime/Texts.Mod
index d6af078e..305b225d 100644
--- a/src/runtime/Texts.Mod
+++ b/src/runtime/Texts.Mod
@@ -341,7 +341,7 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
       IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
       ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
          pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
-         IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
+	 IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
       END
     ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
     ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
@@ -877,85 +877,5 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
     Files.Rename(name, bak, res); Files.Register(f)
   END Close;
 
-  PROCEDURE StoreAscii* (VAR r: Files.Rider; T: Text);
-    VAR r1: Files.Rider; u, un: Run; e: Elem; org, pos, delta, hlen, rlen: LONGINT; ecnt, fcnt: SHORTINT; ch: CHAR;  (* << *)
-      fno: SYSTEM.INT8;
-      msg: FileMsg; iden: IdentifyMsg;
-      mods, procs: ARRAY 64, 32 OF CHAR;
-      fnts: ARRAY 32 OF FontsFont;
-      block: ARRAY 1024 OF CHAR;
-
-    PROCEDURE StoreElem (VAR r: Files.Rider; pos: LONGINT; e: Elem);
-      VAR r1: Files.Rider; org, span: LONGINT; eno: SYSTEM.INT8;
-    BEGIN COPY(iden.mod, mods[ecnt]); COPY(iden.proc, procs[ecnt]); eno := 1;
-      WHILE (mods[eno] # iden.mod) OR (procs[eno] # iden.proc) DO INC(eno) END;
-      Files.Set(r1, Files.Base(r), Files.Pos(r));
-      Files.WriteLInt(r, 0); Files.WriteLInt(r, 0); Files.WriteLInt(r, 0); (*fixup slot*)
-      Files.Write(r, eno);
-      IF eno = ecnt THEN INC(ecnt); Files.WriteString(r, iden.mod); Files.WriteString(r, iden.proc) END;
-      msg.pos := pos; org := Files.Pos(r); e.handle(e, msg); span := Files.Pos(r) - org;
-      Files.WriteLInt(r1, -span); Files.WriteLInt(r1, e.W); Files.WriteLInt(r1, e.H) (*fixup*)
-    END StoreElem;
-
-  BEGIN
-    org := Files.Pos(r); msg.id := store; msg.r := r; (*Files.WriteLInt(msg.r, 0)*); (*fixup slot*)
-    u := T.head.next; pos := 0; delta := 0; fcnt := 1; ecnt := 1;
-    (*WHILE u # T.head DO
-      IF u IS Elem THEN iden.mod[0] := 0X; u(Elem).handle(u(Elem), iden) ELSE iden.mod[0] := 1X END;
-      IF iden.mod[0] # 0X THEN
-        fnts[fcnt] := u.fnt; fno := 1;
-        WHILE fnts[fno].name # u.fnt.name DO INC(fno) END;
-        Files.Write(msg.r, fno);
-        IF fno = fcnt THEN INC(fcnt); Files.WriteString(msg.r, u.fnt.name) END;
-        Files.Write(msg.r, u.col); Files.Write(msg.r, u.voff)
-      END;
-      IF u IS Piece THEN rlen := u.len; un := u.next;
-        WHILE (un IS Piece) & (un.fnt = u.fnt) & (un.col = u.col) & (un.voff = u.voff) DO
-          INC(rlen, un.len); un := un.next
-        END;
-        Files.WriteLInt(msg.r, rlen); INC(pos, rlen); u := un
-      ELSIF iden.mod[0] # 0X THEN StoreElem(msg.r, pos, u(Elem)); INC(pos); u := u.next
-      ELSE INC(delta); u := u.next
-      END
-    END;
-    Files.Write(msg.r, 0); Files.WriteLInt(msg.r, T.len - delta);
-    (*!!!hlen := Files.Pos(msg.r) - org;*) hlen := Files.Pos(msg.r) - org + 2;
-    Files.Set(r1, Files.Base(msg.r), org); Files.WriteLInt(r1, hlen); (*fixup*)
-    *)
-    Files.Set(r1, Files.Base(msg.r), 0);
-    u := T.head.next;
-    WHILE u # T.head DO
-      IF u IS Piece THEN
-        WITH u: Piece DO
-          IF u.ascii THEN Files.Set(r1, u.file, u.org); delta := u.len;  (* << LF to CR *)
-            WHILE delta > 0 DO Files.Read(r1, ch); DEC(delta);
-              (*IF ch = 0AX THEN Files.Write(msg.r, CR) ELSE*) Files.Write(msg.r, ch); (*END*)
-            END
-          ELSE Files.Set(r1, u.file, u.org); delta := u.len;
-            WHILE delta > LEN(block) DO Files.ReadBytes(r1, block, LEN(block));
-              Files.WriteBytes(msg.r, block, LEN(block)); DEC(delta, LEN(block))
-            END;
-            Files.ReadBytes(r1, block, delta); Files.WriteBytes(msg.r, block, delta)
-          END
-        END
-      ELSE iden.mod[0] := 0X; u(Elem).handle(u(Elem), iden);
-        IF iden.mod[0] # 0X THEN Files.Write(msg.r, ElemChar) END
-      END;
-      u := u.next
-    END;
-    r := msg.r;
-    IF T.notify # NIL THEN T.notify(T, unmark, 0, 0) END
-  END StoreAscii;
-
-  PROCEDURE CloseAscii* (T: Text; name: ARRAY OF CHAR);
-    VAR f: Files.File; r: Files.Rider; i, res: INTEGER; bak: ARRAY 64 OF CHAR;
-  BEGIN
-    f := Files.New(name); Files.Set(r, f, 0); (*Files.Write(r, textTag); Files.Write(r, version);*) StoreAscii(r, T);
-    i := 0; WHILE name[i] # 0X DO INC(i) END;
-    COPY(name, bak); bak[i] := "."; bak[i+1] := "B"; bak[i+2] := "a"; bak[i+3] := "k"; bak[i+4] := 0X;
-    Files.Rename(name, bak, res); Files.Register(f)
-  END CloseAscii;
-
-
 BEGIN del := NIL; NEW(FontsDefault); FontsDefault.name := "Syntax10.Scn.Fnt"
 END Texts.

From 1e15d47936a3cdfc2f21fe5a54cc3148b014e443 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 19:43:45 +0400
Subject: [PATCH 8/9] renamed to vbeautify, added makefile. -- noch

---
 src/tools/beautifier/makefile                          | 4 ++++
 src/tools/beautifier/{Beautifier.Mod => vbeautify.Mod} | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)
 create mode 100644 src/tools/beautifier/makefile
 rename src/tools/beautifier/{Beautifier.Mod => vbeautify.Mod} (99%)

diff --git a/src/tools/beautifier/makefile b/src/tools/beautifier/makefile
new file mode 100644
index 00000000..2108b547
--- /dev/null
+++ b/src/tools/beautifier/makefile
@@ -0,0 +1,4 @@
+VOC = /opt/voc/bin/voc
+
+all:
+		$(VOC) -m vbeautify.Mod
diff --git a/src/tools/beautifier/Beautifier.Mod b/src/tools/beautifier/vbeautify.Mod
similarity index 99%
rename from src/tools/beautifier/Beautifier.Mod
rename to src/tools/beautifier/vbeautify.Mod
index a949c5e4..6480dbcf 100644
--- a/src/tools/beautifier/Beautifier.Mod
+++ b/src/tools/beautifier/vbeautify.Mod
@@ -1,4 +1,4 @@
-MODULE Beautifier;     
+MODULE vbeautify;     
 
 IMPORT Oberon, Out, Strings, Texts;
 
@@ -755,4 +755,4 @@ BEGIN
   Texts.OpenBuf(b);
   InitHashTable;
   Beautify
-END Beautifier.
+END vbeautify.

From fd27239b2d10bec24536b5288126ee65a1184851 Mon Sep 17 00:00:00 2001
From: norayr <norayr@arnet.am>
Date: Wed, 7 Dec 2016 19:47:51 +0400
Subject: [PATCH 9/9] changed help to conform to the binary name. -- noch

---
 src/tools/beautifier/vbeautify.Mod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tools/beautifier/vbeautify.Mod b/src/tools/beautifier/vbeautify.Mod
index 6480dbcf..ef38edba 100644
--- a/src/tools/beautifier/vbeautify.Mod
+++ b/src/tools/beautifier/vbeautify.Mod
@@ -334,7 +334,7 @@ BEGIN
   ParseCmdLine(bText, oldNotifier);
   IF bText = NIL THEN
     (*Out.String("Usage: Beautifier.Format * | ^ | Filename.Mod"); Out.Ln*)
-    Out.String("Usage: beautifier Filename.Mod"); Out.Ln
+    Out.String("Usage: vbeautify Filename.Mod"); Out.Ln
   ELSE
     (*GetFontsFromText(bText, expNamFnt, cmtFnt);
     FoldElems.ExpandAll(bText, 0, TRUE);
@@ -693,7 +693,7 @@ BEGIN
   ParseCmdLine(bText, oldNotifier);
   IF bText = NIL THEN
     (*Out.String("Usage: Beautifier.SpaceOps * | ^ | Filename.Mod"); Out.Ln*)
-    Out.String("Usage: Beautifier Filename.Mod"); Out.Ln
+    Out.String("Usage: vbeautify Filename.Mod"); Out.Ln
   ELSE
     (*GetFontsFromText(bText, expNamFnt, cmtFnt);
     FoldElems.ExpandAll(bText, 0, TRUE);