Напишите программу, рисующую на экране горизонтальную линию, состоящую из точек - QBasic

Само задание: Напишите программу, рисующую на экране горизонтальную линию, состоящую из точек, расстояние между которыми 8 Я ее написал:

CLS
SCREEN 9
FOR x = 0 TO 640 STEP 8
PSET (x,175),14
NEXT x    ' Все отлично работает

Теперь такое задание: Заполнить горизонтальными линиями весь экран Вот это я и не смог...помогите... Думаю для вас это семечки щелкать

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

SCREEN 9
FOR y = 0 TO 349 
FOR x = 0 TO 639 STEP 8
PSET (x, y), 14
NEXT
NEXT

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

SCREEN 9 - устанавливает номер экрана, который не влияет на отображение линий, но определяет, какие функции доступны для использования в программе. В данном случае экран 9 используется для создания графических объектов.
FOR y = 0 TO 349 - это цикл, который проходит по всем значениям переменной y от 0 до 349.
FOR x = 0 TO 639 STEP 8 - это цикл, который проходит по всем значениям переменной x от 0 до 639 с шагом 8.
PSET (x, y), 14 - это команда, которая рисует точку на экране с координатами (x, y) и размером 14.
NEXT - это команда, которая переходит к следующему шагу цикла.
NEXT - это команда, которая переходит к следующему шагу цикла. Таким образом, данный код рисует горизонтальную линию на экране, состоящую из 640 точек, каждая из которых имеет размер 14.