Post all offsets at the top of the program

[Rocketmachinist]

I am trying to get my post to put all the H= offsets to the beginning of the program that way i don't have to search for them.

G90 G00 G40 M91 M101
G53 G92 X0. Y0.
G54 X-.75 Y.4875
G0 X-.75 Y.4875
M20
M78 M78
M80 M82 M84
E1241 (PASS=1)
M101 M91
G41 H1=0. G1 X-.7 Y.452 H1 F.11 (Move This H1=0.0 to the top of the program)
G2 X-.62644 Y.38929 I0. J-.0745
X-.62551 Y.35387 I-.411 J-.02857
G3 X-.50998 Y.2331 I.11586 J-.00481
G1 X-.05399
X.01025 Y.16885
G2 X.0145 Y.1586 I-.01025 J-.01025
G1 Y-.1586
G2 X.01025 Y-.16885 I-.0145 J0.
G1 X-.05399 Y-.2331
X-.50995
G3 X-.56516 Y-.24732 I.00085 J-.11761
X-.62344 Y-.32735 I.05617 J-.10214
X-.62552 Y-.36667 I.2731 J-.03415
G2 X-.68779 Y-.45099 I-.0764 J-.00872
G40 G1 X-.74045 Y-.48673
E1242 (PASS=2)
M101 M91
G42 H2=0. G1 X-.68821 Y-.44873 H2 F.12 (Move this H2=0.0 to the top of the program)

 

I found this section of code but don't know how to make it put all the offsets in all at once

 

pccomp          #Wire Compensation
      if (ccomp$ = 2 | ccomp$ = 3) & ccomp$ <> prv_ccomp$,
        [
        sccomp
        if (hreg_style = two | hreg_style = three), *offset$
        if (hreg_style = four),
          [
          pload20200 #Set tlrad$ value based upon 20200 line
          *offset$, no_spc$, "=", *tlrad$ # Load the (wire offset)'H' variable (this line is what is called)
          need_H = yes$
          ]
        comp_on = yes$ # Wire Comp. is going active
        if cuttype <> zero, pmflag = yes$
        ]
      else, sccomp

[JParis]

Mitsubishi Wire?

Grab the Mitsubishi FA-Series 4X wire(Tech) post on the Tech Exchange...there is logic in there to do what you need.