nested for loop in qbasic