50g

> It will not be pretty.

No that won't be pretty. Use the MOD command.

360 MOD   or     2 PI * MOD

Depending on your needs.

In sysRPL what you want is extreemly easy.

::
  %REC>POL ( x y -> dist ang )
  SWAPDROP
  1REV
  %MOD
;

I will add in some checking to be sure you have two real numbers.

::
  CK2NOLASTWD
  CKREAL
  xSWAP
  CKREAL
  xSWAP
  %REC>POL ( x y -> dist ang )
  xSWAP
  xDROP
  1REV
  xMOD
;

Now I'll replace with sysevals.  This is a userRPL that does exactly
what you want, and function no matter whether you are set in RADIANS,
DEGREES or GRADS.

<<
  #2629Ch
  SYSEVAL
  #36B7Bh
  SYSEVAL
  SWAP
  #36B7Bh
  SYSEVAL
  SWAP
  #30E79h
  SYSEVAL
  SWAP
  DROP
  #2F180h
  SYSEVAL
  MOD
>>  


TW