code 31030;
    procedure DUPVEC(L, U, SHIFT, A, B); value L,U,SHIFT;
    integer L,U,SHIFT; array A,B;
    for L:= L step 1 until U do A[L]:= B[L+SHIFT];
        eop