
..쪮,249020 ,.,1,.89. (08439)52901

Copyright(c) 1998 Victor M.Pancov Russia Obninsk(08439)52901



                  LUX. 

     㭪      ࠧ     
ࠣ⮢ ணࠬ.  㭪     
⮣ ,  ⢥ ࠧ,  室  室 
 ணࠬ, ,   ⮬ 砥,  믮  室
 ணࠬ,  ⥬ । ࠢ   -
 ஬ 室  (skip)  믮 ⪠ ணࠬ. 

     㭪     ⮣   -
쭮 楫⭮⭮, ᥪ饥  㣨 㭪ﬨ,
  ணࠬ, ,  ⮬ 砥,  믮  -
室  ணࠬ,  ⥬  맮   ⮣  
  ⠪ 뢠 ஬ 맮 (call) 㭪樨. 

      몥 LUX,      ࠣ   
窠  ணࠬ  ⢫ﬨ  横 (  ⠪-
)    ८ࠧ  㭪  ७ᥭ
⮣ ࠣ   ⥪ ணࠬ  ஬⮪ 
 㭪ﬨ   窨 室 ⥬ 
ਧ 䨪 窨 室  㭪  ~   -
 ᮡ⢥ 䨪 () 窨 室  㭪. 

        㭪樨  ( 室  㭪樨)  室
 ᨬ  ;  騩 ஬   뢠-
 㭪.  ஬ ⮣,  뢠 㭪,  筮  
, 㤠  뭥ᥭ ࠣ 뢠 㭪樨, -
室 ⠢    맮 (call) 뢠 㭪樨. 

      ⢥ 㭪樨, ⠪ ᯮᮡ,   ଫ
  ࠣ ணࠬ. 

      쭥襬 㦤,  ⪮  ਢ
ᠬ ࠧ ਠ 㭪樨 main,  ,  -
⥫쭮, 㤥   㭪樥 ணࠬ. ࠤ-
樮  몠 ணࠬ஢  ਬ ⥩襩 㭪樨
 몥 LUX ਢ :

~main   "Hello!" @say @nl ; 

     㭪 main, ।⢮ 饭  㭪樨 say,
뢮 ⥪, 祭   窨,  ࠭ -
.  

     ~  ਧ 䨪 窨 室 
㭪, ᨬ  main   䨪஬ 窨 室
 㭪 main. , 祭   窨,  -
 ᨬ ⠭,      -
⮢    ᯮ  ।⢥  ⥫ 㭪樨.
 @say  ஬ 맮 (call) 㭪樨 say.
 ;  ஬    뢠 㭪. 

    饭  㭪樨 nl (new line -  ப),  -
稢 쭥訩 뢮   ப.    ⥪-
 ०  뢮  ࠧ   -
   ⮡ࠦ  ࠭ . ,  -
 ᪨ ०  뢮  ।-
⥫쭮    ப, ⮬  뢮 -
 ப  ࠭   室 饭
 㭪樨 nl. 

      몥  LUX   ।  ᮢ㯭 
樨,  ,  ஡, ᫥ ࠭,  -
쪮 ࠭.  ⭮,     ᮤঠ 
࠭,  ,  ਬ,  㦥 㯮ॡ   
.   㣨 ,  ⢮   -
樨    ⮫쪮    㧪 ⠭
 ६  ॣ-,  ⠪   -
 אַ 맮 (call) 㭪樨. ਬ,  砥 맮-
 㭪樨 say,  樨 @   饭, ᪮
䨪  say    䨪஬  窨 室 
㭪,    LUX,   ⠪ 䨪-
,     樨,    אַ 맮 (call)
㭪樨. 

     㣠 ,  ⥬   㦥 ࠪ᪨ ᯮ-
㥬, 㭪  몥 LUX ਢ :

        {{ input 65520 }} 
~main   1 input#readp input#putf ; 

     㭪  main,  ।⢮  饭    㭪樨
readp,  ⠥ 䠩,     ࠬ஬  
ப 樮 ⥬,  ᨢ- ⮢  input ,
᫥ 祣, ।⢮ 饭   㭪樨  putf,  뢮
 ᨢ-  ࠭ . 

     뢮  ० ᬮ,  짮⥫ ।-
⠢  ⭮ ஫   䠩 -
࠭筮  筮.  ࠧ, 㭪  main, 
 㭪樥  ணࠬ ᬮ ⨯  viewer.

    ⨢  ,  ᯮ  । 㭪樥
main, । ᨢ- ⮢  input ,   65520 
⮢,  ணࠬ ꥪ .   {{  
砫   ।  ६,  ᨬ-
  }}    殬   । 
६,  ᮤন 䨪  -
 , ᫥, 祭     , ᫨  -
祭  ਭ  㬮砭  設 ᫮ , 
⮬ 砥,  祭 ᪠. 

      몥 LUX 䨪   ।  
ᯮ짮  ணࠬ,  ⮬ ⨢ ,
।騥 ணࠬ ꥪ ,    ᯮ-
   ⥪ ணࠬ     ஢,   
䨪 ꥪ⮢  ᯮ   ⢥ -
࠭. 

     ⠭  1    樨  砫 㭪樨  main
 ஬ 㧪 楫᫥ ⠭, ࠢ
  ॣ-.    ਬ஢ -
   樨. 

      input#readp  input#putf   ࠬ
ꥪ⭮ 맮 (object call) 㭪権 readp  putf.  -
  ꥪ⭮ 맮 - -㪠⥫  ꥪ ( 
砥 ᨢ input) - ।,   砥 ꥪ⭮ -
,  १  ᯥ樠  ॣ  ꥪ,  , 
 ,    ॣ஬ -㪠⥫. 

     㭪  readp  (read file  on parameter)  ⠥ 䠩,
 ࠬ஬  ப 樮 ⥬.

     㭪  putf (put file) 뢮 ᨢ ⮢  ࠭
  ० ᬮ. 


       㭪  몥 LUX ਢ :


        {{ input 65520 }} 

~main   1 input#readp ( 2 input#writp ; 

     㭪  main,  ।⢮  饭    㭪樨
readp,  ⠥ 䠩,     ࠬ஬  
ப 樮 ⥬,  ᨢ- ⮢  input ,
᫥ 祣, ।⢮ 饭  㭪樨  writp,  뢮
 ᨢ-  䠩,   ࠬ஬ -
 ப  樮  ⥬.    ࠧ, 㭪
main,   㭪樥   ணࠬ ஢ 䠩.

     뢠饩 ᪮   (      樨
push, ,  , ᯮ   (push)  ⥪
 ᨢ ⮢, 頥 㭪樥  readp,   -
⢥ 室 ࠬ 㭪樨 writp. 

    ᫨ 짮⥫      饭   㭪樨
readp,  饭  㭪樨 writp, ᢮  ࠡ-
  ᨢ- ⮢ input,   
ணࠬ ࠡ⪨ .  ࠡ⪠   ୮
ଫ   㭪樨  proces,  ணࠬ ࠡ⪨ -
 奬᪨ ᫥騩 : 

        {{ input 65520 }} 
~proces ... ; 
~main   1 input#readp ( @proces 2 input#writp ; 

     ᨬ  ...  奬᪨ 뢠   -
祭 ஢ ࠡ⪨ , ᨬ  ~proces  -
 ਧ  䨪஬  窨 室   㭪 -
⪨,   ᨬ ;  ஬   뢠
㭪. 

     몥 LUX  䨪   ।  
ᯮ짮  ணࠬ, ⮬ 뢠 㭪樨 
 ᯮ   ⥪  ணࠬ   뢠.   
㯮稢 ॢ  㭪権  ணࠬ  -
  室 ࠭樨.   ᪫祭 
⮣ ࠢ ᪠    ,  㭪樨,
᫥⥫쭮 뢠騥  㣠 ࠧ 楢 -
 ᢥ ४ᨢ 맮 㭪権. 



                     .

      ਢ  ணࠬ ࠡ⪨ .  -
⨬  ࠡ⪨ ॡ   ப  -
 input  뢥   ࠭ ନ. ࠡ⪠ -
୮ ଫ   㭪樨 proces,  ணࠬ ࠡ⪨
ਭ ᫥騩 : 

        {{ filen string 256 input 65000 }} 

~proces F#input T#string [ . : .]<>13 string#puts @nl ; 

~main   1 input#readp :filen @proces ; 

     ਢ ਨ  ࠣ⮢ ணࠬ.  砫
ணࠬ । ᪮쪮 ६: 

filen - ਭ 祭  室 䠩.

string -  256 ⮢ - 祭 ப ࠡ⪨. 

     ६ filen ।   㪠  -
.   㬮砭,  ६ । ࠢ -
 設 ᫮,  .. 2     Intel 8086
 㣨 ஢ Intel 8086  real mode,   4 
 ᥣ⮢ 32-⮢ 祭  protected mode. 

     㧪  祭  ந  ॣ-,
     (ᢠ 祭 ६) ந-
室  ॣ-,  ᫨  ᯥ樠쭮  -
ਢ  㣨 . 

 F#input  㦠  㪠⥫    砫  䠩 
                  ॣ 㪠⥫ 筨 .

 T#string 㦠  㪠⥫    砫 ப  
                  ॣ 㪠⥫ १ .

 [        । 砫  ୮ ࠣ 
                  横 ࠡ⪨. 

 .        㦠 ⥪騩 ᨬ 䠩   த-
                    (㢥稢  )  㪠⥫
                   ⥪騩 ᨬ 䠩.

 :        뢠 ⥪騩 ᨬ ப  த-
                   (㢥稢  ) 㪠⥫
                   ⥪騩 ᨬ ப. 

 .]<>13   ।  த  믮 -
                  ୮ ࠣ  横 ࠡ⪨  -
                  祭  ᨬ  ࠢ 13  -
                  砭  믮  ୮  ࠣ
                  横 ࠡ⪨   祭   ᨬ
                  = 13. 

 string#puts 뤠 ᮤন ப  ࠭.

 :filen  㭪樨  main,  ᢠ 祭 
室 䠩, ⠢塞    㭪樥 readp,
६ filen. 

      ᮡ ⬥,    室  横, 
F#input  T#string । 砫 祭 ६,
  砥 ॣ஢ 㪠⥫,  ᯮ
   ࠣ ⥫ 横.     .]<>13   
 ஬  ஢ન ᫮ 砭 横  -
મ ᫮ 砭 横   横. 

       .]<>13  窠  ।  祭, 
 ࠡ⠥ ,   .   祭
   室 । ᯥ樠쭮, ᪮ -
 ᨬ -       . 

      饬  砥,   祭 ࠢ  ॣ
-     ࠢ   ६, , -
 쬨 ⠬,  ᨬ  筮 ࠧ來 -
  16, 32  64 .  ,  ᨬ  -
 ࠧ來 ,  㬮砭, । 
㪠⥫,        .

      ࠧ, 窠, 頥  ஡ । -
஬,  ਧ  ࠭   . 


                .

      뫨 ஢ 맮 ᫥ 㭪権: 

@say - 뢮 ⥪  ࠭ , 

@nl - 뢮  ࠭    ப, 

string#puts - 뢮 ⥪⮢ ப  ࠭ , 

input#putf  - ᬮ ⥪⮢ 䠩  ࠭ . 


        ᬮਬ ᫥騩 ਠ ணࠬ. 

        {{ filen string 256 input 65000 }} 

~proces F#input T#string [ . : @oc .]<>13 @nl ; 

~main   1 input#readp :filen @proces ; 

      ୠ⨢  ।饬 ਠ,  㭪 @oc
ᯥ稢  ᨬ 뢮 ப   横 ⥭
-  ப.   ⢥ ࠬ  ⮩ 㭪樨 - 
뢮 ᨬ - 室  .   뢮-
  ⥪  ࠭ ,  ᫥ 祣 ⥪
 த (㢥稢  ) ࠢ. 
     
       ࠭   ࠢ ᫥騬
㭪ﬨ: 

~main   12 @ln 36 @ps "O'KEY !!! " @say @nl ; 

     㭪 main, ।⢮ 饭  㭪樨 say,
뢮 ⥪, 祭   窨,  ࠭ -
  ப,   ன । 饭  㭪樨
ln (line number -  ப),   ப,  -
ன । 饭  㭪樨 ps (position - ).

    饭  㭪樨 nl (new line -  ப),  -
稢 쭥訩 뢮   ப. 

    ⢥ 㬥  㭪権 ln  ps 頥 
⠭   १  ࠦ   .

     ਢ ਬ ⠭⠬  12- ப    
36- . 

              뢮 楫᫥ 祭.

~main   16 *256 @oi @od @oh *256 @oid @odd @ohd @nl 
      --16 *256 @oi @od @oh *256 @oid @odd @ohd @nl ; 

     㦥 뫮 㯮,  㧪 祭  ந
 ॣ-,      (ᢠ -
祭 ६) ந室  ॣ-,  ᫨
 ᯥ樠쭮  ਢ  㣨 . 

     ਢ ਬ,   ࢮ  ப,  ⠭  16 
㦠  ॣ- ୮ 筮. 

      Intel 80x86 ॣ-   楫-
᫥ 権   ୮ 筮  ⮨  
ॣ,  砥  몥 ᥬ   ॣ  ax
 砥  몥 LUX   ॣ  A.

     몥 LUX ॣ A 㪠뢠  ⮫쪮  ⢥
易⥫쭮 ࠭,  ⮫쪮 ⮣,   ⢨-
쭮 室.    ᮫⭮  設⢥ 砥,  -
- ᯮ ⮫쪮  㬮砭  -
  ⥭ ஬筮 १. 

    ⥬ 祭 ⠭ 16, 㦥  ॣ--
 ୮ 筮,  ஬  *256  㬭 
256  뢠  ॣ-  筮. 

       Intel 80x86  १ 樨 㬭
ᥣ 뢠  ॣ-   筮.

      Intel 80x86 ॣ-   楫-
᫥ 権   筮 ⮨   ॣ-
஢,  砥  몥 ᥬ  ॣ  ax  
 ࠧ冷 祭  筮   ॣ  dx
  ࠧ冷 祭  筮, 砥
 몥 LUX  ᮮ⢥⢥  ॣ A  D.

     몥 LUX ॣ A  D 㪠뢠  ⮫쪮  -
⢥  易⥫쭮  ࠭,   ⮫쪮 ⮣,   
⢨⥫쭮 室.  ᮫⭮  設⢥ -
 権   筮,  ॣ-  
筮  ᯮ  ⮫쪮  㬮砭     
⥭ ஬筮 १  筮.

     ⢥म ,    ୮ 筮-
, 祭 ॣ D   ॣ- -
࠭ ,  ॣ D,   ,  -
짮   㣨 楫 (   ॣ--
).    筮, 祭 ॣ
D   ॣ-  ࠭   , 
室, ॡ ࠭. 

    饭  㭪樨 oi (output integer) ᯥ稢 -
 ᫥ 祭     ୮ 筮-
,   ⥪   ࠭     筮
楫 ᫠  . 

    饭  㭪樨 od (output decimal) ᯥ稢 -
 ᫥ 祭     ୮ 筮-
,   ⥪   ࠭     筮
楫 ᫠  . 

    饭  㭪樨 oh (output hexadecimal) ᯥ稢 
뢮 ᫥ 祭   ୮ 筮-
,  ⥪  ࠭    ⭠-
筮 ᫠. 

    ⥬ 祭,  ॣ- ୮ 筮-
, ஬  *256   ࠧ 㬭  256  뢠-
  ॣ-  筮. 

    㭪樨 oid, odd  ohd ⠪ ᮮ⢥⢥ ᯥ稢
뢮 ᫥  楫᫥ 祭   
 筮  ⥪  ࠭  -
  ᮮ⢥饬 . 

     ਢ ਬ,  ன ப,  ॣ--
 ୮ 筮 㦠 ⠭ -16  -
樨 뢮 ⥫ 祭.  ⠫ 樨
믮 ⠪    ࢮ ப. 



               .


        ᬮਬ ᫥騩 ਠ ணࠬ. 

        {{ filen string 256 input 65000 }} 

~proces F#input T#string [ . .<>13 @oc : ] @nl ; 

~main   1 input#readp :filen @proces ; 
 
      ୠ⨢  ।饬 ਠ,  ,  ஢ઠ
᫮ 砭 横 ந  ⥫ 横,  
  横.  室  ⮣, ⮡   ᨬ-
쭮 ப, ࠢ 13,  뢮  ࠭.   -
室 ⠪  ⮣, ⮡ ⮢ 横 ࠡ⪨ ᨬ-
쭮 ப   祭 ᮡ⢥ ஢ ࠡ⪨,
     祭 ࠧ ᫥  ஬  @oc 
  . ঠ ᮡ⢥ ஢  -
 ࠣ⮢ ࠡ⪨    ⭮ -
 ࠡ⪨.  ᪮  ணࠬ  ॢ-
,  ࠡ ணࠬ   室 ⬠, 
⠪  ⫠,  ⨬쭥 ᥣ  ஢ ⥬ -
   ⫠筮 ஢ ⤥ -
஢   ࠣ⮢ ணࠬ,   騢
⤥ ⢨ ணࠬ, ࠧ,   室, 
⢫  横  ணࠬ.    
ࠣ ணࠬ   ⠢  楫    
 㣨  ࠣ⮢ ணࠬ, ⤥쭮 -
  ,   ⥬ ணࠬ஢ LUX
।⠢  ᤥ  祭 ,  ०
  ன ॠ樥 . 


         , 뢮  ࠡ⪠ ᨬ  . 

     ᨬ   ந   㭪-
樨  ink  (input key). 饭  㭪樨 @ink ந
 室 ࠬ஢, 祬  饭  ⮩ 㭪-
樨 뢠   ࠡ ணࠬ,     -
⥫,  ᨤ騩  ஬,   㦭 .
७ ASCII -  ⮩   ᫥ 믮 㭪-
樨 ink 頥   ,  ᫥ 祣   
࣠ 室 ࠡ⪥. 

     ᬮਬ ᫥騩 ࠣ ࠪ᪮ ணࠬ, 
 ன,   ⨢  ॡ㥬 -
 ,   . 

~main [ @ink @oh @oi +<256 @oc @os @ob ! nl ]<>27 ; 

      㭪  main  ᮤন 横,   ஬  㭪
ink   , ⮩   짮⥫,
@oh 뢮 ७ ASCII- ⮩     -
筮 ,   㭪 oi 뢮 ७ ASCII
- ⮩    筮 ᫠. ᫨ ७
ASCII-  256,    ᪮ ।⠢,
,  ⮬ 砥, @oc 뢮  ᨬ  ⮬ ,  
ࠦ      ᪮   
,  @os 뢮 ஡   @ob 뢮  ASCII-
⮩     ⭠筮   .  
砥, @nl 室    ப  ࠭.  砭
横 ந室   ⮬ 砥, ᫨ 짮⥫ 
 Esc (escape),  ASCII-, ࠢ 筮 27. 

     ।騩     ᠭ 㭪樨  main  
筮 몥,  筥  ᪮  ࠯ﬨ ⥬-
᪮ ᨬ  ᪨ ᫮,  ⢥ 䨪஢
㭪権.    室⢠  ࠧ  ᠭ -
権  몥  LUX    襬, 祫᪮.   祭 -
  ⮬, ⮡   ,  ᬮ   筮
㡮 ᨮ ஢,  㯥   
⮦ 訬, 祫᪨.  ⮩ 稭   ᮤন -
祣, ஬ 㪢 ᪮  ᪮ 䠢⮢, ⠢-
 䨪   㭪権,  ண䮢 ⥬-
᪨ 権, ⠢塞     몮. 

     ண ᯮ  ⮫쪮   ⭮ 
ࠦ 몠.  , ਬ,  @oh ᫥ 
: 맮 㭪樨 뢮 ⭠筮  (call function
output hexadecimal).  ⭮ nl ᫥ : new line
( ப).    ⭮  ;  ᫥  return
(). 

      ୥  㭪樨 main.    横 
     ࠣ ⢫  ணࠬ:

                  +<256 @oc @os @ob ! 

      ࠣ ⢫ 稭 ᫮ -
஬  +<256 ,  ⠥ ⠪: ᫨  -
祭   256  த. ,   -
 砥, ᫥  த  ஬  +<256  
.   ⨢ 砥, 믮 ணࠬ 㤥 -
     !  (end if -  ᫨). 

      +  ண +< 砥,   祭  -
 㤥 ࠢ  ⥫쭮 ᫮  .

      ਬ  ᪮ ⢥⢫  ⢨    奬
if-then ... endif,  ,   砥  믮 ᫮ (if
- ᫨), 믮  (then - ),   ⨢ 砥
(믮 ᫮),    믮. 


   ᬮਬ ਭ樯 ࠢ ணࠬ  .

~ਬ " !!! " @say @nl ; 

~main [ @ink =13 @ਬ ? @oi @nl ! ]<>27 ; 
     
      㭪  main  ᮤন 横,   ஬  㭪
ink   , ⮩   짮⥫.
᫨      Enter , ࠢ 13 ,  ⢫
맮 㭪樨 "ਬ".  ⨢ 砥, 뤠  -
⮩ . 

        ࠣ ⢫  ணࠬ:

                  =13 @ਬ ? od nl ! 

 ⠥ ⠪:  ᫨  祭   ࠢ 13 
 맢 㭪 "ਬ",  뤠 筮  
ப. 

     ,  砥 믮 ᫮:  祭 -
 ࠢ 13 ,  த 믮 ணࠬ  -
஬ ᫮ =13  ୮  ? (else - ), -
᫥ 祣  ? (else - ), । ࠢ -
ࠬ    ! (end if -  ᫨). 

      ⨢ 砥,  ᫮  =13  । -
ࠢ  ணࠬ      ?  (else - ), 
 믮  ணࠬ  ⨬ ஬. 

      ਬ  ᪮ ࠧ⢫    ⢨ 
奬 if-then ... else ... endif, ,  砥 믮
᫮ (if - ᫨), 믮   (then - ),  
⨢ 砥  (믮 ᫮), 믮 㣠
 (else - ). 

     䨪 㭪樨 "ਬ",    䠪,
 䨪    㭪権,    -
᪨ 㪢  㪢 㣨 樮 䠢⮢.   -
   뢠  ᪮쪮  來  ⮡-
 ᫠  ६.  室 ᯮ짮-
 ᪨ 䨪,  ਬ,    -
ਧ樨 ࠢ ।⨥.  饬 砥,  稨
  ணࠬ⮢  ॡ   ᮪饭 ᫮,
ᯮ㥬   ஥  䨪஢,   
ᠬ 蠥 ᫮   몠  ,   ᥬ ⮬, 㤮
४ન. 

~ਬ "ਬ !!! " @say @nl ; 

~ " !!! " @say @nl ; 

~main  [ @ink =315 ਬ ? =316  ? od nl !! ]<>27 ;

      㭪  main  ᮤন 横,   ஬  㭪
ink   , ⮩   짮⥫.
᫨    F1, ࠢ 315,  ⢫ 맮
㭪樨 "ਬ".    ⨢ 砥, ᫨   
F2, ࠢ 316,  ⢫  맮 㭪樨 "", 
⨢ 砥, 뤠  ⮩ . 

     ᫨  ࠧ ( ⮨)  㫥 ࠧ  ࠧ-
    ।騬 ਠ⠬ 㭪樨 main, 
 㢨   । 奬 
            
     if-then ... else ... endif, 

  else ⠢   ⠪   
⢫ 
                      if-then ... else ... endif, 

    ⮣ 稫: 

     if-then ... else if-then ... else ... endif ... endif. 

     ।  ⠫쭮  㫥  ࠧ⥫⢠
   ᫮ ஢    -
 ᫨誮 ⮩稢 ।, ᮡ  稭-
   ⮫    ணࠬ⮢,  ⮬  
     ᫮ ஢  砥 
᫮ 쭮  ணࠬ     -
 稭  訡  ணࠬ. 

     ந  奬  ࠧ  몥 . 

     =315 ... ? =316 ... ? ... ! ... ! 

      ,    ஢  몥 ,
⢥,  來, 祬  ᠬ 奬. 

       类 奬. 

     =315 ਬ ? =316  ? od nl !! 

     ⨬,  㭪樨 "ਬ"  "",   ࠧ-
 㭪樨  䨪  ⮦ ࠧ.   ஥
䨪஢  ᯮ짮   樨  -
,   㪢 ᪮   㣨 ⥫
樮 䠢⮢.   ᪮ (⨭᪮), -
 ய  ()  㪢 ⨭᪮ 䠢 -
  몥    䨪 ᯥ樠 -
祭 - 祭 ॣ஢ 業ࠫ쭮  . 

     䨪   㭪権,  ᮤঠ  2-
 31- 㪢. 

      ⮩ 稭,      ᫮-
 ஢ 砥   ᫮   -
 ⥪ ணࠬ ந  ࠬ  ᫥-
 ᫮ ਠ. 
 
~proca " 1 ! " @say @nl ; 
~procb " 2 ! " @say @nl ; 
~procc " 3 ! " @say @nl ; 
~procd " 4 ! " @say @nl ; 

~main [ ink 
        =315 @proca 
        ? =316 @procb 
          ? =317 @procc 
            ? =318 @procd
              ? od nl 
              !
            !
          !
        ! 
      ]<>27 ;

      ।⠢ ਠ 㭪樨 ࠢ ணࠬ
    㭪樮  F1 - F4, -
, ᮮ⢥⢥,    315 - 318   ᪠-
, ᮮ⢥⢥, 㭪樨  proca - procd.   ਠ -
 ᯮᮡ  ᫮ ஢  ஢. 

      ᯮᮡ  ᫮ ஢ ⫨砥 -
襩 來    ४  ࠧࠡ-
 筮 ᫮ 㭪権,  ᪮   
ᬠਢ ୮ 㭪樮 ஢, ࠧ
   㣠  室 浪 横  ⢫-
  ணࠬ. 

     ,   横 饣 ,    ,
뢠騩 横,   , ஢騩  ᫮
襭 横,  , 뢠騩 横. 

        横,   ஢મ ᫮ 砭
横    横,   ⮬ ᫥    ।饬  ਠ
ணࠬ,  , ஢騩  ᫮ 襭 横,
 , 뢠騩 横,  ᫨ ,  ⠪ ,
      ,  ஢騩 ᫮ -
襭 横  뢠騩 横. 

       ᫮ ⢫ (if-then), ਬ
=315      ᫨ﭨ ⢥ ! (end-if).

    ᫨ ⢫,   ࠧ⢫ 饣  ,
⥬ ᠬ,  ᢮  ᮤন  ? (else), 
⮬   (else)  ⠪      
᫨ﭨ ⢥  ! (end-if),  몠騩,   ⮬ ,   ᠬ
᫮ ⢫ (if-then). 

     ஢ ୮ மࠧ -
஢    襭 뤠 ᪨ ᮮ饭 
訡. 


..쪮,249020 ,.,1,.89. (08439)52901

Copyright(c) 1998 Victor M.Pancov Russia Obninsk(08439)52901

