Поздравляем с 8 Марта!
Милые, дорогие, любимые, единственные, часто неоцененные нами по достоинству, иногда несправедливо обижаемые, но всегда обожаемые и, несомненно, глубоко уважаемые, несмотря на ваши постоянные придирки и мелочные упреки, мы, тем не менее, в полной мере осознаем вашу полезность и незаменимость в деле продолжения и процветания человеческого рода и себя, любимых, конкретно.
Поздравляем вас, обожаем вас, желаем вам светлого-светлого, прекрасного-чудесного, нужного-хорошего, в общем, самого лучшего в мире всего и очень много!
DEFINE VARIABLE Eight_March AS DATE NO-UNDO. DEFINE TEMP-TABLE Our_Women FIELD xx AS CHAR. DEFINE TEMP-TABLE Resort FIELD xx AS CHAR. DEFINE TEMP-TABLE Your_Work FIELD xx AS CHAR. DEFINE TEMP-TABLE the_Beauty_Place FIELD xx AS CHAR. DEFINE TEMP-TABLE Another_Face FIELD xx AS CHAR. DEFINE VARIABLE All_That AS CHARACTER NO-UNDO. DEFINE VARIABLE You_Want AS CHARACTER NO-UNDO. DEFINE VARIABLE the_Sky AS CHARACTER NO-UNDO. DEFINE VARIABLE Midnight AS HANDLE NO-UNDO. DEFINE VARIABLE Black_Unix_Screen AS CHARACTER NO-UNDO. DEFINE VARIABLE ALL_Your_Sorrow AS CHARACTER NO-UNDO. DEFINE VARIABLE Your_Login AS CHARACTER NO-UNDO FORM "x(40)" LABEL "С 8-м Марта, Милые Женщины! )". OPEN QUERY Free FOR EACH Our_Women. FORM the_Sky ALL_Your_Sorrow WITH FRAME xx. FORM Your_Login WITH FRAME f SIDE-LABELS. DEFINE VARIABLE Again AS DATE NO-UNDO. DEFINE VARIABLE We AS LOGICAL NO-UNDO. DEFINE VARIABLE Should AS LOGICAL NO-UNDO. DEFINE VARIABLE Say AS LOGICAL NO-UNDO. DEFINE VARIABLE Your AS LOGICAL NO-UNDO. DEFINE VARIABLE Cares AS LOGICAL NO-UNDO. DEFINE VARIABLE The_Dream_Is AS LOGICAL NO-UNDO. Eight_March EQ Again. TODAY. /*Сегодня снова 8 марта */ FOR EACH Our_Women: We. Should. Say. /*И каждой женщине нам надо сказать: */ DELETE Your_Work. FIND FIRST Resort /*Выкинь всю свою работу и найди для начала курорт, */ WHERE /* You */ CAN-DO(All_That,You_Want) /*где ты можешь делать все что захочешь. */ NO-ERROR. FIND the_Beauty_Place /*Но не ошибись! Найди такое чудесное место */ WHERE NOT CAN-FIND(Another_Face). /*где не будет никого (это мягко сказано ) */ HIDE All_Your_Sorrow. GET FIRST Free. /*Забудь про все свои печали, и стань, наконец, свободной, */ RUN TO_THE_WARM_AND_TENDER_SEA. /*быстрее беги к теплому ласковому морю. */ CLEAR ALL. Your. Cares. VIEW the_Sky. /*Выкинь из головы все свои заботы и посмотри на это прекрасное небо */ WAIT-FOR /* an */ ENTRY OF Midnight. /*Дождись наступления ночи, */ the_Sky EQ Black_Unix_Screen. /*И когда небо станет таким же темным как экран юникса */ The_Dream_Is. END. /* Ты поймешь, что сон закончился */ SET Your_Login. /* и пора работать " */ /*Copyright: (C) 2005 Serguey Klimoff (bulkl0DD)*/ |
 |
С превеликим уважением,
Ваши мужчины из
Russian Progress User Group!
