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