From ca9e294cb5e26fd74300deff4625c578db60ece2 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Mon, 28 Sep 2015 14:11:42 -0600
Subject: [PATCH] Add useless $SHITFED command.

---
 WOPO.COB | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/WOPO.COB b/WOPO.COB
index 10f425f..8e64453 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -255,6 +255,8 @@
                    PERFORM HANDLE-HELP
                ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
                    PERFORM HANDLE-SOURCE
+               ELSE IF PARAM(1) IS EQUAL TO "SHITFED" THEN
+                   PERFORM HANDLE-SHITFED
                ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
                    PERFORM HANDLE-LEVEL
                ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
@@ -268,7 +270,15 @@
 
        HANDLE-HELP.
            PERFORM BEGIN-REPLY.
-           STRING "$HELP $LEVEL $JOIN $PART $QUIT $RELEVEL $SOURCE "
+           STRING "$HELP $LEVEL $JOIN $PART $QUIT $RELEVEL $SHITFED "
+      -           "$SOURCE"
+                  INTO MSG-BODY
+                  WITH POINTER MSG-LENGTH.
+           PERFORM SEND-LINE.
+
+       HANDLE-SHITFED.
+           PERFORM BEGIN-REPLY.
+           STRING "LEAVE MY CASE ALONE, ASSHOLE."
                   INTO MSG-BODY
                   WITH POINTER MSG-LENGTH.
            PERFORM SEND-LINE.