Para correr el programa da click sobre el cuadro.

//Me recuerda a Zelda
//De Adan Martinez
fast
paper 25 45 87
forever
{
repeat A 0 100
{
pen 100
line A A 60 A
line 1 A 3 A
pen 0
line 50 50 A A
}
Set B <mouse 1>
Set C <mouse 1>
{
pen (B-C)
line 100 0 0 B
line 0 0 C 100
}
repeat D 20 80
{
pen D
line 50 75 D 20
}
repeat D 36 64
{
pen 0
line 50 28 D 48
}
}