https://videosashka.com/watch/qFuRZAc9ASQ/qbasic-loops-functions