Source: https://mobile.waldenu.edu/adward/database/Qbasic Programs Examples/U1ZNFC