

                          N -14
 P
              ᮢ ஥஢  樯
             "᪮  ணࠬ஢" 㤥
           ⪨  ᫠ . -1-95.

    1. :
       ࠧࠡ⪠  ଠ樮-ࠢ筮 ⥬.

    2. 室 :
       ࠡ ଠ樮-ࠢ ⥬, ᯥ稢-
        ࠡ    BT, 饩  :
   ͻ
              TE                  
   ͹
            N    No     .ᯮ     
   ઠ- - ᨺ梥⺧  ͹⠺
   .  ᪠ ⥫                No      
   ͹

     ⥬   ०:c࠭, 㧪,
    ᬮ-, ४஢, ᮧ   
         짮⥫ ਧ.
      ணࠬ஢ ஫.

    3. 祭 ᮢ,  ࠧࠡ⪥:

       3.1 ࠡ⪠ , ᯥ稢饥 ⢨ 짮-
           ⥫  ⥬,  ᮮ⢥⢨  ,  ।-
           ॢ ०:
            - ४஢ ,
            - ᬮ- ,
            - ᬮ ,
            - 㧪 ,
            - ࠭ ,
            - ᮧ  .
       3.2 ࠡ⪠ 楤:
            - ४஢ ,
            - ᬮ- ,
            - ᬮ ,
            - 㧪 ,
            - ࠭ ,
            - ᮧ  .

    4. 祭 ᪨ ਠ:

       4.1 ୠ 奬 
       4.2 ୠ 奬 ணࠬ.




    5.  -䨪 ࠡ  ᮢ ࠡ⮩:

       1. 祭 
                            4.10.96
       2.  , ⠭ ,      祭
          
                            18.10.96
       3. ࠡ⪠    ணࠬ
                            25.10.96
       4. ࠡ⪠ 楤 ଠ樮-ࠢ筮 ⥬
                            15.11.96
       5. ⫠ ணࠬ
                            29.11.96
       6. ଫ ᭨⥫쭮 ᪨  ᤠ ࠡ  -
          
                            24.12.96
       7.  ᮢ ࠡ
                            25.12.96























                              㪮⥫          / ../
                              㤥   /⪨ .., -1-95/













                            aঠ
                                                        @.
           ....................................
          1. ⨥  ଠ樮 ⥬  
             ணࠬ ॠ樨 ...................
          2.    ᯮᮡ  ।⠢ ...
          3. ࠡ⪠ ⥬  ...............
          4. ࠡ⪠  ணࠬ ...........
          5. ࠡ⪠ 楤:
             5.1 ᭮ 楤 Start .............
             5.2 뢮   Patch ...........
             5.3 뢮 ଠ樨  ⥬
                 Process(0) ...........................
             5.4 뢮  ४஢ Process(1) .
             5.5  ᥩ Process(2) ..........
             5.6 뢮  ᬮ Process(3) .....
             5.7 뢮  㧪 Process(4) .....
             5.8 뢮  ࠭ Process(5) ...
             5.9    Process(6) ........
             5.10    Process(7) ......
             5.11 ᬮ- Process(8) ....
             5.12 室  ணࠬ Process(9) .....
             5.13 楤 롮  Select(_) ..
             5.14 㧪   ᪠ Lod ............
             5.15 ࠭   ᪥ Sve .........
          6. ⨭ ணࠬ .......................
          7. ⫠ ணࠬ .......................
          8.  짮⥫  襭
             ஫ ਬ஢: ...................
          祭 .................................
          ᮪  ..........................












    @
                            @

     ᮢ ᠭ  몥 ஫  । Turbo Prolog
v 2.0 (஢ ).   몠   -
 ⮩  १砩 䥪⨢ ࠡ    -
,     ᭮ ᮧ ࠧ筮 த -
樮 - ࠢ ⥬.   몠  ஫  ᮮ⢥-
  ५樮   .    ⭮襭    
ᮮ⢥ ।  ஫,  - 䠪, ਡ ⭮-
襭 - 㬥 ।  .. ஥   ஫  ।
ࠡ    ᮧ 㦥⢥ 䥩  -
 짮⥫  ଠ樮 - ࠢ筮 ⥬.

             @ 1. ⨥  ଠ樮-ࠢ
               @⥬      @ ணࠬ ॠ樨

     ଠ樮-ࠢ ⥬ -    ணࠬ-窨,
㦠騥  ࠢ ᨢ     .      
᥮饩 ਧ樨 ଠ樮-ࠢ ⥬  -
⥫쭮   祫    த  宧-
⢠. ⥫쭮 ⨫ ࠡ ᪮᪮ 樨   -
㦥 㣭 ࠭ᯮ ᫥ ᮧ  ᪢  
   㣭 ⮬. 壠ࠬ ।⨩  
⥯  㦭 ॡ  㬠, ⮡    
 㤭: 筮 㧨 ଠ樮-ࠢ  -
⥬    㤮 ଥ 뤠  室 ଠ.
      ਬ ଠ樮-ࠢ ⥬  ⨭
࠭:   ⨪ 㤮 ᪮  ଥ,  ⠢-
 ⠫   ⥪  ந ⢠  -
, ᡮ   稨 ࠡ ᨩ    ॣ  
 㣨.
       ᯮᮡ ணࠬ ॠ樨  ଠ樮--
筮 ⥬  ᯮ짮   ᮧ 몠 -
᪮ ணࠬ஢ ஫.   ॠ樨 몠 ᮤ-
 ⢮ ஥  ।⮢,  ⢥  
ᠭ ⠪ ⥬.

             @2.    ᯮᮡ  ।⠢

        ⥩襬 砥  -  㯮冷祭  
   ⠡,     ன    ꥤ
ࠧ⨯ , 祬        -
 .     ।⠢    :
᪠, ⥢  ५樮.  ᨫ  ᮡ⥩  몠
஫,      ॠ  ५樮  .  
ப    뢠 ⮬ ⭮襭,    -
 - ਡ⮬ ⭮襭, ⢮   -  ୮,  
⢮ ப - 魮.   몥  ணࠬ஢  ஫
ਡ ⭮襭 ᮮ⢥ 㬥  ।,  ୮  -
⢮ 㬥⮢  ।, ⭮襭 - ।, -
 - 䠪,  魮 - ᫮ 䠪⮢. 室    襯᫥-
 ᮮ⢥⢨ ஫  ४ ।⢮   ॠ-
樨 ५樮  .

                   @3. ࠡ⪠ ⥬ 

      ० ணࠬ ⨢   ,  ஥
ॠ   楤 patch.  ⨢樨  -
 ० 짮⥫ ᫥  ஢ ,  ᮮ⢥-
 ࠭ 㭪 .
        ணࠬ  ⮨    㭪⮢:

     0 -  ⥬...           - 뢮   ⥬
     1 - ४஢    - ० ४஢ 
     2 - ⮦      - ० 㤠 
     3 - ᬮ           - ० ᬮ 
     4 - 㧪           - ० 㧪 
     5 - ࠭         - ० ࠭ 
     6 -       - ० ᮧ  
     7 -         - ०   
     8 - ᬮ-    - ० ᬮ-
     9 - 室  ணࠬ     - 室  ணࠬ





































                     @5. ࠡ⪠ 楤

     楤 ᮧ  ᭮ ॡ,   -
  ᮢ ࠡ.



                  @ 5.1 ᭮ 楤 Start.

       楤 Start  ࠧ GOAL 樨  -
 믮 ணࠬ.  楤 㦠  砫  
 , ᫥ 祣 । ࠢ 楤 뢮  -
  Patch.

          @ 5.2 楤 뢮   Patch.

      楤 뢮 ᯨ᮪ 㭪⮢       -
  짮⥫  ᫠, ஥ 㤥 ᥭ   -
 C. ᫥ ⮣ 뢠 楤 ࠡ⪨ ᭮ -
 Process,   ६ C ।  ⢥ -
.  楤 ᯮ짮 । Repeat,   裡    ⨬
᫥   楤 Process  砥, ᫨ C   ࠢ  9
ந室  뢮 㭪⮢     ᫠.

           @5.3 楤 뢮 ଠ樨  ⥬ Process(0).

      楤 뢮 ଠ  몥,  ஬  -
ᠭ ⥬    ᮧ⥫.

      @5.4 楤 뢮  ४樨  Process(1).

     楤 Process(1) 㦨  뢮   ०  ४-
樨 , 室  ,  ᥭ  ᥩ. ᫥ -
⨢樨 楤 뢮   ஬   ०,  -
     騩    ꥪ  .
⨢ ० ந室 筮        -
  ᮮ⢥饩 ஢ . ⠭   -
 ᫮   ६  X,  ᫥  祣  뢠
楤 Select, 㬥⮬ ன 㦨 X.   楤-
 Select , ᠭ , ᮡ⢥  ॠc  ०  -
४樨.  楤 Process(1) ⠪ ਬ । Repeat,  
 ண ॠ  뢮   砥  訡
.

            @5.5 楤 㤠 ᥩ Process(2).

      楤 ।祭  㤠 ᥩ   
.  ணࠬ ।ᬮ७      -
 ⮬,    ᪠,  梥    ࠩ-
 -   㤠  .   ॠ-
 楤ன Select,ᠭ . 楤 Select  頥
 ࠭     ஥ ।  retract
 㤠   .  砥 訡 (⢨  -
, ࠭ 짮⥫   㤠)  뢮  ᮮ⢥-
饥 ᮮ饭 (楤 Error).

        @5.6 楤 뢮  ᬮ  Process(3).

     楤 Process(3) 뢮 cন  . -
室       .

         @5.7 楤 뢮  㧪  Process(4).

      楤 뢮 , ᮤঠ饥 ᫥騥  㭪:
"㧨 ᭮   ࠭ 䠩", " 㧨 ᭮-
   䠩 dima.dat", "室    ".  ⢥
㧪   ⢫ 楤ன Lod, 㬥⮬ -
ன 㦨 ६  C,  ⠭        
짮⥫      㭪  .        楤
Process(4) ⠪ ਬ 楤 Repeat.

        @5.8 楤 뢮  ࠭  Process(5).

     楤 Working(5) 筠 process(4).    ࠭
  ਬ 楤 Save, ᬮ७ ,  -
⮬ ன  ६ I.

           @5.9 楤 ᮧ   Process(6).

      楤 㦨  ᮧ   . -
楤 ࠡ⠥ ᫥騬 ࠧ:  ,   ᬠ-
    ਧ  , 騥   ਧ,
뢮  ࠭   㣮       뢠  
䠩 "not.dat". ⮩ 楤 ᯮ 楤 Procedure,
  ६ ,  ᠭ .

 @          5.10 楤    Process(7).
 @
      ம楤 㦨        .᫥
⨢樨  񤭮      ⮬,-
 祣        室   .
  @
 @          5.11 楤 ᬮ- Process(8).

      楤 c㦨⤫ ᬮ      
. 楤 ࠡ⠥ ⠪:      ⮬  
     ⮬   ⨨  -
 ⢫ 室   , ᫨    -
   ॡ  ,     
, ᫥ 祣 㤥 ⢫ 室   .

             @5.12 楤 室  ணࠬ Process(9).
 @
 @        㦨  室  ணࠬ.  ந室  -
⨨  9.



 @            5.13 楤 롮  Select(_).

      楤 뢮 ᪮쪮 ਧ      
    .  ࠥ  ਧ, 
⮬   .  믮 楤 Sel(M,N). C -
६  (ਧ,   )  室    楤-
. 楤  ਧ  室   N  뫠 -
⭮  楤 Select.

               @5.14 楤 㧪   ᪠ Lod.

       楤 ⢫ 㧪      䠩-
  ᪥   ਧ,  騬    㬥  楤:
lod(1)   㦠    ᭮            䠩,    
짮⥫,lod(2) -  䠩  dima.dat.      楤
஢ 稥 䠩  ᪥   ।  existfile
 㧪      । consult.  砥  -
⢨ 䠩  ᪥, 뤠 ᮮ⢥饥 ᮮ饭 (-
楤 Io_error).


          @5.1  5  @楤 ࠭   ᪥ Sve.

       楤 ⢫ ࠭     䠩-
  ᪥   ਧ,  騬    㬥  楤:
Sve(1) ࠭ ᭮     䠩,    짮⥫,
Sve(2) -  䠩 dima.dat. ࠭    ⢫    -
 ஥ । save.  砥 訡 뤠  ᮮ-
饥 ᮮ饭 (楤 Error).

                       @6. ⨭ ணࠬ.


/*           **************************
             *          *
             *                        *
             *                        *
             *                        *
             **************************
*/


domains
       b,c,d,m,r,z,i,n,n1,ko,ob,pl=integer
        t,a,f,s,l,p,u,na,j=symbol
database -svod1
          svod1(a,b,c,d,f,m,t,r,s,l,p,u)
database -lolo
          lolo(a,b,c,d,f,m,t,r,s,l,p,u)
database -kuku
          kuku(a,b,c,d,f,m,t,r,s,l,p,u)
database
         svod(a,b,c,d,f,m,t,r,s,l,p,u)
        predicates

        start
        patch
        load
        select(i)
        sel(i,i)
        process(i)
        procedure(i)
        sve(i)
        lod(i)
        repeat


goal
        start.

clauses
/*楤 ᮧ ᭮   㧪  ,.  */
     start:-
      makewindow(1,10,0,"  ",0,0,25,80),
      clearwindow,
      load,
      patch.
/*楤 ࠢ ᭮ ,.  */
        patch:-
            repeat,
            cursor(7,0),
            write("                     0 -  pp...  "),nl,
            write("                     1 - ४ "),nl,
            write("                     2 - 㤠 "),nl,
            write("                     3 - ᬮ "),nl,
            write("                     4 - 㧪 "),nl,
            write("                     5 - ࠭ "),nl,
            write("                     6 - ᮧ  "),nl,
            write("                     7 -   "),nl,
            write("                     8 - ᬮ-"),nl,
            write("                     9 - 室  ணࠬ"),nl,
            write("                     =>"),
            readint(Choice),
            Choice >= 0,
            Choice < 10,
            clearwindow,
            process(Choice),
            clearwindow,
            Choice = 9,
            retractall(_),
            removewindow.
/*楤 ᪠  㧪 䠩 ᮤঠ饣  ,.  */
        load:-
            existfile("dima.dat"),
            consult("dima.dat"),
            cursor(1,2),
            write(" 㦥").
        load:-
            cursor(1,2),
            write("   ᪥").
/*p楤p   ,.  */
        process(7):-
        makewindow(1,2,7,"  ",0,0,25,80),
            nl,
            write("  ⮬    :"),readln(K),nl,
            write("  ᪠         :"),readint(O),nl,
            write("  ⥫     :"),readint(I),nl,
            write("           :"),readint(Y),nl,
            write(" 梥                :"),readln(T),nl,
            write(" ୮        :"),readint(FF),nl,
            write("  ᯮ      :"),readln(OO),nl,
            write("  ᯮ      :"),readint(YY),nl,
            write(" 䠬             :"),readln(KK),nl,
            write(" 樠       :"),readln(II),nl,
            write("                 o⢠   :"),readln(TT),nl,
            write(" ࠩ          :"),readln(HH),nl,
            N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,FF1=FF,OO1=OO,
            YY1=YY,KK1=KK,II1=II,TT1=TT,HH1=HH,
      assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)),
            removewindow,
            fail.
/*楤 ᬮ-,.  */
         process(8):-
         makewindow(1,2,7,"ᬮ-",0,0,25,80),
         nl,
         write("  ⮬:"),readln(A),nl,nl,
         svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
         A=KY,
         write("ઠ ⮬    :"),write(A),nl,
         write(" ᪠         :"),write(NA),nl,
         write(" ⥫     :"),write(KO),nl,
         write("          :"),write(OB),nl,
         write(" ⮬     :"),write(PL),nl,
         write("୮        :"),write(N),nl,
         write("C ᯮ      :"),write(OOO),nl,
         write(" ᯮ      :"),write(YYY),nl,
         write("             :"),write(KKK),nl,
         write("樠       :"),write(III),nl,
         write("         ⢠   :"),write(TTT),nl,
         write("ࠩ          :"),write(HHH),nl, nl,nl,
         write("   "),
         readchar(_),
         removewindow,
         !.
         process(8):-
write("⮩ ન ⮬   ."),
write("   ⮬ "),
write(" த  "),nl,nl,nl,
write("  ⮬:"),
         readln(A),nl,
         A=N1,
         write("  ᪠         :"),readint(F),nl,
         write("  ⥫     :"),readint(Y),nl,
         write("           :"),readint(J),nl,
         write(" 梥                :"),readln(G),nl,
         write(" ୮        :"),readint(FFFF),nl,
         write("  ᯮ      :"),readln(OOOO),nl,
         write("  ᯮ      :"),readint(IIII),nl,
         write(" 䠬             :"),readln(KKKK),nl,
         write(" 樠       :"),readln(TTTT),nl,
         write("                 ⢠   :"),readln(MMMM),nl,
         write(" ࠩ          :"),readln(GGGG),nl,

         NA1=F,KO1=Y,OB1=J,PL1=G,FF1=FFFF,OO1=OOOO,
         YY1=IIII,KK1=KKKK,II1=TTTT,TT1=MMMM,HH1=GGGG,
      assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)),
         removewindow,
         fail.

/*p楤p 뢮   pp,.  */
         process(0):-
         makewindow(1,2,7," pp...",0,0,25,80),
write("                     p樮-p筠 ⥬"),nl,nl,
write("                      -孨᪨ ᯮ ⮫⥫."),
nl,nl,
write("                        -TURBO-PROLOG v.2.0.     "),nl,nl,
write("                            p:    "),nl,nl,
write("                      , p. -1-95  () 1996  . "),
nl,nl,nl,nl,
write("   "),
         readchar(_),
         removewindow.

/*楤  ᮤন ᥩ  ,.  */
        process(1):-
        makewindow(1,2,7,"pp ",0,0,25,80),
            nl,
            select(N),
            RR=N,
            svod(KY,NA,KO,OB,PL,RR,OOO,YYY,KKK,III,TTT,HHH),
            write("ઠ ⮬       :"),write(KY),nl,
            write(" ᪠            :"),write(NA),nl,
            write(" ⥫        :"),write(KO),nl,
            write("             :"),write(OB),nl,
            write(" ⮬        :"),write(PL),nl,
            write("୮           :"),write(RR),nl,
            write(" ᯮ         :"),write(OOO),nl,
            write(" ᯮ         :"),write(YYY),nl,
            write("                :"),write(KKK),nl,
            write("樠          :"),write(III),nl,
            write("         o⢠      :"),write(TTT),nl,
            write("             :"),write(HHH),nl,
                        nl,
            write("  ⮬    :"),readln(N1),nl,
            write("  ᪠         :"),readint(NA1),nl,
            write("  ⥫     :"),readint(KO1),nl,
            write("           :"),readint(OB1),nl,
            write(" 梥                :"),readln(PL1),nl,
            write(" ୮        :"),readint(RR1),nl,
            write("  ᯮ      :"),readln(OO1),nl,
            write("  ᯮ      :"),readint(YY1),nl,
            write(" 䠬             :"),readln(KK1),nl,
            write(" 樠       :"),readln(II1),nl,
            write("                 ⢠   :"),readln(TT1),nl,
            write(" ࠩ          :"),readln(HH1),nl,

          retract(svod(KY,NA,KO,OB,PL,RR,OOO,YYY,KKK,III,TTT,HHH)),
       assert(svod(N1,NA1,KO1,OB1,PL1,RR1,OO1,YY1,KK1,II1,TT1,HH1)),
            !,
            removewindow.


/*楤 㤠 ᥩ   ,.  */
        process(2):-
            makewindow(1,2,7," ᥩ",0,0,25,80),
            nl,
            select(N),
            X=N,
            svod(KY,NA,KO,OB,PL,X,OOO,YYY,KKK,III,TTT,HHH),
            retract(svod(KY,NA,KO,OB,PL,X,OOO,YYY,KKK,III,TTT,HHH)),!,
            removewindow.

/*楤 ᬮ ᮤন  ,.  */
        process(3):-
        makewindow(1,2,7,"ᬮp ",0,0,25,80),
        nl,
write("ͻ"),
write("                           "),
write("͹"),
write("ઠ   No    No      -ᯮ        "),
write(". --ᨺ梥   ͹ࠩ"),
write("     ᪠   ⥫            No     "),
write("͹"),
           svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            cursor(Z,_),
            cursor(Z,0),write(KY),
            cursor(Z,8),write(NA),
            cursor(Z,16),write(KO),
            cursor(Z,26),write(OB),
            cursor(Z,32),write(PL),
            cursor(Z,39),write(N),
            cursor(Z,46),write(OOO),
            cursor(Z,52),write(YYY),
            cursor(Z,58),write(KKK),
            cursor(Z,66),write(III),
            cursor(Z,68),write(TTT),
            cursor(Z,70),write(HHH),
            nl,
            fail.
        process(3):-
write("ͼ
nl,
write("   "),
           readchar(_),
            removewindow.


/*楤 㧪    ,.  */
        process(4):-
            nl,
            makewindow(2,15,4,"㧪",5,5,20,70),
            write("1 -  㤥 㦥  㪠 䠩"),nl,
            write("2 -  㤥 㦥  䠩 dima.dat"),nl,
            write("3 - 室  ᭮ "),nl,
            write("==>"),
            readint(C),
            C>0,C<4,
            lod(C),
            !,
            removewindow.
/*楤 ࠭  ,.  */
        process(5):-
            nl,
            makewindow(2,15,4,"",5,5,20,70),
            write("1 -  㤥 ᠭ  㪠 䠩"),nl,
            write("2 -  㤥 ᠭ  䠩 dima.dat"),nl,
            write("3 - 室  ᭮ "),nl,
            write("==>"),
            readint(I),
            I>0,I<4,
            sve(I),!,
            removewindow.
 /*楤 롮 ᮧ  ,.  */
        process(6):-
            nl,
            makewindow(3,2,7,"  ",0,0,25,80),
            write("1 -  㤥 ᮧ  થ ⮬ "),nl,
            write("2 -  㤥 ᮧ   ᪠"),nl,
            write("3 -  㤥 ᮧ  梥"),nl,
            write("4 - 室  ᭮ "),nl,
            write("==>"),
            readint(O),
            O>0,O<5,
            procedure(O),
            removewindow.
            process(_).

/*楤 ᮧ      ࠭,.  */
        procedure(1):-
makewindow(1,2,7,"    થ ⮬",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,svod1),
            nl,
            write("᫨   㧭   ⮬e , "),
            nl,
            write("  ⮬:"),
            readln(X),
            svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            S=KY,
            S=X,
            NA1=NA,KO1=KO,OB1=OB,PL1=PL,FF1=N,OO1=OOO,YY1=YYY,
            KK1=KKK,II1=III,TT1=TTT,HH1=HHH,
       assert(svod1(S,NA1,KO1,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)),
            fail.

        procedure(1):-
write(" ᮧ"),nl,
write("ͻ"),
write("                TEX           "),
write("͹"),
write("ઠ   No    No      - ᯮ!       "),
write(". --ᨺ梥   ͹ࠩ"),
write("      ᪠  ⥫            No     "),
write("͹"),
            svod1(S,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            cursor(Z,_),
            cursor(Z,0),write(S),
            cursor(Z,8),write(NA),
            cursor(Z,16),write(KO),
            cursor(Z,26),write(OB),
            cursor(Z,32),write(PL),
            cursor(Z,39),write(N),
            cursor(Z,46),write(OOO),
            cursor(Z,52),write(YYY),
            cursor(Z,58),write(KKK),
            cursor(Z,66),write(III),
            cursor(Z,68),write(TTT),
            cursor(Z,70),write(HHH),
            nl,
            fail.

        procedure(1):-
write(""),
            save("not.dat",svod1), nl,
            write("  ࠭   䠩  not.dat"),
            nl, write("        "),
            readchar(_), removewindow,
            !.

        procedure(1):-
write(""),
            nl, write(" ࠭ ᮧ "),
            nl,  write("    "),   readchar(_),
       makewindow(1,2,7,"  ",0,0,25,80).

            procedure(2):-
    makewindow(1,2,7,"     ᪠",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,lolo),
            nl,
write("᫨   㧭    ᪠ , "),nl,
write(" :"),
            readint(X),
            svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            S=NA,
            S=X,
            N1=KY,KO1=KO,OB1=OB,PL1=PL,FF1=N,OO1=OOO,YY1=YYY,
            KK1=KKK,II1=III,TT1=TTT,HH1=HHH,
           assert(lolo(N1,S,KO,OB1,PL1,FF1,OO1,YY1,KK1,II1,TT1,HH1)),
            fail.

        procedure(2):-
write(" ᮧ"),nl,
write("ͻ"),
write("                           "),
write("͹"),
write("ઠ   No    No      -ᯮ   ࠩ"),
write(".--ᨺ梥   ͹     "),
write("      ᪠  ⥫            No     "),
write("ͺ͹"),
            lolo(KY,S,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            cursor(Z,_),
            cursor(Z,0),write(KY),
            cursor(Z,8),write(S),
            cursor(Z,16),write(KO),
            cursor(Z,26),write(OB),
            cursor(Z,32),write(PL),
            cursor(Z,39),write(N),
            cursor(Z,46),write(OOO),
            cursor(Z,52),write(YYY),
            cursor(Z,58),write(KKK),
            cursor(Z,66),write(III),
            cursor(Z,68),write(TTT),
            cursor(Z,70),write(HHH),
            nl,
            fail.

        procedure(2):-
write(""),
            save("not1.dat",lolo),
            nl,
            write(" ࠭  䠩 not1.dat"),
            nl,
            write("  "),
            readchar(_),
            removewindow,
            !.

        procedure(2):-
write(""),
            nl,
            write(" ࠭ ᮧ "),
            nl,
            write("  "),
            readchar(_),
        makewindow(1,2,7,"  ",0,0,25,80).

        procedure(3):-
makewindow(1,2,7,"    梥 ⮬",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,kuku),
            nl,
   write("᫨   㧭   ⮬ , "),
            nl,
            write(" 騩 梥 :"),
            readln(X),
            svod(KY,NA,KO,OB,PL,N,OOO,YYY,KKK,III,TTT,HHH),
            S=PL,
            S=X,
            N1=KY,NA1=NA,KO1=KO,OB1=OB,OO1=OOO,YY1=YYY,
            KK1=KKK,II1=III,TT1=TTT,HH1=HHH,FF1=N,
            assert(kuku(N1,NA1,KO1,OB1,S,FF1,OO1,YY1,KK1,II1,TT1,HH1)),
            fail.

        procedure(3):-
write(" ᮧ"),nl,
write("ͻ"),
write("                             "),
write("͹"),
write("ઠ   No    No   梥 - ᯮ  ࠩ"),
write(". --ᨺ         ͹     "),
write("      ᪠  ⥫              No     "),
write("͹"),
          kuku(KY,NA,KO,OB,S,N,OOO,YYY,KKK,III,TTT,HHH),
            cursor(Z,_),
            cursor(Z,0),write(KY),
            cursor(Z,8),write(NA),
            cursor(Z,16),write(KO),
            cursor(Z,26),write(OB),
            cursor(Z,32),write(S),
            cursor(Z,39),write(N),
            cursor(Z,46),write(OOO),
            cursor(Z,52),write(YYY),
            cursor(Z,58),write(KKK),
            cursor(Z,66),write(III),
            cursor(Z,68),write(TTT),
            cursor(Z,70),write(HHH),
            nl,
            fail.

        procedure(3):-
write(""),
            save("not2.dat",kuku),
            nl,
            write(" ࠭  䠩 not.dat"),
            nl,
            write("  "),
            readchar(_),
            removewindow,
            !.

        procedure(3):-
write(""),
            nl,
            write(" ࠭ ᮧ "),
            nl,
            write("  "),
            readchar(_),
       makewindow(1,2,7,"  ",0,0,25,80).

/*楤   ,.  */
        sve(1):-
            write("  䠩 :"),
            readln(N),
            save(N),
            write("  浪"),
            beep,
            !.

        sve(1):-
            write("訡 ,   "),
            readchar(_).

        sve(2):-
            save("dima.dat").


        sve(3).
/*楤 ⥭  ᪠,.  */
        lod(1):-
            retractall(_),
            write("  䠩 :"),
            readln(N),
            existfile(N),
            consult(N),
            write("  浪"),
            beep,
            !.

        lod(1):-
            nl,
            write(" 䠩   ᪥"),nl,
            write("  "),
            readchar(_).

        lod(2):-
            retractall(_),
            existfile("dima.dat"),
            consult("dima.dat"),
            write("  浪"),
            beep,
            !.

        lod(2):-
            write(" dima.dat   ᪥"),nl,
            write("  "),
            readchar(_).

        lod(3).

        repeat.
        repeat:- repeat.

/*롮 ,.  */
        select(N):-
        nl,
        write("1 - ⭠ ઠ ⮬"),nl,
        write("2 - ⥭  ᪠"),nl,
        write("3 - ⥭ 梥 ⮬"),nl,
        write("4 - ⥭ ࠩ "),nl,
        write("5 - ⥭  ⥫"),nl,
        write("==>"),
        readint(X),
        sel(X,N).

        sel(1,N):-
        nl,
        write("  ⮬       :"),
        readln(KY),
        svod(KY,_,_,_,_,Z,_,_,_,_,_,_),
        N=Z.

        sel(1,N):-
        N=0.

        sel(2,N):-
        nl,
        write("  ᪠            :"),
        readint(L),
        svod(_,L,_,_,_,Z,_,_,_,_,_,_),
        N=Z.

        sel(2,N):-
        N=0.

        sel(3,N):-
        nl,
        write(" 梥                   : "),
        readln(F),
        svod(_,_,_,_,F,Z,_,_,_,_,_,_),
        N=Z.

        sel(3,N):-
        N=0.

        sel(4,N):-
        nl,
        write(" ࠩ             :"),
        readln(Q),
        svod(_,_,_,_,_,Z,_,_,_,_,_,Q),
        N=Z.

        sel(4,N):-
        N=0.

        sel(5,N):-
        nl,
        write("  ⥫        :"),
        readint(PPPP),
        svod(_,_,PPPP,_,_,Z,_,_,_,_,_,_),
        N=Z.

        sel(5,N):-
        N=0.

                       @7. ⫠ ணࠬ

         ⫠ ணࠬ 訡 ࠭﫨   ⠯.  
ࢮ ⠯  몠 ஫ ᠬ 㪠뢠  ᨭ⠪-
᪨ 訡.  訡   ࠢ쭮  ᠭ
 ஥ ।⮢  㭪樨  ...  
諠  ᯥ譮,
 ணࠬ ࠡ⠫ ४⭮, 室 室  -
஬ ⠯ - ᬮ ⥪ ணࠬ  ᪮  ᫥
訡.  ⮬ ⠯ 뫨 ࠭ 訡 ࠢ쭮 뢮
   ਢ ஥ ⠡ .



     @8.  짮⥫  襭 ஫ ਬ஢

        ணࠬ "孨᪨  ᯮ  ⮫⥫"  ।⠢-
 ᮡ ଠ樮-ࠢ ⥬.     ணࠬ
  ᮧ    .    ᭮  
   થ ⮬,   ᪠,  -
 ⥫  ,  梥  ⮬,ࠩ  ,୮
,ਨ   ᯮ  䠬,  ⢮.

         ᪥ ணࠬ  ࠭ 뢮  :

                    0 -  ⥬...
                    1 - ४஢ 
                    2 - ⮦ 
                    3 - ᬮ 
                    4 - 㧪 
                    5 - ࠭ 
                    6 -   
                    7 -   
                    8 - ᬮ-
                    9 - 室  ணࠬ


         롮 -  㭪  ᫥    ᮮ⢥-
 ஢ .  ਢ  ᠭ    
㭪⮢.

                         @8.1  ⥬...

         롮  㭪   ࠭  뢮    
⥬   . ᫥        ந室
室   .

                     @8.2 ४஢ .

         室   㭪  ࠭ 뢮 :

                      1 - ⭠ ઠ ⮬
                      2 - ⥭  ᪠
                      3 - ⥭ 梥 ⮬
                      4 - ⥭ ࠩ 

        ᫨ ⭠ ઠ ⮬,  ᫥   
1, ᫨ ⥭  ᪠- 2  ... ᫥ ⮣  ⥬
 ᮮ⢥⢥       ...    ᫥
  ⮬   (⠭    㪢)  -
     . ᫥  ।  ४㥬
 ⥬ 뢮  ࠭    ⮬  ⮬  
  ।஢, ᫥⥫쭮  ᯥ뢠  
. ᫨   ⥪饬  ࠢ  ॡ,  ᫥-
   <Enter>.



                     @8.3 ⮦ ᥩ.

         ० 㦨  㤠 ᥩ    .
   㭪 " " ०  "४஢  -
" 짮⥫ ।⠢     ,
  ᪠ 㤠塞 ⮬. ᫥     
ந 㤠 ࠭   뢮 ᮮ饭,  ⢥-
饣 믮  樨.

                      @8.4 ᬮ .

         ० ।祭  ᬮ ᮤন -
  .  室   ०  ᬮਢ  ᭮-
   ,ᮤন  ன  㦠  ⮬᪨
( 稨  ᪥ 䠩 dima.dat)    ᪥  ଠ樮-
-ࠢ筮 ⥬. ᫥ 롮 ⮣ 㭪,  ࠭  뢮-
  ᭮    ⠡.  饭    
᫥   .

                        @8.5 㧪 .

        ० ।祭  㧪     䠩-
.  室   㭪 뢮 :

          1 - 㧨 ᭮   ࠭ 䠩
          2 - 㧨 ᭮   䠩 dima.dat
          3 - 室  ᭮ 

        롮 㭪 2 ந 㧪 ᮮ⢥⢥ -
   ⠭⭮ 䠩 dima.dat  ,    砥  㤠筮
㧪 㤥 뤠 ᮮ⢥饥 ᮮ饭. ᫥  
  ந 室   .
        롮 㭪⮢ 1 ⥬   䠩,    -
஬ ᮤন ᮮ⢥ .  ᯥ譮 㧪  -
 ᮮ⢥饥 ᮮ饭,    ᡮ    ᮮ饭  
訡.
       㭪 3 ।祭   室   .


                       @8.6 ࠭ .

        ० ।祭  ࠭   .  
室   ० 뢮 ᫥饥 :

          1 - ࠭ ᭮   㪠 䠩
          2 - ࠭ ᭮   䠩 dima.dat
          3 - 室  ᭮ 

          㭪⠬  筠 ࠡ  -
 ० "㧪 ".




                     @8.7   .

         ० ।祭  ᮧ ୥  -
.  ᪥ ⮣ ० 뢮 ᫥饥 :

          1 -  㤥 ࠭  થ ⮬
          2 -  㤥 ࠭   ᪠
          3 -  㤥 ࠭  梥
          4 - 室  ᭮ 

         ⨨ 1,2,3    㤥    ᮮ⢥⢥
 ⮬,  ᪠  梥, ᫥ 祣 㤥  ᮧ
ᮮ⢥    ࠭   䠩  "not.dat".  
롮 4 㤥 ᮢ襭 室  ᭮ .

                      @8.8   .

         ० ॥祭  ᮧ  , -
⥬ ।    ⮬,᫥ 祣   -
 饭  .



                     @8.9 ᬮ-.

          ० ।祭  ᬮ    -
  . ᪥ ⮣  ०  뢮  ᫥饥
ॡ:
          ⮬
᫥  ન  뢥     ⮬  ⮬,
᫨   ୮ ,  ⮣ 筥 ࠡ ०  -
 ⠪     .

                      @8.10 室  ࠬ.
 @            ० ।祭  室  ணࠬ .

                 @8.9 襭 ஫ ਬ஢.

         楫 筮 ⫠ ணࠬ   ࠭  
訡 뫮 襭 ᪮쪮 ஫  ਬ஢    ࠡ  
⥬   ०. 뫠 ᮧ   ।஢  ᭮-
  .    뫨  ஡  ०  㤠,
४஢, ᮧ  , 㧪  ࠭  .  
襭 ஫ ਬ஢ 訡  ணࠬ  㦥.


                            @祭

           ᮢ ࠡ  뫨  ᫥  
몠 ணࠬ஢ ஫  ᮧ ଠ樮-ࠢ-
 ⥬.  ᤥ 뢮,  ஫ ।⠢  
  ॠ樨 ⠪ ⥬  ᠭ 㦥⢥-
 䥩  饭  짮⥫  ணࠬ.





































                        @᮪ 

         .⪮   "ணࠬ஢  몥 ஫ 
                     ⢥ ⥫"

         .   "஫ -  ணࠬ஢ 饣"

         .宭  "஫ -  ᪮
                     ணࠬ஢.  2.3"
                                                                                                                                                                                                     
              A *.FRM                                        *.MAC                                                           <         A *.FRM   