' SlowShow
' Coded by TrickyKeyboard,
' trickykeyboard@moscowmail.com!

  open window 640, 512

  center_x = 319
  center_y = 255

  dim dot_x(23)
  dim dot_y(23)
  dim dot_speed(23)

  for what = 0 to 23
    dot_x(what) = ran(640)
    dot_y(what) = ran(512)
    dot_speed(what) = 4 + ran(4)
  next

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

    setrgb 0, 0, 0, 63
    setrgb 1, 0, 0, 255

    for what = 0 to 7
      circle center_x, center_y, what * 32
    next

    for what = 0 to 23
      if (dot_y(what) > 520) then
        dot_x(what) = ran(640)
        dot_y(what) = -8
        dot_speed(what) = 4 + ran(4)
      endif

      dot_y(what) = dot_y(what) + dot_speed(what)

      setrgb 1, 255, 0, 255
      rectangle dot_x(what), dot_y(what) to center_x, center_y
      setrgb 1, 255, 0, 0
      line center_x, center_y to dot_x(what), dot_y(what)
      setrgb 1, 63, 0, 0
      fill circle dot_x(what), dot_y(what), 4 + ran(4)
    next

    setrgb 1, 255, 255, 255
    text 320, 32, "Hello and welcome to this demo! Hit x button to quit..", "cc"
    setrgb 1, 0, 255, 0
    text 320, 480, "Don't eat lobsters!", "cc"

    command = peek("port1")

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

  end

    Source: geocities.com/trickykeyboard