Procedure: myname by Sivert Berg

Description of the procedure:

Source:

procedure main
procedure myname
goto startposisjon
goto S
goto I
goto V
goto E
goto R
goto T

procedure startposisjon
up
lt 90
go 150
rt 90
go 100
rt 90
go 50
rt 180
end

procedure S
down
go 25
goto bow1,angle=180
goto bow2,angle=180
go 25
up
end

procedure I
rt 180
go 75
lt 90
down
go 115
up
rt 90
go 30
down
end

procedure V
rt 80
go 120
lt 155
go 120
up
end

procedure E
rt 75
go 20
down
go 50
rt 180
go 50
lt 90
go 57,5
lt 90
go 40
rt 180
go 40
lt 90
go 57,5
lt 90
go 50
up
end

procedure R
go 20
down
lt 90
go 115
rt 90
goto bow2,angle=180
lt 120
go 60
up
lt 60
go 20
end

procedure T
down
lt 90
go 115
lt 90
go 50
rt 180
go 100
end

procedure bow1
/ angle
repeat angle / 10,drawABow
end

procedure drawABow
go 5
lt 10
end

procedure bow2
/ angle
repeat angle / 10,drawABow2
end

procedure drawABow2
go 5
rt 10
end