Egor00f/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
b6bb3d2c62
kolibrios/programs/develop/oberon07/Docs/About866.txt

870 lines
28 KiB
Plaintext
Raw Normal View History

upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
<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
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>)
Oberon07: some extensions git-svn-id: svn://kolibrios.org@7107 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-11-02 17:36:50 +01:00
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)
upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
------------------------------------------------------------------------------
<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;
Oberon07: some extensions git-svn-id: svn://kolibrios.org@7107 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-11-02 17:36:50 +01:00
VAR v: <20><EFBFBD> <20>᭮<EFBFBD><E1ADAE><EFBFBD><EFBFBD> ⨯, PROCEDURE, POINTER)
upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
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>
Oberon07: some extensions git-svn-id: svn://kolibrios.org@7107 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-11-02 17:36:50 +01:00
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)
upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
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>.
Oberon07: some extensions git-svn-id: svn://kolibrios.org@7107 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-11-02 17:36:50 +01:00
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>.
upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
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
Oberon07: some extensions git-svn-id: svn://kolibrios.org@7107 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-11-02 17:36:50 +01:00
------------------------------------------------------------------------------
MODULE NetDevices - <20><><EFBFBD><EFBFBD>⪠ <20><><EFBFBD> <20>.74 (ࠡ<><E0A0A1><EFBFBD> <20> <20><>⥢묨 <20><><EFBFBD>ன<EFBFBD>⢠<EFBFBD><E2A2A0>)
upload oberon07 by akron1, add to ISO git-svn-id: svn://kolibrios.org@6613 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-10-24 01:30:27 +02:00
------------------------------------------------------------------------------
Copy Permalink