code 31010;
    procedure INIVEC(L, U, A, X); value L,U,X;
    integer L,U; real X; array A;
    for L:= L step 1 until U do A[L]:= X;
        eop