> Here it is. > > .ds Ystring \n[.Y] > .while (\B'\*[Ystring]' = 0) .chop Ystring > .nr Ynumber \*[Ystring] > . > .if (\n[.g] \ > & ((\n[.x] > 1) \ > : ((\n[.x] == 1) & (\n[.y] > 20)) \ > : ((\n[.x] == 1) & (\n[.y] == 20) & (\n[Ynumber] >= 2)))) \{\ > . warn (\n[.warn] - (\n[.warn] / 1048576 % 2 * 1048576)) > . mso %s.tmac > .\}
Or even simpler .ds Ystring \n[.Y] .while (\B'\*[Ystring]' = 0) .chop Ystring . .if (\n[.g] \ & ((\n[.x] > 1) \ : ((\n[.x] == 1) & (\n[.y] > 20)) \ : ((\n[.x] == 1) & (\n[.y] == 20) & (\*[Ystring] >= 2)))) \{\ . warn (\n[.warn] - (\n[.warn] / 1048576 % 2 * 1048576)) . mso %s.tmac .\} Werner