create a QBASIC program using DO WHILE LOOP