code 31065;
 real procedure ONENRMVEC(L, U, A); value L, U;
 integer L, U; array A;
 begin real SUM;
    SUM:= 0; for L:= L step 1 until U do 
    SUM:= SUM + ABS(A[L]);
    ONENRMVEC:= SUM
end ONENRMVEC;
        eop