https://remp3indir.net/qbasic-program-using-mid-string-function/