Qbasic написать программу много четырёхугольников

SCREEN 7 h = 10 FOR k = 1 TO 10     x1 = 160 - 10*k     x2 = 160 + 10*k     y1 = 40 + h*k     y2 = y1 + h     LINE (x1, y1)-( x2, y2), 1, B NEXT k