PART list disk,&a
FORX * %&a%,&b,
{
PART -iv=9 list disk %&b%,&c
IFEX $%&c%<>7,
{
PART -phy# list part %&b%,&d
FORX * %&d%,&e,
{
PART -fill list part %&b%#%&e%,&f
MSTR * &g,&h=<3><-1>&f
IFEX $[ %&g%=1 & '%&h%'<>'*' ], TEAM WRIT -,$+0,%&h%| EXIT FILE
}
}
}