На каких растениях проводил опыты Г. Мендель?

CLS
(COLOR 10) - для красоты
(a:) - слово будет двигаться бесконечно
FOR i = 1 TO 75
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
FOR i = 75 TO 1 STEP -1
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
(GOTO a) - слово будет двигаться бесконечно

(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)