
     20.      
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     ࡮-᪠   INLINE,  ।⠢-
 ணࠬ 祭 㤮 ᯮᮡ 祭 設 
।⢥  室 ⥪ ணࠬ.    -
⮨  १ࢨ஢ ᫮  INLINE,      ᫥
       ,  ࠧ 묨 ⠬ 
祭  㣫 ᪮.

      ந     ⮢ ,
ᮥ  "+"  "-".  ⢥   
㯠 楫 ⠭, 䨪 ६, 楤,
㭪樨  뫪  祭 稪 .  뫪  -
祭 稪  뢠   ᨬ "*" .

ਬ:
-------

    INLINE(10/$2345/Count+1/Sort-*+2);

       ஦     ᫮ (
) .  祭 ⮣   ᫮   ⥬
᫮  ⠭ ᮮ⢥ ⮢  ᮣ-
 ᮥ騬  .  祭 䨪  ६
  ⮩ ६. 祭 䨪 -
  㭪樨    ⮩  楤    㭪樨.
祭 뫪  稪   ,   ஬
 ஢ ।  .

      ஦     ,  ᫨    ⮨
⮫쪮  楫 ⠭,   ᫨  祭 室 
 8-ࠧ來 祭 (0..255). ᫨ 祭 -
 室  ࠬ 8-ࠧ來   ᫨  
  䨪 ६, 楤, 㭪権 
뫪   祭 稪 ,   ஦  ᫮
 (訩  祭   ).

     ⬥ ⢨ ⮫쪮   ᠭ  ⮬᪮
। ࠧ    ᯮ짮   "<"  ">".
᫨   稭   "<" ,   ⮫-
 訩  祭  祭 稭,   ᫨ 
稭 - 16-ࠧ來.  ᫨   稭  
">" ,  ᥣ  ᫮,  ᫨ 訩  祭
 ࠢ .


ਬ:
-------

    INLINE(<$1234/>$44);

     : $34, $44, $00.

       ਬ   INLINE,   
設   ८ࠧ  ᨬ ᢮ ப
㬥  .


    procedure UpperCase(var Strg: Str); {Str - ⨯ string[255]}
    {$A+}
    begin
      inline ($2A/Strg/  {    LD  HL,(Strg); HL:=  Strg  }
              $46/       {    LD  B,(HL)   ; B :=  Strg  }
              $04/       {    INC B        ; B := B+1         }
              $05/       { L1:DEC B        ; B := B-1         }
              $CA/*+20/  {    JP  Z,L2     ; ᫨  -> L2 }
              $23/       {    INC HL       ;  ᫥.ᨬ   }
              $7E/       {    LD  A,(HL)   ; A := ᫥.ᨬ }
              $FE/$61/   {    CP  'a'      ; A < 'a' ?        }
              $DA/*-9/   {    JP  C,L1     ; ᫨     -> L1 }
              $FE/$7B/   {    CP  'z'+1    ; A > 'z' ?        }
              $D2/*+14/  {    JP  NC,L1    ; ᫨     -> L1 }
              $D6/$20/   {    SUB 20H      ;  20H       }
              $77/       {    LD  (HL),A   ;   Strg   }
              $C3/*-20); {    JP  L1       ; த       }
    end;                 { L2:EQU $        ; 室            }


     INLINE   ᢮ ᬥ訢  㣨 -
ࠬ  殮 ᥩ ୮    ,  祬  
 INLINE    ᯮ짮  ॣ ய-
. ⬥⨬ ,   ᮤন ॣ SP (㪠⥫
⥪)  ⠢  室 ⠪ ,    뫮 
室.
