> 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