PROGRAM-ID. LoveTriangle.
01 priest PIC X(20) VALUE "住職".
01 woman PIC X(20) VALUE "女性".
01 spouse PIC X(20) VALUE "配偶者".
01 detective PIC X(20) VALUE "探偵".
DISPLAY "住職は女性に好意を寄せます.".
IF woman = "女性" AND spouse = "配偶者" THEN
DISPLAY "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。".
MOVE "住職は女性に好かれるために、探偵に女性宅の空き巣を依頼します。" TO detective.
IF woman = "女性" AND detective = "探偵" THEN
DISPLAY "女性は住職の事を好きになります。".
MOVE "女性は住職の事を好きになります。" TO priest.