code 31035;
    procedure DUPMAT(L, U, I, J, A, B); value L,U,I,J;
    integer L,U,I,J; array A,B;
    begin integer K;
        for L:= L step 1 until U do 
        for K:= I step 1 until J do A[L,K]:= B[L,K]
    end DUPMAT;
        eop