

     19.  CHAIN  EXECUTE
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     ࡮-᪠   楤,  ।⢮ 
 ணࠬ   ࡮-᪠    ⨢஢  㣨
ணࠬ  ࡮-᪠.  ⠪ 맮  楤 -
:

    CHAIN(FilVar);
    EXECUTE(FilVar);

     FilVar - ६ ந쭮 ⨯ 䠩, ।-
⥫쭮 祭  ᪮ 䠩 楤ன  ASSIGN.  ᫨
ᮮ⢥騩 䠩 ,   㦠    -
.

    楤 CHAIN ᯮ  ⨢樨 ⮫쪮  ᮡ
.CHN-䠩, .. ணࠬ  ࡮-᪠, ᪮஢ 
H-樥, ࠭   権.   䠩 ᮤন  ⮫쪮
 ணࠬ   ᮤন ⥪ ᪠.   㦠
   ᯮ  砫쭮   ⥪饩  ணࠬ,
..   ⮣ ,    㪠  樨 ⥪饩
ணࠬ. ⥬  㦥  䠩  ᯮ  ⥪
᪠, 㦥    .  ⥫쭮,  ⥪
ணࠬ  ணࠬ,  㦥  ⥪饩 ।⢮ CHA-
IN,  ᯮ짮     砫 .

    楤 EXECUTE  ᯮ짮  ⨢樨 ந-
쭮 .COM-䠩, ..  䠩,  ᮤন ᯮ-
塞 .    䠩, ᮧ ࡮-᪠  -
樥 C   権.   㦠  믮   
0100H (⠭ CP/M-80).

    ᫨ 㪠  ᪮  䠩 ,    訡
-뢮.  ᨢ ﭨ I-४⨢  :
{$I-} 믮 ணࠬ த  , ᫥饣
 訡 ஬ CHAIN  EXECUTE,  । த
権 /뢮 室 맢 㭪 IORESULT.

     ।   ⥪饩 ணࠬ  ,   -
 ணࠬ ᪠  CHAIN,   ᯮ짮 -
      
.

    ⮡ ᯥ ४⨥,  ࠧ塞   -
      ᠬ  ६  
ணࠬ, 祬 冷     ᠭ  -
 ᮢ.   ⮣,  ணࠬ   ᪮-
஢   ࠧ஬  (.  ᠭ 砫쭮 
筮    権).  믮  ᫮ -
६   ணࠬ       
,   ᪮  ࡮-᪠  믮 ⮬᪮
樠樨 ᢮ ६,   ६  ᮢ⭮
ᯮ짮  ணࠬ.

ਬ:
-------

    ணࠬ MAIN.COM:

    program Main;
    var
      Txt: string[80];
      CntPrg: File;
    begin
      Write('  ⥪: '); ReadLn(Txt);
      Assign(CntPrg,'CHRCOUNT.CHN');
      Chain(CntPrg);
    end.


    ணࠬ CHRCOUNT.CHN:

    program ChrCount;
    var
      Txt: string[80];
      NoOfChar,
      NoOfUpC,
      I: Integer;
    begin
      NoOfUpC:=0;
      NoOfChar:=Length(Txt);
      for I:=1 to Length(TxT) do
        if Txt[I] in ['A'..'Z'] then
           NoOfUpC:=Succ(NoOfUpC);
      Write('᫮  ᨬ: ',NoOfChar);
      WriteLn('. ᫮  㪢: ',NoOfUpC,'.');
    end.


     ⮣,  ⮡ ।,   뫠 饭 ࡮-ண-
ࠬ -  ।⢥   ப CP/M-80  -
ன EXECUTE  㣮 ணࠬ,  㦭 ᯮ짮 -
⭮ ६      $0080.     
ப,  ᫨ ணࠬ ᪠  CP/M,   ᮤন -
祭   0  127.  ⥫쭮,   ᪥ ணࠬ -
।⢮ 楤 EXECUTE ᪠ ணࠬ  
  ६ 祭,  ॢ饥 127.  ࠧ, -
뢠 ணࠬ,  ஢ਢ  ६  㦨   
祭  0  127,  㤥 ,   ⨫ 樮-
 ⥬,   祭,  ॢ饥 127, 㤥 , 
 ணࠬ  뫠  ⨢஢ ன 㣮 ணࠬ
 ࡮-᪠.

     ,    CHAIN,  EXECUTE  ᯮ짮-
  ० ।⢥ ᯮ,  ..   ணࠬ,
 ᪮஢  樥 M .
