pcode

speed 2000
xloc = 1
xspeed = 4
forever 1000, ->
  pen (random(color)), xloc
  fd xloc
  rt xloc
  xloc += xspeed
  debug xloc
  if xloc > 300
    xspeed = xspeed*-1
    write 'Hello.'
  if xloc < -300
    xspeed = xspeed*-1