kolibrios/programs/develop/oberon07/Docs/About866.txt

872 lines
29 KiB
Plaintext
Raw Normal View History

<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><20>ணࠬ<E0AEA3><E0A0AC><EFBFBD><E0AEA2><EFBFBD><EFBFBD> Oberon-07/11 <20><><EFBFBD> i386
Windows/Linux/KolibriOS.
------------------------------------------------------------------------------
<09><><EFBFBD><20>ணࠬ<E0AEA3><E0A0AC>
1. Compiler.kex (KolibriOS) - <20><EFBFBD><E1AFAE><EFBFBD><EFA5AC><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
<09>室 - ⥪<><EFBFBD><E2AEA2><><E4A0A9> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0A5AD><EFBFBD> ".ob07", <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2> ANSI
<09><><EFBFBD> UTF-8 <20> BOM-ᨣ<><E1A8A3><EFBFBD><EFBFBD>ன.
<09><>室 - <20><EFBFBD><E1AFAE><EFBFBD><EFA5AC><> <20><><EFBFBD><E0ACA0> PE, ELF <20><><EFBFBD> MENUET01/MS COFF.
<09><><EFBFBD><E0A0AC><EFBFBD><EFBFBD>:
1) <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
2) <20><EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
"con" - Windows console
"gui" - Windows GUI
"dll" - Windows DLL
"elf" - Linux
"kos" - KolibriOS
"obj" - KolibriOS DLL
"kem" - KolibriOS <20> <20><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD> 0x10000 <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
3) ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>易⥫<EFA7A0><E2A5AB><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD>, <20><><><EFBFBD><E7A0AD> -
1 <20><>, <20><><EFBFBD> ELF <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>᫨ 2-<2D> <20><><EFBFBD><E0A0AC><EFBFBD> = "obj" (KolibriOS DLL),
<09><> 3-<2D> <20><><EFBFBD><E0A0AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E2ADA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
(0x00000001 .. 0xffffffff) <20> <20><><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>,
<09><><><EFBFBD><E7A0AD> - 0x00010000 (v1.0).
<09><><EFBFBD><EFBFBD><E0A8AC>:
"C:\oberon-07\example.ob07" con 1
"C:\oberon-07\example.ob07" obj 0x00020005 (* v2.5 *)
<09> <20><><EFBFBD><20>ᯥ譮<E1AFA5> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5A4><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A5AD> 0,
<09><><EFBFBD><EFBFBD><EFBFBD> 1. <20><><EFBFBD><><E0A0A1><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> KolibriOS, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A5AD> <20><>
<09><><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD>. <20><><EFBFBD><EFBFBD><EFBFBD><E9A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EBA2AE><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> (Windows,
KolibriOS), <20> <20><><EFBFBD><E0ACA8><EFBFBD> (Linux).
2. <09><><EFBFBD><EFBFBD><EFBFBD> Lib - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
<09><EFBFBD><E2ABA8><EFBFBD> <20><> <20><EFBFBD><E0A8A3><EFBFBD><EFBFBD><EFBFBD>
1. <09><><EFBFBD><EFBFBD><EFBFBD><20><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM
2. <09><><EFBFBD><EFBFBD><EFBFBD>襭 ᨬ<><E1A8AC><EFBFBD> "_" <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E4A8AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
3. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><><E4ABA0>
4. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CASE ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> ᮮ⢥<E1AEAE><E2A2A5><EFBFBD> <20> ᨭ⠪<E1A8AD><E2A0AA><20><><E1A5AC><EFBFBD><E2A8AA>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>몥 Oberon (Revision 1.10.90)
5. <09><><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4>
6. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>/<2F><EFBFBD><> <20><><EFBFBD><EFBFBD><E7ADA5> <20><><EFBFBD> <20><EFBFBD><E3ABA5><EFBFBD><EFBFBD><><E3AAA0><EFBFBD>
7. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DIV <20> MOD <20><><EFBFBD><EFBFBD><E7ADA5> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A5AB><EFBFBD><EFBFBD> <20><>
8. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ਨ (<28><><EFBFBD><E7A8AD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><><E1A8AC><EFBFBD><EFBFBD><EFBFBD> "//")
9. <09><><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E1AFAE> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <><E2A8AF> ARRAY <20> RECORD (⮫쪮 <20><><EFBFBD> <20><EFBFBD><E2A5AD>)
10. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <>-㪠<><E3AAA0><EFBFBD>
11. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <><E2A8AF> (TYPE A = B)
------------------------------------------------------------------------------
<09><EFBFBD><E1AEA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A5A0><EFBFBD><EFBFBD>
1. <09><EFBFBD><E1ADAE><EFBFBD><EFBFBD> <>
<20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>
INTEGER -2147483648 .. 2147483647 4
REAL 1.40E-45 .. 3.34E+38 4
LONGREAL 4.94E-324 .. 1.70E+308 8
CHAR ᨬ<><E1A8AC><EFBFBD> ASCII (0X .. 0FFX) 1
BOOLEAN FALSE, TRUE 1
SET <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><><E6A5AB> <20><>ᥫ {0 .. 31} 4
2. <09><><EFBFBD><EFBFBD><E1A8AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E4A8AA><EFBFBD>஢ - 255 ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
3. <09><><EFBFBD><EFBFBD><E1A8AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> - 255 ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
4. <09><><EFBFBD><EFBFBD><E1A8AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><20><><EFBFBD><E5AEA4><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> - 511 ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
5. <09><><EFBFBD><EFBFBD><E1A8AC><EFBFBD><><E0A0A7><EFBFBD><E0ADAE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E1A8A2> - 5
6. <09><><EFBFBD><EFBFBD><E1A8AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFA2AB><EFBFBD><EFBFBD><EFBFBD> <><E2A8AF>-<2D><><EFBFBD><EFBFBD>ᥩ - 2047
7. <09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> NEW <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
8. <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A8A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
9. <09> <20>⫨稥 <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Oberon-ॠ<><E0A5A0><EFBFBD><EFBFBD>権, ᡮ<><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><ECADAE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
<09><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM
<20><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM ᮤ<><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>,
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4> <20><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E0A8A2><EFBFBD><EFBFBD> <20>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E0A5AC><EFBFBD> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><E0A8A9><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A5AD> <20>ணࠬ<E0AEA3><E0A0AC>.
PROCEDURE ADR(v: <20><EFBFBD> ): INTEGER
v - <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD>;
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> v
PROCEDURE SIZE(T): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A0A7><EFBFBD> <> T
PROCEDURE TYPEID(T): INTEGER
T - -<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> -㪠<><E3AAA0><EFBFBD>,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <> <20><><E2A0A1><EFBFBD><EFBFBD> <><E2A8AF>-<2D><><EFBFBD><EFBFBD>
PROCEDURE INF(T): T
T - REAL <20><><EFBFBD> LONGREAL,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᯥ樠<E1AFA5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A2A5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD> "<22><><EFBFBD><E1AAAE><EFBFBD><E7ADAE><EFBFBD>"
PROCEDURE GET(a: INTEGER;
VAR v: <20><EFBFBD> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD> , PROCEDURE, POINTER)
v := <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[a]
PROCEDURE PUT(a: INTEGER; x: <20><EFBFBD> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD> , PROCEDURE, POINTER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[a] := x
PROCEDURE MOVE(Source, Dest, n: INTEGER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> n <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> Source <20> Dest,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Source <20> Dest <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EBA2A0><EFBFBD><EFBFBD>
PROCEDURE COPY(VAR Source: <20><EFBFBD> ; VAR Dest: <20><EFBFBD> ; n: INTEGER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> n <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> Source <20> Dest.
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SYSTEM.MOVE(SYSTEM.ADR(Source), SYSTEM.ADR(Dest), n)
PROCEDURE CODE(s: ARRAY OF CHAR)
<09><><EFBFBD><E2A0A2> <20><><EFBFBD><E8A8AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
s - <20><><EFBFBD><E0AEAA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD> <20><><EFBFBD><EFBFBD><E2ADA0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><E0A8AC>: SYSTEM.CODE("B801000000") (* mov eax, 1 *)
<20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD>㫥 SYSTEM <20><><EFBFBD><E0A5A4><EFBFBD><EFBFBD> CARD16 (2 <20><><EFBFBD><EFBFBD><EFBFBD>). <20><><EFBFBD> <> CARD16 <20><>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><EFA2AD> <20><><EFBFBD><EFBFBD><EFBFBD>樨, <20><> <20><EFBFBD><EFBFBD><E7A5AD><EFBFBD> <20><><EFBFBD><EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CARD16 -> INTEGER <20> INTEGER -> CARD16 <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
⠪:
PROCEDURE Card16ToInt(w: SYSTEM.CARD16): INTEGER;
VAR i: INTEGER;
BEGIN
SYSTEM.PUT(SYSTEM.ADR(i), w)
RETURN i
END Card16ToInt;
PROCEDURE IntToCard16(i: INTEGER): SYSTEM.CARD16;
VAR w: SYSTEM.CARD16;
BEGIN
SYSTEM.GET(SYSTEM.ADR(i), w)
RETURN w
END IntToCard16;
<20>㭪樨 <20><EFBFBD><E1A5A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SYSTEM <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0A6><EFBFBD><EFBFBD><EFBFBD>.
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><><E4ABA0>
<20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFA2AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD><EFBFBD><EFBFBD> <><E2A8AF> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4>, <20><><20><><EFBFBD><EFBFBD><E7A5A2><EFBFBD>
<EFBFBD><EFBFBD> PROCEDURE <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><><E3AAA0><EFBFBD><><><E1AEA3><EFBFBD><E8A5AD> <20><EFBFBD><EBA7AE>: [stdcall], [cdecl]
<EFBFBD><EFBFBD><EFBFBD> [winapi]. <20><><EFBFBD><EFBFBD><E0A8AC>:
PROCEDURE [cdecl] MyProc(x, y, z: INTEGER): INTEGER;
<20>᫨ 㪠<><E3AAA0><EFBFBD><> [winapi], <20><> <20><EFBFBD><E0A8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E1AEA3><EFBFBD><E8A5AD> stdcall <20>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><EFBFBD><E3ADAA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EBA7A2><EFBFBD> <20><><EFBFBD><><EFBFBD><E2A2A5><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><E0A0A6><EFBFBD><EFBFBD>.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> [winapi] <20><><EFBFBD><EFBFBD><EFBFBD> ⮫쪮 <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Windows.
<20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFA2AB><EFBFBD><EFBFBD> <><E2A8AF>-<2D><><EFBFBD><EFBFBD>ᥩ, <20><><20><><EFBFBD><EFBFBD><E7A5A2><EFBFBD><><E1ABAE> RECORD <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><> [noalign] <20><><EFBFBD> [union]. <20><><EFBFBD><EFBFBD> [noalign] <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> [union] <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> ᬥ饭<E1ACA5><E9A5AD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A0A2> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD> <20>⮬ ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A0A2><><E0A0A7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RECORD [union] ... END ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EAA5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (union) <20> <20><>몥 C.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>묨 䫠<><E4ABA0><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <> <20> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E2A8AF><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>ᥩ.
<20><><EFBFBD> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><><E4ABA0><EFBFBD>, <20><EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2><EFBFBD> SYSTEM.
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CASE
<20><><EFBFBD><EFBFBD><E2A0AA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CASE:
CaseStatement =
CASE Expression OF <20>ase {"|" <20>ase}
[ELSE StatementSequence] END.
Case = [CaseLabelList ":" StatementSequence].
CaseLabelList = CaseLabels {"," CaseLabels}.
CaseLabels = ConstExpression [".." ConstExpression].
<20><><EFBFBD><EFBFBD><E0A8AC>:
CASE x OF
|-1: DoSomething1
| 1: DoSomething2
| 0: DoSomething3
ELSE
DoSomething4
END
<20> <20><><EFBFBD> <20><><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0A6><EFBFBD><EFBFBD>, <20><>⪠ ELSE
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>易⥫쭠. <20><20><> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><E0A8A0> <20> ELSE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><>
<EFBFBD>ணࠬ<EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20> <20><EFBFBD><E8A8A1><EFBFBD> <20><EFBFBD><E0A5AC><EFBFBD> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
------------------------------------------------------------------------------
<09><EFBFBD><20> <20><><EFBFBD> <> <20><EFBFBD><E3ABA5><EFBFBD><EFBFBD><><E3AAA0><EFBFBD>
<20><EFBFBD><E0A8A3><EFBFBD><EFBFBD><EFBFBD><><EFBFBD><E9A5AD> <20> <20><><20><> <20><><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC> <20><><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> p(T) <20> <20><EFBFBD><> p IS T <20><><EFBFBD> p = NIL. <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Oberon-ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E2A0AA> <20><><EFBFBD><EFBFBD><EFBFBD><20><EFBFBD><E0A8A2><EFBFBD><EFBFBD> <20> <20><EFBFBD><E8A8A1> <20><EFBFBD><E0A5AC><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A5A0><EFBFBD><EFBFBD><20><><EFBFBD> <> <20><EFBFBD><E3ABA5><EFBFBD><EFBFBD><><E3AAA0><EFBFBD> <20><> <20><EFBFBD><E0A8A2><EFBFBD><EFBFBD> <20>
<EFBFBD><EFBFBD><EFBFBD>, <20> <20><EFBFBD><> <20><><EFBFBD><EFBFBD><><E0A5A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE. <20> <20><20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫쭮 ᮪<><E1AEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E0A8AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <>.
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A5AB><EFBFBD><EFBFBD> <20><EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>
DISPOSE(VAR v: <20><EFBFBD>_㪠<5F><E3AAA0><EFBFBD>)
<09><EFBFBD><E1A2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ன NEW <20><><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> v^, <20> <20><><EFBFBD><EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> v
<09><><EFBFBD><EFBFBD><E7A5AD> NIL.
LSR(x, n: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E1A4A2> x <20><> n <20><><EFBFBD> <20><><EFBFBD>.
MIN(a, b: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD>.
MAX(a, b: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><E1A8AC> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD>.
BITS(x: INTEGER): SET
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD> <> SET.
<09><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨.
LENGTH(s: ARRAY OF CHAR): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD> 0X-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A5AD><EFBFBD> <20><><EFBFBD> s, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><><E1A8AC><EFBFBD><EFBFBD> 0X.
<09>᫨ ᨬ<><E1A8AC><EFBFBD> 0X <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><E3ADAA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD> s.
------------------------------------------------------------------------------
DIV <20> MOD
x y x DIV y x MOD y
5 3 1 2
-5 3 -2 1
5 -3 -2 -1
-5 -3 1 -2
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> ᯨ᪥
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC>஢, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD> <20><EFBFBD><E0A0AD><EFBFBD><20><EFBFBD><EBA7AE><EFBFBD>.
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><E1ABA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
1. <09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0ACA0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ᨢ:
PROCEDURE Proc(x: ARRAY OF ARRAY OF LONGREAL);
<09><EFBFBD> <20>࠭᫨<E0A0AD><E1ABA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⠪:
Proc(SYSTEM.ADR(x), LEN(x), LEN(x[0])
2. <09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0ACA0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD>-<2D><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> <> RECORD:
PROCEDURE Proc(VAR x: Rec);
<09><EFBFBD> <20>࠭᫨<E0A0AD><E1ABA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⠪:
Proc(SYSTEM.TYPEID(Rec), SYSTEM.ADR(x))
3. <09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD><><EFA2AB><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><E3A1A8> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> k,
<09><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4> k = 0:
PROCEDURE Proc(p1, ..., pn);
<09><EFBFBD> <20>࠭᫨<E0A0AD><E1ABA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⠪:
Proc(base(k - 1), base(k - 2), ..., base(0), p1, ..., pn),
<09><><EFBFBD> base(m) - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><E3A1A8>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> m (<28><EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
<09><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>)
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RTL
<20><><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC> <20><><EFBFBD> <20><EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RTL. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>࠭᫨<E0A0AD><E1ABA8><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>樨 (<28><EFBFBD><20> <20><><EFBFBD> <>, <20><EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD> <20><>ப, ᮮ<><EFBFBD><E9A5AD> <20><>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E0A5AC><EFBFBD> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>.) <20><><EFBFBD> <20><EFBFBD><EBA7AE> <20><><EFBFBD><EFBFBD><E6A5A4> <20><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20><>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><> <20><><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>, <20><> <20><EFBFBD><EFBFBD><E7A5AD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> SetClose:
PROCEDURE SetClose(proc: PROC), <20><><EFBFBD> TYPE PROC = PROCEDURE
SetClose <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> proc (<28><><EFBFBD> <20><><EFBFBD><E0A0AC>஢) <20><><EFBFBD><EFBFBD><EBA2A0><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
dll-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Windows), <20><20><EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> Windows DLL. <20><><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <><E2A8AF> <20><EFBFBD><E0A8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> SetClose <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>.
<20><><EFBFBD><EFBFBD><EFBFBD><E9A5AD> <20><> <20><EFBFBD><E8A8A1><EFBFBD> <20><EFBFBD><E0A5AC><EFBFBD> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EBA2AE><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
(Windows), <20> <20><><EFBFBD><E0ACA8><EFBFBD> (Linux), <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2ABA0><EFBFBD> (KolibriOS).
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> API
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E0A5A0><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> API: <20><><EFBFBD> Windows, Linux <20> KolibriOS. <20><><EFBFBD> <20>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RTL, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> API <20><> <20><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD> <20><><EFBFBD><EFACAE> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD>. <20><>
<EFBFBD><EFBFBD><EFBFBD>ᯥ稢<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E1AFAB><EFBFBD><EFBFBD><EFBFBD><E0ACA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
------------------------------------------------------------------------------
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E1AFAE><EFBFBD><EFA5AC><><E4A0A9><EFBFBD> DLL
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A0A5><EFBFBD> <20><><EFBFBD><E1AFAE><EFBFBD><EFBFBD><E0AEA2><EFBFBD> ⮫쪮 <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>. <20><><EFBFBD> <20><EFBFBD>, <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><20>ணࠬ<E0AEA3><E0A0AC>, <20> <20><> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>⬥祭<E2ACA5><><E1A8AC><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ("*"). KolibriOS DLL <20><EFBFBD><E1A5A3> <20><><EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E4A8AA><EFBFBD><EFBFBD><EFBFBD> "version"
(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>) <20> "lib_init" - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><E6A8A0><EFBFBD><EFBFBD>樨 DLL:
PROCEDURE [stdcall] lib_init(): INTEGER
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><EFBFBD><EBA7A2><EFBFBD> <20><><20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DLL.
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E1A5A3> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1.
<20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DLL <20><><EFBFBD> Linux <20><><><E0A5A0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
==============================================================================
==============================================================================
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (KolibriOS)
------------------------------------------------------------------------------
MODULE Out - <20><><EFBFBD><EFBFBD><E1AEAB><EFBFBD><EFBFBD> <20><EFBFBD>
PROCEDURE Open
<09><><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><E1AEAB><EFBFBD><EFBFBD> <20><EFBFBD>
PROCEDURE Int(x, width: INTEGER)
<09><EFBFBD><><E6A5AB><EFBFBD> <20><>᫠ x;
width - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><E1AFAE><EFBFBD><EFBFBD><E3A5AC> <20><><EFBFBD> <20><EFBFBD><EBA2AE>
PROCEDURE Real(x: LONGREAL; width: INTEGER)
<09><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A2A5><EFBFBD><EFBFBD><EFBFBD> <20><>᫠ x <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0ACA0>;
width - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><E1AFAE><EFBFBD><EFBFBD><E3A5AC> <20><><EFBFBD> <20><EFBFBD><EBA2AE>
PROCEDURE Char(x: CHAR)
<09><EFBFBD><><E1A8AC><EFBFBD><EFBFBD> x
PROCEDURE FixReal(x: LONGREAL; width, p: INTEGER)
<09><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A2A5><EFBFBD><EFBFBD><EFBFBD> <20><>᫠ x <20><><E4A8AA><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0ACA0>;
width - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><E1AFAE><EFBFBD><EFBFBD><E3A5AC> <20><><EFBFBD> <20><EFBFBD><EBA2AE>;
p - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
PROCEDURE Ln
<09><><EFBFBD><EFBFBD><20><><><E1ABA5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
PROCEDURE String(s: ARRAY OF CHAR)
<09><EFBFBD> <20><><EFBFBD> s
------------------------------------------------------------------------------
MODULE In - <20><><EFBFBD><EFBFBD><E1AEAB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
VAR Done: BOOLEAN
<09><EFBFBD><E0A8AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD> TRUE <20> <20><><EFBFBD><20>ᯥ譮<E1AFA5><E8ADAE> <20><EFBFBD><EBAFAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD> FALSE
PROCEDURE Open
<09><><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><E1AEAB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>,
<><E2A0AA> <20><><EFBFBD><EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> Done <20><><EFBFBD><EFBFBD><E7A5AD> TRUE
PROCEDURE Int(VAR x: INTEGER)
<09><><EFBFBD><EFBFBD> <20><><> INTEGER
PROCEDURE Char(VAR x: CHAR)
<09><><EFBFBD><EFBFBD><><E1A8AC><EFBFBD><EFBFBD>
PROCEDURE Real(VAR x: REAL)
<09><><EFBFBD><EFBFBD> <20><><> REAL
PROCEDURE LongReal(VAR x: LONGREAL)
<09><><EFBFBD><EFBFBD> <20><><> LONGREAL
PROCEDURE String(VAR s: ARRAY OF CHAR)
<09><><EFBFBD><EFBFBD> <20><><EFBFBD>
PROCEDURE Ln
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ENTER
------------------------------------------------------------------------------
MODULE Console - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A5AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD>᮫쭮<E1AEAB><ECADAE> <20><EFBFBD><EBA2AE>
CONST
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD> <20><><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><> <20><><EFBFBD>᮫쭮<E1AEAB><ECADAE> <20><EFBFBD><EBA2AE>
Black = 0 Blue = 1 Green = 2
Cyan = 3 Red = 4 Magenta = 5
Brown = 6 LightGray = 7 DarkGray = 8
LightBlue = 9 LightGreen = 10 LightCyan = 11
LightRed = 12 LightMagenta = 13 Yellow = 14
White = 15
PROCEDURE Cls
<09><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
PROCEDURE SetColor(FColor, BColor: INTEGER)
<09><><EFBFBD><E2A0AD><EFBFBD><EFBFBD><><E6A2A5> <20><><EFBFBD>᮫쭮<E1AEAB><ECADAE> <20><EFBFBD><EBA2AE>: FColor - 梥<><><E2A5AA><EFBFBD>,
BColor - 梥<><>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD> - <20><><EFBFBD><E8A5AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1ABA5><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><E2A0AD>
PROCEDURE SetCursor(x, y: INTEGER)
<09><><EFBFBD><E2A0AD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (x, y)
PROCEDURE GetCursor(VAR x, y: INTEGER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20> <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD><><20><><EFBFBD><EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
PROCEDURE GetCursorX(): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E2A5AA><EFBFBD><EFBFBD> x-<2D><><EFBFBD><EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
PROCEDURE GetCursorY(): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E2A5AA><EFBFBD><EFBFBD> y-<2D><><EFBFBD><EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
MODULE ConsoleLib - <20><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> console.obj
------------------------------------------------------------------------------
MODULE Math - <20><><EFBFBD><E2A5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㭪樨
CONST
pi = 3.141592653589793D+00
e = 2.718281828459045D+00
VAR
Inf, nInf: LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫쭠<E2A5AB> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫쭠<E2A5AB> <20><><EFBFBD><E1AAAE><EFBFBD><E7ADAE><EFBFBD>
PROCEDURE IsNan(x: LONGREAL): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE, <20>᫨ x - <20><> <20><>
PROCEDURE IsInf(x: LONGREAL): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE, <20>᫨ x - <20><><EFBFBD><E1AAAE><EFBFBD><E7ADAE><EFBFBD>
PROCEDURE sqrt(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> x
PROCEDURE exp(x: LONGREAL): LONGREAL
<09><><EFBFBD><E1AFAE><EFBFBD><EFBFBD><EFBFBD> x
PROCEDURE ln(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><E0A0AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x
PROCEDURE sin(x: LONGREAL): LONGREAL
<><E1A8AD> x
PROCEDURE cos(x: LONGREAL): LONGREAL
<09><><EFBFBD><E1A8AD> x
PROCEDURE tan(x: LONGREAL): LONGREAL
<><E2A0AD><EFBFBD><EFBFBD> x
PROCEDURE arcsin(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><E1A8AD> x
PROCEDURE arccos(x: LONGREAL): LONGREAL
<09><EFBFBD><EFBFBD><E1A8AD> x
PROCEDURE arctan(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><E2A0AD><EFBFBD><EFBFBD> x
PROCEDURE arctan2(y, x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><E2A0AD><EFBFBD><EFBFBD> y/x
PROCEDURE power(base, exponent: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᫠ base <20> <20><EFBFBD><E2A5AF><EFBFBD> exponent
PROCEDURE log(base, x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x <20><> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD><EFBFBD> base
PROCEDURE sinh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD><><E1A8AD> x
PROCEDURE cosh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E1A8AD> x
PROCEDURE tanh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD><><E2A0AD><EFBFBD><EFBFBD> x
PROCEDURE arcsinh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD><><E1A8AD> x
PROCEDURE arccosh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E1A8AD> x
PROCEDURE arctanh(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E0A1AE><EFBFBD><EFBFBD><EFBFBD><><E2A0AD><EFBFBD><EFBFBD> x
PROCEDURE round(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><E3A3AB><EFBFBD><EFBFBD> x <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E6A5AB><EFBFBD>
PROCEDURE frac(x: LONGREAL): LONGREAL;
<09><EFBFBD><E0AEA1><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><>᫠ x
PROCEDURE floor(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>襥 楫<><E6A5AB> <20><>᫮ (<28><EFBFBD><EFBFBD><E2A0A2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> LONGREAL),
<09><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x: floor(1.2) = 1.0
PROCEDURE ceil(x: LONGREAL): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>襥 楫<><E6A5AB> <20><>᫮ (<28><EFBFBD><EFBFBD><E2A0A2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> LONGREAL),
<09><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> x: ceil(1.2) = 2.0
PROCEDURE sgn(x: LONGREAL): INTEGER
<09>᫨ x > 0 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1
<09>᫨ x < 0 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -1
<09>᫨ x = 0 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0
------------------------------------------------------------------------------
MODULE Debug - <20><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2ABA0><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Out
PROCEDURE Open
<09><><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2ABA0><EFBFBD>
------------------------------------------------------------------------------
MODULE File - ࠡ<><E0A0A1><EFBFBD> <20><><E4A0A9><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E2A5AC>
TYPE
FNAME = ARRAY 520 OF CHAR
FS = POINTER TO rFS
rFS = RECORD (* <20><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9> *)
subfunc, pos, hpos, bytes, buffer: INTEGER;
name: FNAME
END
FD = POINTER TO rFD
rFD = RECORD (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD> <20><><EFBFBD><E2A0AB><EFBFBD> *)
attr: INTEGER;
ntyp: CHAR;
reserved: ARRAY 3 OF CHAR;
time_create, date_create,
time_access, date_access,
time_modif, date_modif,
size, hsize: INTEGER;
name: FNAME
END
CONST
SEEK_BEG = 0
SEEK_CUR = 1
SEEK_END = 2
PROCEDURE Load(FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
<09><><EFBFBD><EFBFBD><EFBFBD><E3A6A0> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20> <20><><EFBFBD><E0A0AC><EFBFBD>
size ࠧ<><E0A0A7><EFBFBD><><E4A0A9>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E3A6A5><EFBFBD><EFBFBD><EFBFBD><><E4A0A9>
<09><><EFBFBD> 0 (<28><EFBFBD><E8A8A1>). <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E5AEA4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><E1AFA0><EFBFBD><EFBFBD><EBA2A0>
<> (kunpack).
PROCEDURE GetFileInfo(FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD> <20><><EFBFBD><E2A0AB><EFBFBD> <20><><EFBFBD><><E4A0A9>
<09><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName <20> <20><><EFBFBD><E0A0AC><EFBFBD> Info.
<09><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE.
PROCEDURE Exists(FName: ARRAY OF CHAR): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE, <20>᫨ 䠩<> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PROCEDURE Close(VAR F: FS)
<09><EFBFBD><E1A2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<><E4A0A9> F <20> <20><><EFBFBD><EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD> F <20><><EFBFBD><EFBFBD><E7A5AD> NIL
PROCEDURE Open(FName: ARRAY OF CHAR): FS
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9> <20>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName, <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NIL
PROCEDURE Delete(FName: ARRAY OF CHAR): BOOLEAN
<><E3A4A0><EFBFBD><EFBFBD><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName, <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE
PROCEDURE Seek(F: FS; Offset, Origin: INTEGER): INTEGER
<09><><EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A5AD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9> F <20><> Offset,
<09><EFBFBD><E2ADAE>⥫쭮 Origin = (SEEK_BEG - <20><><EFBFBD><><E4A0A9>,
SEEK_CUR - ⥪<><E2A5AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, SEEK_END - <20><><EFBFBD><EFBFBD><EFBFBD><><E4A0A9>),
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2ADAE>⥫쭮 <20><><EFBFBD><><E4A0A9>, <20><><EFBFBD><EFBFBD><E0A8AC>:
Seek(F, 0, SEEK_END)
<09><><EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
<><E4A0A9>; <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> -1
PROCEDURE Read(F: FS; Buffer, Count: INTEGER): INTEGER
<09><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><><E4A0A9> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. F - 㪠<><E3AAA0><EFBFBD> <20><>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9>, Buffer - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, Count - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><20><EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><><E4A0A9>; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><20><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09> ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0A0A7> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A5AD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> F.
PROCEDURE Write(F: FS; Buffer, Count: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>. F - 㪠<><E3AAA0><EFBFBD> <20><>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9>, Buffer - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, Count - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><20><EFBFBD><E0A5A1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><>; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><20><20><><EFBFBD><EFBFBD><EFBFBD> <20>
ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0A0A7> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A5AD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> F.
PROCEDURE Create(FName: ARRAY OF CHAR): FS
<><E1AEA7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FName (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>), <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E4A0A9>,
<09><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> NIL
PROCEDURE CreateDir(DirName: ARRAY OF CHAR): BOOLEAN
<><E1AEA7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DirName, <20><><EFBFBD> <20><EFBFBD><E0AEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E2A2AE><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE
PROCEDURE DeleteDir(DirName: ARRAY OF CHAR): BOOLEAN
<><E3A4A0><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DirName,
<09><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE
PROCEDURE DirExists(DirName: ARRAY OF CHAR): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE, <20><20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DirName <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
MODULE Read - <20><EFBFBD><E2A5AD> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD> <><E2A8AF> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><><E4A0A9> F
<09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE <20> <20><><EFBFBD><20>ᯥ譮<E1AFA5> <20><><EFBFBD><EFBFBD><EFBFBD><20><EFBFBD><E2A5AD> <20>
ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0A0A7> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A5AD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> F
PROCEDURE Char(F: File.FS; VAR x: CHAR): BOOLEAN
PROCEDURE Int(F: File.FS; VAR x: INTEGER): BOOLEAN
PROCEDURE Real(F: File.FS; VAR x: REAL): BOOLEAN
PROCEDURE LongReal(F: File.FS; VAR x: LONGREAL): BOOLEAN
PROCEDURE Boolean(F: File.FS; VAR x: BOOLEAN): BOOLEAN
PROCEDURE Set(F: File.FS; VAR x: SET): BOOLEAN
PROCEDURE Card16(F: File.FS; VAR x: SYSTEM.CARD16): BOOLEAN
------------------------------------------------------------------------------
MODULE Write - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD> <><E2A8AF> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> F
<09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> TRUE <20> <20><><EFBFBD><20>ᯥ譮<E1AFA5> <20><><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0A0A7> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><E2A5AD>/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>
<09><><EFBFBD><EFBFBD><E0ACA0><E6A8AE><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> F
PROCEDURE Char(F: File.FS; x: CHAR): BOOLEAN
PROCEDURE Int(F: File.FS; x: INTEGER): BOOLEAN
PROCEDURE Real(F: File.FS; x: REAL): BOOLEAN
PROCEDURE LongReal(F: File.FS; x: LONGREAL): BOOLEAN
PROCEDURE Boolean(F: File.FS; x: BOOLEAN): BOOLEAN
PROCEDURE Set(F: File.FS; x: SET): BOOLEAN
PROCEDURE Card16(F: File.FS; x: SYSTEM.CARD16): BOOLEAN
------------------------------------------------------------------------------
MODULE DateTime - <20><><EFBFBD><EFBFBD>, <20><EFBFBD>
CONST ERR = -7.0D5
PROCEDURE Now(VAR Year, Month, Day, Hour, Min, Sec: INTEGER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20> <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD> <20><><EFBFBD><EFBFBD> <20>
<09><EFBFBD><E0A5AC><EFBFBD>
PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): LONGREAL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><E7A5AD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Year, Month, Day, Hour, Min, Sec;
<09><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD> ERR = -7.0D5
PROCEDURE Decode(Date: LONGREAL; VAR Year, Month, Day,
Hour, Min, Sec: INTEGER): BOOLEAN
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Year, Month, Day, Hour, Min, Sec <20><> <20><><EFBFBD><EFBFBD> Date;
<09><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FALSE
------------------------------------------------------------------------------
MODULE Args - <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>
VAR argc: INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><20><><EFBFBD><E0A0AC><20>ணࠬ<E0AEA3><E0A0AC>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>
<09><EFBFBD><E1AFAE><EFBFBD><EFA5AC><EFBFBD><><E4A0A9>
PROCEDURE GetArg(n: INTEGER; VAR s: ARRAY OF CHAR)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EBA2A0> <20> <20><><EFBFBD> s n-<2D> <20><><EFBFBD><E0A0AC><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>,
<09><EFBFBD><E3ACA5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A0AC><20><> 0 <20><> argc - 1,
<09><EFBFBD><E3ABA5><EFBFBD> <20><><EFBFBD><E0A0AC><EFBFBD> -- <20><><EFBFBD> <20><EFBFBD><E1AFAE><EFBFBD><EFA5AC><EFBFBD><><E4A0A9>
------------------------------------------------------------------------------
MODULE KOSAPI
PROCEDURE sysfunc1(arg1: INTEGER): INTEGER
PROCEDURE sysfunc2(arg1, arg2: INTEGER): INTEGER
...
PROCEDURE sysfunc7(arg1, arg2, ..., arg7: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><20><><EFBFBD> <20>㭪権 API <20><><EFBFBD><EFBFBD> KolibriOS.
arg1 .. arg7 ᮮ⢥<E1AEAE><E2A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A5A3><EFBFBD>
eax, ebx, ecx, edx, esi, edi, ebp;
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD><><E0A5A3><EFBFBD><EFBFBD><EFBFBD> eax <20><><20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><EFBFBD> <20><EFBFBD><EBA7AE>.
PROCEDURE sysfunc22(arg1, arg2: INTEGER; VAR res2: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><20><><EFBFBD> <20>㭪権 API <20><><EFBFBD><EFBFBD> KolibriOS.
arg1 - ॣ<><E0A5A3><EFBFBD><EFBFBD> eax, arg2 - ॣ<><E0A5A3><EFBFBD><EFBFBD> ebx,
res2 - <20><><EFBFBD><EFBFBD><E7A5AD><><E0A5A3><EFBFBD><EFBFBD><EFBFBD> ebx <20><><20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><EFBFBD> <20><EFBFBD><EBA7AE>;
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E7A5AD><><E0A5A3><EFBFBD><EFBFBD><EFBFBD> eax <20><><20><><EFBFBD><EFBFBD><E2A5AC><EFBFBD><EFBFBD> <20><EFBFBD><EBA7AE>.
PROCEDURE malloc(size: INTEGER): INTEGER
<09><EFBFBD><EBA4A5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
size - ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
PROCEDURE free(ptr: INTEGER): INTEGER
<09><EFBFBD><E1A2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A0AD> <20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ᮬ ptr,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0
PROCEDURE realloc(ptr, size: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
ptr - <20><><EFBFBD><EFBFBD><EFBFBD><><E0A0AD> <20><EFBFBD><EBA4A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>,
size - <20><><EFBFBD><EFBFBD><EFBFBD><><E0A0A7><EFBFBD>,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0A5A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>,
0 <20><><EFBFBD> <20><EFBFBD><E8A8A1>
PROCEDURE GetCommandLine(): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><E0A0AC>
PROCEDURE GetName(): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>
PROCEDURE LoadLib(name: ARRAY OF CHAR): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><E3A6A0> DLL <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> name. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><><E2A0A1><EFBFBD><EFBFBD>
<09><><EFBFBD><E1AFAE><EFBFBD>. <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0.
PROCEDURE GetProcAdr(name: ARRAY OF CHAR; lib: INTEGER): INTEGER
name - <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>
lib - <20><><EFBFBD><EFBFBD><EFBFBD><><E2A0A1><EFBFBD><EFBFBD> <20><><EFBFBD><E1AFAE><EFBFBD> DLL
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD>. <20><><EFBFBD> <20><EFBFBD><E8A8A1> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 0.
------------------------------------------------------------------------------
MODULE ColorDlg - ࠡ<><E0A0A1><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "Color Dialog"
TYPE
Dialog = POINTER TO RECORD (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> *)
status: INTEGER (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
0 - <20><><EFBFBD><EFBFBD><ECA7AE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> Cancel
1 - <20><><EFBFBD><EFBFBD><ECA7AE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> OK
2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> *)
color: INTEGER (* <20><><EFBFBD><EFBFBD><E0A0AD><EFBFBD><> *)
END
PROCEDURE Create(draw_window: DRAW_WINDOW): Dialog
<><E1AEA7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
draw_window - <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1AEA2> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
(TYPE DRAW_WINDOW = PROCEDURE);
<09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PROCEDURE Show(cd: Dialog)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cd - 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E1AEA7><EFBFBD><><E0A0AD>
<09><><EFBFBD><EFBFBD>ன Create
PROCEDURE Destroy(VAR cd: Dialog)
<><EFBFBD><E2AEA6><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cd - 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
MODULE OpenDlg - ࠡ<><E0A0A1><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "Open Dialog"
TYPE
Dialog = POINTER TO RECORD (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> *)
status: INTEGER (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
0 - <20><><EFBFBD><EFBFBD><ECA7AE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> Cancel
1 - <20><><EFBFBD><EFBFBD><ECA7AE><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> OK
2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> *)
FileName: ARRAY 4096 OF CHAR (* <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E0A0AD><EFBFBD><EFBFBD><><E4A0A9> *)
FilePath: ARRAY 4096 OF CHAR (* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><E0A0AD><EFBFBD><EFBFBD>
<><E4A0A9> *)
END
PROCEDURE Create(draw_window: DRAW_WINDOW; type: INTEGER; def_path,
filter: ARRAY OF CHAR): Dialog
<><E1AEA7><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
draw_window - <20><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1AEA2> <20><EFBFBD><E1ADAE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
(TYPE DRAW_WINDOW = PROCEDURE)
type - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
0 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
1 - <20><><EFBFBD><EFBFBD><E0A0AD><EFBFBD>
2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
def_path - <20><><EFBFBD><EFBFBD> <20><><><EFBFBD><E7A0AD>, <20><><EFBFBD><EFBFBD><EFBFBD> def_path <20><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
filter - <20> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1ABA5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0A5AD><><E4A0A9><EFBFBD>,
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0A5AD>
<><E0A0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E1A8AC><EFBFBD><EFBFBD><EFBFBD> "|", <20><><EFBFBD><EFBFBD><E0A8AC>: "ASM|TXT|INI"
<09><><EFBFBD><EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
PROCEDURE Show(od: Dialog; Width, Height: INTEGER)
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
od - 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E1AEA7><EFBFBD><><E0A0AD>
<20><><EFBFBD><EFBFBD>ன Create
Width <20> Height - <20><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
PROCEDURE Destroy(VAR od: Dialog)
<><EFBFBD><E2AEA6><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
od - 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
------------------------------------------------------------------------------
MODULE kfonts - ࠡ<><E0A0A1><EFBFBD> <20> kf-<2D><><EFBFBD><EFBFBD><EFBFBD>
CONST
bold = 1
italic = 2
underline = 4
strike_through = 8
smoothing = 16
bpp32 = 32
TYPE
TFont = POINTER TO TFont_desc (* 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> *)
PROCEDURE LoadFont(file_name: ARRAY OF CHAR): TFont
<09><><EFBFBD><EFBFBD><EFBFBD><E3A7A8> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><><E4A0A9>
file_name <20><><EFBFBD> kf-䠩<><E4A0A9>
१-<2D>: 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>/NIL (<28><EFBFBD><E8A8A1>)
PROCEDURE SetSize(Font: TFont; font_size: INTEGER): BOOLEAN
<09><><EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD><><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
font_size ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
१-<2D>: TRUE/FALSE (<28><EFBFBD><E8A8A1>)
PROCEDURE Enabled(Font: TFont; font_size: INTEGER): BOOLEAN
<09><EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><><E0A0A7><EFBFBD><EFBFBD>
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
font_size ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
१-<2D>: TRUE/FALSE (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>)
PROCEDURE Destroy(VAR Font: TFont)
<09><><EFBFBD><EFBFBD><EFBFBD><E3A7A8> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><EFBFBD><E1A2AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD><EFBFBD><E1A2A0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD> Font <20><><EFBFBD><EFBFBD><E7A5AD> NIL
PROCEDURE TextHeight(Font: TFont): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD>
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
१-<2D>: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD> <20> <20><><EFBFBD><EFBFBD><E1A5AB>
PROCEDURE TextWidth(Font: TFont;
str, length, params: INTEGER): INTEGER
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD>
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
str <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2> Win-1251
length <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD> -1, <20><20><><EFBFBD>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A0A5><EFBFBD> <20><EFBFBD>
params <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD>-䫠<><E4ABA0> <20><>. <20><><EFBFBD><EFBFBD>
१-<2D>: <20><><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD> <20> <20><><EFBFBD><EFBFBD><E1A5AB>
PROCEDURE TextOut(Font: TFont;
canvas, x, y, str, length, color, params: INTEGER)
<09><EFBFBD><EBA2A5><EFBFBD><><E2A5AA> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
<09><><EFBFBD> <20><EFBFBD><EBA2AE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>, <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD> <20>.65 <20><><EFBFBD>
<09>.7 (<28><20><><EFBFBD><EFBFBD><EFBFBD> 24-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
Font 㪠<><E3AAA0><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>
canvas <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E1AAAE> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
Xsize dd
Ysize dd
picture rb Xsize * Ysize * 4 (32 <20><><EFBFBD><EFBFBD>)
<20><><EFBFBD> Xsize * Ysize * 3 (24 <20><><EFBFBD><EFBFBD>)
x, y <20><><EFBFBD><EFBFBD><E0A4A8><EFBFBD><EFBFBD><><E2A5AA><EFBFBD> <20><EFBFBD><E2ADAE>⥫쭮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><E5ADA5>
<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
str <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><><E2A5AA><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><E0AEA2> Win-1251
length <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢮ ᨬ<><E1A8AC><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD> <20><><EFBFBD> -1, <20><20><><EFBFBD>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E8A0A5><EFBFBD> <20><EFBFBD>
color 梥<><><E2A5AA><EFBFBD> 0x00RRGGBB
params <20><><EFBFBD><E0A0AC><EFBFBD><EFBFBD>-䫠<><E4ABA0>:
1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
2 <20><><EFBFBD>
4 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AAAD><EFBFBD><EFBFBD>
8 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AAAD><EFBFBD><EFBFBD>
16 <20><EFBFBD><E0A8AC><EFBFBD><EFBFBD><EFBFBD><><E1A3AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
32 <20><EFBFBD> <20> 32-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><EFBFBD><EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD><><E4ABA0><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><E2A0AD><EFBFBD>
------------------------------------------------------------------------------
MODULE RasterWorks - <20><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Rasterworks.obj
------------------------------------------------------------------------------
MODULE libimg - <20><><EFBFBD><EFBFBD><20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> libimg.obj
------------------------------------------------------------------------------
MODULE NetDevices - <20><><EFBFBD><EFBFBD><20><><EFBFBD> <20>.74 (ࠡ<><E0A0A1><EFBFBD> <20> <20><>⥢묨 <20><><EFBFBD><EFBFBD><EFBFBD><E2A2A0>)
------------------------------------------------------------------------------