function in qbasic

welcome to shbcf.ru