'RECUPERE SUR http://miklp.free.fr

SCREEN 12
WINDOW (-43, -27)-(54, 27)
a = -1 / 5
b = 1
c = 24 / 5
d = -4
o = 5
p = 0
FOR n = 1 TO 300
  v = a * o - b * p + c
  w = b * o + a * p + d
  LINE (o, p)-(v, w), 9
  o = v
  p = w
NEXT
DO: LOOP UNTIL INKEY$ <> ""