[Steve Arteman]

MMUR,
Try this


arcoutput : 0 #0 = IJK, 1 = R no sign, 2 = R signed neg. over 180

parc #Select the arc output format
if arcoutput = zero | full_arc_flg | arc_pitch,
[
#Arc output for IJK
# If you do NOT want to force out the I,J,K values,
# remove the "*" asterisks on the *i, *j, *k 's below...
if plane = zero, *i, *j, k #XY plane code - G17
if plane = one , i, *j, *k #YZ plane code - G19
if plane = two , *i, j, *k #XZ plane code - G18
]
else,
[
#Arc output for R
if abs(sweep) <= 180 | arcoutput=one, result = nwadrs(srad, arcrad)
else, result = nwadrs(srminus, arcrad)
*arcrad