


                           N -1


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

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

2. 室 :
     1  ﬨ 
-----------------------------------------------------------------
                         ௫  
-----------------------------------------------------------------
            |    |௫|뤠  ⠫|     |
---------------|.|      |-------------------|ᥣ|⮪
|||    |     |I   |II  |III |IV  |     |
-----------------------------------------------------------------
ᮧ  2  ਧ, 묨  ᯫ.    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. ଫ ᭨⥫쭮 ᪨  ᤠ ࠡ  ஢
                         13.12.96
   7.  ᮢ ࠡ
                         20.12.96




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















































                            Aঠ
                                                      @.
           .................................. 4
          1. ⨥  ଠ樮 ⥬  
             ணࠬ ॠ樨 ................. 5
          2.   ᯮᮡ  ।⠢ .......... 5
          3. ࠡ⪠ ⥬  ............. 6
          4. ࠡ⪠  ணࠬ ......... 7
          5. ࠡ⪠ 楤:
             5.1 ࠢ ᭮  ........... 8
             5.2 㧪  ...................... 8
             5.3 ४஢  ................. 9
             5.4   ....................10
             5.5    .................10
             5.6 ᬮ  .....................10
             5.7    ................10
          6.  ணࠬ ........................12
          7. ⫠ ணࠬ ......................18
          8.  짮⥫  襭
             ஫ ਬ஢: ..................18
             8.1   ......................20
             8.2 ࠭  ......................20
             8.3    ..................20
             8.4 㧪  ........................20
          祭 ................................21
          ᮪  .........................22


















                             @

     ,   ᮪ 孮, ᮡ   㤥-
 ଠ樨   ࠡ⪥.
       ୮ 孨    -
    ࠧ ⥬⨪.      ᮢ  ࠡ
뢠 ਭ樯 ᮧ    .
     ᮢ ࠡ ⮨  ᪮쪨 ⥩: 騥  ਭ-
 ଠ樮 ⥬, ࠧࠡ⪠  ଠ樮  ⥬  (
ਬ ⥬ "௫  ")  樨   ᯮ짮
⥬ "௫  ".
      ࢮ  ᮢ ( 1    2)  뢠  騥
ਭ樯 ଠ樮 ⥬    (), ᪠뢠 
ணࠬ ॠ樨 ⥬  .  ⮩   㤥 ᪠-
  ᯮᮡ ஥ .
      ன  ( 3-7) ᪠뢠  ਭ樯 ᮧ-
 ணࠬ  ࠡ⪨ : ᮧ 䥩  짮-
, ࠭   ..   㤥 ᪠  ⫠ ண-
ࠬ.   ன  ਢ ⥪ ணࠬ "௫ 
".  ணࠬ ਢ  Turbo-Prolog v2.0.
      쥩   樨  ᯮ짮  -
樮 ⥬ "௫  ".
































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

     ଠ樮 ⥬ -   ⥬,    ନ
짮⥫ ⥬  ⮩    ⥫쭮 祫-
. ਬ: ଠ樮 ⥬ "௫  ",  -
ன ᮤন ଠ  㤭  ࠧ  䥤,  
  ᫥.
     窠 ଠ樮 ⥬  -    ணࠬ,  
ᯥ稢  㤮  ⢨  짮⥫     ⥬.
짮⥫,   窨,      -
  ଠ.
      ஫ ।⮢ 쭮 訥    
ணࠬ ॠ樨 窨 ଠ樮 ⥬.    -
⠢ ⠪ ।⢠ :
     - 㧪   ⥬  ᪠  (⠭  ।-
         @consult  );
     -     (।  @save  );
     -           (।   @asserta    
        @assertz  );
     - 㤠    (।  @retract  )  .
     ⠭ ᥣ ⮣   ᮧ  쭮  
ଠ樮 ⥬.

             @2.    ᯮᮡ  ।⠢

       () -   ଠ,  ।⠢    
㬥 ⠡.  ᮤন ⢮ ப,    
ᮮ⢥ ꥪ.   ꥪ  ᯮ  ।-
 ᨬ 樨,  뢠   ﬨ  .  ।-
 ᥡ ⠪ , ᮤঠ ப  ⮫  (⥩訩  -
砩).  ப, 뢠 ⠪     , ᮮ⢥ -
। ꥪ.  ⮫  ᮤন  祭  ᮮ⢥-
   ꥪ. ਬ - ⥫䮭 :
           -------------------------------------------
           | |      |⢮   |䮭   |
           -------------------------------------------
                         000-00-00
            ஢         ஢    111-11-11
           -------------------------------------------
           ⠡,   ,   -
. ⥫ ଠ  ꥪ  ࠭   -
⥫ ⠡.
        ।  ⮨  ⮬,  ଠ -
 㯮冷稢  ⮬ ,   짮⥫.
      ஫  ।⠢   ᯨ᪠ ମ :
      @            _।_(_)  .
       뢠  ࠧ  @DATABASE  .    
⢫   । . ஫ ।⮢ -
쭮  ।  ࠡ  ⠪ : 㧪, , -
  ..



                   @3. ࠡ⪠ ⥬ 

     ⥬   ᭮    ᯥ稢  㤮-
 ⢨ 짮⥫  ணࠬ.     -
 㭪  ࠭,  ᬮ,          ..
짮⥫ 㦭 ᥣ    ,  ᨬ  
  .     ணࠬ    ᥬ
㭪⮢:
     0 -  pp...      - 뢮   ணࠬ
     1 - ४     - ० ४஢ 
     2 - 㤠      - ० 㤠 
     3 - ᬮ        - ० ᬮ 
     4 - 㧪        - ० 㧪 㣮 
     5 - ࠭      - ० ࠭ 
     6 - ᮧ   - ० ᮧ  
     7 -      - ०  
     8 - 室  ணࠬ  - 室  ணࠬ

      ० ।ᬠਢ ਠ 믮  
樨. ।⠢    ᫥饩 奬:
 Ŀ
  ᭮  
 
     Ŀ
   Ĵ ணࠬ
     
     Ŀ
   Ĵ४ 
     
     Ŀ
   Ĵ 
     
     Ŀ
   Ĵᬮ 
     
     Ŀ
   Ĵ㧪 
     
           Ŀ
         Ĵ㧪  䠩 ALEX.DAT
           
           Ŀ
         Ĵ㧪  㪠 䠩
            
     Ŀ
   Ĵ࠭ 
     
           Ŀ
         Ĵ  䠩 ALEX.DAT
           
           Ŀ
         Ĵ  㪠 䠩
            
     Ŀ
   Ĵ  
     
           Ŀ
         Ĵ     䥤ࠬ
           
           Ŀ
         Ĵ  "  ௫"
           
           Ŀ
         Ĵ室  ᭮ 
            
     Ŀ
   Ĵ  
     
     Ŀ
   Ĵ室  ணࠬ
      



                 @4. ࠡ⪠  ணࠬ

      ணࠬ  ࠧࠡ뢠  ⮬ 쭥-
襩  ⫠, ..  ࠧ   ᪮쪮  ᪨
, ਬ:

           A ணࠬ ALEX - "௫  "

                  Ŀ
                   楤 㧪   
                   ࠢ ᭮   
                  
                                
                  Ŀ
                   楤 믮 -  
                   , ।⠢    
                   ᭮              
                  
                                
                  Ŀ
                   楤 ᮧ   
                                         
                  
                                
                  Ŀ
                   楤 ᬮ  
                                         
                  
                                
                  Ŀ
                       楤 REPEAT      
                  

      ࠧ   쭥襬   -
  ணࠬ,  ⠪ ⠢ ஫ 窨   -
. ⫠  ᬮਬ  . 7.    ४  ।
 楤ன ⠢ ਨ, 騥 㭪  -
.    ᪠    楤.


                      @5. ࠡ⪠ 楤

           @5.1 楤 ࠢ ᭮     @(PATH)

      㦥 ਫ ᭮    ᯥ稢  㤮-
 ⢨ 짮⥫  ணࠬ.  ⮣ 室-
 ࠧࠡ  ᭮    ᯮᮡ  ࠢ  .  
࠭  ᯮᮡ ࠢ , ..  짮⥫  㤥
 , ᨬ    .  ⠪  
।⠢    樨, 믮塞 ணࠬ,   -
  樨  ().
     ।⠢  :

  ć௫  Ŀ
                                                            
                                                            
                     0 -  pp...                     
                     1 - ४                    
                     2 - 㤠                     
                     3 - ᬮ                       
                     4 - 㧪                       
                     5 - ࠭                     
                     6 - ᮧ                  
                     7 -                     
                     8 - 室  ணࠬ                 
                     >_                                     
                                                            
                                                            
  
     ᫥ 뢮    ந室  楫᫥ -
  @Choice    ᫨ 祭 ६   ஬⮪ 
0  8,  믮 楤  @process(Choice)  . ᫥  믮-
 楤  @process(Choice)   ᭮     ६
 @Choice  .

      @              5.2 楤 㧪 

      ணࠬ ALEX - "௫   "  ।  楤
砫쭮 㧪   㧪  ⨥ 짮⥫.  -
ᬮਬ  楤  ⤥쭮.

 @             A楤 砫쭮 㧪  (LOAD)

       ⮩ 楤 ந室 㧪  ࠧ -
 ᪠ ணࠬ.
     砫 ந室  䠩 "alex.dat"   ।-
  @existfile    ᫨  ,  ந室  㧪  ⮣
䠩  ७   @ALEX     ।   @consult  .  ᫨
 䠩  ,  ந 뢮 ᮮ饭     -
⢨  ணࠬ 室  ० ᭮ .

         A楤 㧪   ⨥ 짮⥫

      楤 뢠   楤  ࠢ  ᭮
     @PROCESS(4).     ᢮  :

          ć㧪Ŀ
           㧨  䠩 ALEX.DAT   - 1        
           㧨  㪠 䠩 - 2        
           >_                                       
                                                    
                                                    
          ,
.. 짮⥫ ।  ਠ 㧪 .
     ᫥ 뢮   ⮣  ந室    楫᫥-
 ६  @WHAT     ᨬ   ᮤঠ  ந-
   ।⠢ 権.
       㧪  祭  㧪,  ᠭ-
  楤  @LOAD.
     ன  ।  . ᫥    䠩
 ६  @FNAME   ந室  䠩  ᫨    ,  
頥  ᮤন       @ALEX  ,            ।
 @retractall(_,alex)  ,   㦠  㪠 䠩.

                 @5.3 楤 ४஢ 

      楤  ᯥ稢 㤮 ४஢  -
ᥩ  .  뢠  楤 ࠢ  ᭮-
    @PROCESS(1)  .
     ᫥ 室  ० ४஢     @ALEX    
ࢠ                ।          
 @alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)    ந室  -
  ࠭   , ᫥  祣  뢮    
४஢ ⥪饩     ६  @WHAT  , @    
 ᨬ   ᮤঠ (1  0)  ந  ४-
஢  (1)  室  ᫥饩   (0).  ।⠢
   ࠡ ⮩ 楤:

    Ċ४ Ŀ
     :               (FIO)                    
     :                     (NAME)                   
     ⢮:            (OT)                     
      䥤:     (KAF)                    
     ௫a  :300          (NIR)                    
     뤠  I ⠫:50       (K1)                     
     뤠  II ⠫:40      (K2)                     
     뤠  III ⠫:50     (K3)                     
     뤠  IV ⠫:60      (K4)                     
     ᥣ 뤠:200             (TOTAL)                  
     ⮪:100                  (OST)                    
                                                           
     㤥 ४஢ ? (1- 0-)                  
    .                                                       .
    .                                                       .
    
        ந室      -
  ⥪  㤠,     ⪮४-
஢ ਠ .
        ⢫ 室  ᫥饩  -
.

                   @5.4 楤 㤠 

      楤 뢠   楤  ࠢ  ᭮
   @PROCESS(2).     筠 楤  -
४஢ ,  ࠡ⠥  㤠   .

                 @5.5 楤   

      楤  ।⠢ 㤮    -
   @ALEX.
     뢠  楤 ࠢ  ᭮    
 @PROCESS(7).
     ᫥ 室  ०   ந室     
     @ALEX  .  ᫥     -
                ⠭⭮    ।
 @assertz(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)).

                   @5.6 楤 ᬮ 

      ணࠬ ALEX - "௫   "  ।  楤
ᬮ ᭮   @ALEX    ᬮ ᮧ .  楤-
 ᮧ   ᬮ७    .5.7.
       楤    ⮬  ᬮਬ
 騥 ᢮⢠.

      楤  ᯥ稢 㤮 ᬮ  -
.  뢠  楤 ࠢ ᭮   -
  @PROCESS(3).
     ᫥ 室  ० ᬮ   ந室  뢮  蠯
⠡ ( ⠡   )      ।-
   @alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)      ந室
⨥ ࢮ    @ALEX    ᯥ⪠    
 ⠡.  ⮣  ଥ頥  砫  뢮  -
    ।  @CURSOR.   楤  믮  
        .
      ᬮ ᮧ  ந室  ࠡ    ﬨ
  @ALEX1  . 楤 ᬮ ᮧ  -  @viewbase  .

                 @5.7 楤 ᮧ  

      楤  ᯥ稢 㤮 ᮧ  -
  ᭮  묨 ਧ.  뢠  楤-
 ࢫ ᭮    @PROCESS(6)  .
     楤  ᢮  :

       đ  Ŀ
             䥤ࠬ - 1           
          '  ௫'     - 2           
        室                        - 3           
        >_                                              
                                                        
                                                        
       ,
.. 짮⥫ । 롮 ᮧ     ,
 ⠪  室  ०.
     ᫥ 뢮   ⮣  ந室    楫᫥-
 ६  @WHAT     ᨬ   ᮤঠ  ந-
   ।⠢ 権.

 A                    䥤ࠬ

      ᭮   @ALEX        
   @ALEX1    㤠   ,  ᮤঠ  ଠ-
  ௫.  ᮧ ⮩  ᯥ稢  楤-
  @newbase(1)  ,  뢠  楤 ᮧ . -
⥬ @   ᫥ ᬮ ᮧ    楤  @viewbase  .

                  A  '  ௫'

      ᭮   @ALEX        
   @ALEX1    㤠   ,  ᮤঠ  ଠ-
    䥤.  ᮧ ⮩    ᯥ稢
楤  @newbase(2)  ,  뢠    楤  ᮧ
. ⥬ @   ᫥ ᬮ ᮧ      楤
 @viewbase  .

     ᫥ ᮧ   ந室  ᮧ  
    "ALEX1.DAT".





















                        @6.  ணࠬ

DOMAINS
 i=integer
 s=symbol

DATABASE-alex
         alex(s,s,s,s,i,i,i,i,i,i,i)

DATABASE-alex1
         alex1(s,s,s,s,i,i,i,i,i,i,i)

PREDICATES
 start
 load
 path
 process(i)
 newbase(i)
 repeat
 viewbase

GOAL
 start.

CLAUSES

/* 楤 ᮧ ᭮   㧪   */
start:-
            makewindow(1,2,7,"  ",0,0,25,80),
            clearwindow,
            load,
            path.

/* 楤 ᪠  㧪 䠩 ᮤঠ饣   */
load:-
            existfile("alex.dat"),
            consult("alex.dat",alex),
            cursor(1,2),
            write(" 㦥").
load:-
            cursor(1,2),
            write("   ᪥").

path:-
    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("                     >"),
    readint(Choice),
    Choice >= 0,
    Choice < 9,
    clearwindow,
    process(Choice),
    clearwindow,
    Choice = 9,
    retractall(_),
    removewindow.

/*  ணࠬ */
process(0):-
makewindow(1,7,4," pp...",10,10,10,60),nl,
write("            p樮-p筠 ⥬"),nl,
write("                     ௫a    "),nl,
write("               TURBO-PROLOG  2.0     "),nl,
write("                 p:쭨 ..   "),nl,
write("             , p.-1-95  (C) 1996 . "),nl,nl,
write("                   "),
readchar(_),
removewindow.

/* 楤 㤠  */
process(2):-
makewindow(2,7,2," ",0,0,25,80),
alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
clearwindow,
write(":",FIO),nl,
write(":",NAME),nl,
write("⢮:",OT),nl,
write(" 䥤:",KAF),nl,
write("௫a  :",NIR),nl,
write("뤠  I ⠫:",K1),nl,
write("뤠  II ⠫:",K2),nl,
write("뤠  III ⠫:",K3),nl,
write("뤠  IV ⠫:",K4),nl,
write("ᥣ 뤠:",TOTAL),nl,
write("⮪:",OST),nl,nl,
attribute(4),
write(" ? (1- 0-) >"),attribute(7),
readint(WHAT),
WHAT=1,
nl,
retract(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),
clearwindow;
WHAT=0,removewindow.

/* 楤 ᬮ ᮤন   */
process(3):-
makewindow(2,2,7,"ᬮp  '௫  '",0,0,25,80),
write("------------------------------------------------------------"),nl,
write("         |    |௫|뤠  ⠫|     |"),nl,
write("------------|.|      |-------------------|ᥣ|⮪"),nl,
write(".|||    |     |I   |II  |III |IV  |     |"),nl,
write("------------------------------------------------------------"),nl,
            alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
            cursor(Z,_),
            cursor(Z,0),write(FIO),
            cursor(Z,8),write(NAME),
            cursor(Z,17),write(OT),
            cursor(Z,26),write(KAF),
            cursor(Z,34),write(NIR),
            cursor(Z,43),write(K1),
            cursor(Z,48),write(K2),
            cursor(Z,53),write(K3),
            cursor(Z,58),write(K4),
            cursor(Z,63),write(TOTAL),
            cursor(Z,69),write(OST),nl,
            fail.
process(3):-
write("------------------------------------------------------------"),
nl,attribute(4),
write("                            "),
attribute(2),
readchar(_),
removewindow.

/* 楤 㧪  */
process(4):-
makewindow(2,15,4,"㧪",10,10,10,60),
write("㧨  䠩 ALEX.DAT   - 1"),nl,
write("㧨  㪠 䠩 - 2"),nl,
write(">"),
readint(WHAT),
WHAT=1,
retractall(_,alex),
consult("alex.dat",alex),
write(" 㦥 ..."),nl,
write("                      "),
readchar(_),!,removewindow;
WHAT=2,
write("  䠩 >"),readln(FNAME),
existfile(FNAME),
retractall(_,alex),
consult(FNAME,alex),
write(" 㦥 ..."),nl,
write("                      "),
readchar(_),!,removewindow;
nl,attribute(4),
write("                        !!!"),attribute(7),
readchar(_),
removewindow.


/* 楤 ࠭  */
process(5):-
makewindow(2,15,4,"",10,10,10,60),
write("  䠩 ALEX.DAT  - 1"),nl,
write("  㪠 䠩 - 2"),nl,
write(">"),
readint(WHAT),
WHAT=1,
save("alex.dat",alex),
write(" ᠭ ..."),nl,
write("                      "),
readchar(_),!,removewindow;
WHAT=2,
write("  䠩 >"),readln(FNAME),
save(FNAME,alex),
write(" ᠭ ..."),nl,
write("                      "),
readchar(_),!,removewindow.

/* 楤 ᮧ   */
process(6):-
makewindow(2,2,7,"  ",0,0,25,80),
write("     䥤ࠬ - 1"),nl,
write("  '  ௫'     - 2"),nl,
write("室                        - 3"),nl,
write(">"),readint(WHAT),
WHAT>0,WHAT<4,
removewindow,
newbase(WHAT).

/* 楤    */
process(7):-
makewindow(2,2,7,"  ",0,0,25,80),
write(" 䠬:"),readln(FIO),
write(" :"),readln(NAME),
write(" ⢮:"),readln(OT),
write("  䥤:"),readln(KAF),
write(" ௫  :"),readint(NIR),
write("쪮 뤠  I ⠫:"),readint(K1),
write("쪮 뤠  II ⠫:"),readint(K2),
write("쪮 뤠  III ⠫:"),readint(K3),
write("쪮 뤠  IV ⠫:"),readint(K4),
TOTAL=K1+K2+K3+K4,
OST=NIR-TOTAL,
assertz(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),
removewindow.

/* 楤 ४樨  */
process(1):-
makewindow(2,7,2,"४ ",0,0,25,80),
alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
clearwindow,
write(":",FIO),nl,
write(":",NAME),nl,
write("⢮:",OT),nl,
write(" 䥤:",KAF),nl,
write("௫a  :",NIR),nl,
write("뤠  I ⠫:",K1),nl,
write("뤠  II ⠫:",K2),nl,
write("뤠  III ⠫:",K3),nl,
write("뤠  IV ⠫:",K4),nl,
write("ᥣ 뤠:",TOTAL),nl,
write("⮪:",OST),nl,nl,
attribute(4),
write("㤥 ४஢ ? (1- 0-) >"),attribute(7),
readint(WHAT),
WHAT=1,
nl,
write(" 䠬:"),readln(FIO1),
write(" :"),readln(NAME1),
write(" ⢮:"),readln(OT1),
write("  䥤:"),readln(KAF1),
write(" ௫  :"),readint(NIR1),
write("쪮 뤠  I ⠫:"),readint(K11),
write("쪮 뤠  II ⠫:"),readint(K21),
write("쪮 뤠  III ⠫:"),readint(K31),
write("쪮 뤠  IV ⠫:"),readint(K41),
TOTAL1=K11+K21+K31+K41,
OST1=NIR1-TOTAL1,
retract(alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST)),
assertz(alex(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),
clearwindow;
WHAT=0,removewindow.

/* 室  ணࠬ */
process(8):-
makewindow(2,7,2,"室",10,10,3,60),
write(" 㢥७ ? (1- 0-) >"),readint(WHAT),
WHAT=1,exit;
WHAT=0,removewindow.

/* 楤 ᮧ   */
newbase(1):-
makewindow(3,7,2,"     䥤ࠬ",10,5,4,67),
retractall(_,alex1),
alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
FIO1=FIO,NAME1=NAME,OT1=OT,KAF1=KAF,
NIR1=0,K11=0,K21=0,K31=0,K41=0,TOTAL1=0,OST1=0,
assertz(alex1(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),
fail.

newbase(1):-
save("alex1.dat",alex1),
write(" ᮧ.     ᬮ ᮧ ."),
readchar(_),
viewbase,
removewindow,!.

newbase(2):-
makewindow(3,7,2,"  '  ௫'",10,5,4,67),
retractall(_,alex1),
alex(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
FIO1="",NAME1="",OT1="",KAF1="",
NIR1=NIR,K11=K1,K21=K2,K31=K3,K41=K4,TOTAL1=TOTAL,OST1=OST,
assertz(alex1(FIO1,NAME1,OT1,KAF1,NIR1,K11,K21,K31,K41,TOTAL1,OST1)),
fail.

newbase(2):-
save("alex1.dat",alex1),
write(" ᮧ.     ᬮ ᮧ ."),
readchar(_),
viewbase,
removewindow,!.

/* 楤 ᬮ ᮧ  */
viewbase:-
makewindow(4,2,7,"ᬮp ᮧ ",0,0,25,80),
write("------------------------------------------------------------"),nl,
write("         |    |௫|뤠  ⠫|     |"),nl,
write("------------|.|      |-------------------|ᥣ|⮪"),nl,
write(".|||    |     |I   |II  |III |IV  |     |"),nl,
write("------------------------------------------------------------"),nl,
            alex1(FIO,NAME,OT,KAF,NIR,K1,K2,K3,K4,TOTAL,OST),
            cursor(Z,_),
            cursor(Z,0),write(FIO),
            cursor(Z,8),write(NAME),
            cursor(Z,17),write(OT),
            cursor(Z,26),write(KAF),
            cursor(Z,34),write(NIR),
            cursor(Z,43),write(K1),
            cursor(Z,48),write(K2),
            cursor(Z,53),write(K3),
            cursor(Z,58),write(K4),
            cursor(Z,63),write(TOTAL),
            cursor(Z,69),write(OST),nl,
            fail.
viewbase:-
write("------------------------------------------------------------"),
nl,attribute(4),
write("                            "),attribute(2),
readchar(_),
removewindow.

repeat.
repeat:- repeat.

/*  ணࠬ */







                       @7. ⫠ ணࠬ

     ⫠ ணࠬ ந室 ᫥騬 ࠧ:  ⠢-
 ஫ 窨 (  ⠭⭮ । EXIT)  
ந室  ணࠬ. ᫥ 믮 ணࠬ,   -
஫쭮 窨, ந室 室  ணࠬ   뫮  -
࠭ ᬮ १ ࠡ ⮩   楤 ( -
砫쭮 ⠯ ணࠬ ࠧࠡ뢠   䥩).
᫨ 楤 ࠡ⠫ ࠢ쭮,  﫠  楤-
  ந    ணࠬ.    訡
"" ᠬ ஫   믮 ணࠬ.
      ᭮ 訡    楤  ࠭  .
 訡 뫨 ࠭. , ⠪ ,   ""
 楤 ᬮ ,  ᭮ - ⮣,    墠-
 ப  뢮 ,  ⮬ 뫮 㬥襭  ⢮
    .
      ⠫ 楤 訡  뫮.

     @8.  짮⥫  襭 ஫ ਬ஢

     ணࠬ ALEX ।⠢ ᮡ 㬥   -
  "௫  ",  ⠪   ࠡ⪨ , ।-
⠢  .
     ணࠬ  ᮧ   ⥬ ࠭    -
 䠩,  ⠪ ⪮४஢ , 㤠 ,  -
    ᮧ       ௫-
⠬.
     ⢨  ணࠬ ⢫   :

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

     ⮡   室 ० ᫥  ,  -
 ⨢  ०.
      襬  㭪  ⤥쭮.

                         @ pp...

     뢮   ணࠬ.

                         @४ 

      ४樨 .
     ᫥ 室   ०  ࠭  ࢠ   
 "㤥 ४஢ ? (1- 0-)". ᫨    -
४஢ 뢥 ,    1    ⢥砩  
 ணࠬ. ᫨    ४஢ 뢥 -
  2   ࠭ ᯥ⠥ ᫥ .  ᫥
뢮 ᫥  ந室 室  ᭮ .

                         @  

      㤠 .
      ०  祭 ।饬    ᪫祭
⮣,    " ? (1- 0-)".

                           @ᬮ 

      ᬮ .
      ⮫쪮     ०  ࠭   蠯
⠡   ⮩ 蠯   ᯥ⠭    .  ᫥
砭 뢮 ⠡     室    -
 .

                           @㧪 

      㧪 .
     ᫥ 室   ०    :
          㧨  䠩 ALEX.DAT   - 1
          㧨  㪠 䠩 - 2
  ᫥    ᨬ  ⮣,     
ᤥ. ᫨   㧨   ᭮ 䠩 ணࠬ-
 ALEX.DAT,   1; ᫨     㧨    
㣮 䠩,   2. ᫥ 㧪   ந室  -
室  ᭮ .

                          @࠭ 

      ࠭ .
      ०  祭 ० 㧪     -
 ⫨稥 - ࠡ⠥  ࠭    ᭮  䠩  
㪠.

                        @  

      ᮧ  .
      ⮬ ० ⠪   :
               䥤ࠬ - 1
            '  ௫'     - 2
          室                        - 3
  ᫥    ᨬ  ⮣      
 ᤥ. ᫨   ᮧ  ⮫쪮    -
䥤ࠬ,   1; ᫨    ᤥ  ,  ᮤঠ
   ௫,   2.  室  ०  ᮧ-
  3.
     ᫥    㪠      ᤥ  ᫥
ᬮ ᮧ  (. ० ᬮ ). ⥬  -
    室  ᭮ .
       ࠭  䠩 ALEX1.DAT.

                         @  

        .
      ⮬ ० ந      㦥  ᮧ-
   ᮧ  .
     ᪨    ॡ  ⢨ ஬  
⢥⮢   ணࠬ.

                        @室  ணࠬ

      㬠   ⭮.




                         @8.1  

     ⮡    ० ᭮     
"7"  ⢥砩    ணࠬ.      楤
᪮쪮 ࠧ   ᪮쪨 ᥩ.

      @                   8.2 ࠭ 

     ⮡ ࠭ ᮧ   ० ᭮   -
  "5"  㪠   䠩    .

      @                 8.3   

     ᫨   ᮧ    ᭮ ᮧ   -
  "6"  㪠 ணࠬ      -
 ᮧ.

                       @   8.4 㧪 

     ⮡ 㧨  쭥襩 ࠡ⪨ ࠭ ᮧ -
  ० ᭮    "4"  㪠  ணࠬ
㤠   㧨 .


















                            @祭

       ᮢ ࠡ 뫨 ᬮ७    ⠢
  㦤 騥 ਭ樯 ஥ ଠ樮  -
⥬   ॠ樨  몥 ஫.

















































                         @᮪ 

         .⪮ "ணࠬ஢  몥 ஫ 
                   ⢥ ⥫"
         .૨,. "⢮ ணࠬ஢
                    몥 ஫"
         . "஫ -  ணࠬ஢ 饣"
                                                                                                                                                                                                     
