DIM SHARED freq(1 TO 100) DIM SHARED phase(1 TO 100) SCREEN 12 PSET (0, 0) FOR x = 0 TO 639 fs = (x - 320) / 5000 + 1 ' fs = (x - 320) / 50 + 1 y = 0 FOR t = 1 TO 5000 STEP 5 y1 = SIN(t) y2 = SIN(t * fs) y = y + ABS(y1 + y2) NEXT t y = y / 5 IF y > 470 THEN y = 470 IF y < 0 THEN y = 0 LINE -(x, 479 - y), 15 NEXT x SUB getfreq FOR a = 1 TO 100 freq(a) = RND / 7 + 1 NEXT a FOR a = 1 TO 100 phase(a) = RND * 100 NEXT a END SUB SUB gety (t) y = 0 FOR a = 1 TO 100 y = y + SIN(t * freq(a) + phase(a)) NEXT a END SUB