prime number in qbasic