prime number using function procedure in qbasic