Построить горизонтальные линии в qbasic с шагом через 15 использовать оператор цикла

Question

Построить горизонтальные линии в qbasic с шагом через 15 использовать оператор цикла

Answer 1

SCREEN 9
FOR I = 1 TO 22
    Y = Y + 15
    LINE (0, Y)-(640, Y)
NEXT I