IDENTIFICATION DIVISION.
PROGRAM-ID. Ah-hahaha.
SOURCE-COMPUTER. RMCOBOL.
OBJECT-COMPUTER. RMCOBOL.
AUTHOR. Ivan.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Mode PIC X.
88 Verbose VALUE "V".
88 Terse VALUE "T".
88 Exit VALUE "X".
01 VString.
03 VString1 PIC X(26) VALUE "Ha-ha! Back in the day, I ".
03 VString2 PIC X(26) VALUE "developed a comprehensive ".
03 VString3 PIC X(28) VALUE "Order Processing, A/R, G/L, ".
03 VString4 PIC X(25) VALUE "Inventory Management and ".
03 VString5 PIC X(25) VALUE "what-have-you sytem, all ".
03 VString6 PIC X(12) VALUE "in RM/COBOL!"
PROCEDURE DIVISION.
BuildPost.
DISPLAY "Enter T for Terse, V for Verbose, X to Exit."
ACCEPT Mode
PERFORM UNTIL Exit
EVALUATE TRUE
WHEN Terse DISPLAY "Ah-hahaha! RM/COBOL. Dude!"
WHEN Verbose DISPLAY VString
WHEN OTHER DISPLAY "We need a new trial."
END-EVALUATE
END-PERFORM.
STOP RUN.