Source: http://enriquebarrueto0.tripod.com/algoritmos/qbasic/qbasic1.pdf