From 685feff9417fb9f7c65b5ed8477a75da057357a0 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Sun, 19 Feb 2017 21:18:04 -0700
Subject: [PATCH] =?UTF-8?q?Praise=20Capitalism=C2=AE=20and=20The=20Lord.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 WOPO.COB | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index 72bf050..879c2fa 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -455,14 +455,21 @@
 
        HANDLE-HELP.
            PERFORM BEGIN-STANDARD-REPLY.
-           STRING "COMMANDS$COLN$ "
-      -           "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
-      -           "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
-      -           "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
-      -           "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
-      -           "$NUL$"
-                  INTO MSG-BODY
-                  WITH POINTER WORK-PTR.
+           IF PARAM(2) IS EQUAL TO "ME" THEN
+               STRING "$240$$159$$142$$135$ "
+      -                "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
+      -                "$240$$159$$142$$134"
+                       INTO MSG-BODY
+                       WITH POINTER WORK-PTR
+           ELSE
+               STRING "COMMANDS$COLN$ "
+      -               "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
+      -               "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
+      -               "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
+      -               "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
+      -               "$NUL$"
+                      INTO MSG-BODY
+                      WITH POINTER WORK-PTR.
            PERFORM SEND-LINE.
 
        HANDLE-SHITFED.