multi criteria IF statement

[roadrunner]

I would probably use a case statement for that task:

Code:

EXPORT Amer7scode(x,y)
BEGIN
 LOCAL n, orig;
 orig:=HAngle; 
 HAngle:=1;
 CASE
  IF y>0 AND x>0 THEN n:=ATAN(y/x) END;
  IF y>0 AND x<0 THEN n:=ATAN(y/x)+180 END;
  IF y<0 AND x<0 THEN n:=ATAN(y/x)+180 END;
  IF y<0 AND x>0 THEN n:=ATAN(y/x)+360 END;
  DEFAULT n:="error"
 END;
 HAngle:=orig;
 RETURN n;
END;

-road