RANDOMIZE TIMER
1
CLS
SCREEN 9

FOR i = 1 TO 950
x = x * 2
y = INT(RND * 15) + 1
LINE (i, x)-(x, i), y
LINE (i - 10, x / 2)-(x, i), 0
FOR o = 1 TO 100: NEXT o
LOCATE 1, 1
PRINT i
NEXT i