# KTurtle advertisement :)

reset
canvassize 400,190
penwidth 4

learn K $x,$y {
  dir 0
  pu
  go $x,$y
  pd
  bw 95
  pu
  go $x+35,$y+15
  pd
  dir -140
  fw 53
  bw 10
  tl 87
  fw 150
}

learn T $x,$y {
  pu
  go $x,$y
  pd
  dir 90
  fw 40
  pu
  bw 20
  dir 180
  # vertical line
  pd
  fw 45
 
}

learn u $x,$y {
  pu
  go $x,$y
  pd
  dir 180
  fw 45
  tl 90
  fw 20
  tl 90
  fw 45
}

learn r $x,$y {
  pu
  go $x,$y
  pd
  dir 180
  fw 45
  go $x,$y+6
  dir 90
  fw 20
dir 230
fw 25
dir 130
fw 140


}

learn L $x,$y {
  pu
  dir 180
  go $x,$y
  pd 
  fw 45
  dir 90
  fw 20
}

learn E $x,$y {
  pu
  go $x,$y
  pd
  dir 180 
fw 45 
go $x,$y
dir 90 
fw 25
pu
go $x,$y+22
pd
dir 90 
fw 15
pu
go $x,$y+45
pd
dir 90 
fw 25


}


K 50,15
T 108,50
u 160,50
r 200,50
T 230,50
L 289,50
E 330,50

penup
go 12,180
pendown
dir 0
fontsize 18
print "Educative Programming Environment"

spritehide
wait 1
spriteshow

penup
go 120,145
pendown
dir 80
penwidth 3
pencolor 0,0,255
fw 155

wait 0.5
penup
go 180,200
pendown
dir 0
pencolor 0,0,0
print "play"

pu
go 238,160
wait 0.5