H DFTNAME(MNUBAR) DATEDIT(*YMD/)                                                               
     F********  メニュー・バー  ********************************************                        
     FMNUBARFM  CF   E             WORKSTN                                                          
     FSIREMT    IF   E           K DISK                                                             
     F**********************************************************************                        
     C*----------------------------------------------------+                                        
     C     START         TAG                                                    |                   
     C                   EXFMT     DSPHEAD                                      |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF12                
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                    CF12                
     C*( 実行キー )                                                                                 
     C                   SETOFF                                       99                            
     C     SRCODE        CHAIN     SIREMT                             99                            
     C   99              SETON                                        61                            
     C   99              GOTO      START                                                            
     C                   Z-ADD     1             MNUFLD                                             
     C                   MOVEL     'AA'          SRNMJ                                              
     C*----------------------------------------------------+                                        
     C     DSPLY         TAG                                                    |                   
     C                   WRITE     INZMSG                                       |                   
     C                   EXFMT     MNUBAR                                       |                   
     C*----------------------------------------------------+                                        
     C                   SETOFF                                       99                            
     C*( CF03 )- 終了                                                                               
     C     *IN03         IFEQ      *ON                                          CF12                
     C                   SETON                                        LR                            
     C   LR              RETURN                                                                     
     C                   END                                                    CF12                
     C*( CF12 )- 前画面                                                                             
     C     *IN12         IFEQ      *ON                                          CF12                
     C                   SETOFF                                       12                            
     C                   GOTO      START                                                            
     C                   END                                                    CF12                
     C*( 実行キー )                                                                                 
     C                   GOTO      DSPLY                                                            
     C     END           TAG