Cabela's interview question

write as/400 code for logic