1 DIM SHARED freq(1 TO 100)
\r
2 DIM SHARED phase(1 TO 100)
\r
9 fs = (x - 320) / 5000 + 1
\r
10 ' fs = (x - 320) / 50 + 1
\r
13 FOR t = 1 TO 5000 STEP 5
\r
16 y = y + ABS(y1 + y2)
\r
20 IF y > 470 THEN y = 470
\r
23 LINE -(x, 479 - y), 15
\r
30 freq(a) = RND / 7 + 1
\r
34 phase(a) = RND * 100
\r
44 y = y + SIN(t * freq(a) + phase(a))
\r