code 31501;
   procedure FULTAMVEC(LR, UR, LC, UC, A, B, C);
   value LR, UR, LC, UC; integer LR, UR, LC, UC;
   array A, B, C;
   begin 
       for LC:= LC step 1 until UC do 
       C[LC]:= TAMVEC(LR, UR, LC, A, B);
   end FULTAMVEC;
        eop