DECLARE SUB getfreq () DECLARE SUB start () DECLARE FUNCTION gety! (t!) DIM SHARED freq(1 TO 100) DIM SHARED phase(1 TO 100) start 1 frm = frm + 1 PSET (0, 0) FOR x = 0 TO 639 oy1 = y1 oy2 = y2 oy3 = y3 y1 = gety(frm + x / 4) * 20 + 150 y2 = gety(frm + x / 4 + (x / 50)) * 20 + 150 y3 = y1 + y2 ' LINE (x + 1, 0)-(x + 1, 479), 12 LINE (x, 0)-(x, 479), 0 LINE (x - 1, oy1)-(x, y1), 1 LINE (x - 1, oy2)-(x, y2), 2 LINE (x - 1, oy3)-(x, y3), 15 NEXT x GOTO 1 SUB diplay END SUB SUB getfreq FOR a = 1 TO 100 freq(a) = RND / 2 + 1 NEXT a FOR a = 1 TO 100 phase(a) = RND * 100 NEXT a END SUB FUNCTION gety (t) y = 0 FOR a = 1 TO 1 y = y + SIN(t * freq(a) + phase(a)) NEXT a gety = y END FUNCTION SUB start SCREEN 12 getfreq END SUB