
     10. 
    ~~~~~~~~~~~~~~~~~

    ᨢ -   ⨯ ,  騩  䨪-
 ᫠    ⮣  ⨯,  뢠 -
 ⨯.      ⤥  
 ᮢ ᨢ.   -  楫 ࠦ, -
祭    ᪮  塞  䨪 -
ᨢ.  ⨯ 뢠  ⨯.


    । ᨢ
    ===================

    । ᨢ  ⮨    १ࢨ஢  ᫮
ARRAY,   ᫥  ⨯, 祭  -
 ᪮,  ⥬ ᫥ १ࢨ஢ ᫮ OF  
⨯ (⨯  ᨢ).

ਬ:
--------

    type
      Day=(Mon,Tue,Wed,Thu,Fri,Sat,Sun);
    var
      WorkHour: array[1..8] of Integer;
      Week    : array[1..7] of Day;


    type
      Players =(Player1,Player2,Player3,Player4);
      Hand    =(One,Two,Pair,TwoPair,Three,Straight,
                Flush,FullHouse,Four,StraightFlush,RSF);
      LegalBid=1..200;
      Bid     =array[Players] of LegalBid;
    var
      Player: Array[Players] of Hand;
      Pot:    Bid;


       ᨢ ⢫ ⥬ 
   ᪮  䨪 ᨢ:

    Player [Player3]:=FullHouse;
    Pot [Player3]:=100;
    Player [Player4]:=Flush;
    Pot [Player4]:=50;

    ᪮ ࠧ襭 ᢠ 祭   ६
㣮 ६   ⮣    ⨯,  ᨢ    ஢
 ஬ ᢠ.

    ४⨢ R  ࠢ 樥 ,  ᯥ-
稢饣 ஢    ࠦ  ᨢ  
६ 믮  ணࠬ.   㬮砭  ० 몫祭,
.. {$R-},    {$R+} ਢ  ஢થ ਭ
 ࠦ  ।.


     ᨢ
    ===================

      ᨢ    ⨯ ,   ⮬
᫥ ⨯    㣨 ᨢ.  
뢠  ᨢ.

ਬ:
-------

    type
      Card = (Two,Three,Four,Five,Six,Seven,Eight,Nine,
              Ten,Knight,Queen,King,Ace);
      Suit = (Hearts,Spade,Clubs,Diamonds);
      AllCards = array [Suit] of array[1..13] of Card;
    var
      Deck: AllCards;

     ᨢ    㤮 ।  ⥬
㪠 ᪮쪨 ᮢ:

    type
      AllCards = array [Suit,1..13] of Card;

    筮 ᮪饭   ᯮ짮    롮
 ᨢ:

    Deck [Hearts,10] ⭮ Deck [Hearts][10].

    , 筮,  ।  ᨢ १ ।-
⥫쭮 । ⨯ ᨢ.

ਬ:
-------

    type
      Pupils  = string[20];
      Class   = array [1..30] of Pupils;
      School  = array [1..100] of Class;
    var
      J,P,Vacant: Integer;
      ClassA,ClassB: Class;
      NewTownSchool: School;

    ᫥  ।  ᫥騥 ᢠ:

    ClassA [J]:='';
    NewTownSchool [5][21]:=' ';
    NewTownSchool [8,J]:=NewTownSchool [7,J];
                               { 祭  J   }
    ClassA [Vacant]:=ClassB [P];
                       { 祭  P     }



    ᨢ ᨬ
    ================

    ᨢ ᨬ -  ᨢ   ᮬ  -
⠬ ⠭⭮  ⮣  ⨯ CHAR.  ᨢ ᨬ 
ᬠਢ  ப ﭭ .
     ࡮-᪠  ᨢ  ᨬ    ᯮ짮 
ப ࠦ;   ⮬  砥  ᨢ  ८ࠧ  
ப , ࠢ  ᨢ.  ࠧ, ᨢ -
 ࠢ  㫨஢  ⠪ ,   ப; -
祭 ப    ᢮ ᨢ ᨬ
⮩  .  ப ६  祭,  騥 -
⮬ ப ࠦ,     ᢮ ᨢ
ᨬ.


    ⠭ ᨢ
    ===================

    ࡮-᪠   짮  ⠭-
묨 ᨢ ⨯ BYTE,    MEM  PORT,  ᯮ-
  㯠     ⠬ .


    ᨢ MEM
    ----------

    ᨢ MEM ᯮ  㯠   ⨢  .
   ᨢ    ⨯  BYTE,     ᮮ-
 ᠬ .    ⨯ INTEGER. ᫨ -
஥ 祭  ᢠ    ᨢ MEM,   
祭 뢠      ,  ।塞  -
 ࠦ.    ᨢ  MEM   ࠦ,
ᯮ 祭 ,  ᯮ  , 
 ᮬ.

ਬ:
--------

    Mem [I]:=2;
    Mem [I+1]:=$1B;
    Mem [I+2]:=Ord(' ');
    IObyte:=Mem [3];
    Mem [Addr+Offset]:=Mem [Addr];


    ᨢ PORT
    -----------

    ᨢ PORT  ᯮ  㯠  ⠬ /뢮
ய Z80.    ᨢ ।⠢  
 ,  祬  ᮮ⢥ ࠬ ⮢. -
  롮 ⮢ ᯮ 8-ࠧ來  ,  -
    ⨯  BYTE.   ஥ 祭 ᢠ
 ᨢ PORT,  祭 뢮  ᮮ⢥-
騩  .      ⠪ ᨢ 㯮ॡ 
ࠦ,   祭   ᮮ⢥饣 . -
짮  ᨢ ⮢ ࠭稢 ᢠ -
  㯮ॡ  ⢥ ⮢ ࠦ;   ⭮-
,    ᨢ PORT   ᯮ짮  -
-६ 楤  㭪権.  ⮣, 饭 -
樨  뫪   ᨢ ⮢    楫 (
).


ਬ:
--------

    Port[$F8]:=$0E;
    X:=Port[$0A];


    ⨬ ᮢ ᨢ
    =============================

    ४⨢   X    ணࠬ  㪠,
᫥  ஢ ⨬ ᮢ ᨢ   ⭮襭
᪮ 믮  ࠧ .  㬮砭 ࠧ㬥-
 ⨢ ० ⮩ ४⨢:  {$X+},    ஦
⨬ ᪮ 믮.  ᨢ ﭨ: {$X-}
 ࠧ .
