Как сделать мигающую надпись - QBasic

Формулировка задачи:

нарисовала картинку нужно добавить надпись "берегите природу",но не знаю как это сделать(

DECLARE SUB tree (x!, y!)
DECLARE SUB text (col!)
CLS
SCREEN 12
LINE (0, 480)-(640, 300), 2, BF
LINE (0, 300)-(640, 0), 1, BF
CIRCLE (500, 50), 30, 14
PAINT (500, 50), 14, 14
CALL tree(150, 350)
SUB tree (x, y)
SCREEN 12
LINE (x, y)-(x + 20, y - 80), 4, BF
CIRCLE (x + 10, y - 170), 100, 2, , , 4
PAINT (x + 10, y - 170), 2, 2
END SUB

Решение задачи: «Как сделать мигающую надпись»

Листинг программы

SCREEN 12
WHILE INKEY$ = ""
  COLOR (TIMER * 5) AND 1
  LOCATE 5, 5: PRINT "Nadpis..."
WEND

Объяснение кода листинга программы

SCREEN 12 - устанавливает размер экрана на 12 символов в строке
`WHILE INKEY$ = ``` - цикл будет выполняться пока не будет нажата клавиша
COLOR (TIMER * 5) AND 1 - изменение цвета фона на белый с помощью функции COLOR, где TIMER - это значение таймера, умноженное на 5, и оператор AND используется для получения нужного цвета
LOCATE 5, 5: PRINTNadpis...` - перемещение курсора на экран на позицию (5,5) и вывод текстаNadpis...с помощью функцииPRINT`
WEND - завершение цикла