code works but looks like amateur hour

[Rocketmachinist]

I got this code set to work but it just reads super clunky any ideas on how to make it simpler.

 

if return_mode = one,
        [
        pbld, n$, [if gcode$, sgfeed], sgabsinc, sgcode, *sg28ref, "Z0.", [if gcode$, feed], scoolant, e$
        if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", protretinc, e$
        else, pbld, n$, protretinc, e$
        ]
      else,
        [
        pbld, n$, sg00, sg53, *g53_return_z, scoolant, e$
        if nextop$ = 1003 | tlchg_home, [
        if mi10$ = 0,
           [
        pbld, n$, sg53, *g53_return_x, *g53_return_y, "(Tool change Location)", e$
         n$, sg53, protretinc, e$]
         else, pbld, n$, "G53 Y0. X-24. (Tool Check at Door)", e$ 
         ]
        else,
        [
           if mi10$ = 0, n$, sg53, *g53_return_x, *g53_return_y, "(Tool change Location)", e$ #added by alex #[if rot_on_x, pbld, n$, sg53, protretinc, e$]
           else, n$, "G53 Y0. X-24. (Tool Check at Door)" , e$ 
        ]]

 

Thanks in advance

This was the original code

 

if return_mode = one,
        [
        pbld, n$, [if gcode$, sgfeed], sgabsinc, sgcode, *sg28ref, "Z0.", [if gcode$, feed], scoolant, e$
        if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", protretinc, e$
        else, pbld, n$, protretinc, e$
        ]
      else,
        [
        pbld, n$, sgabsinc, sgcode, sg53, *g53_return_z, scoolant, e$
        if nextop$ = 1003 | tlchg_home, pbld, n$, sg53, *g53_return_y, protretinc, e$
        else, pbld, n$, sg53, protretinc, e$
        ]

[Werktuigbouwer]

Try on you're own risk:

      if return_mode = one,
        [
        pbld, n$, [if gcode$, sgfeed], sgabsinc, sgcode, *sg28ref, "Z0.", [if gcode$, feed], scoolant, e$
        if nextop$ = 1003 | tlchg_home, pbld, n$, *sg28ref, "X0.", "Y0.", protretinc, e$
        else, pbld, n$, protretinc, e$
        ]
      else,
        [
        pbld, n$, sg00, sg53, *g53_return_z, scoolant, e$
		if mi10$ = 0, 
		  [
		  pbld, n$, sg53, *g53_return_x, *g53_return_y, "(Tool change Location)", e$
		  if nextop$ = 1003 | tlchg_home, pbld, n$, sg53, protretinc, e$
		  ]
		else, pbld, n$, "G53 Y0. X-24. (Tool Check at Door)" , e$ 
		]