Стихотворение на Progress 4GL
Copyright: (C) 2005 Serguey Klimoff (bulkl0DD)
Filename: POEM.P
Comment: Запускается под PROGRESS v.v.9-10
Parameters:
Uses:
Used by:
Created: 07.03.2005 16:34 ksv
Modified: 07.03.2005 16:37 ksv
Modified:
*/
/* Commented by KSV: Инициализация стихотворения */
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.
/* Commented by KSV: Стихотворение на PROGRESS 4GL. */
/* Commented by KSV: Женщинам-разработчикам на PROGRESS 4GL посвящается... */
/* Commented by KSV: Мечта
*/
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. /* и пора работать
" */