' Clifford-Attraktor
' Umsetzung gem„ss http://astronomy.swin.edu.au/~pbourke/fractals/clifford/

INPUT "a,b,c,d"; a!, b!, c!, d!

SCREEN 11
x! = 0!
y! = 0!
WINDOW (-2!, -2!)-(3!, 3!)
WHILE INKEY$ = ""
  x1! = SIN(a! * y!) + c! * COS(a! * x!)
  y1! = SIN(b! * x!) + d! * COS(b! * y!)
  x! = x1!
  y! = y1!
  PSET (x!, y!)
WEND

SCREEN 0
WIDTH 80, 25