// STARTUNNEL demo

include star1

message "Star neon" "Stop"

logo animation
logo backcolor "black"
pu

set colorcount = 1
repeat untilbreak [
  logo linecolor = randomcolor
  set size = 10
  set sizejump = 10
  repeat 16 [
    if keypress = yes [ return 0 ]
    star1 :size 0
    incr size by :sizejump
    set sizejump = calc :sizejump * 1.06
    wait 2
    ]
  set colorcount = calc :colorcount + 1
  ]
logo linecolor = "white"
