spade-0.1.0.9: samples/char-animation.spd

csinit()
loop
  for i = 1 to 360
    for x = 1 to 40
      for y = 1 to 40
        csgoto(x, y)
        csprint(".")
      endfor
    endfor
    for j = 1 to 20
      let x = (30 * cos((i - (2 * j))))
      let y = (30 * sin((i - (2 * j))))
      csgoto((x + 30), (y + 30))
      csprint(j)
    endfor
    csdraw()
    wait(0.01)
    csclear()
  endfor
endloop