From b92b34d3601243a3a5886404b00563fad126f7f2 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Thu, 1 Oct 2015 13:07:58 -0600
Subject: [PATCH] Fix "$JOIN 0" behavior.

---
 WOPO.COB | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/WOPO.COB b/WOPO.COB
index 7a35d9c..1c3ea0b 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -381,7 +381,8 @@
            MOVE COMMAND TO REG(3).
            MOVE TARGET TO REG(4).
            PERFORM VALIDATE-USER.
-           IF USER-LEVEL IS GREATER THAN 80 THEN
+           IF USER-LEVEL IS GREATER THAN 80 AND
+              REG(1) IS NOT EQUAL TO "0" THEN
                MOVE SPACES TO MSG-BODY
                MOVE 1 TO MSG-LENGTH
                STRING "JOIN ", REG(1)