mainpack               
           -  , ,   
           .
                 ,       
               .
                        
          ''    .
mainmenu           , 
               .  -
            , :
              -      c -
           (1)      (2);
              -   (3);
              -      (4);
              -          
             (5)    (6);
              -         
               (8);
              -          
             (7);
              -     (9);
              -     (10).
read01        ,     ,    -
              .
                       .
                   ,  :
           ,   ( -),     .
                 ,  ,      -
                /.
                       , -
               .
                    ,       
               .
write01               
             .
                       .
                   ,  :
           ,   ( -),     .
                 ,  ,      -
                /.
                   ,       
              .
read02                 
           .
                       .
                   ,  :
           ,   ( -),     .
                 ,  ,      -
                /.
                    ,       
               .
write02               
           .
                       .
                   ,  :
           ,   ( -),     .
                 ,  ,      -
                /.
                   ,       
              .
print01               -
           .       
                ,         
           .
                       
             .
repeatn             .   
                .
                ,        
               .
                      -
           .
intitle                
           -       .  
            ,  ,      ,
            .
                    .
                      , 
            .
                      -
           .
edtitle                 
          - .     -
               .
                ,   , -
          ,  ,     .
                        , 
                  .
indscr               -
          -     .     ,
           ,        ,   
          .
                  .
                  ,    -
           .
                     ,  
          .
inpieval              -
           -     (  ) -    
          .      .
               ,  ,       
           ,   .
                  .     
              .  -
            .
                   ,   -
                   .
edpieval               -
             (  ).  o 
                .
                ,   ,  -
           ,  ,    .
                    , -
           .           
          ,  ,   .
                   ,   
                  .
edpiedsc             --
           .      
             .
                ,   ,  -
          ,  ,      .
                 ,     
              .
inpiemov              -
            .
                  ''  ''      
          ,      .
                         
              .
                 ,      
          ,   ,          
             .
edpiemov              -
            .         
                 '', '', '', ''.  
             .      -
          ,     , ,  , 
               .    
          ''  ''   ''    .
                  ,    
                .
editdscr             -
          - .       -
               .
                 ,    , -
          ,  ,     .
                         
          ,   .      -
            .
editnumb            ()   ,
            ,      
           1  10    .      -
             ,   .
                    (),  -
                ().  
             .    -
            ()   .
                    ()     
            1  10.   ,        
           ()   ,   ,    
          ,   1,     ()  -
              .        
          ()  ,        
            () ,    -
          ,        .
                   ,    -
              .
editedit            ,  
                      
          .
              ,          
           , ,   ,      1, 
                 .
                     ,
               a,    -
           ,     .
                     -
                   .
                    ,   -
           .
inbarval              -
           -      (  )     
          .     .
               ,  ,       
           ,   .
                  .     
              .  -
            .
                   ,  -
                  
          .
edbarval               -
                 .   
                .
                ,   ,  -
           ,  ,    .
                     -
           .    .   
               ,  , 
           .
                    ,  
                  
           .
drawedit              ,   
          .       
            .         
               ""    .
                  . -
                        
            .
                     ,   "" 
            .
                    ,  -
           .
drawmode               -
           .
                        
                .
                      , 
           .
inputxy              X   Y  
             -    , -
              (    ) -    .
              .
                ,   ,  
             ,    .
                .    
          ,  .    .
                   ,  -
                  .
editxy                  X  Y 
               -    -
          ,    (  ).  -
          o        .
                ,   ,  -
           ,  ,    .
                  ,  .
             .      
           ,  ,   .
                   ,   
             -     -
           .
inputfun          f(x)    
          , ..     x, -
          , , ,     , -
              (+,-,*,/),   ln (
          ), sin (), cos (),  sqr (), abs (-
           ),  exp (),  sqrt ( ),
          arctan (),      .
                   
          .          
           .
                      , -
            .  o   .
                .
                        -
           ,   .
editfun         f(x)     , 
               X, , -
          , ,      , 
           (+,-,*,/),   ln ( ),
          sin (), cos (), sqr (), abs ( -
          ),  exp (),  sqrt ( ), arctan (-
          )   .
                   
          .          
           .
                ,   , ,  ,
          ,    .  o  -
           .   .
                ,   ,  -
          ,   .
inputx            X  ,  
             .    
          -   ,      
           -    .    
          .
                ,   ,  
             ,   .
                 .    
          ,  .    .
                     , 
               ,   .
editx             X  ,  
             .     -
            -   ,   
            .    o    
              .
                ,   ,  -
           ,  ,    .
                  ,  .
             .      
           ,  ,   .
                ,   ,  -
          ,   .
drawfun               
          ,      :
              -         
                (,);
              -        (,);
              -      (,);
              -    ().
                        
          ,         -
                   
            .
                       -
             ,      
          ,   ,   .
                ,   .
drawval               2  9   
           .       (-
          , ,   )    
          .  e  ,   
                  .
helpdir              ,   -
                 .    -
              ,     ,  
          ( -),        ,    
                  "*"   "?".
                   .    
                  
           /.
                     .  
            .
                      
          .
device                -
             ,   .   
                  -
                   .
                      
          .
end
