IDENTIFICATION DIVISION.
PROGRAM-ID. LoveTriangle.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 priest PIC X(20) VALUE "住職".
01 woman PIC X(20) VALUE "女性".
01 spouse PIC X(20) VALUE "配偶者".
01 detective PIC X(20) VALUE "探偵".
PROCEDURE DIVISION.
DISPLAY "住職がいます.".
DISPLAY "住職は女性に好意を寄せます.".
DISPLAY "女性には配偶者がいます.".
IF woman = "女性" AND spouse = "配偶者" THEN
DISPLAY "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。".
MOVE "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。" TO detective.
END-IF.
IF woman = "女性" AND detective = "探偵" THEN
DISPLAY "女性は住職の事を好きになります。".
MOVE "女性は住職の事を好きになります。" TO priest.
END-IF.
STOP RUN.
サマリー
タイタニック号の潜水艦ツアーやタイトルの誤解について話し、別れさせ屋に依頼されたミステリアスな事件、そして女性に送られたブランドバッグが盗まれた過程について推理します。家庭内のギスギスからの脱出を図るため、住職が奥さんに別れさせ屋を依頼し、妻のバッグを盗む計画を立てますが、結果的に住職の考えに従った行動をする妻に対して疑問が生じます。