if ($pos(%TIM.RawLine,%TIM.Trigger) == $null) {
; *** BURK codes in the trigger, So isolate trigger and replace with non BURK coded trigger *
var %TIM.Counter = 1
while ($mid(%TIM.Trigger,%TIM.Counter,20)) {
var %TIM.SubString = $ifmatch
if (%TIM.Counter != 1) var %TIM.SubString = $lf $+ %TIM.SubString
!.echo -q $regsub(%TIM.SubString,/(?<=.)(?=.)/g,$cr,%TIM.SubString)
var %TIM.SubString = $replace(%TIM.SubString,\,\\,^,\^,$,\$,.,\.,[,\[,$chr(40),\ $+ $chr(40),$chr(41),\ $+ $chr(41),?,\?,*,\*,+,\+,$chr(123),\{,$chr(125),\},|,\|)
var %TIM.BurkCodes = (?:[]|(?:\d\d?(?:,\d\d?)?)?)*
var %TIM.SubString = $replace(%TIM.SubString,$cr,%TIM.BurkCodes)
!.echo -q $regsub(%TIM.RawLine,$+(/,%TIM.SubString,/gi),$lf,%TIM.RawLine)
inc %TIM.Counter 20
}
var %TIM.RawLine = $replace(%TIM.RawLine,$lf,%TIM.Trigger)
}
var %TIM.Hotlink.Trigger = $+ $replace(%TIM.Trigger ,$chr(160),$chr(26) ,$chr(32),$chr(160) ,$chr(26),$str($chr(160),2)) $+
echo -itlbfmr $1 < $+ $1 $+ > $replace(%TIM.RawLine,%TIM.Trigger,$chr(32) $+ %TIM.Hotlink.Trigger $+ $chr(32))