

set name = typein "Please enter your first name:" "" 

message "" "Stop"
repeat untilbreak [
  if keypress = yes [ break ]
  logo textsize = calc( 6 + random 15)
  logo linecolor = randomcolor
  pu; moveto (random winwide) (random winhigh)
  sayc :name
  wait 10
  ]
