code 31031;
    procedure DUPVECROW(L, U, I, A, B); value L,U,I;
    integer L,U,I; array A,B;
    for L:= L step 1 until U do A[L]:= B[I,L];
        eop