DEFINT A-Z SCREEN 13 DIM SHARED sins(3600) AS INTEGER DIM SHARED rands(18000) AS INTEGER FOR n = 0 TO 21856 IF n < 18001 THEN rands(n) = RND * 32 ELSE IF n < 21601 THEN sins(n - 18000) = 256 * SIN((n - 18000) * .0349) ELSE IF n < 21729 THEN PALETTE n - 21601, ((n - 21601) \ 2) * 65793 ELSE PALETTE 255 - (n - 21729), ((n - 21729) \ 2) * 65793 NEXT n DO f = (f + 2) MOD 180 f2 = (f2 + 2) MOD 50 FOR r = 0 TO 199 FOR c = 0 TO 319 PSET (c, r), sins(r + f) + sins(c + f) + sins(r + c) + rands(f2 * r + c) NEXT c NEXT r LOOP UNTIL INKEY$ <> ""