Advertisement
AbnormalHead

Elka 2012

Dec 26th, 2011
2,536
1
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (очищаем экран)
  2. +++++++++++++[>++>+++++++>++++>++++++<<<<-]>+.>.>--.>----.[-]<[-]<<
  3. (устанавливаем зеленый цвет вывода символов)
  4. .>.>++++++++++[>+++++>+++++++++++<<-]>+.-.>-.[-]<[-]<
  5. (заполняем словарь символов для вывода елочки. Выводить будем в обратном порядке. Так немного меньше код программы)
  6. (\space/)
  7. +++++++++++++++[>++++++>++>+++<<<-]>++>++>++>
  8. (locate x;y)
  9. >++++++++[<+++++++++>-]>>>+++++++[>++++++++>++++>+++++++++++++<<<-]>+[<+<+<+<+>>>>-]<<<------>++>-------->>->[<<+>>-]
  10. (выводим елочку)
  11. <.<.<.<.<.<.<.>>>>>>>++++++++[>++++++++++++<-]>--.[-]<
  12. <.<.<+.<.<.<-.<.<.<.<.[>]<.<.<+.<.<.<-.<.<.<...<.[>]<.<.<+.<.<.<-.<.<.<.....<.[>]
  13. <.<.<+.<.<.<-.<.<....<.<....[>]<.<.<+.<.<.<++.<.<.<...<.[>]<.<.<+.<.<.<-.<.<.<.....<.[>]
  14. <.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<+.<.<.<-.<.<.<.........<.>>>>>>>[-]>>>
  15. <[>+<-]<[>+<-]>>>++++++++[<<<++++++<++++++>>>>-]<.<.<+.<.<.<.<-.<.<.....<...<.....[>]
  16. <.<.<.<+.<.<.<+++.<.<.<.....<.[>]<.<.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<.<+.<.<.<-.<.<.<.........<.[>]
  17. <.<.<.<+.<.<.<-.<.<.<...........<.[>]<.<.<.<+.<.<.<-.<.<......<...<......[>]<.<.<.<+.<.<.<++++.<.<.<.....<.[>]
  18. <.<.<.<+.<.<.<-.<.<.<.......<.[>]<.<.<.<+.<.<.<-.<.<.<.........<.[>]<.<.<.<+.<.<.<-.<.<.<...........<.[>]
  19. <.<.<+.<---------.<.<.<-.<.<.<.............<.[>]<.<.<.<+.<.<.<-.<.<.<...............<.[>]
  20. <.<.<.<+.<.<.<-.<.<.........<+++.<.........[>]<.<.<.<+.<.<.<+++++++++.<.<<.[>]<.<.<.<+.<.<.<.<.<<.[>]
  21.  
  22. (Выводим переливающуюся гирлянду)
  23. (c=1)
  24. +>
  25. (вечный цикл)
  26. +[
  27. (temp=c)
  28. >>>[-]<<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-]<
  29. (d=temp)
  30. <<[-]>>[<<+>>-]
  31. (temp=c)
  32. <<<<[>>>>+>+<<<<<-]>>>>>[<<<<<+>>>>>-]
  33. (if temp<>7)
  34. +++++++[<->-]<<[-]+>
  35. (then c=c плюс 1)
  36. [<<<<+>>>[-]>[-]]<
  37. (else c=1)
  38. [<<<[-]+>>>[-]>[-]<]>>
  39.  
  40. (locate 20;33)
  41. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>.--.+++++++++++.--------..>++.[-]<[-]<[-]<[-]<
  42. >>>>>>[-]++++[<<<<<<
  43. (color d)
  44. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  45. (d=temp=color)
  46. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  47. (if temp<>7)
  48. +++++++[<->-]<<[-]+>
  49. (then d=d плюс 1)
  50. [<<+>[-]>[-]]<
  51. (else d=1)
  52. [<[-]+>[-]>[-]<]>>
  53. >>>.>-.[-]<[-]<[-]<[-]<
  54. (print *)
  55. ++++++[>+++++++<-]>.[-]<
  56. >>>>>>-]<<<<<<
  57.  
  58. (locate 19;37)
  59. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.++++++++.++.--------.++++.>++.[-]<[-]<[-]<[-]<
  60. >>>>>>[-]++++[<<<<<<++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---<<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  61. +++++++[<->-]<<[-]+>[<<+>[-]>[-]]<[<[-]+>[-]>[-]<]>>>>>.>-.[-]<[-]<[-]<[-]<++++++[>+++++++<-]>.[-]<
  62. >>>>>>-]<<<<<<
  63. (locate 18;41)
  64. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.+++++++.+++.-------.---.>++.[-]<[-]<[-]<[-]<
  65. >>>>>>[-]+++[<<<<<<
  66. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  67. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  68. +++++++[<->-]<<[-]+>
  69. [<<+>[-]>[-]]<
  70. [<[-]+>[-]>[-]<]>>
  71. >>>.>-.[-]<[-]<[-]<[-]<
  72. ++++++[>+++++++<-]>.[-]<
  73. >>>>>>-]<<<<<<
  74. (locate 13;35)
  75. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.++.++++++++.--------.++.>++.[-]<[-]<[-]<[-]<
  76. >>>>>>[-]++++[<<<<<<
  77. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  78. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  79. +++++++[<->-]<<[-]+>
  80. [<<+>[-]>[-]]<
  81. [<[-]+>[-]>[-]<]>>
  82. >>>.>-.[-]<[-]<[-]<[-]<
  83. ++++++[>+++++++<-]>.[-]<
  84. >>>>>>-]<<<<<<
  85. (locate 12;39)
  86. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>-.+.+++++++++.--------.++++++.>++.[-]<[-]<[-]<[-]<
  87. >>>>>>[-]++++[<<<<<<
  88. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  89. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  90. +++++++[<->-]<<[-]+>
  91. [<<+>[-]>[-]]<
  92. [<[-]+>[-]>[-]<]>>
  93. >>>.>-.[-]<[-]<[-]<[-]<
  94. ++++++[>+++++++<-]>.[-]<
  95. >>>>>>-]<<<<<<
  96. (locate 8;36)
  97. ++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>++.+++.--------.+++.>.[-]<[-]<[-]<[-]<
  98. >>>>>>[-]+++[<<<<<<
  99. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  100. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  101. +++++++[<->-]<<[-]+>
  102. [<<+>[-]>[-]]<
  103. [<[-]+>[-]>[-]<]>>
  104. >>>.>-.[-]<[-]<[-]<[-]<
  105. ++++++[>+++++++<-]>.[-]<
  106. >>>>>>-]<<<<<<
  107. (locate 7;39)
  108. ++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>+.++++.--------.++++++.>.[-]<[-]<[-]<[-]<
  109. >>>>>>[-]+++[<<<<<<
  110. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  111. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  112. +++++++[<->-]<<[-]+>
  113. [<<+>[-]>[-]]<
  114. [<[-]+>[-]>[-]<]>>
  115. >>>.>-.[-]<[-]<[-]<[-]<
  116. ++++++[>+++++++<-]>.[-]<
  117. >>>>>>-]<<<<<<
  118. (locate 4;37)
  119. ++++++++++++++++++[>++>+++++>+++>++++<<<<-]>---------.>+.>--.+++++++.--------.++++.>.[-]<[-]<[-]<[-]<
  120. >>>>>>[-]++[<<<<<<
  121. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  122. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  123. +++++++[<->-]<<[-]+>
  124. [<<+>[-]>[-]]<
  125. [<[-]+>[-]>[-]<]>>
  126. >>>.>-.[-]<[-]<[-]<[-]<
  127. ++++++[>+++++++<-]>.[-]<
  128. >>>>>>-]<<<<<<
  129. (locate 3;39)
  130. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>---.>+.>+.++++++++.--------.++++++.>++.[-]<[-]<[-]<[-]<
  131. >>>>>>[-]++[<<<<<<
  132. ++++++++++[>+++>+++++++++>+++++>+++++++++++<<<<-]>---.>+.>+.---
  133. <<<<[-]<<[>>+>+>>>+<<<<<<-]>>>[<<<+>>>-]
  134. +++++++[<->-]<<[-]+>
  135. [<<+>[-]>[-]]<
  136. [<[-]+>[-]>[-]<]>>
  137. >>>.>-.[-]<[-]<[-]<[-]<
  138. ++++++[>+++++++<-]>.[-]<
  139. >>>>>>-]<<<<<<
  140. (locate 24;1)
  141. ++++++++++[>+++>+++++++++>+++++>+++++++<<<<-]>++.>+.>.++.+++++++.----------.>++.[-]<[-]<[-]<[-]
  142.  
  143. (задержка перед новым циклом)
  144. [-]+++[
  145. >[-]-[
  146. >[-]-[-]
  147. <-]
  148. <-]
  149.  
  150. <<<<]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement