code 34010;
   real procedure VECVEC(L, U, SHIFT, A, B); value L,U,SHIFT;
   integer L,U,SHIFT; array A,B;
   begin integer K; real S;
       S:= 0;
       for K:=L step 1 until U do S:= A[K] * B[SHIFT + K] + S;
       VECVEC:= S
   end VECVEC;
       eop