COMPUTE ka1 = ANY(1,a1) . COMPUTE ka2 = ANY(1,a2)|ANY(4,a2) . COMPUTE ka3 = ANY(2,a3) . COMPUTE ka4 = ANY(4,a4) . COMPUTE ka5 = ANY(2,a5). COMPUTE ka6 = ANY(2,a6) . COMPUTE ka7 = ANY(2,a7) . COMPUTE ka8 = ANY(1,a8) . COMPUTE ka9 = ANY(1,a9) . COMPUTE ka10 = ANY(3,a10) . COMPUTE kb1 = ANY(1,b1) . COMPUTE kb2 = ANY(4,b2) . COMPUTE kb3 = ANY(1,b3) . COMPUTE kb4 = ANY(1,b4) . COMPUTE kb5 = ANY(3,b5) . COMPUTE kb6 = ANY(2,b6) . COMPUTE kb7 = ANY(2,b7) . COMPUTE kb8 = ANY(2,b8) . COMPUTE kb9 = ANY(1,b9) . COMPUTE kb10 = ANY(2,b10) . COMPUTE kc1 = ANY(3,c1) . COMPUTE kc2 = ANY(2,c2) . COMPUTE kc3 = ANY(2,c3) . COMPUTE kc4 = ANY(1,c4) . COMPUTE kc5 = ANY(1,c5) . COMPUTE kc6 = ANY(1,c6) . COMPUTE kc7 = ANY(4,c7) . COMPUTE kc8 = ANY(3,c8) . COMPUTE kc9 = ANY(4,c9) . COMPUTE kc10 = ANY(1,c10) . COMPUTE kd1 = ANY(2,d1) . COMPUTE kd2 = ANY(1,d2) . COMPUTE kd3 = ANY(2,d3) . COMPUTE kd4 = ANY(2,d4) . COMPUTE kd5 = ANY(2,d5) . COMPUTE kd6 = ANY(3,d6) . COMPUTE kd7 = ANY(3,d7) . COMPUTE kd8 = ANY(1,d8) . COMPUTE kd9 = ANY(2,d9) . COMPUTE kd10 = ANY(1,d10) . COMPUTE ke1 = ANY(4,e1) . COMPUTE ke2 = ANY(3,e2) . COMPUTE ke3 = ANY(2,e3) . COMPUTE ke4 = ANY(1,e4) . COMPUTE ke5 = ANY(1,e5) . COMPUTE ke6 = ANY(4,e6) . COMPUTE ke7 = ANY(2,e7) . COMPUTE ke8 = ANY(3,e8) . COMPUTE ke9 = ANY(4,e9) . COMPUTE ke10 = ANY(1,e10) . COMPUTE kf1 = ANY(2,f1) . COMPUTE kf2 = ANY(2,f2) . COMPUTE kf3 = ANY(3,f3) . COMPUTE kf4 = ANY(2,f4) . COMPUTE kf5 = ANY(3,f5) . COMPUTE kf6 = ANY(1,f6) . COMPUTE kf7 = ANY(4,f7) . COMPUTE kf8 = ANY(2,f8) . COMPUTE kf9 = ANY(1,f9) . COMPUTE kf10 = ANY(2,f10) . EXECUTE . COMPUTE konrez = (ka1+ka2+ka3+ka4+ka5+ka6+ka7+ka8+ka9+ka10+kb1+kb2+kb3+kb4 +kb5+kb6+kb7+kb8+kb9+kb10+kc1+kc2+kc3+kc4+kc5+kc6+kc7+kc8+kc9+kc10+kd1+kd2 +kd3+kd4+kd5+kd6+kd7+kd8+kd9+kd10+ke1+ke2+ke3+ke4+ke5+ke6+ke7+ke8+ke9+ke10 +kf1+kf2+kf3+kf4+kf5+kf6+kf7+kf8+kf9+kf10)/60*100 . EXECUTE . COMPUTE rezultat = SUBSTR(' pao polozio',(konrez>69.999999)*7+1,7) . EXECUTE . COMPUTE poeni=konrez*22*(konrez>69.999999). EXECUTE.