
     K.     
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     ⮬ ਫ ᮤন 祭   -
 ᮢ   ਢ ᮮ⢥騥 ⢥  ४-
樨.

    :  ᯮ짮 ࡮-᪠?
    -------
    ⢥:    ,  ᮡ  1. ᫨ 
    ------- 室    ࠡ ,   ᤥ
            ᫥饥:
            - 㧨 樮 ⥬;
            - ᫨  ࡮-⥬  ⠫஢,  -
               楤 砫쭮 ன,  ᠭ
                1;
            -  TURBO;
            - 稭 ணࠬ஢ !


    :   ᪥  ६ ࠡ  ࡮--
    ------- ?
    ⢥:  直 ࠧ   祭 襣   -
    ------- 뢠   ஦  CP/M-᪥  㦠-
              ⨢   樮  ⥬
            CP/M.     १㧪   ᪠ CP/M ⠪
            ᮧ ᯨ᮪ ᪮  ࠭⢠,  㯭
              ᪮.  ⪥  -
            䠩   CP/M ஢,  뫮  ᬥ -
            . , ਬ, ᫨   ᪥  -
             A  १㧪,   ⪥  
              CP/M 뢥 ᫥饥 ᮮ饭  訡-
            :
                    BDOS ERROR ON A: R/O

            ࠢ 㤥  । 樮 ⥬,  
             ࠡ     .    -
            ஦  ⠭  稭  -
            ஢ ᪥.  ⭮⥩  -
            , ᫨  ᫥   ᬥ ᪥  -
            㧪 ᪮ 樮 ⥬. ᫨  -
            ⠥  ࡮-⥬,   ⮩ 楫 ᯮ
             L    (ᬮ ࠧ "롮
            ⥪饣 ᪮"   1).


    : 室    ࡮-⥬   믮 ண-
    ------- ࠬ, ᪮஢  । ⮩ ⥬?
    ⢥:  ,  ᫨   ⢫    .COM 
    ------- .CHN-䠩.


    :  ᮧ .COM-䠩 ?
    -------
    ⢥:  롥 ० O     ("樨 -
    ------- "),    ⥬     C  (COM-䠩)  Q
            (室   権).


    :  ,   訡 99 (९
    ------- ) ?
    ⢥:      :  ࠧ ⥪  ࠣ-
    -------  襣 ࠧ, ᯮ짮 ४⨢
             $I ( ⮬     17)  
            믮   .COM-䠩.


    :  , ᫨ ࠧ ꥪ⭮   
    ------- , 祬 ࠧ 㯭 ⨢  ?
    ⢥:    ᫥ ᯮ짮    楯  맮
    ------- ணࠬ (楤ன CHAIN),  ૥ -
            ன.


    :   믮  ⥭      
    -------  RETURN ()  㭪樨 INKEY$  -
            ?
    ⢥:    ।⢮ 맮  Read(Kbd,Ch),  
    ------- Ch  ⨯ CHAR.


    :  ࠢ 뢮  ਭ ?
    -------
    ⢥:  ஡ ᤥ ⠪:  WriteLn(Lst,...) .
    -------

    :  뢥 ⨭ ⥪ ணࠬ  ਭ ?
    -------
    ⢥:  ᫨  襬 ᪥  ணࠬ TLIST.COM, -
    -------  ᯥ뢠 ⨭  ਭ  ⠪ "-
            ᪨" 襭ﬨ,  ન  -
             १ࢨ஢ ᫮, ࠧ  -
              ⨥  INCLUDE-䠩,    
            ᯮ짮   ⮩ ணࠬ.

            program TextFilePrint;
            var
              TextFile: text;
              Scratch:  string[128];
            begin
              write(' ⠥ 䠩: ');
              ReadLn(Scratch);             {   䠩 }
              Assign(TextFile,Scratch);    { ⮢ 䠩 }
              {$I-}
              Reset(TextFile);
              {$I+}
              if IOresult <> 0 then
                 writeln(' ',Scratch,'  !')
              else
                 begin  {  䠩 }
                   while not Eof(TextFile) do
                     begin
                       ReadLn(TextFile,Scratch);     { ⥭ }
                       WriteLn(Lst,Scratch);  {  ப }
                     end;
                   WriteLn(Lst);{ ஦  ਭ }
                   Close(TextFile);
                 end;   { else }
            end.


    : 祬  ४ᨢ 楤  ࠡ ?
    -------
    ⢥:  몫 A-४⨢ : {$A-} .
    -------

    :   ᯮ짮 㭪ﬨ EOF    EOLN  
    ------- 䠩 ६  ⢥ ࠬ ?
    ⢥:  몫 ਧ : {$B-} .
    -------

    :   ᭨,    䠩  -
    ------- ?
    ⢥:  ᯮ ४⨢ I  ﭨ {$I-}  {$I+}.
    -------   㭪,  頥 TRUE, -
               䠩,  ।   ⢥ ࠬ,
              ⠫ ᪥;   ⨢ 砥 -
            頥 FALSE.

            type
              Name: string[14];
              :
              :
            function Exist (FileName: name): Boolean;
            var
              Fil: file;
            begin
              Assign(Fil,FileName);
              {$I-} Reset(Fil); {$I+}
              Exist:=(IOresult=0);
              {$I-} Close(Fil); {$I+}
            end;


    :  ஢ ⢨  CTRL-C ?
    -------
    ⢥:    ४⨢ : {$C-}.
    -------


    :       訡   "ᮮ⢥⢨ ⨯"
    ------- (Type mismatch)   । ப  ⢥ -
            ࠬ 楤  㭪樨.
    ⢥:  몫 ஫ ⨯  ࠬ஢-६:
    ------- {$V-} .


    :   樨    ணࠬ     
    ------- 訡 "  " -   INCLUDE-䠩,  -
              ,  䠩   .
    ⢥:   ᯮ짮 ४⨢ 祭 䠩 I -
    ------- ७  䠩 (⨯ 䠩),  ᫨  ᮤন
              ᨬ,  ⤥  뢠-
            饩 䨣୮ ᪮  ᨬ  *)  ஡:
                 {$I SAMPLE.F }
             ⨢ 砥 뢠 ᪮ 㤥 -
            ஢    䠩.


    : 祬  ணࠬ  ᥡ ,  
    -------  ᪠   ᪮쪮 ࠧ?
    ⢥:  ᫨  ᯮ ணࠬ  ०  M (Memory) -
    ------- ..  ० ।⢥ ᯮ,  -
             ⠭⠬     ⨯    ⢥
            樠஢ ६,   ⠭ -
             樠஢ ⮫쪮 ࠧ ᫥ 樨,
                  ᪥   R (Run),  -
               ᯮ       .   
            .COM-䠩 ⠪ ஡  ,  ᫨ 
                ࠧ १    -
            짮 ᨢ    ,   ஡
             ஫ ࠭: {$R+} .


    :   ᯮ짮  ⨯ REAL  INTEGER  -
    -------  ࠦ      १⮢,  -
            ,   ,    .
    ⢥:   ࠦ ⨯ INTEGER ᢠ ६-
    -------   ⨯  REAL,   ࠦ ८ࠧ  ⨯
            REAL.  ᠬ ࠦ    楫,
            ⮬ ᫥    ⮢    楫
            ९  ࠦ.   ਢ  -
             १⠬. 쬥, ਬ:
              RealVar:=40*1000;
            砫 40 㬭  1000,   砥 40000,
              楫 ९.  ᪮ 楫  -
              ᥪ 横᪨,     -
             -25536, ⠪  ६ RealVar 
            祭 -25536.  ⮡  ⮣  ந諮,  
             ⠪ ࠦ:
              RealVar:=40.0*1000;
                     
              Realvar:=1.0 * IntVar1 * IntVar2;

             ᠬ 㤥 ᯥ祭,  ࠦ 㤥 -
              REAL.



ਬ砭. ᫨      ࠭ ᢮ ண-
----------- ࠬ,   ᫥   樨 
            ᪠  㬥.
