IDENTIFICATION DIVISION.
PROGRAM-ID. POETRY.
*
***********************************************************************
* THIS IS WHAT HAPPENS WHEN I READ ABOUT PEOPLE WRITING POEMS IN PERL *
* AND THE ARTICLE SUGGESTS NO ONE WOULD EVER WRITE ONE IN COBOL *
* CHALLENGE ACCEPTED! *
***********************************************************************
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
*
01 WONDER-IF-YOU-LOVE-ME PIC X(1).
88 YOU-LOVE-ME VALUE 'Y'.
88 YOU-LOVE-ME-NOT VALUE 'N'.
*
01 MY-BEST-SIDE PIC X(40)
VALUE 'ALL NEUROSES HIDDEN SO YOU WILL LOVE ME.'.
*
PROCEDURE DIVISION.
*
HOW-TO-MAKE-YOU-LOVE-ME.
*
IF YOU-LOVE-ME
CONTINUE
ELSE
PERFORM TO-WIN-YOUR-LOVE
END-IF
*
GOBACK.
*
TO-WIN-YOUR-LOVE.
*
PERFORM UNTIL YOU-LOVE-ME
DISPLAY MY-BEST-SIDE
END-PERFORM
*
EXIT.
*
