code 34017;
   real procedure SCAPRD1(LA, SA, LB, SB, N, A, B);
   value LA,SA,LB,SB,N; integer LA,SA,LB,SB,N; array A,B;
   begin real S;integer K;
       S:= 0;
       for K:= 1 step 1 until N do 
       begin S:=A[LA] * B[LB] + S; LA:= LA + SA; LB:= LB + SB end;
       SCAPRD1:= S
   end SCAPRD1;
       eop