;makes a webbed spiral from you to mousepos, by Foxy
{ "" CHATSTR = 2 PENSIZE varistart EXEC 0 dir =
  MOUSEPOS y = x = POSX x - DUP * POSY y - DUP * + SQUAREROOT rd =
 1000000 tds = 0 td =
 { 10 td += x td SINE rd * 1000 / + POSX - DUP *
   y td COSINE rd * 1000 / + POSY - DUP * + act =
  { act tds = td dir = } act tds < IF
 } { 360 td > } WHILE
 { x dir SINE rd * 1000 / + y dir COSINE rd * 1000 / +
   x dir 80 + SINE rd 40 - * 1000 / + y dir 80 + COSINE rd 40 - * 1000 / +
   LINE vari EXEC 5 rd -= 10 dir +=
 } { rd 39 > } WHILE
} CHATSTR "wspiral" == IF