Elka 2012

(очищаем экран)
+++++++++++++[>++>+++++++>++++>++++++<<<<-]>+.>.>--.>----.[-]<[-]<<
(устанавливаем зеленый цвет вывода символов)
.>.>++++++++++[>+++++>+++++++++++<<-]>+.-.>-.[-]<[-]<
(заполняем словарь символов для вывода елочки. Выводить будем в обратном порядке. Так немного меньше код программы)
(\space/)
+++++++++++++++[>++++++>++>+++<<<-]>++>++>++>
(locate x;y)
>++++++++[<+++++++++>-]>>>+++++++[>++++++++>++++>+++++++++++++<<<-]>+[<+<+<+<+>>>>-]<<<------>++>-------->>->[<<+>>-]
(выводим елочку)
<.<.<.<.<.<.<.>>>>>>>++++++++[>++++++++++++<-]>--.[-]<
<.<.<+.<.<.<-.<.<.<.<.[>]<.<.<+.<.<.<-.<.<.<...<.[>]<.<.<+.<.<.<-.<.<.<.....<.[>]
<.<.<+.<.<.<-.<.<....<.<....[>]<.<.<+.<.<.<++.<.<.<...<.[>]<.<.<+.<.<.<-.<.<.<.....<.[>]
<.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<+.<.<.<-.<.<.<.........<.>>>>>>>[-]>>>
<[>+<-]<[>+<-]>>>++++++++[<<<++++++<++++++>>>>-]<.<.<+.<.<.<.<-.<.<.....<...<.....[>]
<.<.<.<+.<.<.<+++.<.<.<.....<.[>]<.<.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<.<+.<.<.<-.<.<.<.........<.[>]
<.<.<.<+.<.<.<-.<.<.<...........<.[>]<.<.<.<+.<.<.<-.<.<......<...<......[>]<.<.<.<+.<.<.<++++.<.<.<.....<.[>]
<.<.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<.<+.<.<.<-.<.<.<.........<.[>]<.<.<.<+.<.<.<-.<.<.<...........<.[>]
<.<.<+.<---------.<.<.<-.<.<.<.............<.[>]<.<.<.<+.<.<.<-.<.<.<...............<.[>]
<.<.<.<+.<.<.<-.<.<.........<+++.<.........[>]<.<.<.<+.<.<.<+++++++++.<.<<.[>]<.<.<.<+.<.<.<.<.<<.[>]

(Выводим переливающуюся гирлянду)
(c=1)
+>
(вечный цикл)
+[
(temp=c)
>>>[-]<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-]<
(d=temp)
<<[-]>>[<<+>>-]
(temp=c)
<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-]
(if temp<>7)
+++++++[<->-]<<[-]+>
(then c=c плюс 1)
[<<<<+>>>[-]>[-]]<
(else c=1)
[<<<[-]+>>>[-]>[-]<]>>

(locate 20;33)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>.--.+++++++++++.--------..>++.[-]<[-]<[-]<[-]<
>>>>>>[-]++++[<<<<<<
(color d)
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
(d=temp=color)
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
(if temp<>7)
+++++++[<->-]<<[-]+>
(then d=d плюс 1)
[<<+>[-]>[-]]<
(else d=1)
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
(print *)
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<

(locate 19;37)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.++++++++.++.--------.++++.>++.[-]<[-]<[-]<[-]<
>>>>>>[-]++++[<<<<<<++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>[<<+>[-]>[-]]<[<[-]+>[-]>[-]<]>>>>>.>-.[-]<[-]<[-]<[-]<++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 18;41)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.+++++++.+++.-------.---.>++.[-]<[-]<[-]<[-]<
>>>>>>[-]+++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 13;35)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.++.++++++++.--------.++.>++.[-]<[-]<[-]<[-]<
>>>>>>[-]++++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 12;39)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.+.+++++++++.--------.++++++.>++.[-]<[-]<[-]<[-]<
>>>>>>[-]++++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 8;36)
++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>++.+++.--------.+++.>.[-]<[-]<[-]<[-]<
>>>>>>[-]+++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 7;39)
++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>+.++++.--------.++++++.>.[-]<[-]<[-]<[-]<
>>>>>>[-]+++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 4;37)
++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>--.+++++++.--------.++++.>.[-]<[-]<[-]<[-]<
>>>>>>[-]++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 3;39)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>+.++++++++.--------.++++++.>++.[-]<[-]<[-]<[-]<
>>>>>>[-]++[<<<<<<
++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
+++++++[<->-]<<[-]+>
[<<+>[-]>[-]]<
[<[-]+>[-]>[-]<]>>
>>>.>-.[-]<[-]<[-]<[-]<
++++++[>+++++++<-]>.[-]<
>>>>>>-]<<<<<<
(locate 24;1)
++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>++.>+.>.++.+++++++.----------.>++.[-]<[-]<[-]<[-]

(задержка перед новым циклом)
[-]+++[
>[-]-[
>[-]-[-]
<-]
<-]

<<<<]