DEFDBL A-Z
SCREEN 12
LOCATE (1), (1): PRINT "perhaps a different way of colloring it"
r = .95
DEFINT C, I-J, L
REM for j=0 to 2 step 1
deltar = .002
IF j = 1 THEN r = 3.55: deltar = .0005
FOR lcol = 1 TO 620
x = .5
r = r + deltar
FOR i = 1 TO 250
s = SIN(x)
	x = r * x * (1 - s + SQR(1 - s * s))
IF x > 10000 OR x < -10000 THEN END
lrow = (ABS(450 - (x * 450)))
IF i > 0 AND lrow < 450 AND lcol >= 0 AND lcol < 650 THEN PSET (lcol, lrow + 50), i
NEXT i
IF INKEY$ <> "" THEN END
NEXT lcol
REM next j