
                  
            
                   ..   

 
 


                                
                              
                                    
                                     
                           
                          
                                    
                                    
                                     
                                     
                               
                                


 

                               
                                           
                                    
                           
                                        
                              
       


 
                         
                         
                         
                         
                         
                         
                                 
                                 
                                 
                                 
                         
                         




                                 

           5. c  4 0.304.000-84 (IBM)





                           - 1989




































 
 
 
 
 



 

          
        .. (.132 94 75).



                       04.05.89
                             - 3 -

                       

          
           8       4     
           7    3       
           6     2         
           5         1    
          


                               

 
  (2)  (16)                     
 
                                                        
  0000 0000      00        -         
   1000      8           
   0100      4                   
   1100               .  
   10  2,6,,                      
   01  1,5,9,D                          
   11  3,7,,F                      
                                                        
 
                                                        
  0000 0100      04                    
  0000 0011      03                          
                                                        
 


                

   
    8       4          
    7  .    3           
    6    -       2                       
    5       1                       
   
                             - 4 -

                      


               .                

                                                        
        -18-    
            -17-0  0    
                                                        
     -16-    
               -15-       
          -14-        
        -13-      
                                                        
    -12-  
    -11-  
         -10-       
   -0..-7 9  -0..-7 
                                                        
        08-0        
            7-17          
                                                        

                            - 5 -



      :
 
(*                                             *)
 
  <>  (___ + 250 - _);
      IF  _  N
         ();  (250);
         (_);   (400);
      LSIF  _  N
        IF  __  N
          IF  _  N
             (_);  (250);
          NDIF;
        LS
          IF  N _  N       (* <  . *)
             (_);  (*  (250); -   *)
             (1500); (*   ,  *)
            G  ; (*       _  *)
          NDIF;
        NDIF;
      LS
        G  ;
      NDIF;
       (___ + 1500 - _);
       (_);

(*    _                                *)

  <>  (_);
      IF  _  N
        IF  _ =   N
          IF  ____  N
             ();  (_);
          LS
             (_);
            __:= RU;
          NDIF;
        NDIF;
      LS
        IF  __
        R  __
            ND  (_  R  N _)  N
           (_);
           (_);
        NDIF;
      NDIF;
                            - 6 -

(*     _                          *)

  <>  (_  R  _  R  _);
      IF  _  N                   (* <   *)
         (_);
        IF  _  N
           (_);
        NDIF;
         (N _);
        G  ;
      LSIF  _  N               (* <   *)
         (_);
  <>    (N _);  (_);
  <>    (N _);  (_);
        G  ;
      LSIF  _  N            (* <   *)
        IF  _  N
           (_);
          IF  _  N
             (_);  (* _    *)
          NDIF;
        NDIF;
      NDIF;
 
(*                               *)
 
  <>  (N _);
       ();  (_);
  <>  (_);
      (*=     _ =*)
      IF _  N
         (_);
      NDIF;
      IF  _  N
         ();
      NDIF;
       (_);
  <>  (_);
      (*=  ,     =*)
       (_);
  <>  (N _);  (_);
  <>  (N _);

       :

(*                                  *)

  <> IF  __  N
         ();  (_);
      LS
        IF  IN [,__,] N
           ();
        NDIF;
         (_);
      NDIF;
                            - 7 -

     :

(*    _  _                          *)
 
  <>  (_  R  _  R  N _);
      IF  _  N          (* <    *)
        IF  __
        R  =[]  ND  #__  N
          IF  N _  N
            IF   = [_] ND N 
            R   # []
            R  N _
            R   = __   N
               (_);
            NDIF;
          NDIF;
          IF    ND  N _  N
             (_);  (250);
          LSIF  N   ND  _  N
             (_);  (250);
          NDIF;
           (_);
        LS
          IF  N _  N
             (_);
          NDIF;
           (_);  (*  . *)
        NDIF;
 
      LSIF  _  N             (* <   *)
        IF  _ = 0  N
          IF  N _  N
             (_);
          NDIF;
           (_);  (*  *)
        LS
          IF   IN [,]  N
             ();
          LS
            (*=    =*)
          NDIF;
           (_);
        NDIF;
      LSIF  N _  N
        G  ;
      NDIF;

(*         *)

  <>  (_  R  _);
      IF  _  ND  _  N    (* <  . *)
        _:= FLS;
         (_);
         (N _);
         (_);
  <>    (N _  ND  N _);
        G  ;
                            - 8 -

  <> LS
        IF  _  N
          IF  _  N                    (* <  *)
            __:= FLS;
            IF  ____  N
              __:= FLS;
            NDIF;
          NDIF;
           (_);
        LS
           (_);
        NDIF;
        IF  N _  N
          IF  N __
          R  ___  N
             (_);
          NDIF;
        NDIF;
      NDIF;

  <>  (N _  ND  N _);
      IF  _ = 0  N
         (_);  (*   "" *)
      LS
        IF  _  N
           (_);  (250);
        NDIF;
         (_);
      NDIF;
      IF  N _  N
        G  ;
      NDIF;
 
  <> L
        IF  N _
        R  N __  ND  N _
        R  N _
        R  __  N
          IF  __
          R  __  N
            G  ;
          LSIF  N _  N
            IF  N  __
            R  ___  N
               (_);
              G  ;
            NDIF;
          NDIF;
        NDIF;
      NDL;
                            - 9 -

             


(*      (    _)    *)

  <>  (_);
      IF  _  N
         (_);
      NDIF;
  <> IF  _  ND  N _  N
         (_);
      NDIF;
  <>  (N _);
       (_);
      G  ;


 
 
(*    (    _)            *)

  <>  (_);  (250);
       (_);
  <> IF  N _ N
         (_);
      NDIF;
  <>  (N _);  (*    (6000) *)
       (_);
      G  ;
 
 
 
(*                                    *)
 
<>  (_);



(*                                *)

<>  (_); (*     1000  *)
                            - 10 -

               
 
 
(*  ,     ( )        *)

  <>  (_);
  <> IF  _  N
         (_);  (250);
         (_);
      NDIF;
  <> IF  N _  N
         (_);  (100);  (_);
      NDIF;
  <>  (N _);  (*    (6000) *)
       (_);
      G  ;
 
 
(*                                         *)

  <> IF __  N
        :=  + [,];
         ();  (_);  (_0);
      NDIF;
 
  <> (*=      =*)
      IF  ( [_,] IN _ )  ND  _0  N
        IF  _ IN _  N
          IF  __  N
            __:= RU;  := RU;
            (*=     =*)
          NDIF;
        LS
          ___:= RU;
        NDIF;
      LSIF ___  N
        IF  _ IN _  N
          IF  N (  IN _ )  N
            __:= RU; := RU;
            (*=     =*)
          NDIF;
          ___:= FLS;
        NDIF;
      NDIF;
 
 
(*                                   *)

(*=      
      _ - _.    ,  :
  <>  ();  (_);
  <>  (_);
  <>  (_);  ();  (_);
  <>  (_);  (_);
  <>  (_);  ();  (_);
  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .
=*)
                            - 11 -

                        BPEMEHHE APAMM

                 OEPA OMEHA O HATBE KAHAA


       |  0 | 1 | 2 | 3 | 4 | 5 | 6 | 5 | 6 | 5 | 7 | 8 | 9 |  

       |      
 - |       |   |   |   |   |   |   |   |   |   |   |     
       |    |   |   |   |   |   |   |   |   |   |   |    

       |       |   |   |   |   |   |   |   |   |   |   |  
 - |          |   |   |   |   |   |   |   |   |   |   |  
       |     

       |    |      |   |   |   |   |   |      |   |  
 P-K |    |         |   |   |   |   |   |         |   |  
       |        

       |    |   |   |            |   |     
 H-K |    |   |   |                     |   |        
       |              

       |     
 PA-K |       |   |   |   |   |   |   |   |   |   |   |   |  
       |    |   |   |   |   |   |   |   |   |   |   |   |  

       |    |  |  
 PA-A |    |  |   |   |   |   |   |   |   |   |   |   |  |  
       |  |   |   |   |   |   |   |   |   |   |   |  

       |    |  |   |   |   |   |   |   |   |   |   |   |  
 AP-A |    |  |  |   |   |   |   |   |   |   |   |   |   |  
       |  |  

       |    |   |   |  |   |   |   |   |   |   |  |  
 P-A |    |   |   |  |  |   |   |   |   |   |   |  |  |  
       |  |  |  

       |    |   |   |   |   |  |  |  |   |   |  
 H-A |    |   |   |   |   |  |  |  |  |  |  |   |   |  
       |  |  |  |  

                            - 12 -

 OEPA O HATBE AOHEHTA



       |  10| 11| 12| 8 | 9 |  

       |     
 BP-K,|       |   |   |   |  
 PB-K |    |   |   |   |  

       |    |      |   |  
 P-K |    |         |   |  
       |     

       |    |   |   |     
 H-K |    |   |   |        
       |     

       |   |   |   |   |  
 TP-A |   |  |   |   |   |  
       |  |  

       |    
 PA-A |   |   |   |   |     
       |  |   |   |   |    

       |    |  |   |   |  
 AP-A |    |  |  |   |   |  
       |  |  

       |    |   |   |  |  
 P-A |    |   |   |  |  |  
       |  |  

       |    |  |  |  
 H-A |    | AP |  C |  
       |  |  |  

