code 31012;
    procedure INIMATD(LR, UR, SHIFT, A, X); value LR,UR,SHIFT,X;
    integer LR,UR,SHIFT; real X; array A;
    for LR:= LR step 1 until UR do A[LR, LR + SHIFT]:= X;
        eop