1 22 333 pattern in qbasic