data test;
input series zone be28-be22;
n=sum((be28>1),(be27>1),(be26>1),(be25>1),(be24>1),(be23>1),(be22>1));
datalines;
1 7 3 0 2 2 0 1 0
2 7 0 2 0 4 1 0 -1
3 7 3 2 -1 0 4 0 0
4 7 0 0 0 0 0 0 -2
5 7 0 0 0 0 0 -2 0
6 7 0 0 0 0 -2 0 0
7 7 0 0 0 -2 0 0 0
8 7 0 0 -2 0 0 0 1
9 7 0 -2 0 0 0 1 1
10 7 -2 0 0 0 1 1 0
11 7 0 0 0 1 1 0 -1
12 7 0 0 1 1 0 -1 0
;