SCREEN 13

FOR x = 0 TO 255
  LINE (x, 50)-(x, 100), x
NEXT x