You can add more turns in there

DEFINT A-Z
DIM a(10) AS LONG, x1 AS SINGLE
a(0) = &H8BE58955
a(1) = &H33CD0C46
a(2) = &H890A768B
a(3) = &H8768B1C
a(4) = &H768B0C89
a(5) = &H5D148906
a(6) = &H8CA
a(7) = &H8EA800B8
a(8) = &H31FF31C0
a(9) = &H36B0B9C0
a(10) = &HCBABF3
DEF SEG = VARSEG(a(0))
'call absolute ( byval 3, mb, mx, my, varptr(a(0)) )
'call absolute ( varptr(a(7)) )
k = 1
SCREEN 9, , 1, 0
CALL absolute(BYVAL 2, mb, mx, my, VARPTR(a(0)))
DO
t! = TIMER + .04
CALL absolute(BYVAL 3, mb, mx, my, VARPTR(a(0)))
x1 = (mx - 320) * .01 - .4
CALL absolute(VARPTR(a(7)))
k = k XOR 3
m1! = SIN(l * .001) * 1000
FOR j = 3 TO 50 STEP 2
z = 700 \ (j - k)
FOR i = 0 TO 8
l = l + 1
m! = SIN(l * .001) * 1000 - m1!
x = COS(i * .4 + x1 - m! * .007) * z
y = SIN(i * .4 + x1 - m! * .007) * z
LINE -(x + 300 + m!, y + 100 + m!), i <> 0 * -15
NEXT
NEXT
PCOPY 1, 0
1 IF TIMER < t! THEN 1
LOOP UNTIL INP(&H60) = 1
SYSTEM