Распечатать матрицу и выделить отрицательные элементы красным цветом - QBasic

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

Ребят,помогите пожалуйста!Буду очень благодарна) Распечатать 2-ый массив M(a,b) выделить отрицательные красным цветом,положительные зеленым и нулевые элементы синим цветом.

Решение задачи: «Распечатать матрицу и выделить отрицательные элементы красным цветом»

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

INPUT a
INPUT b
DIM m(a, b)
RANDOMIZE TIMER
FOR i = 1 TO a
FOR j = 1 TO b
m(i, j) = INT(RND * 10) - 5
NEXT
NEXT
FOR i = 1 TO a
FOR j = 1 TO b
IF m(i, j) < 0 THEN COLOR 4 ELSE IF m(i, j) > 0 THEN COLOR 2 ELSE COLOR 1
PRINT m(i, j);
NEXT
PRINT
NEXT

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

Вначале пользователю предлагается ввести два числа a и b, которые будут использоваться в качестве размеров матрицы.
Затем создается матрица m размером a на b и инициализируется случайными числами от -5 до 5 с шагом 1.
Далее начинается цикл по всем элементам матрицы. Если элемент отрицательный, то его цвет делают красным (4), если больше нуля - зеленым (2), если равен нулю или меньше - синим (1).
После вывода каждого элемента матрицы, выводится символ новой строки (\n), чтобы перейти на следующую строку.
После вывода всех элементов матрицы выводится символ конца строки (\r), чтобы вернуться к началу следующей строки и начать печатать с самого верха.