E                    CDR       100  4                                      
     E                    NMR       100 32                                      
     E                    DTR       100 36  A                                   
     C                     MOVEA*HIVAL    DTR                                   
     C           1         DO   ARYMAX    N       40                            
     C                     MOVELCDR,N     DTR,N                                 
     C                     MOVE NMR,N     DTR,N                                 
     C                     END                                                  
     C                     SORTADTR