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
2018-03-23 23:01:12 +01:00
"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>
2016-10-24 01:30:27 +02:00
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> )
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)
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> ⨯
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;
2017-11-02 17:36:50 +01:00
VAR v: <20> <EFBFBD> <20> ᭮<EFBFBD> <E1ADAE> <EFBFBD> <EFBFBD> ⨯
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> ⨯
<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>
2017-11-02 17:36:50 +01:00
PROCEDURE COPY(VAR Source: <20> <EFBFBD> ⨯ <20> <EFBFBD> ⨯
<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)
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> ⨯ <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> .
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> .
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
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> )
2016-10-24 01:30:27 +02:00
------------------------------------------------------------------------------
