

                           N -21

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

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

    2. 室 :
       ࠡ ଠ樮-ࠢ ⥬, ᯥ稢-
        ࠡ    Avto 饩  :
 ͻ
                 .                                
 ͹
 N       N   N       . . .            
                               
 ͹


      Avto ᮧ 2  Avto1  Avto2  ਧ, ।-
 짮⥫

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

    3. 祭 ᮢ,  ࠧࠡ⪥:

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

    4. 祭 ᪨ ਠ:

       4.1 ୠ 奬 
       4.2 ୠ 奬 ணࠬ.



    5.  -䨪 ࠡ  ᮢ ࠡ⮩:

       1. 祭 
                            4.10.96
       2.  , ⠭ ,      祭
          
                            5.10.96  20.10.96
       3. ࠡ⪠    ணࠬ
                            22.10.96
       4. ࠡ⪠ 楤 ଠ樮-ࠢ筮 ⥬
                            18.11.96
       5. ⫠ ணࠬ
                            29.11.96
       6. ࠡ⪠ ணࠬ  ⮬   ॡ
                            20.12.96
       7. 筠 ⫠ ணࠬ
                            21.12.96
       8. ଫ ᭨⥫쭮 ᪨
                            24.12.96
       9.  ࠡ  ஢
                            25.12.96
       7.  ᮢ ࠡ
                            27.12.96






















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








                             2ঠ.

           ....................................
          1. ⨥  ଠ樮 ⥬  
             ணࠬ ॠ樨 ...................
          2.    ᯮᮡ  ।⠢ ...
          3. ࠡ⪠ ⥬  ...............
          4. ࠡ⪠  ணࠬ ...........
          5. ࠡ⪠ 楤:
             5.1 ᭮ 楤 Nachalo ...........
             5.2 뢮   Mainmenu ........
             5.3 㧪  Zagruz ...................
             5.4 뢮 ଠ樨  ணࠬ
                 Rabota (0) ...........................
             5.5 ४஢  Rabota (1) ......
             5.6  ᥩ Rabota (2) ..........
             5.7 ᬮ  Rabota (3) ............
             5.8 뢮  㧪 Rabota (4) .....
             5.9 뢮  ࠭ Rabota (5) ...
             5.10    Rabota (6) .......
             5.11   ᥩ Rabota(7)..
             5.12 ᬮ- 
                  Rabota(8) ...........................
             5.13 室  ணࠬ      Rabota(9) ..

             5.14 楤 롮 hoice1............
             5.15 楤 Sbros  Sbros1      .......
             5.16 㧪   ᪠ Loadbase........
             5.17 ࠭   ᪥ Savebase.....
             5.18 ᯮ⥫쭮  ४樨 
                  Correct(N)  ........................
          6. ⨭ ணࠬ .......................
          7. ⫠ ணࠬ .......................
          8.  짮⥫  襭
             ஫ ਬ஢: ...................
          祭 .................................
          ᮪  ..........................















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

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

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

      ० ணࠬ ⨢   ,  ஥ ॠ-
   楤 mainmenu.  ⨢樨   -
 짮⥫ ᫥    ஢  ,  ᮮ⢥
࠭ 㭪 .







    ணࠬ ⮨   㭪⮢:

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

  ᫥饩 ࠭ ।⠢ ᪠  .









































     楤 ᮧ  ᭮ ॡ,    
 ᮢ ࠡ.

       楤 Nachalo ࠧ GOAL 樨 砫  -
  ணࠬ.   楤 ᪠ 楤 砫쭮 -
㧪   Zagruz ,  ᫥ 祣 ।  ࠢ  楤
뢮   Mainmenu.

      楤  뢮  ᯨ᮪ 㭪⮢     
짮⥫  ᫠, ஥ 㤥 ᥭ  ६ C. ᫥
⮣ 뢠 楤 ࠡ⪨ ᭮ ० Rabota ,  -
 ६ C ।  ⢥ 㬥.   楤 ᯮ-
 । Povtor,   裡  ⨬ ᫥   楤 Ra-
bota  砥,  ᫨ C  ࠢ 7 ந室   뢮  㭪⮢
    ᫠.

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

      楤 뢮 ଠ  몥,   ஬ ᠭ
⥬    ᮧ⥫.

     楤 Rabota (1) 㦨 ४樨 , 室  , 
ᥭ  ᥩ. ⨢樨 楤 訢  -
  ᫨ ⠪  뢮  祭 ᫥  祣  
    祭.᫨    ⠪ ஬  
 楤 뢮 ᮮ饭  ⮬      
᫥ 祣 ⢫   .

      楤 ।祭  㤠 ᥩ    -
.       ਧ (  ⮣ ᯮ
। Choice1. ᫥ 롮 ਧ   ᮤঠ騥  㤠-
   ஥ । Retract.

   楤 Rabota (3) 뢮 ᮤঠ     ⠡.


     楤 뢮 ,  ᮤঠ饥 ᫥騥 㭪: "
㤥 㦥  㪠 䠩",  "  㤥 㦥  䠩
avto.dat", " 室  ᭮ ". 㧪   ⢫-
 楤ன Loadbase,  㬥⮬ ன 㦨 ६ C,  -
⠭     짮⥫      㭪
.

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



      楤 㦨  ᮧ   .  楤
ࠡ⠥ ᫥騬 ࠧ: 뢮  롮 ਧ  ஬
㤥 ᮧ   :

           1 -  થ ⮬
           2 -   ᪠
           3 -  ࠩ 
           4 - 室  ᭮ 
           =>
    롮   ᮮ⢥饩  ᫥  祣  楤
।  ࠢ  楤  Rabota1(N)    N -  ࠭
㭪. 楤 Rabota1 㤥 ᬮ७ .

             5.11  楤    Rabota(7)

    楤 ।祭      .᫥  -
᪠ ந室 ᫥⥫   ᫥饣  -
.  ᫥     室    ᭮
.
            5.12  楤 ᬮ   

     楤  訢      ᫨ 室  
  ⠪ ஬  뢮  祭  ᫥    
 ந室   ᭮ .
     ᫨     ஬       楤  
    ᫥ ⮣ ந ᫥⥫ 
.
                                 5.13

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

                                 5.14
     楤 ।    ᫥  짮-
⥫   ᮡ⢥  ⮩ ,   ᫥  䠬
㣮    頥    뢠 楤.

                                 5.15

    楤 Sbros    Sbros1    ᯮ⥫묨  楤
Correct(1).    ।,  ᫥    騩
      (᫨ 뫠   <Enter>).  
楤 ஢,     㬥  ⮩  ப.
᫨  ⠪,   쥬 㬥 ᢠ ன. ᫨  -
 㬥   ⮩ ப,    ᢠ 쥬
㬥  ( Sbros1 ந室 ।⥫쭮 ८ࠧ ப-
 ६  楫᫥).

                                 5.16
       楤 ⢫ 㧪     䠩  
᪥  ਧ, 騬  㬥 楤: Loadbase(1) -


㦠 ᭮   䠩,  짮⥫, Loadbase(2) - 
䠩  avto.dat   楤 ஢ 稥 䠩  ᪥
  । existfile  㧪       ।-
 consult.   砥 ⢨ 䠩  ᪥,  뤠 ᮮ⢥-
饥 ᮮ饭.
                                 5.17
      楤 ⢫ ࠭     䠩  
᪥  ਧ, 騬  㬥 楤: Savebase(1) -
࠭ ᭮   䠩,   짮⥫,  Savebase(2) -  
䠩 bit.dat. ࠭  ⢫   ஥ -
 save.  砥 訡 뤠 ᮮ⢥饥 ᮮ饭 .

                    5.18  楤 Cjrrect(j,i).
      楤 ᯥ稢  ᮮ⢥饣  .























                                             

















domains
        z,n,dvig,god,n1,shasi,i=integer
        j,mark,znac,fam,ima,otc,ucet=string

database -avto1
          avto1(i,j,i,i,i,j,j,j,j,j)
database -avto2
          avto2(i,j,i,i,i,j,j,j,j,j)
database -avto3
          avto3(i,j,i,i,i,j,j,j,j,j)
database
         avto(i,j,i,i,i,j,j,j,j,j)

        predicates

        nachalo
        mainmenu
        zagruz
        choice1(i)
        correct(i,i)
        rabota(i)
        rabota1(i)
        savebase(i)
        loadbase(i)
        povtor
        sbros(j,j,j)
        sbros1(j,i,i)

goal
        nachalo.

clauses

/*楤 ᮧ ᭮   㧪  */

        nachalo:-
            makewindow(1,7,7,".  ",0,0,25,80),
            clearwindow,zagruz,
            mainmenu.


/*楤 ࠢ ᭮ */

        mainmenu:-
            povtor,
            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(Vibor),
            Vibor >= 0,
            Vibor < 10,
            clearwindow,
            rabota(Vibor),
            clearwindow,
            Vibor = 9,
            retractall(_),
            removewindow.

/*楤 ᪠  㧪 䠩 ᮤঠ饣  */

        zagruz:-
            existfile("avto.dat"),
            consult("avto.dat"),
            cursor(1,2),
            write(" 㦥").
        zagruz:-
            cursor(1,2),
            write("   ᪥").

/*p楤p   */


        rabota(7):-
        makewindow(1,7,7,"  ",0,0,25,80),
            nl,
         WRITE(" 浪     :"),readint(K),nl,
         write("                :"),readln(F),nl,
         write("           :"),readint(Y),nl,
         write(" N          :"),readint(J),nl,
         write(" N              :"),readint(G),nl,
         write("         :"),readln(W),nl,
         write("              :"),readln(B),nl,
         write("                  :"),readln(C),nl,
         write("             :"),readln(D),nl,
         write("           :"),readln(R),nl,

   N1=K,MARK1=F,GOD1=Y,DVIG1=J,SHASI1=G,ZNAC1=W,
   FAM1=B,IMA1=C,OTC1=D,UCET1=R,
   assertz(avto(N1,MARK1,GOD1,DVIG1,SHASI1,ZNAC1,FAM1,IMA1,OTC1,UCET1)),
   removewindow, fail.

/*楤 ᬮ-*/

        rabota(8):-
         makewindow(1,7,7,"ᬮ-",0,0,25,80),
         nl,
         write("  :"),readint(A),nl,nl,
         avto(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
         A=N,

            write("         :"),write(N),nl,
            write("               :"),write(MARK),nl,
            write("          :"),write(GOD),nl,
            write("N          :"),write(DVIG),nl,
            write("N              :"),write(SHASI),nl,
            write("        :"),write(ZNAC),nl,
            write("             :"),write(FAM),nl,
            write("                 :"),write(IMA),nl,
            write("            :"),write(OTC),nl,
            write("          :"),write(UCET),nl,nl,
            readchar(_),
            removewindow,
            !.



         rabota(8):-
write("⮣     ."),
write("     த  "),
nl,nl,nl,
write(" :"),
         readint(A),nl,
         N1=A,
            write("               :"),readln(F),nl,
            write("          :"),readint(Y),nl,
            write("N          :"),readint(J),nl,
            write("N              :"),readint(G),nl,
            write("        :"),readln(W),nl,
            write("             :"),readln(B),nl,
            write("                 :"),readln(C),nl,
            write("            :"),readln(D),nl,
            write("          :"),readln(R),nl,

   MARK1=F,GOD1=Y,DVIG1=J,SHASI1=G,ZNAC1=W,FAM1=B,IMA1=C,OTC1=D,UCET1=R,
   assertz(avto(N1,MARK1,GOD1,DVIG1,SHASI1,ZNAC1,FAM1,IMA1,OTC1,UCET1)),
         removewindow,
         fail.

/*p楤p 뢮   pp*/
         rabota(0):-
         makewindow(1,54,7," pp...",5,5,20,50),
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,
write("          "),
         readchar(_),
         removewindow.

/*楤 㤠 ᥩ   */
        rabota(2):-
            makewindow(1,7,7," ᥩ",0,0,25,80),


            nl,
            choice1(N),
            X=N,
            avto(X,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            retract(avto(X,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET)),!,
            removewindow.

/*楤 ᬮ ᮤন  */
        rabota(3):-
        makewindow(1,7,7,"ᬮp ",0,0,25,80),
        nl,
write(" ͻ"),nl,
write("               .                      "),nl,
write(" ͹"),nl,
write(" N       N   N    ..      "),nl,
write("                   "),nl,
write(" ͹"),nl,
           avto(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            cursor(Z,_),cursor(Z,1),write(""),
            cursor(Z,2),write(N),cursor(Z,4),write(""),
            cursor(Z,5),write(MARK),cursor(Z,14),write(""),
            cursor(Z,15),write(GOD),cursor(Z,20),write(""),
            cursor(Z,21),write(DVIG),cursor(Z,26),write(""),
            cursor(Z,27),write(SHASI),cursor(Z,32),write(""),
            cursor(Z,33),write(ZNAC),cursor(Z,41),write(""),
            cursor(Z,42),write(FAM),cursor(Z,49),write(""),
            cursor(Z,50),write(IMA),cursor(Z,58),write(""),
            cursor(Z,59),write(OTC),cursor(Z,66),write(""),
            cursor(Z,67),write(UCET),
            cursor(Z,76),write(""),
            nl,
            fail.

        rabota(3):-
write(" ͹"),
nl,
write("   "),
           readchar(_),
            removewindow.

/*楤 㧪    */
        rabota(4):-
            nl,
            makewindow(2,15,4,"㧪",5,5,20,70),
            write("1 -  㤥 㦥  㪠 䠩"),nl,
            write("2 -  㤥 㦥  䠩 avto.dat"),nl,
            write("3 - 室  ᭮ "),nl,
            write("==>"),
            readint(C),
            C>0,C<4,
            loadbase(C),
            !,
            removewindow.



/*楤 ࠭  */
        rabota(5):-
            nl,
            makewindow(2,15,4,"",5,5,20,70),
            write("1 -  㤥 ᠭ  㪠 䠩"),nl,
            write("2 -  㤥 ᠭ  䠩 avto.dat"),nl,
            write("3 - 室  ᭮ "),nl,
            write("==>"),
            readint(I),
            I>0,I<4,
            savebase(I),!,
            removewindow.

 /*楤 롮 ᮧ  */
        rabota(6):-
            nl,
            makewindow(3,7,7,"  ",0,0,25,80),
            write(" 1 -  થ ⮬"),nl,
            write(" 2 -   ᪠"),nl,
            write(" 3 -  ࠩ "),nl,
            write(" 4 - 室  ᭮ "),nl,
            write("==>"),
            readint(O),
            O>0,O<5,
            rabota(O),
            removewindow.

/*楤  ᮤন ᥩ  */
        rabota(1):-
        makewindow(1,7,7,"pp ",0,0,25,80),
            nl,
            choice1(N),
            X=N,
            avto(X,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            write("         :"),write(N),nl,
            write("               :"),write(MARK),nl,
            write("          :"),write(GOD),nl,
            write("N          :"),write(DVIG),nl,
            write("N              :"),write(SHASI),nl,
            write("        :"),write(ZNAC),nl,
            write("             :"),write(FAM),nl,
            write("                 :"),write(IMA),nl,
            write("            :"),write(OTC),nl,
            write("          :"),write(UCET),nl,nl,
            write("              :"),readln(MARK1),nl,
            write("         :"),readln(GOD1),nl,
            write(" N        :"),readln(DVIG1),nl,
            write(" N            :"),readln(SHASI1),nl,
            write("       :"),readln(ZNAC1),nl,
            write("            :"),readln(FAM1),nl,
            write("                :"),readln(IMA1),nl,
            write("           :"),readln(OTC1),nl,
            write("         :"),readln(UCET1),nl,

            X1=X,
            retract(avto(X,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET)),
            sbros(MARK1,MARK,MARK2),
            sbros1(GOD1,GOD,GOD2),
            sbros1(DVIG1,DVIG,DVIG2),
            sbros1(SHASI1,SHASI,SHASI2),
            sbros(ZNAC1,ZNAC,ZNAC2),
            sbros(FAM1,FAM,FAM2),
            sbros(IMA1,IMA,IMA2),
            sbros(OTC1,OTC,OTC2),
            sbros(UCET1,UCET,UCET2),
            assertz(avto(X1,MARK2,GOD2,DVIG2,SHASI2,ZNAC2,FAM2,
                                                 IMA2,OTC2,UCET2)),
            !,
            removewindow.
            rabota(_).

      sbros("",MARK,MARK2):-
            MARK2=MARK,
            !.

      sbros(MARK1,_,MARK2):-
            MARK2=MARK1,
            !.

      sbros1("",MARK,MARK2):-
            MARK2=MARK,
            !.
      sbros1(MARK1,_,MARK2):-
            str_int(MARK1,MARK3),
            MARK2=MARK3,
            !.

/*楤 ᮧ      ࠭*/

      rabota1(1):-
  makewindow(1,7,7,"    થ ⮬",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,avto1),
            nl,
            write("  ⮬:"),
            readln(X),
            avto(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            S=MARK,
            S=X,
            N1=N,GOD1=GOD,DVIG1=DVIG,SHASI1=SHASI,
            ZNAC1=ZNAC,FAM1=FAM,IMA1=IMA,OTC1=OTC,UCET1=UCET,
            assert(avto1(N1,S,GOD1,DVIG1,SHASI1,ZNAC1,FAM1,
                                          IMA1,OTC1,UCET1)),
            fail.




     rabota1(1):-
write(" ᮧ"),nl,
write("ͻ"),nl,
write("              .                      "),nl,
write("͹"),nl,
write("N       N   N   . .      "),nl,
write("                  "),nl,
write("͹"),nl,

            avto1(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            cursor(Z,_),cursor(Z,1),write(""),
            cursor(Z,2),write(N),cursor(Z,4),write(""),
            cursor(Z,5),write(MARK),cursor(Z,14),write(""),
            cursor(Z,15),write(GOD),cursor(Z,20),write(""),
            cursor(Z,21),write(DVIG),cursor(Z,26),write(""),
            cursor(Z,27),write(SHASI),cursor(Z,32),write(""),
            cursor(Z,33),write(ZNAC),cursor(Z,41),write(""),
            cursor(Z,42),write(FAM),cursor(Z,49),write(""),
            cursor(Z,50),write(IMA),cursor(Z,58),write(""),
            cursor(Z,59),write(OTC),cursor(Z,66),write(""),
            cursor(Z,67),write(UCET),
            cursor(Z,76),write(""),
            nl,
            fail.

        rabota1(1):-
write(" ͹"),
            save("avto1.dat",avto1),
            nl,
            write(" ࠭  䠩 avto1.dat"),
            nl,
            write("  "),
            readchar(_),
            removewindow,
            !.

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



            rabota1(2):-
   makewindow(1,7,7,"     ᪠",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,avto2),
            nl,
            write("  ᪠ ⮬:"),

            readint(X),
            avto(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            S=GOD,
            S=X,
            N1=N,MARK1=MARK,DVIG1=DVIG,SHASI1=SHASI,ZNAC1=ZNAC,FAM1=FAM,
                     IMA1=IMA,OTC1=OTC,UCET1=UCET,
            assert(avto2(N1,MARK1,S,DVIG1,SHASI1,ZNAC1,FAM1,IMA1,
                       OTC1,UCET1)),
            fail.

        rabota1(2):-
write(" ᮧ"),nl,
write(" ͻ"),nl,
write("               .                     "),nl,
write(" ͹"),nl,
write(" N       N   N           "),nl,
write("                  "),nl,
write(" ͹"),nl,

            avto2(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            cursor(Z,_),cursor(Z,1),write(""),
            cursor(Z,2),write(N),cursor(Z,4),write(""),
            cursor(Z,5),write(MARK),cursor(Z,14),write(""),
            cursor(Z,15),write(GOD),cursor(Z,20),write(""),
            cursor(Z,21),write(DVIG),cursor(Z,26),write(""),
            cursor(Z,27),write(SHASI),cursor(Z,32),write(""),
            cursor(Z,33),write(ZNAC),cursor(Z,41),write(""),
            cursor(Z,42),write(FAM),cursor(Z,49),write(""),
            cursor(Z,50),write(IMA),cursor(Z,58),write(""),
            cursor(Z,59),write(OTC),cursor(Z,66),write(""),
            cursor(Z,67),write(UCET),
            cursor(Z,76),write(""),
            nl,
            fail.

        rabota1(2):-
write(" ͹"),
            save("avto2.dat",avto2),
            nl,
            write(" ࠭  䠩 avto2.dat"),
            nl,
            write("  "),
            readchar(_),
            removewindow,
            !.

        rabota1(2):-
write(" ͹"),
            nl,
            write(" ࠭ ᮧ "),
            nl,
            write("  "),
            readchar(_),
            makewindow(1,7,7,".  ",0,0,25,80).

            rabota1(3):-
   makewindow(1,7,7,"    ࠩ ",0,0,25,80),
            nl,
            cursor(7,10),
            retractall(_,avto3),
            nl,
            write(" ࠩ :"),
            readln(X),
            avto(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            S=UCET,
            S=X,
            N1=N,MARK1=MARK,GOD1=GOD,DVIG1=DVIG,SHASI1=SHASI,
                          ZNAC1=ZNAC,FAM1=FAM,IMA1=IMA,OTC1=OTC,
            assert(avto3(N1,MARK1,GOD1,DVIG1,SHASI1,ZNAC1,FAM1,
                                           IMA1,OTC1,S)),
            fail.
        rabota1(3):-
write(" ᮧ"),nl,
write(" ͻ"),nl,
write("                .                  "),nl,
write(" ͹"),nl,
write(" N       N   N         "),nl,
write("                "),nl,
write(" ͹"),nl,

            avto3(N,MARK,GOD,DVIG,SHASI,ZNAC,FAM,IMA,OTC,UCET),
            cursor(Z,_),cursor(Z,1),write(""),
            cursor(Z,2),write(N),cursor(Z,4),write(""),
            cursor(Z,5),write(MARK),cursor(Z,14),write(""),
            cursor(Z,15),write(GOD),cursor(Z,20),write(""),
            cursor(Z,21),write(DVIG),cursor(Z,26),write(""),
            cursor(Z,27),write(SHASI),cursor(Z,32),write(""),
            cursor(Z,33),write(ZNAC),cursor(Z,41),write(""),
            cursor(Z,42),write(FAM),cursor(Z,49),write(""),
            cursor(Z,50),write(IMA),cursor(Z,58),write(""),
            cursor(Z,59),write(OTC),cursor(Z,66),write(""),
            cursor(Z,67),write(UCET),
            cursor(Z,76),write(""),
            nl,
            fail.
        rabota1(3):-
write(" ͹"),
            save("avto3.dat",avto3),
            nl,
            write(" ࠭  䠩 avto3.dat"),
            nl,
            write("  "),
            readchar(_),
            removewindow,
            !.

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


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

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

        savebase(2):-
            save("avto.dat").

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

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

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

        loadbase(2):-
            write(" avto.dat   ᪥"),nl,
            write("  "),
            readchar(_).


        loadbase(3).

        povtor.
        povtor:- povtor.

/*롮 */
        choice1(N):-
        nl,
        write("1 - ⥭     "),nl,
        write("2 - ⭠           "),nl,
        write("3 - ⥭      "),nl,
        write("4 - ⥭ N     "),nl,
        write("5 - ⥭ N         "),nl,
        write("6 - ⥭    "),nl,
        write("7 - ⭠         "),nl,
        write("8 - ⭮             "),nl,
        write("9 - ⭮        "),nl,
        write("10- ⥭      "),nl,
        write("=>"),
        readint(X),
        correct(X,N).

        correct(1,N):-
        nl,
        write("                  :"),
        readint(N),
        avto(M,_,_,_,_,_,_,_,_,_),
        M=N.

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

        correct(2,N):-
        nl,
        write("  ⮬  :"),
        readln(L),
        avto(Z,L,_,_,_,_,_,_,_,_),
        N=Z.

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

        correct(3,N):-
        nl,
        write("  ᪠    : "),
        readint(F),
        avto(Z,_,F,_,_,_,_,_,_,_),
        N=Z.

        correct(3,N):-
        N=0.
        correct(4,N):-
        nl,


        write(" N ⥫  :"),
        readint(Q),
        avto(Z,_,_,Q,_,_,_,_,_,_),
        N=Z.

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

        correct(5,N):-
        nl,
        write(" N    :"),
        readint(W),
        avto(Z,_,_,_,W,_,_,_,_,_),
        N=Z.

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

      correct(6,N):-
        nl,
        write(":"),
        readln(ZNAC),
        avto(Z,_,_,_,_,ZNAC,_,_,_,_),
        N=Z.

        correct(6,N):-
        N=0.

          correct(7,N):-
          nl,
          write(":"),
          readln(FAM),
          avto(Z,_,_,_,_,_,FAM,_,_,_),
        N=Z.

        correct(7,N):-
        N=0.

          correct(8,N):-
          nl,
          write(":"),
          readln(IMA),
          avto(Z,_,_,_,_,_,_,IMA,_,_),
          N=Z.

          correct(8,N):-
          N=0.

          correct(9,N):-
          nl,
          write(":"),
          readln(OTC),
          avto(Z,_,_,_,_,_,_,_,OTC,_),
          N=Z.

          correct(9,N):-
          N=0.

          correct(10,N):-
          nl,
          write(":"),
          readln(UCET),
          avto(Z,_,_,_,_,_,_,_,_,UCET),
          N=Z.


     ணࠬ "孨᪨ ᯮ ⮬" ।⠢ ᮡ -
ଠ樮-ࠢ ⥬.   ணࠬ  
ᮧ     ,   ᯨ᪮ ᥩ ⮡࠭ 
롨ࠥ 짮⥫ ਧ.   ᭮   
  થ, ᪠, ⥫  ,୮ ,䠬,
  ⢥ , ⠪ ࠩ .  ୥  
      ⭮ ਧ,- ઠ ⮬-
 ,   ᪠  ࠩ .    ⠫ ਧ-
  뫮  ਧ 楫ᮮࠧ ..  祭  ⭮ 
ᮢ.

         ᪥ ணࠬ  ࠭ 뢮  :

                         0 -  pp...
                         1 - ४ 
                         2 - 㤠 
                         3 - ᬮ 
                         4 - 㧪 
                         5 - ࠭ 
                         6 - ᮧ  
                         7 -   
                         8 - ᬮ-
                         9 - 室  ணࠬ

      롮 - 㭪 ᫥  ᮮ⢥ -
஢ .

      롮  㭪  ࠭ 뢮    ⥬  
  .  ᫥     ந室 室  
.
                           뢮 :

                      1 - ⥭  
                      2 - ⭠ 
                      3 - ⥭  
                      4 - ⥭ N 
                      5 - ⥭ N 
                      6 - ⥭  
                      7 - ⭠ 
                      8 - ⭮ 
                      9 - ⭮ 
                      10- ⥭  



        ᮮ⢥饣 㭪. ᫥ ⮣ ⥬
  ᮮ⢥⢥   ..   ᫥   ⮬ 
        (⠪  ⠭   
 㪢). ᫥ । ४㥬  ⥬ 뢮-
  ࠭    ⮬ ⮬    ।-
,  ᫥⥫쭮 ᯥ뢠  . ᫨   ⥪饬
 ࠢ  ॡ, ᫥   <Enter>.

      ० 㦨  㤠 ᥩ   .    
㭪 "४஢ " 짮⥫  ।⠢  -
  室  . ᫥    ந-
 㤠 ࠭ .

      ० ।祭  ᬮ ᮤন  
.  ࠭ 뢮 ⠡  ᥩ ⥪饩 .

     ०  ।祭  㧪    䠩.  
室   㭪 뢮 :

          1 -  㤥 㦥  㪠 䠩
          2 -  㤥 㦥  䠩 avto.dat
          3 - 室  ᭮ 

      롮 㭪⮢ 1  2 ந 㧪  ᮮ⢥⢥  -
    ୥     ⠭⭮ 䠩 avto.dat  㪠
짮⥫ 䠩,   砥 㤠筮 㧪 㤥 뤠 ᮮ⢥-
饥  ᮮ饭.  ᫥     ந 室 
 .

       㭪 3 ।祭   室   .
        ० ।祭  ࠭  .   室
  ० 뢮 ᫥饥 :

          1 -  㤥 ᠭ  㪠 䠩
          2 -  㤥 ᠭ  䠩 avto.dat
          3 - 室  ᭮ 

        㭪⠬  筠 ࠡ   ०-
 "㧪 ".

      ० ।祭  ᮧ ୨   .  
᪥ ⮣ ० 뢮 :

           1 -  થ ⮬
           2 -   ᪠
           3 -  ࠩ 
           4 - 室  ᭮ 

      ᮮ⢥饩  ந 롮 㦭 ࠬ
 ᮧ  .᫥ 祣 ந    .  
࠭  ⮬᪨  ᮮ⢥⢥    䠩 avto1.dat ,  av-
to2.dat ,  avto3.dat  ᮤঠ   騥  
ࠬ.

    㭪 4 ந 饭  ᭮ .

     㭪  ।祭  室   ଠ樮-ࠢ-
 ⥬  .

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

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







                             2:

         .⪮   "ணࠬ஢  몥 ஫ 
                     ⢥ ⥫"

         .   "஫ -  ணࠬ஢ 饣"

         .宭  "஫ -  ᪮
                     ணࠬ஢.  2.3"
                                                                                                                                                                                                     
