

                           N -8

             ᮢ ஥஢  樯
             "᪮  ணࠬ஢" 㤥
                 堬 .. . -1-95.

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

    2. 室 :
       ࠡ ଠ樮-ࠢ ⥬, ᯥ稢-
        ࠡ     饩  :
    --------------------------------------------------------------------
   |                                        |
    --------------------------------------------------------------------
   |த  |               ||         | ᬥ   |           |
   |쥪|   ||㯫 |⮨|-----------------
   |       |               |   |ᯫ|         | ࠩ  | 㫨 |
    --------------------------------------------------------------------
   |       |               |   |             |         |       |       |
   ।ᬮ ᮧ      ,ࠪਧ㥬
   ਧ 묨 짮⥫.


     ⥬   ० ४஢,  㭨⮦-
    , ᬮ-, 㧪,  ࠭.
      ணࠬ஢ ஫.

    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/






                           .

          ....................................
          1. ⨥  ଠ樮 ⥬  
             ணࠬ ॠ樨 ...................
          2.    ᯮᮡ  ।⠢ ...
          3. ࠡ⪠ ⥬  ...............
          4. ࠡ⪠  ணࠬ ...........
          5. ࠡ⪠ 楤:
             5.1 ᭮ 楤 START...............
             5.2 뢮   PATCH.............
             5.3 ⮬᪮ 㧪  LOAD ......
             5.4 뢮 ଠ樨  ⥬ PROCESS(0)
             5.5 ४஢  PROCESS(1) ..........
             5.6  ᥩ PROCESS(2) ..............
             5.7 ᬮ   PROCESS(3) .........
             5.8 㧪  PROCESS(4) .................
             5.9 뢮  ࠭ PROCESS(5) ........
             5.10    PROCESS(6) ............
             5.11 ᬮ- PROCESS(7) .........
             5.12 室  ணࠬ PROCESS(8) ..........
             5.13 ᯮ⥫쭮 Select ..............
             5.14 㧪   ᪠ LOD ..........
             5.15 ࠭   ᪥ SVE .......
             5.16 ᯮ⥫쭮 Sel .................
          6. ⨭ ணࠬ ........................
          7. ⫠ ணࠬ ........................
          8.  짮⥫  襭
             ஫ ਬ஢: ...................
          祭 .................................
          ᮪  ..........................










                          

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

          1.   -  
                     

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


               2.     

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




               3.  

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

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

   ᫥饩 ࠭ ।⠢ ᪠  .









































                   5.     

     楤 ᮧ  ᭮ ॡ,    
 ᮢ ࠡ.


                   5.1    START

       楤 START  ࠧ GOAL 樨 砫  -
  ணࠬ.   楤 ᪠ 楤 砫쭮 -
㧪   LOAD,  ᫥ 祣 । ࠢ  楤
뢮   PATCH.





                    5.2    PATCH

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


                    5.3    LOAD

     楤 LOAD ।祭  ⮬᪮ 㧪  -
      ᪥ ணࠬ.   ⥫쭮 砥
ࠡ  ⥬,  ⠪   ॡ  ᪥ ணࠬ -
  ᭮    ० "㧪".  楤 LOAD ஢
⢮  ᪥ 䠩 ilgiz.dat    ஥  ।
existfile  㦠      । consult.  -
砥 ⢨ 䠩 뤠 ᮮ饭  訡.

                    5.4     PROCESS(0)

      楤 뢮 ଠ  몥,   ஬ ᠭ
⥬    ᮧ⥫.

                   5.5   PROCESS(1)

   楤 process(1) 㦨  뢮  ० ४樨 -
,  室  ,   ᥭ  ᥩ.᫥  ⨢樨
楤 뢠 ᯮ⥫ 楤 SELECT, 뢮
  ஬  ࠧ   ,  
㦭 .⨢ ०  ந室 筮  
     ᮮ⢥饩 ஢.  ⠭
  ᫮   ६ X, ᫥祣 뢠
楤 SEL,  㬥⮬ ன 㦨 X.   楤 SEL
  ਧ 室 㦭 , 뢮 
PROCESS(1)  ᫥饩  ४஢. 楤 process(1)
⠪ ਬ । Repeat,    ண ॠ
 뢮   砥 訡 .

                    5.6   PROCESS(2)

      楤  ।祭  㤠 ᥩ   -
.  ணࠬ ।ᬮ७   - ࠧ
   ,   ஬      㤠塞 .
  ⠪ ॠ 楤ன SELECT, ᠭ .
楤 SELECT 頥  ࠭     ஥-
 । retract  㤠   .

                    5.7    PROCESS(3)

     楤 PROCESS(3) ⢫ ᬮ ᮤন .楤
PROCESS(3) ॠ  ⨫ 楤 MENU  PROCESS(1)  ਬ
楤 Repeat.




                   5.8   PROCESS(4)

      楤 訢  짮⥫  䠩 ᮤঠ饣
 .⢥ 㧪   ⢫ 楤ன
lod 㬥⮬ ன 㦨 ६ N,  ⠭    
   짮⥫  䠩.   楤 PROCESS(4)
⠪ ਬ 楤 Repeat.

                   5.9    PROCESS(5)

   楤 PROCESS(5) 筠 PROCESS(4).    ࠭   
ਬ 楤 SVE,  ᬮ७ ,  㬥⮬
ன  ६ I.

                  5.10    PROCESS(6)

      楤 㦨  ᮧ   . 楤
ࠡ⠥ ᫥騬 ࠧ:  楤 SELECT  짮⥫
訢 ࠧ    ஬   ᮧ 
  ⥬,ᯮ 楤 SEL,     ᮮ-
騥  ਧ.
 ⮣,  ⮡ 뫨 ࠡ⠭  ,  ᯮ
fail.  ᫥  ᮧ     뤠 ᮮ⢥饥 ᮮ饭 
।०  ⮬, ⮡ 짮⥫   ࠭  ᮧ-
 .

                  5.11 - PROCESS(7)

      楤 㦨  ᬮ-  .
楤 ࠡ⠥ ᫥騬 ࠧ:짮⥫   
㦭   ,᫨  , 뢮  ࠭. 
⨢ 砥 뢮 ᮮ饭  ⮬,    
졠, ਢ  ,  . 砭 
뢮   த    ᫮ 室  ᭮
. ᨬ  롮 짮⥫   ,
 ४頥.

                  5.12     PROCESS(8)

      楤 ⮨  祭, ஥ 頥 쭥-
訩 ॡ.  楤 稢 ᯥ宬   ந室    
楤 PATCH,  ன 믮 ᫮ C=8,  祬
ந室 室  ணࠬ.





                  5.13  SELECT

    楤  SELECT   ᯮ⥫쭮  ᯮ
묨 ᭮묨 ᥤࠬ  ᪠  㯠   
࠭ ਧ,뢮   ਧ  ⥬ । -
 ࠬ  楤 SEL.



                  5.15     LOD

       楤  ⢫  㧪    䠩 
ᨬ   짮⥫ .   楤
஢ 稥 䠩  ᪥     ।  existfile  
㧪      । consult.   砥 ⢨
䠩  ᪥,  뤠 ᮮ⢥饥 ᮮ饭 .

                  5.16     SVE

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


                  5.17  SEL

     楤 SEL    ᯮ⥫쭮   楤 SELECT.
 ᨬ  ࠭ 짮⥫  楤  SELECT 㭪
SEL 室     㤮⢮騥  ᪥ .

                      6.  

CODE=12050

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


domains

  i,c,d,f=integer
      a,b,m,t=symbol
database -svod1
          svod1(a,b,c,d,f,m,t)
database -lolo
          lolo(a,b,c,d,f,m,t)
database -kuku
          kuku(a,b,c,d,f,m,t)
database
         svod(a,b,c,d,f,m,t)
        predicates

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


goal
        start.

clauses
/*楤 ᮧ ᭮   㧪  */
        start:-
            makewindow(1,26,94,"  ",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("ilgiz.dat"),
            consult("ilgiz.dat"),
            cursor(1,2),
            write(" 㦥").
        load:-
            makewindow(2,74,79,"",6,18,8,40),
            cursor(2,10),
            write("   ᪥"),
            readchar(_),
            removewindow,
            !.
/*p楤p   */
        process(7):-
        makewindow(1,2,7,"  ",0,0,25,80),
            nl,
            write(" த 쥪                     :"),readln(K),nl,
            write("                       :"),readln(O),nl,
            write("                             :"),readint(I),nl,
            write("  㯫  ᯫ     :"),readint(Y),nl,
            write(" ᬥ ⮨                   :"),readint(T),nl,
            write(" ࠩ                             :"),readln(FF),nl,
            write(" 㫨                             :"),readln(HH),nl,

            N1=K,NA1=O,KO1=I,OB1=Y,PL1=T,FF1=FF,HH1=HH,
            assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
            removewindow,
            fail.
/*楤 ᬮ-*/
         process(8):-
         makewindow(1,2,7,"ᬮ-",0,0,25,80),
         nl,
         write(" த ꥪ:"),readln(A),nl,nl,
         svod(KY,NA,N,OB,PL,FFF,HHH),
         A=KY,
         write("த                         :"),write(KY),nl,
         write("                  :"),write(NA),nl,
         write("                        :"),write(N),nl,
         write(" 㯫  ᯫ :"),write(OB),nl,
         write(" ⮨               :"),write(PL),nl,nl,nl,
         write("                         :"),write(FFF),nl,
         write("                         :"),write(HHH),nl,
         write("   "),
         readchar(_),
         removewindow,
         !.
         process(8):-
write("⮣ த   ."),
write("  த  த  "),nl,nl,nl,
write(" த:"),
         readln(A),nl,
         A=N1,
         write("                   :"),readln(F),nl,
         write("                         :"),readint(Y),nl,
         write("  㯫  ᯫ :"),readint(J),nl,
         write(" ᬥ ⮨               :"),readint(G),nl,
         write(" ࠩ                         :"),readln(L),nl,
         write(" 㫨                         :"),readln(M),nl,

         NA1=F,KO1=Y,OB1=J,PL1=G,FF1=L,HH1=M,
         assertz(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
         removewindow,
         fail.

/*p楤p 뢮   pp*/
         process(0):-
         makewindow(1,27,30," pp...",0,0,25,80),nl,nl,
write("                     p樮-p筠 ⥬"),nl,nl,
write("                     㦨 ࠡ    BSO"),nl,nl,
write("                        -TURBO-PROLOG v.2.0.     "),nl,nl,
write("                            p: 堬 .. "),nl,nl,
write("                      , p.-1-95  () 1996 . "),nl,
cursor(20,24),
write("   "),
         readchar(_),
         removewindow.

/*楤  ᮤন ᥩ  */
        process(1):-
        makewindow(1,2,7,"pp ",0,0,25,80),
            nl,
            select(N),
            X=N,
            svod(KY,NA,X,OB,PL,FFF,HHH),
            write("த 쥪                     :"),write(N),nl,
            write("                      :"),write(NA),nl,
            write("                            :"),write(X),nl,
            write(" 㯫  ᯫ     :"),write(OB),nl,
            write(" ⮨                   :"),write(PL),nl,
            write("                             :"),write(FFF),nl,
            write("                             :"),write(HHH),nl,
            nl,
            write(" த ꥪ :"),readln(N1),
            write(" :"),readln(NA1),nl,
            write("    :"),readint(KO1),nl,
            write("  㯫  ᯫ :"),readint(OB1),nl,
            write(" ᬥ ⮨  :"),readint(PL1),nl,
            write(" ࠩ  :"),readln(FF1),nl,
            write(" 㫨  :"),readln(HH1),nl,
            retract(svod(KY,NA,KO,OB,PL,FFF,HHH)),
            assert(svod(N1,NA1,KO1,OB1,PL1,FF1,HH1)),
            !,
            removewindow.


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

/*楤 ᬮ ᮤন  */
        process(3):-
        makewindow(1,2,7,"ᬮp ",0,0,25,80),
        nl,
write("============================================================================="),nl,
write("|                                                |"),nl,
write("============================================================================="),nl,
write("| த   |              |  |         |ᬥ    |                |"),nl,
write("| 쥪 |  |  |㯫 |⮨|----------------------"),nl,
write("|         |              |     |ᯫ|         |   ࠨ  |   㫨  |"),nl,
write("============================================================================="),nl,
           svod(KY,NA,N,OB,PL,FFF,HHH),

            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(PL),
            cursor(Z,0),write("|"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),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 -  㤥 㦥  䠩 ilgiz.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 -  㤥 ᠭ  䠩 ilgiz.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("᫨   㧭   , "),
            nl,
            write(" த:"),
            readln(X),
            svod(KY,NA,N,OB,PL,FFF,HHH),
            S=KY,
            S=X,
            NA1=Na,KO1=N,OB1=OB,PL1=PL,FF1=FFF,HH1=HHH,
            assert(svod1(S,NA1,KO1,OB1,PL1,FF1,HH1)),
            fail.

        procedure(1):-
write(" ᮧ"),nl,
write("______________________________________________________________________________"),
write("                                                  !"),
write("------------------------------------------------------------------------------"),
write("!         !              !  !         ! ᬥ   !                 !"),
write("!  த  !  !  !㯫 !⮨! ----------------------"),
write("!         !              !     !ᯫ!         !   ࠨ  !   㫨   !"),
write("------------------------------------------------------------------------------"),
nl,
            svod1(S,NA,N,OB,PL,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(S),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(PL),
            cursor(Z,56),write(FFF),
            cursor(Z,67),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,N,OB,PL,FFF,HHH),
            S=OB,
            S=X,
            N1=KY,NA1=NA,KO1=N,PL1=PL,FF1=FFF,HH1=HHH,
            assert(lolo(N1,NA1,KO1,S,PL1,FF1,HH1)),
            fail.

        procedure(2):-
write(" ᮧ"),nl,
write("______________________________________________________________________________"),
write("           K                                        "),
write("-----------------------------------------------------------------------------!"),
write("!         !              !  !         !  ᬥ  !                 !"),
write("!  த  !  !  !㯫 !⮨!----------------------!"),
write("!         !              !     !ᯫ!         !   ࠩ  !   㫨   !"),
write("------------------------------------------------------------------------------"),
            lolo(KY,NA,N,S,PL,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(S),
            cursor(Z,46),write(PL),
            cursor(Z,76),write("!"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),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(" 砫쭮 祭 ᬥ ⮨ :"),
            readint(X),
            svod(KY,NA,N,OB,PL,FFF,HHH),
            S=PL,
            S>=X,
            N1=KY,NA1=NA,KO1=N,HH1=HHH,FF1=FFF,OB1=OB,
            assert(kuku(N1,NA1,KO1,OB1,S,FF1,HH1)),
            fail.

        procedure(3):-
write(" ᮧ"),nl,
write("_____________________________________________________________________________"),nl,
write("                                                 !"),nl,
write("-----------------------------------------------------------------------------"),nl,
write("!         !              !  !         !  ᬥ  !                !"),nl,
write("!  த  !  !  !㯫 !⮨!----------------------"),nl,
write("!         !              !     !ᯫ!         !   ࠨ  !   㫨  !"),nl,
write("-----------------------------------------------------------------------------"),nl,
          kuku(KY,NA,N,OB,S,FFF,HHH),
            cursor(Z,_),
            cursor(Z,2),write(KY),
            cursor(Z,12),write(NA),
            cursor(Z,27),write(N),
            cursor(Z,35),write(OB),
            cursor(Z,46),write(S),
            cursor(Z,76),write("!"),
            cursor(Z,56),write(FFF),
            cursor(Z,67),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("ilgiz.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("ilgiz.dat"),
            consult("ilgiz.dat"),
            write("  浪"),
            beep,
            !.

        lod(2):-
            write(" ilgiz.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(M),
        svod(M,_,Z,_,_,_,_),
        N=Z.

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

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

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

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

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

        sel(4,N):-
        nl,
        write("  㯫  ᯫ:"),
        readint(Q),
        svod(_,_,Z,Q,_,_,_),
        N=Z.

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

        sel(5,N):-
        nl,
        write(" ᬥ ⮨:"),
        readint(W),
        svod(_,_,Z,_,W,_,_),
        N=Z.





















                    7.  


         ⫠ ணࠬ 訡 ࠭﫨   ⠯.   -
 ⠯  몠 ஫ ᠬ  㪠뢠    ᨭ⠪᪨
訡.   訡   ࠢ쭮 ᠭ  -
 ।⮢,    뢠   ।    ࠧ
predicates  .. ᫨  諠 ᯥ譮,  ணࠬ ࠡ-
 ४⭮,  室 室  ஬ ⠯  -  ᬮ
⥪  ணࠬ  ᪮ ᫥ 訡.   ⮬ ⠯ 뫨
࠭ ⠪ 訡,  뢮 ᥣ      -
  ᬮ  .  稭 ⮬ 뫮 ⢨   楤
। fail.  訡 뫠 ࠭.  ᫨   ன  ⠯,
室 室  쥬 - ஢.  筮
⫠    襭 ஫ ਬ஢ 訡  ணࠬ 㦥
 뫮.




                    8.   
                           :

ணࠬ "⠫ ந⥫ 쥪⮢ " ।⠢ ᮡ
ଠ樮-ࠢ ⥬.   ணࠬ  
ᮧ   , 饩 ᯨ᪮ ᥩ 㤮⢮
  ࠧ ᭮  .  ᭮    
த, ,  , 㯫  ᯫ,ᬥ ⮨,
 쥪.
.

         ᪥ ணࠬ  ࠭ 뢮  :

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


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

     0 -  ணࠬ...

         롮   㭪  ࠭ 뢮   ⥬
  . ᫥     ந室 室  
.

     1 - ४஢ 

         室   㭪  ࠭ 뢮 :

                      1 - ⥭ த
                      2 - ⥭  㯫  ᯫ
                      3 - ⭠ ᬥ ⮨


     롥 ਧ    ⥭  ⥬    
⥬.ਧ ᫥   ⮬    (⠭   
 㪢)       .  ᫥ । -
४㥬  ⥬ 뢮  ࠭


   ⮬ 쥪    ।஢,  ᫥-
⥫쭮 ᯥ뢠  .

      2 -  

         ० 㦨  㤠 ᥩ   .  
  㭪 " " ० "४஢ " 짮-
 ⥫ ।⠢     ਧ 㦭 .
 ᫥    ந 㤠 ࠭      뢮
 ᮮ饭,  ⢥ত饣 믮  樨.   砥 -
  㤠  (ਬ    ᤠ  ஬  -
 ),  뤠 ᮮ⢥饥 ᮮ饭  訡.


     3 - ᬮ 

         ०  ।祭  ᬮ ᮤন 
 .  室   ०   ࠭ 뢮  ⥪饩 
    ⠡. 饭  ᭮  ᫥  
.



     4 - 㧪 

        ० ।祭  㧪       䠩.
 室   㭪 뢮   䠩 ᮤঠ饣 
.   ᯥ譮 㧪    ᮮ⢥饥 ᮮ饭, 
ᡮ  ᮮ饭  訡.

     5 - ࠭ 

        ० ।祭  ࠭  .   室
  ० 뢮 ᫥饥 :

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

          㭪⠬  筠 ࠡ   -
 "㧪 ".

     6 -   

         ०  ।祭   ᮧ ୥  .
 ᪥ ⮣ ०   ᮧ  ⮬᪨,    祬
뢮  ᮮ⢥饥  ᮮ饭  ।०  室
࠭ ୥ . ᫥    ந室 室 
 .

     7 - ᬮ-

         ० ।祭  ᬮ- ᥩ  
.  室    짮⥫ 訢  㦭 
  ,᫨  ,   ࠭ 뢮   ᮤন. -
⨢ 砥 뢮 ᮮ⢥饥 ᮮ饭  졠 ,ਢ
 , ࠭ .᫥   ⥬
뢥 ᮮ饭  室 ࠭     
  . ⨨   ᭮ ந 室
  "ᬮ-".室  ᭮  ⢫ ⨥
 .

     8 - 室  ணࠬ

         㭪  ।祭  室  ଠ樮--
筮 ⥬  .

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


                      

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






























                             :

         .⪮   "ணࠬ஢  몥 ஫ 
                     ⢥ ⥫"

         .   "஫ -  ணࠬ஢ 饣"

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