Dibujo realizado en el examen, bueno no es precisamente como tenia que quedar pero fue lo que realize.

Codigo:
:rt 45


lt 45
penup fd 80
fd 100
rt 90
rt 45
pendown penpaint fd 100
fd 50
penup rt 45
rt 90
rt 45
fd 150
lt 45
lt 45
pendown penpaint fd 150
penup rt 90
rt 90
fd 10
rt 45
pendown penpaint fd 100
fd 50
fd 30
fd 20
rt 90
fd 200
rt 90
fd 200
lt 90
lt 180
fd 200
penup rt 90
fd 30
rt 90
fd 30
fd 20
rt 90
rt 180
pendown penpaint fd 60
rt 90
fd 60
rt 90
fd 60
rt 90
fd 60
penup rt 90 fd 30
rt 90
pendown penpaint fd 60
penup rt 90 fd 30 rt 90 fd 30
rt 90
pendown penpaint fd 60
penup rt 90 fd 100
fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
5 fd 10
pendown penpaint setpencolor 5 fd 70
rt 90
fd30
Assuming you meant 'fd 30', not fd30
fd 40
fd 20
rt 180
penerase fd 10
penup lt 90 fd 10
rt 180
rt 90
rt 180
fd 50
rt 90
rt 180
fd 30
rt 90
pendown penpaint setpecolor 5 arc 360 5
I don't know how to setpecolor
setpencolor 5 arc 360 5
penup
fd 30
rt 90
penerase fd 30
rt 180
penerase fd 50
penerase fd 10
rt 90
rt 90
penerase fd 70
rt 90
penerase fd 15
rt 90
penpaint setpencolor 5 fd 70
penup rt 180 fd 70
rt 90
fd 60
fd 100
rt 90
rt 180
fd 90
rt 90
fd 30
fd 30
pendown penpaint arc 360 90
penerase arc 360 90
setpencolor 6 arc 360 60
penpaint arc 360 60
penup
rt 90
fd 30
fd 30
rt 90
fd 10
rt 90
rt 180
penpaint fd 50
fd 30
penup
rt 90
rt 18
lt 18
rt 180
lt 45
fd 10
fd 5
fd 10
rt 90
rt 90
pendown penpaint fd 30
fd 20
rt 90
rt 90
penup fd 50
rt 90
pendown penpaint fd 50
rt 90
rt 45
fd 50
fd 10
fd 10
penup rt 90
rt 45
fd 20
fd 10
rt 90
lt 45
fd 20
fd 10
rt 90
rt 180
pendown penpaint fd 50
fd 20
fd 10
penup lt 90
fd 300
fd 200
rt 90
rt 180
fd 70
fd 30
rt 90