I modified John's touch off subroutine.
Now if the torch fails to fire/arc doesn't transfer, it will re-probe and try again instead of just taking off without cutting. If it fails four times in a row, the head will raise up 2 inches and pause the program to allow access to change the torch consumables. Resuming/un-pausing the program will restart the probing and torch firing attempts.
o<touchoff> sub
(#1 pierce height, #2 pierce delay, #3 cut height)
#<arc-fails> = 0
F40
o100 do
G38.2 Z-1.25 (Probe to find the surface)
G91
G1 Z0.185 (Raise up to Z0)
G90
G92 Z0 (Set Z0)
G1 Z#1 (Raise to pierce height)
M3 S1 (Fire torch)
M66 P0 L1 Q2 (Wait 2 seconds for Arc OK from Torch)
o200 if [#5399 EQ -1] (Check to see if torch failed to fire)
(MSG, Arc Fail)
M5
#<arc-fails> = [#<arc-fails> + 1]
o300 if [#<arc-fails> GT 3.0000] (Check if torch has failed 4 times in a row)
Z2.0000 (raise torch high enough to change consumables)
#<arc-fails> = 0 (reset arc failure counter)
M1 (pause)
o300 endif
o200 endif
o100 while [[#5399 EQ -1]]
G4 P#2 (Pause for pierce delay)
F25
Z#3 (goto cut height)
o<touchoff> endsub
M2
Usage is the same as in John's first post.
Forum 
