if ( ($F eq "on" or $E eq "on" or $DC eq "on") and $Z eq "on") {    #  1
    $alpha = 1 }                                                    #  2
else {                                                              #  3
    $alpha = 0 }                                                    #  4
                                                                    #  5
if ( $cg1 eq "on" and $P eq "on" ) {                                #  6
    $beta = 2 }                                                     #  7
else {                                                              #  8
    $beta = 0 }                                                     #  9
                                                                    # 10 
if ( $cg2 eq "on" and $cg3 eq "on" and $cg4 eq "on" ) {             # 11 
    $gamma = 2 }                                                    # 12 
else {                                                              # 13 
    $gamma = 1 }                                                    # 14 
                                                                    # 15 
$delta = $B + $G;                                                   # 16 
$epsilon = $beta * $delta;                                          # 17 
                                                                    # 18 
if ( $epsilon == 0 ) {                                              # 19 
    $zeta = $otx }                                                  # 20 
else {                                                              # 21 
    $zeta = $epsilon }                                              # 22 
                                                                    # 23 
if ( $alpha == 1 ) {                                                # 24 
    $eta = 0 }                                                      # 25 
else {                                                              # 26 
    $eta = $zeta }                                                  # 27 
                                                                    # 28 
$theta = $gamma * $eta;                                             # 29 
                                                                    # 30 
print "Theta = $theta\n";                                           # 31