

     A.    
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

     ⮬ ਫ   ⠭ 楤  㭪樨,
   ࡮-᪠ CP/M-80,  ᠭ  ᨭ⠪-
, ࠬ஢    ⨯.   祭 ⮢ ࠧ
⨯ ᯮ ᫥騥 ᨬ:

    TYPE      ந ⨯
    STRING    ந ப ⨯
    FILE      ந ⨯ 䠩
    SCALAR    ந ⮩ ⨯
    POINTER   ந ⨯ 㪠⥫

    ⢨ ᯥ䨪樨 ⨯ ࠬ 砥,  -
  㭪 ਭ ࠬ-६  ⨯.



    楤  㭪樨 /뢮
    ================================

    騥 楤 ᯮ  ᢮  ᯨ᪠  ࠬ஢
⠭ ᨭ⠪:

    procedure
         Read(var F: file of TYPE; var V: TYPE);
         Read(var F: text; var I: Integer);
         Read(var F: text; var R: Real);
         Read(var F: text; var C: Char);
         Read(var F: text; var S: STRING);
         ReadLn(var F: text);
         Write(var F: file of TYPE; var V: TYPE);
         Write(var F: text; I: Integer);
         Write(var F: text; R: Real);
         Write(var F: text; B: Boolean);
         Write(var F: text; C: Char);
         Write(var F: text; S: STRING);
         WriteLn(var F: text);

    䬥᪨ 㭪樨
    ======================

    function
         Abs(I: Integer): Integer;
         Abs(R: Real): Real;
         ArcTan(R: Real): Real;
         Cos(R: Real): Real;
         Exp(R: Real): Real;
         Frac(R: Real): Real;
         Int(R: Real): Real;
         Ln(R: Real): Real;
         Sin(R: Real): Real;
         Sqr(I: Integer): Integer;
         Sqr(R: Real): Real;
         Sqrt(R: Real): Real;


    㭪樨  ࠡ  묨 ⨯
    ====================================

    function
         Odd(I: Integer): Boolean;
         Pred(X: SCALAR): SCALAR;
         Succ(X: SCALAR): SCALAR;


    㭪樨 ८ࠧ ⨯
    ============================

    function
         Chr(I: Integer): Char;
         Ord(X: Scalar): Integer;
         Round(R: Real): Integer;
         Trunc(R: Real): Integer;


    楤  㭪樨  ࠡ  ப
    ==========================================

      ᫮ ࠬ 楤  STR  ᯮ
⠭ ᨭ⠪.

    procedure
         Delete(var S: STRING; Pos,Len: Integer);
         Insert(S: STRING; var D: STRING; Pos: Integer);
         Str(I: Integer; var S: STRING);
         Str(R: Real; var S: STRING);
         Val(S: STRING; var R: Real; var P: Integer);
         Val(S: STRING; var I,P: INTEGER);

    function
         Concat(S1,S2,..,Cn: STRING);
         Copy(S: STRING; Pos,Len: Integer): STRING;
         Length(S: STRING): Integer;
         Pos(Pattern,Source: STRING): Integer;


    ணࠬ  ࠡ  䠩
    =================================

    procedure
         Append(var F: FILE; Name: STRING);
         Assign(var F: FILE; Name: STRING);
         BlockRead (var F: file; var Dest: TYPE; Num: Integer);
         BlockWrite(var F: file; var Sour: TYPE; Num: Integer);
         Chain(var F: file);
         Close(var F: FILE);
         Erase(var F: file);
         Execute(var F: file);
         Rename(var F: file; Name: STRING);
         Reset(var F: FILE);
         Rewrite(var F: FILE);
         Seek(var F: file of TYPE; Pos: Integer);

    function
         Eof(var F: FILE): Boolean;
         Eoln(var F: text): Boolean;
         FilePos(var F: file of TYPE): Integer;
         FilePos(var F: file): Integer;
         FileSize(var F: file of TYPE): Integer;
         FileSize(var F: file): Integer;
         SeekEof(var F: text): Boolean;
         SeekEoln(var F: text): Boolean;


    楤  㭪樨  ࠢ 娯
    ========================================

    procedure
         Dispose(var P: POINTER);
         FreeMem(var P: POINTER; I: Integer);
         GetMem(var P: POINTER; I: Integer);
         Mark(var P: POINTER);
         New(var P: POINTER);
         Release(var P: POINTER);

    function
         MaxAvail: Integer;
         MemAvail: Integer;
         Ord(P: POINTER): Integer;
         Ptr(I: Integer): POINTER;


    楤  㭪樨  ࠡ  ࠭
    ========================================

    procedure
         CrtExit;
         CrtInit;
         ClrEol;
         ClrScr;
         DelLine;
         GotoXY(X,Y: Integer);
         InsLine;
         LowVideo;
         NormVideo;


    稥 楤  㭪樨
    ==========================

    procedure
         Bdos(Func,Param: Integer);
         Bios(Func,Param: Integer);
         Delay(mS: Integer);
         Exit;
         FillChar(var Dest; Length: Integer; Data: Char);
         FillChar(var Dest; Length: Integer; Data: Byte);
         Halt;
         Move(var Source,Dest: TYPE; Length: Integer);
         Randomize;

    function
         Addr(var Variable): Integer;
         Addr(<function identifier>): Integer;
         Addr(<procedure identifier>): Integer;
         Bdos(Func,Param: Integer): Byte;
         BdosHL(Func,Param: Integer): Integer;
         Bios(Func,Param: Integer): Byte;
         BiosHL(Func,Param: Integer): Integer;
         Hi(I: Integer): Integer;
         IOresult: Integer;
         KeyPressed: Boolean;
         Lo(I: Integer): Integer;
         ParamCount: Integer;
         ParamStr(N: Integer): STRING;
         Random(Range: Integer): Integer;
         Random: Real;
         SizeOf(var Variable): Integer;
         SizeOf(<type identifier>): Integer;
         Swap(I: Integer): Integer;
         UpCase(Ch: Char): Char;
