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