"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"-1"UNTIL"1"DO"
   "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"