Para correr el programa da click sobre el cuadro.

//cpubert2
//Rene Lopez
fast
repeat a 30 10
{
repeat c 21 10
{
paper 0 0 0
set [c a] 0
}
}

repeat a 30 10
{
repeat c 21 10
{
set [c a] 0
}
}

fast
repeat a 30 50
{
repeat c 20 50
{
paper 10 0 0
set [c a] 0
}
}

fast
repeat a 30 50
{
repeat c 20 50
{
set [c a] 0
}
}

fast
repeat a 90 80
{
repeat c 0 20
{
paper 0 10 0
set [a c] 0
}
}

fast
repeat a 90 80
{
repeat c 0 20
{
set [a c] 0
}
}

fast
repeat a 0 30
{
repeat c 40 0
{
paper 0 0 10
set [c a] 0
}
}

fast
repeat a 0 30
{
repeat c 40 0
{
set [c a] 0
}
}

fast
repeat a 80 70
{
repeat c 40 35
{
paper 10 10 0
set [a c] 0
}
}

fast
repeat a 80 70
{
repeat c 40 35
{
set [a c] 0
}
}

fast
repeat a 40 65
{
repeat c 50 65
{
paper 0 10 10
set [a c] 0
}
}

fast
repeat a 40 65
{
repeat c 40 65
{
set [a c] 0
}
}

fast
repeat a 30 80
{
repeat c 20 80
{
paper 8 10 9
set [a c] 0
}
}

fast
repeat a 100 0
{
repeat c 100 0
{
set [a c] 0
}
}

command p i d t b
{
repeat x i d
{
line x t x b
}
}

fast
p 0 15 0 10
p 100 85 0 10
p 17 32 0 10
p 51 66 0 10
p 68 83 0 10
p 34 49 0 10
p 8 24 12 22
p 26 42 12 22
p 44 58 12 22
p 60 75 12 22
p 77 92 12 22
p 17 32 24 34
p 34 49 24 34
p 51 66 24 34
p 68 83 24 34
p 26 42 36 46
p 44 58 36 46
p 60 75 36 46
p 34 49 48 58
p 51 66 48 58
p 44 58 60 70
p 0 6 12 22
p 94 100 12 22
p 0 15 24 34
p 85 100 24 34
p 8 24 36 46
p 0 6 36 46
p 94 100 36 46
p 77 92 36 46
p 0 15 48 58
p 100 85 48 58
p 17 32 48 58
p 51 66 48 58
p 68 83 48 58
p 34 49 48 58
p 8 24 60 70
p 26 42 60 70
p 44 58 60 70
p 60 75 60 70
p 77 92 60 70
p 0 6 60 70
p 94 100 60 70
p 0 15 72 82
p 85 100 72 82
p 17 32 72 82
p 51 66 72 82
p 68 83 72 82
p 34 49 72 82
p 8 24 84 94
p 26 42 84 94
p 44 58 84 94
p 60 75 84 94
p 77 92 84 94
p 0 6 84 94
p 94 100 84 94
p 0 15 96 100
p 100 85 96 100
p 17 32 96 100
p 51 66 96 100
p 68 83 96 100
p 34 49 96 100