sync on : sync rate 30
backdrop on
color backdrop rgb(0,0,0)
gosub _return
do
 if returnkey()=1
    for p=1 to 4
      delete particles p
    next p
      gosub _return
  endif
  sync
loop
_return:
for p=1 to 4
    make particles p,0,15,15
    color particles p,rnd(255)*tan(12),rnd(255)*tan(7),rnd(255)*tan(22)
    rotate particles p,rnd(5000)*htan(6),rnd(5000)*htan(12),rnd(5000)
    set particle emissions p,rnd(255)
    set particle floor p,rnd(200)
set particle gravity p,15*hsin(10)
  next p
return