' Name Spinner
' Coded by TrickyKeyboard
' trickykeyboard@moscowmail.com
' Thanks to Doctor!

  open window 640, 512

  name$ = "TrickyKeyboard"
  space=16

  length = len(name$)

  repeat
    setdrawbuf dw
    dw = 1 - dw
    setdispbuf dw
    clear window

    for letter=1 to length
      letter$ = mid$(name$, letter, 1)

      mm = mm + 0.0025

      x = letter * space * sin(mm) +319
      y = letter * space * cos(mm) +255

      setrgb 1, 0, 255, 255
      text x, y, letter$
    next

    command = peek("port1")

    if (command = 16384) then
      quit = 1
    endif
  until (quit=1)

  end

