1STRUCTURE /STRU/ 2 INTEGER*4 X 3#:if cA > 0 & 4 DEBUG > 0 & 5 TRACE > 0 6 INTEGER*4 A0 7#:if cB > 0 & 8 DEBUG > 0 9 INTEGER*4 B0 10#:if cC > 0 & 11 DEBUG > 0 12 INTEGER*4 C 13#:elif cCELIF > 0 & 14 DEBUG > 0 15 INTEGER*4 CELIF 16#:else 17 INTEGER*4 CELSE 18#:endif 19 INTEGER*4 B1 20#:elif cBELIF > 0 & 21 DEBUG > 0 22 INTEGER*4 BELIF 23#:else 24 INTEGER*4 BELSE 25#:endif 26 INTEGER*4 A1 27#:elif cAELIF > 0 & 28 DEBUG > 0 29 INTEGER*4 AELIF 30#:else 31 INTEGER*4 AELSE 32#:endif 33 INTEGER*4 Y 34END STRUCTURE 35