DECLARE SUB ppset (x, y)
RANDOMIZE TIMER
aa = INT(RND * 2)
bb = INT(RND * 2)
cc = INT(RND * 2)
IF aa = 0 AND bb = 0 AND cc = 0 THEN aa = 1: bb = 1: cc = 1
SCREEN 12
FOR a = 1 TO 15
PALETTE a, a * aa * 4 + a * bb * 4 * 256 + a * cc * 4 * 256 ^ 2
NEXT a

inizio = 1.95
fine = 3

FOR x = inizio TO fine STEP ((fine - inizio) / 640) / 2
  x1! = .1
  FOR b = 1 TO 820 '120
    x1! = x1! + x * x1! * (1 - x1!)
    IF b > 500 THEN ppset INT((x - inizio) * 640 / (fine - inizio)), 460 - x1! * 330
  NEXT b
NEXT x

WHILE INKEY$ = "": WEND

SUB ppset (x, y)
r = POINT(x, y)
IF r <> 15 THEN PSET (x, y), r + 1
END SUB