H            Y/                                                      RPG006
     F**********  •iŽν•Κ€•iˆκ——•\            *************************         
     FLSHOHNS IF  E           K        DISK                                     
     FHINSHU  IF  E           K        DISK                                     
     FQPRINT  O   F     132     OF    LPRINTER                                  
     F*****************************************************************         
     E                    HDR     1   1 32                Œ©o‚΅                
     E                    DAR         2 10                                      
     LQPRINT   66FL 62OL                                                        
     C******************************************************                    
     C*            –Ύ@@Χ@@‰‰@@ŽZ                                         
     C******************************************************                    
     C                     DO   *HIVAL                                          
     C                     SETOF                     50                         
     C                     READ LSHOHNS                  50                     
     C   50                LEAVE                                                
     C*----------------------------------------------------+                    
     C           SHOKEY    KLIST                           |                    
     C                     KFLD           SHSCOD           |                    
     C                     KFLD           SHCODE           |                    
     C*----------------------------------------------------+                    
     C           SHOKEY    SETLLLSHOHNS                                         
     C*----------------------------------------------------+                    
     C           HNSKEY    KLIST                           |                    
     C                     KFLD           SHSCOD           |                    
     C*----------------------------------------------------+                    
     C                     SETOF                     99                         
     C           SHSCOD    CHAINHINSHU               99                         
     C*    ( Œ©o‚΅ˆσό )                                                       
     C*----------------------------------------------------+                    
     C                     SETON                     41    |                    
     C                     EXSR OUTPUT                     | Œ©oˆσό           
     C*----------------------------------------------------+                    
     C                     DO   *HIVAL                                          
     C                     SETOF                     50                         
     C           HNSKEY    READESHSCOD                   50                     
     C   50                LEAVE                                                
     C*( –ΎΧˆσό )                                                             
     C*----------------------------------------------------+                    
     C                     SETON                     42    |                    
     C                     EXSR OUTPUT                     | –ΎΧˆσό           
     C*----------------------------------------------------+                    
     C                     END                                                  
     C*    ( ¬Œvˆσό )                                                         
     C*----------------------------------------------------+                    
     C                     SETON                     43    |                    
     C                     EXSR OUTPUT                     | ¬Œvˆσό           
     C*----------------------------------------------------+                    
     C                     ADD  SHOKEI    GOKEI   90                            
     C                     Z-ADD0         SHOKEI                                
     C           SHOKEY    SETGTLSHOHNS                                         
     C                     END                                                  
     C*( ‡Œvˆσό )                                                             
     C*----------------------------------------------------+                    
     C                     SETON                     49    |                    
     C                     EXSR OUTPUT                     | ‡Œvˆσό           
     C*----------------------------------------------------+                    
     C                     SETON                     LR                         
     C******************************************************                    
     C           OUTPUT    BEGSR                                                
     C******************************************************                    
     CSRN40                SETON                     4041                       
     CSR                   EXCPT                                                
     CSR OF                SETOF                     40OF                       
     CSR                   SETOF                     414243                     
     CSR                   SETOF                     444546                     
     CSR                   SETOF                     474849                     
     CSR                   ENDSR                                                
     OQPRINT  E  206   41                                                       
     O                         UDATE Y    8                                     
     O                                   14 ' μ¬ '                            
     O                         HDR,1     82                                     
     O                                  128 'PAGE.'                             
     O                         PAGE  Z  131                                     
     O        E  1     41                                                       
     O                                   10 ' •iŽν Ί°Δή'                        
     O                         SHSCOD    14                                     
     O                                   22 ' •iŽν–Ό '                          
     O                         HNSNAM    36                                     
     O        E  1     41                                                       
     O                                   10 ' €•i Ί°Δή'                        
     O                                   34 ' €•i–Ό '                          
     O                                   68 ' ’P‰Ώ '                            
     O        E  2     42                                                       
     O                         SHCODE    11                                     
     O                         SHNAME    46                                     
     O                         SHTANKJ   70                                     
     O        E  3     42                                                       
     O                                   50 '* ¬Œv *'                          
     O                         SHOKEIJ   70                                     
     O        E  1     49                                                       
     O                                   50 '** ‡Œv **'                        
     O                         GOKEI J   70                                     
     O        E  1     49                                                       
     O                                   40 ' ˆ—Œ” '                        
     O                                   57 '. . . . . . . . .'                 
     O                         KENSU 2   65                                     
**  HDR                                                                         
 •iŽν•Κ€•iˆκ——•\