E                    VEC1       18  1           
E                    VEC2       18  1           
C                     EXSR SBR001
C                     MOVEAVEC2      CUENTA 18 
*************************************          
* PARA MOVER DE IZQUIERDA A  DERECHA             
*************************************            
c           SBR001    BEGSR                       
c                     Z-ADD18        I       20   
c                     Z-ADD18        X       20   
c                     MOVEL*BLANKS   VEC1         
c                     MOVEL*BLANKS   VEC2         
c                     MOVEANUCUTA    VEC1         
 *                                                
c           I         DOWGE1                      
 *                                                
c           VEC1,I    IFEQ *BLANKS                
c                     SUB  1         I            
c                     ELSE                        
c                     MOVE VEC1,I    VEC2,X       
c                     SUB  1         X            
C                     SUB  1         I                 
C                     ENDIF                            
 *                                                     
C                     ENDDO                                                                             
C                     ENDSR