X-style coolant output

[Henk]

I have put the X-Style coolant from the Mpmaster  in my .set setup sheet.

The output is done by:

Quote

# Output coolant type
      pcan, pcan1, pcan2, strcantext,

The output is fine, exept one situation:

If there is no coolant selected there is no output, but there i want an waring.

First i tried without success:

Quote

# --------------------------------------------------------------------------
# WARNING NO COOLANT SELECTED:
# --------------------------------------------------------------------------
      if strcantxt = "",
        [
        " ", e$
        sepline2, e$  
        "WARNING: ", e$
        "Operation #", op_num, ": NO COOLANT SELECTED", e$
        sepline2, e$
        " ", e$
        ]

Then i read the parameters

Quote

#Coolant variables for X style coolant
bld          : 0    #Block delete active
sav_coolant  : 0    #Coolant saved
cant_pos     : 0    #Read from current canned text (cant_pos1 - cant_pos20)
coolant_bin  : 0    #Binary value for current coolant command
coolant_on   : 0    #Binary value holding the sum of all coolants currently on
coolantx     : 0    #Selector variable for coolant string selector
local_int    : 0    #Local variable for output of coolant off commands
result2      : 0    #Return value for functions
suppress     : 0    #Flag used to suppress redundant coolant on commands
all_cool_off : 0    #First coolant off command shuts off ALL coolant options
sblank       : ""
strtextno    : ""
strcantext   : ""
coolchk      : ""    #Coolant Check
scool1       : ""    #Coolant 1
scool2       : ""    #Coolant 2
scool3       : ""    #Coolant 3
scool4       : ""    #Coolant 4
scool5       : ""    #Coolant 5
scool6       : ""    #Coolant 6

# --------------------------------------------------------------------------
# WARNING NO COOLANT SELECTED:
# --------------------------------------------------------------------------
      pscool1, e$
      if scool1 = 0 & scool2 = 0 & scool3 = 0 & scool4 = 0 & scool5 = 0 & scool6 = 0 ,
        [
        " ", e$
        sepline2, e$  
        "WARNING: ", e$
        "Operation #", op_num, ": NO COOLANT SELECTED", e$
        sepline2, e$
        " ", e$
        ]

pparameter$      #Read operation parameters

      if prmcode$ = 12727, sholder_name = ucase(sparameter$)      #Toolholder name
      if prmcode$ = 15240, op_num = rpar(sparameter$, 8)          #Operation number
      if prmcode$ = 15845, scool1 = sparameter$                   #Coolant 1
      if prmcode$ = 15846, scool2 = sparameter$                   #Coolant 2
      if prmcode$ = 15847, scool3 = sparameter$                   #Coolant 3
      if prmcode$ = 15848, scool4 = sparameter$                   #Coolant 4
      if prmcode$ = 15849, scool5 = sparameter$                   #Coolant 5
      if prmcode$ = 15850, scool6 = sparameter$                   #Coolant 6

Also no success,

Now i'm lost. ideas??