code 31093;
real procedure FOUSER1(N,THETA,A,B);
value N,THETA;integer N;real THETA;array A,B;
begin integer I;real R,S,H,CO,SI;
   R:=S:=0;CO:=COS(THETA);SI:=SIN(THETA);
   for I:=N"STEP"-1until 1do 
   begin H:=CO*R+SI*S+A[I];
           S:=CO*S-SI*R+B[I];
           R:=H
   end;FOUSER1:=CO*R+SI*S+A[0]
end FOUSER1;
        eop