#This is my first attempt at any code
 
reset

canvascolor 0,191,255
pencolor 85,26,139
#$x = ask "Enter the length of the star sides"
$x=200
$y=54
$z= $x*1.051/2

pu
go 200,200
pd

learn star
{
direction -18-$y
forward $z
pd
direction 180-$y
forward $x
direction 36-$y
forward $x
direction -108-$y
forward $x
direction -252-$y
forward $x
direction -396-$y
forward $x
pu
}

go 50,50