Sorry Carl I omitted the program in my originally
request
XPLeNCODE v2.0
b-gin [UNTITLED] {<}SX01,0{>};*;[cr|lf]{<}LBa{>};*;[cr|lf]{<}IF{<}PV01{>}<50{> };*;[cr|lf]{<}SX01,{<}PV01{>}+1{>};*;[cr|lf]{<}SX01,{<}IS01{> }{>};*;[cr|lf]{<}GT01{>};*;[cr|lf] [BX_]p[Q2_];*;[cr|lf][BX_] se /@/[Q2_]{<}IF@not({<}ER{>}){>}{<}GLa{>};*;[cr|lf]{<}EI{>}{ <}PRDone{>}{<}EX{>};*;[cr|lf]{<}EI{>}{<}PRDone{>}{<}EX{>}[cr| lf] -nd XPLeNCODE |