OberonCore

StdCoder.Decode ..,1 ..w.....VeQHfRTNHT9NTtEP9Nbf9T9N5Hc8rocIbfQ5v9DuPdvPjO
 ORf9T9N51.gdZphpRiiwhY,HH,...
 1Ak...ZT....58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.8q1
 E.0k,5TWyql.bnayKmKKqGomC5XzET1.PuP.MHT9N9ntumaU2,CJuyKtQC98P9PP7ONbXmb.2.
 2q4k2EIP.,E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.Ze,E.CcIhgsNHT
 9N9ntQ8qorG4704D.CbB,708T1U.EiG.T.d8,2U..z2,cU.ktAcoZimBhWhiohgnZcZRCY.2.w
 26.I16.M.6.JFA0z.U.2m,.5A.AU0KyB.,..e,2.AU.Ue.E.mP,UC.z5G.0kG5.1M0kokzrobG
 oemoW0Gc8roOrVqKmCrRqk4akYqIcyIdGJEGpmWLuO3CLK0GeK45uPR9RZvPN9P9fQb99,7FHP
 MNvPD99,tId9N5OP7vQEf4Idqk2aEuyqrmKJeHE8pWCob8JWqk2ak20rrCLJeHEaIbGpWSoW8p
 4aU3pd2RbBAV7gV72eGxd1hc2heGhcUwdkhgiZejxhgZcdBAIZU2ZaBhghgg2YoBhoZhZJbUAc
 GJe,BfUwd43Y13d,JedQbBAV7oe,76BfC,NEZ08nOOHEyIX00QbBAV0hc5BdChV7AV7pcUYcdB
 AoZ7RiBBgX3Zd2YI3d3pdUogUIbx2YaBhg77,t8,d6POM5f6PM0HMFNuIHeF,7F.wedphYxhrR
 icAZU...sJHfP3N1HM0MF,dN,dC.qk2akWu2sId9N50RtHVPNR1.WGnmGEGrokIqk2KIb2YD3i
 Z,.in4qUE,U5xhoxheQbBAV7oe,FveHEGpmWbK,R,iHECKR0GeK450.umVyKrG5kRqk282UoVi
 2ijRiUIbx2Y,JcH3Zoxhj,amRqk2oiUIbx6J99SO3Cb4xhXhin3ZdQbBA,HWq3YX2YCBdA3YI3
 d3N1Hk2CKEenSoiiYecBhnRcjpho,2Zd2ZIhgstE.sQ.UdQbBk2a2dvPT1THEunS0mluGuK4R7
 H9fPD9RF98H76d0,7RT1ERsM..M9,NA,NFR8Fr,OLLCJoyqv8pkuqnKKIGrry469,7RTvPu00m
 J0mMmGEGpmcJUVphtBZvgV7klumdKKuCpmmqmCKuaqruKIGrry469,,u000am4ak2K2r,7OO19
 PoZJ3iYBgohgcYijlIqk2K2,tFT9Rin4ak4aEc..wcpBgmZge2Ycoe,JeU2iVJiu2Y2BhV,VOM
 ZP8rV0,6Q1fQR7NHvQ1fMNPN796pND,7J.cF.,ND,dHH8HrN1HMFR0.QbBgV3pd27IZPO.3Qwd
 ONQ6ICktQeotEdfQN9F9vQ59.X5..RtE.6F9vQ59.C244.IC...Qii..70,cwE.E8E.k22.,6.
 .M.3QwdONIepZBZvQRtIIepZBG20ksH3.bf9ZORNPNG20EtD.0E.ses,sc6.,k,5D.CLLC3b8R
 n9P99F9vQ59.X5.u0n9PU.Iy5.,.60cK2.,U00.umUG5kmY62.7.,..Y22U,2.2.2alK96.tfj
 1kDz41.1.,6.Ikmj,,U...p.0.4.I3.0E65.2..N6yY,YbdS9L6y0I,5TWkqK4Qcj,.E6E...F
 .,.aU.EsXNv2ouBH,AzJE.nT32iQSB,dTR2xP0...
 1Ak...2I....58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.4M0
 E.QklbcjRAktgdjZgZZh2hgnlsDor.kay4.qorGqmQiig76FUHZijJCbnWmqmqKWKqtcw7.,.T
 y.A,ws1E.0E.cUOor8rqOpoKantId9NhOO9vR704TXyKt.bHfEWUmL.6..D.Xv.6.,sUOor8bB
 xhYltQ8qorGqmY6Mw.sQq2Y6cwB.0.Bg.I,oj0E.0E.E,RcjpBZvPNvQRdFHPNN9N7ONbXlT6.
 CoruKuEWKqtcw5.0.p20.3A.6.76I8bddRCYh7NCbi6Ryaj7PuWktPC5CWEdQUu6JKas7R0Wkt
 PMOGbdtPu40Zm,C2.SYj7Rya5NR4am7N6..1.,6.h6IZETyBhCo1FBfG0Ikl1sQ0puCLo8ouGL
 uyKrGomCrlc10U.2.06,.W40U2...w6.,..I5D0.V0kV...D0.2.U,.,cYR63GrRKUm4xS6PlB
 08Mtz.0E.6Q0U.UMV.6,bGuYA5mq.Q6NnrQC9HWAB1HqwBDX.Q2bmwQCdnmgBplVAARnlgANH.
 2..A.cBt8,GrRcJht1mKQX.X5.5OMV9RHvPR9F91Zb.E.6J6.6D6.GE.Q2V0ERY82D.TntABkr
 oB6..4.2UywPmLT5U5IXF6nX6,06,.Iklr6QcjpB6P9fQbf9b8RCoruKu.GomCb.Ay4,.sQRtE
 T1U2V.sEMM.Et...ktu0.Y62Umb.2..k26.0U0E.2U0AUkpMunj706.AUA2TmEwtQvz6iJSfU0
 Cy2,U1xB..C,0E..U6U..U.RfnlA9e.az86Utb.rfc7UtwZ.ST1...
 1Ak...KI....58FTuPE,5TWyqlKrqKKrGrtumdGLmGorCquU2hgnRAXDFTvMUn7FTvMf1G2sET
 fPdPMHfP9fQbf9hOO9vR7ONbvMoedhgrRiioedFWUkTeoxhmhgnpZHZijJC7ONbvM0.,.S.CN0
 E.QklbcjRAktgdjZgZZh2hgnlsDor.kay4.qorGqmQiig76FUHZijJCbnWmqmqKWKqtcw7.,.1
 z.A,Av1E.0E.cUGpmWLuOpoKqvCbHZiYpedhA704TeKKw.bHfEWUmL.6..D.5w.6.,sUXDJ99S
 qorGqmQCbWBxhYFWUl1UnNHEWUmr.6.gl,k5k05.,6.,.T4,cU.ktAcoZimBhWhiohgnZcZRCY
 .2.w26.I16.M.EJ2XkD.6.th.E0k.8Mtr.2.S02.e,2.AU.Ue.E.0t.U9U0Ikmj,6..EBU.wTz
 5,6.J,U.2GE0k.C.8E,k.47Q.wzBhcCheUIYEJidpiWgVBAVW2edphfJY7IY43bWAVWQeoZg1h
 hYRiiQcjZhjJic2a4pck2a4pc6BZWAVWQ8.U5hiVJiY3Zkoc43427qk4aU5xhoxhWAVWIY7IYE
 JidtEP9Nbnb0rmuKeyqrmKWaqkmqrSKISGc8roOrL8pt8rlymXyKuyqHmmHSorG5Hd6,d6dONl
 9R5OP7X4xhXhinxcpBgmd6PM19eH7eUXDJkruKu8rrmKqKKtCLLCJu6RZ9P7ONbvM,Mw..c95u
 PR9R.7ONbvM,kVkk.Um,..Unp3.6F6.Z50.G,0.aU.E..k.8ssHpmcIf9P9fQbf9bWGhigFWE.
 4Te.sQRdIf9P9HWE.8z,E.0.L3D.53,6.C6.QiiQ8CJuaLqKKWKqtCK.4D.o3aLq.,cwDE.6..
 F.p0,6.IE.EL4Iu.6F6.G.0..676.16.6.6AXhKE.mLT5UTyB4.4.0E.cUZT1E..UO.,.1.e0.
 ,6Y1.0.UA2Tm.mnIjZ92T,eUXDF.sE..626..U6U..HE.6EruQAnW8Utj00My7kx8O0MCT7db.
 ...
 --- end of encoding ---

CONST
  str = 0D801X + 0DC36X;

  PROCEDURE ReadLong* (VAR R: Reader; OUT longch: LONGCHAR): BOOLEAN;
    VAR ch: CHAR; val: LONGINT;
  BEGIN Read(R, ch);
    IF ch < 80X THEN
      longch := ch
    ELSIF ch < 0E0X THEN
      val := ORD(ch) - 192;
      IF val < 0 THEN RETURN FALSE END;
      Read(R, ch); val := val * 64 + ORD(ch) - 128;
      IF (ch < 80X) OR (ch >= 0E0X) THEN RETURN FALSE END;
      longch := CHR(val)
    ELSIF ch < 0F0X THEN
      val := ORD(ch) - 224;
      Read(R, ch); val := val * 64 + ORD(ch) - 128;
      IF (ch < 80X) OR (ch >= 0E0X) THEN RETURN FALSE END;
      Read(R, ch); val := val * 64 + ORD(ch) - 128;
      IF (ch < 80X) OR (ch >= 0E0X) THEN RETURN FALSE END;
      longch := CHR(val)
    ELSE
      RETURN FALSE
    END;
    RETURN TRUE
  END ReadLong;

MODULE TextOut;

IMPORT
   C:=Console;

PROCEDURE Str * ( IN s:ARRAY OF SHORTCHAR );
   BEGIN
      C.String(s); C.Flush();
   END Str;

PROCEDURE Ln * ();
   BEGIN
      C.Ln();
   END Ln;

BEGIN
   Str('TextOut.Begin'); Ln;

CLOSE
   Str('TextOut.Close'); Ln;
END TextOut.

MODULE M1;

IMPORT
  Out:= TextOut;

BEGIN
  Out.Str('M1.Begin'); Out.Ln;

CLOSE
  Out.Str('M1.Close'); Out.Ln;
END M1.

MODULE Main;

IMPORT
  M1, Out:= TextOut;

BEGIN
  Out.Str('Main program'); Out.Ln;
END Main.

   PROCEDURE DoClose*;
      VAR i: INTEGER;
   BEGIN
      IF OPM.close IN OPM.opt THEN OPT.GlbMod[0].sysflag := hasClose END;
      i := 0;
      WHILE (i < LEN(OPT.GlbMod)) & (OPT.GlbMod[i] # NIL) DO
         IF OPT.GlbMod[i].sysflag = hasClose THEN
            BegStat;
            OPM.WriteString(OPT.GlbMod[i].name^); OPM.WriteString("__close()");
            EndStat;
         END;
         INC(i)
      END;
   END DoClose;

/* BEGIN */
  TextOut_Str((CHAR*)"Main program", 13);
  TextOut_Ln();
  Main__close();
  TextOut__close();
  M1__close(); // <- неверный порядок, сперва надо закрывать M1, потом только TextOut
  __FINI;
}