(QBasic)Подскажите как сделать так, что бы можно было вернуть ** самое начало с очисткой...

Question

(QBasic)Подскажите как сделать так, что бы можно было вернуть на самое начало с очисткой экрана
Хочу сделать, что бы после ответа было:"хотите повторить? и если да, то программа запускается сначала. Это же цикл? Только не могу понять как его поставить
Вот:
PRINT "Enter the coefficient a"
INPUT a
PRINT "Enter the coefficient b"
INPUT b
PRINT "Enter the coefficient c"
INPUT c
LET d = b ^ 2 - 4 * a * c
LET x = (-b + SQR(d)) / (2 * a)
LET y = (-b - SQR(d)) / (2 * a)
PRINT "The first root"
PRINT x
PRINT "The second root"
PRINT y
PRINT "The discriminant"
PRINT d

Answer 1

DO
   CLS
   PRINT "Enter the coefficient a"
   INPUT a
   PRINT "Enter the coefficient b"
   INPUT b
   PRINT "Enter the coefficient c"
   INPUT c
   LET d = b ^ 2 - 4 * a * c
   LET x = (-b + SQR(d)) / (2 * a)
   LET y = (-b - SQR(d)) / (2 * a)
   PRINT "The first root"
   PRINT x
   PRINT "The second root"
   PRINT y
   PRINT "The discriminant"
   PRINT d
   INPUT "Do You want to repeat? (Y/N)", r$
LOOP UNTIL UCASE$(r$) <> "Y"

Comments

PRINT "Quadratic Equation Calculator"
PRINT
2 PRINT "Enter the coefficient a"
INPUT a
PRINT "Enter the coefficient b"
INPUT b
PRINT "Enter the coefficient c"
INPUT c
LET d = b ^ 2 - 4 * a * c
LET x = (-b + SQR(d)) / (2 * a)
LET h = (-b - SQR(d)) / (2 * a)
PRINT "The first root"
PRINT x
PRINT "The second root"
PRINT h
PRINT "The discriminant"
PRINT d
PRINT "Start over? 1-Yes 2-No"
INPUT Y
IF Y = 1 THEN GOTO 1 ELSE END
1 CLS
GOTO 2

---

А почему Вы решили, что это "чуть легче"? Потому что Вам незнаком оператор цикла? Современные концепции программирования гласят, что если Вы употребляете оператор перехода (кстати, во многих языках программирования его вообще нет), то для этого нужно серьезное обоснование.

---

Я его не могу понять(

---

Что ж, печально....

---

А вы не знаете где можно найти хороший курс? Все,что я нашел,что то не очень

---

По Бейсику?

---

Да

---

Давайте продолжим в ЛС общение, тут не надо спамить

---

А как это можно сделать?

---

У Вас конвертик наверху, там сейчас красный флажок. Щелкайте его