Not really on topic for the question, but you can replace the if syntax with a select for readability terms:
array b...;
array c...;
do over b;
select(b);
when ("Never") c=0;
when ("Almost never") c=1;
when ("Sometimes") c=2;
when ("Fairly Often") c=3;
otherwise c=4;
end;
end;
... View more
