activefactXmarkifzeroXs0prodXfactpXactiveadd0XmarkXactiveaddsXYmarksaddXYactiveprod0Xmark0activeprodsXYmarkaddYprodXYactiveiftrueXYmarkXactiveiffalseXYmarkYactivezero0marktrueactivezerosXmarkfalseactivepsXmarkXactivefactXfactactiveXactiveifX1X2X3ifactiveX1X2X3activezeroXzeroactiveXactivesXsactiveXactiveprodX1X2prodactiveX1X2activeprodX1X2prodX1activeX2activepXpactiveXactiveaddX1X2addactiveX1X2activeaddX1X2addX1activeX2factmarkXmarkfactXifmarkX1X2X3markifX1X2X3zeromarkXmarkzeroXsmarkXmarksXprodmarkX1X2markprodX1X2prodX1markX2markprodX1X2pmarkXmarkpXaddmarkX1X2markaddX1X2addX1markX2markaddX1X2properfactXfactproperXproperifX1X2X3ifproperX1properX2properX3properzeroXzeroproperXpropersXsproperXproper0ok0properprodX1X2prodproperX1properX2properpXpproperXproperaddX1X2addproperX1properX2propertrueoktrueproperfalseokfalsefactokXokfactXifokX1okX2okX3okifX1X2X3zerookXokzeroXsokXoksXprodokX1okX2okprodX1X2pokXokpXaddokX1okX2okaddX1X2topmarkXtopproperXtopokXtopactiveXactive1fact1mark1if3zero1s100prod2p1add2true0false0proper1ok1top1FULL./TRS/TRCSR/ExIntrod_Zan97_C.trs