10 SCREEN 1
15 x = 0
20 LET x = x + 1
30 LINE (10, x)-(10, x + 2), 2
40 IF x = 500 THEN END
50 GOTO 20