\ Поздравлялка от фортеров Андрею Черезову
\ Version 1.02 (23.06.2006)
\ ( в SFX-архив размером 3 байта упаковать не удалось, сорри )
\  for spf4  Version 4.00 Build 017 at 26.Jan.2006

: CLS 25 0 DO ." " CR LOOP ;

\ *****************************************
: "   HERE  [COMPILE] S"  S", COUNT ;
: {  :NONAME ;
: };   [COMPILE] ;  -ROT CREATED ,  DOES> @ EXECUTE ; IMMEDIATE
: beep   7 EMIT ;


" greeting1"
{
  ." С Днём Рождения, Андрей!" CR
  ." Огромная благодарность тебе за развитие русского Форт-сообщества!" CR CR
  beep
};

" greeting2"
{
  ." Позволю себе процитировать Мура:" CR CR

  ."    Мне кажется, что программисты любят писать интерпретаторы." CR
  ."    Они обожают делать эти сложные, трудоемкие вещи." CR
  ."    Но в конце концов наступает время, когда приходится заканчивать" CR
  ."    с программированием нажатий на клавиши или преобразованием чисел" CR
  ."    в двоичный вид и приступать к решению проблем." CR CR
};

" greeting3"
{
  ." Заслуга SP-Forth в том, что он позоволил наконец" CR
  ."  фортерам прямо <<приступать к решению проблем>> :-)" CR CR
  ." Пусть жизнь твоя будет долгой и творческой! //Пётр Советов" CR
  beep
};

greeting1 greeting2 greeting3

\ *****************************************
.( press any key ) KEY CLS
\ *****************************************

CR CR
.( ПРАЗДРАВЛЯЮ!!!) CR
.(     Крылев aka WingLion aka Ivan Mak)
CR CR CR CR
.( ... только не пробел, только не пробел... )

\ *****************************************
KEY CLS
\ *****************************************

.( Поздравление.) CR
.( Итак, уже больше трети века на свете живет некто, известный разным людям по-разному. )
.( Семья, друзья и знакомые этот факт явно отметят. Но сейчас речь идет о тех, кто знает )
.( "провинившегося" как ~ac. Ну или как Andrey Cherezov, что в принципе одно и то же. )
.( С чего вдруг знают? Да с того, что как более трети века есть ~ac, так более 15 лет есть spf! )
.( А что ни говори, это уже классика, и уж точно знаковое событие в мире RuFIG. Посмотрите)
.( хотя бы список тех, кто явно заявил об его использовании. Уверяем, это далеко не все. )
CR CR
.( Поэтому - ПОЗДРАВЛЯЕМ!)
CR CR
.( Что может пожелать фортер фортеру? Успехов, здоровья, счастья? Не будем узурпировать )
.( право близких людей. Хотя и свою толику обязательно внесем. То есть это все мы, конечно,)
.( желаем. А вот как фортеры фортеру пожелаем... нет, не написать новый транслятор - это для )
.( профессионала его уровня примерно как подарить погремушку или плюшевого медвежонка. )
.( И не написать новую программу - эффект аналогичный. А пожелаем мы, чтобы точно так  )
.( же, как громадная работа, проведенная с Фортом, помогла собрать множество людей, )
.( уважающих Андрея как профессионала и приятного собеседника, другие его шаги, слова и )
.( поступки точно так же собирали вокруг единомышленников, друзей, знакомых и просто хороших )
.( людей - ибо подобное тянется к подобному. )
CR CR
.( true-grue) CR
.( Winglion) CR
.( Xищник) CR
.( fforum.winglion.ru) KEY BYE
\ *****************************************
\ ...это конец...

\ 23.06.06  Дополнительные пожелания АС от in4 и всех, кому ты помогал
CR CR CR
.( Поздравляем тебя, Андрей!) CR

.( Мы присоединяемся ко всем предыдущим поздравлениям!!) CR CR

.( И еще раз хочется отметить особое внимание и заботу,) CR SPACE
.( которую ты проявлял ко всем, кто к тебе обращался!) CR CR
.( Пусть у тебя всегда будет такое же хорошее настроение,) CR SPACE
.( как у тех, кто получил удовольствие от общения с тобой!) CR CR
.( Желаем тебе дальнейших успехов - творческих и всех других!!) CR
CR CR
.( in4 & все, кому ты помогал) CR
KEY BYE

: Жизнь
  BEGIN
    Форт
    Здоровье
    Счастье
    Оптимизм
  AGAIN
;