в простом бэйсике не получится без доп.подпрограмм, если память не отшибла - в Beta Basic`е вродь можно было