code 31503;
   procedure RESVEC(LR, UR, LC, UC, A, B, C, X);
   value LR, UR, LC, UC, X; integer LR, UR, LC, UC;
   real X; array A, B, C;
   begin 
       for LR:= LR step 1 until UR do 
       C[LR]:= MATVEC(LC, UC, LR, A, B) + C[LR] * X
   end RESVEC;
        eop