Sorting and removing duplicate Miscellaneous Integers

[cncgotoguy]

I have a postblock to output the values in mi4$ thru mi10$ and also the toolpath number. I wrote some code to only output the values if they are present. 

Does anybody know if there is an easy way to exclude one if it is a duplicate? for example, if someone enters 1 for mi7$ and mi8$, then it outputs both in my NC code, but I only want one. 

Also, I would like to sort the numbers from lowest to highest left to right. 

 

Here is what would post out if mi4$ was 6, mi5$ was 3, mi7$ was 1, and mi8$ was 1. 

 

( BUBBLE 6 3 1 1  MCAM TPN 2)

 

I want it to read:

 

( BUBBLE 1 3 6  MCAM TPN 2)

 

my postblock code that I have at the start of file and at all toolchanges:

 

pbubbleinfo

 

if mi4$ <> 0  , valueinmi4 = 1

if mi5$ <> 0  , valueinmi5 = 1

if mi6$ <> 0  , valueinmi6 = 1

if mi7$ <> 0  , valueinmi7 = 1

if mi8$ <> 0  , valueinmi8 = 1

if mi9$ <> 0  , valueinmi9 = 1

if mi10$ <> 0  , valueinmi10 = 1

 

If mi4$ = 0 , valueinmi4 = 0

If mi5$ = 0 , valueinmi5 = 0

If mi6$ = 0 , valueinmi6 = 0

If mi7$ = 0 , valueinmi7 = 0

If mi8$ = 0 , valueinmi8 = 0

If mi9$ = 0 , valueinmi9 = 0

If mi10$ = 0 , valueinmi10 = 0

 

#*valueinmi4, e$ #output values for debugging 

#*valueinmi5, e$ #output values for debugging

#*valueinmi6, e$ #output values for debugging

#*valueinmi7, e$ #output values for debugging

#*valueinmi8, e$ #output values for debugging

#*valueinmi9, e$ #output values for debugging

#*valueinmi10, e$ #output values for debugging

 

if mi4$ = 0, smi4=""

if mi4$ <> 0, smi4= drs_str(2,mi4$)

 

if mi5$ = 0, smi5=""

if mi5$ <> 0, smi5= drs_str(2,mi5$)

 

if mi6$ = 0, smi6=""

if mi6$ <> 0, smi6= drs_str(2,mi6$)

 

if mi7$ = 0, smi7=""

if mi7$ <> 0, smi7= drs_str(2,mi7$)

 

if mi8$ = 0, smi8=""

if mi8$ <> 0, smi8= drs_str(2,mi8$)

 

if mi9$ = 0, smi9=""

if mi9$ <> 0, smi9= drs_str(2,mi9$)

 

if mi10$ = 0, smi10=""

if mi10$ <> 0, smi10= drs_str(2,mi10$)

 

 

sbubblebeginning = "( BUBBLE "

sopnumberbeginning = " MCAM TPN "

 

if valueinmi4 = 0, sspacemi4=""

if valueinmi5 = 0, sspacemi5=""

if valueinmi6 = 0, sspacemi6=""

if valueinmi7 = 0, sspacemi7=""

if valueinmi8 = 0, sspacemi8=""

if valueinmi9 = 0, sspacemi9=""

if valueinmi10 = 0, sspacemi10=""

 

if valueinmi4 = 1, sspacemi4=" "

if valueinmi5 = 1, sspacemi5=" "

if valueinmi6 = 1, sspacemi6=" "

if valueinmi7 = 1, sspacemi7=" "

if valueinmi8 = 1, sspacemi8=" "

if valueinmi9 = 1, sspacemi9=" "

if valueinmi10 =1, sspacemi10=" "

 

 

 

 

if valueinmi4 =1 | valueinmi5 =1 |  valueinmi6 =1 |  valueinmi7 =1 |  valueinmi8 =1 |  valueinmi9 =1 |  valueinmi10 =1,

sbubbleinfo = sbubblebeginning + smi4 + sspacemi4 + smi5 + sspacemi5 + smi6 + sspacemi6 + smi7 + sspacemi7 +

smi8 + sspacemi8 + smi9 + sspacemi9  + smi10 +  sspacemi10 + sopnumberbeginning + drs_str(2,opnumber) + sclose_prn

 

 

if valueinmi4 = 0 & valueinmi5 = 0 &  valueinmi6 = 0 &  valueinmi7 = 0 &  valueinmi8 = 0 &  valueinmi9 = 0 &  valueinmi10 = 0,

sbubbleinfo = sopen_prn + sopnumberbeginning + drs_str(2,opnumber) + sclose_prn

 

 

if sprv_sbubbleinfo <> sbubbleinfo,

[

if valueinmi4 =1 | valueinmi5 =1 |  valueinmi6 =1 |  valueinmi7 =1 |  valueinmi8 =1 |  valueinmi9 =1 |  valueinmi10 =1,

[sbubbleinfo = sbubblebeginning + smi4 + sspacemi4 + smi5 + sspacemi5 + smi6 + sspacemi6 + smi7 + sspacemi7 +

smi8 + sspacemi8 + smi9 + sspacemi9  + smi10 +  sspacemi10 + sopnumberbeginning + drs_str(2,opnumber) + sclose_prn

sbubbleinfo , e$]

 

if valueinmi4 = 0 & valueinmi5 = 0 &  valueinmi6 = 0 &  valueinmi7 = 0 &  valueinmi8 = 0 &  valueinmi9 = 0 &  valueinmi10 = 0,

[sbubbleinfo = sopen_prn + sopnumberbeginning + drs_str(2,opnumber) + sclose_prn

sbubbleinfo , e$]

]

sprv_sbubbleinfo = sbubbleinfo