From 043c8e4883b0ec4ad78e0196f50d44070d6a08b9 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Tue, 13 Oct 2015 13:52:47 -0600
Subject: [PATCH] Fix an ancient off-by-one on user levels.

---
 WOPO.COB | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index 8e61da2..da3f22b 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -467,7 +467,7 @@
  
        HANDLE-JOIN.
            PERFORM VALIDATE-USER.
-           IF USER-LEVEL IS GREATER THAN 80 AND
+           IF USER-LEVEL IS NOT LESS THAN 80 AND
               PARAM(2) IS NOT EQUAL TO "0" THEN
                MOVE SPACES TO MSG-BODY
                STRING "JOIN ", DELIMITED BY SIZE,
@@ -483,7 +483,7 @@
            ELSE
                MOVE PARAM(2) TO WORK
            PERFORM VALIDATE-USER.
-           IF USER-LEVEL IS GREATER THAN 80 THEN
+           IF USER-LEVEL IS NOT LESS THAN 80 THEN
                PERFORM REPLY-ACK
                MOVE SPACES TO MSG-BODY
                STRING "PART " DELIMITED BY SIZE,
@@ -506,7 +506,7 @@
            IF WOPO-PARAMS IS LESS THAN 2 THEN
                MOVE NICK TO PARAM(2)
                MOVE 2 TO WOPO-PARAMS.
-           IF USER-LEVEL IS GREATER THAN 70 THEN
+           IF USER-LEVEL IS NOT LESS THAN 70 THEN
                PERFORM REPLY-ACK
                MOVE SPACES TO MSG-BODY
                MOVE 1 TO WORK-PTR
@@ -534,7 +534,7 @@
            IF WOPO-PARAMS IS LESS THAN 2 THEN
                MOVE NICK TO PARAM(2)
                MOVE 2 TO WOPO-PARAMS.
-           IF USER-LEVEL IS GREATER THAN 70 THEN
+           IF USER-LEVEL IS NOT LESS THAN 70 THEN
                PERFORM REPLY-ACK
                MOVE SPACES TO MSG-BODY
                MOVE 1 TO WORK-PTR
@@ -562,7 +562,7 @@
            READ CONFIG RECORD
                INVALID KEY MOVE SPACES TO CONFIG-VALUE.
            PERFORM VALIDATE-USER.
-           IF USER-LEVEL IS GREATER THAN 90 THEN
+           IF USER-LEVEL IS NOT LESS THAN 90 THEN
                PERFORM REPLY-ACK
                MOVE SPACES TO MSG-BODY
                STRING "QUIT $COLN$" DELIMITED BY SIZE,
@@ -574,7 +574,7 @@
        HANDLE-RELEVEL.
            PERFORM VALIDATE-USER.
            MOVE PARAM(2) TO USER-NAME.
-           IF USER-LEVEL IS EQUAL TO 99 THEN
+           IF USER-LEVEL IS NOT LESS THAN 99 THEN
                MOVE PARAM(3) TO USER-LEVEL
                REWRITE USER-RECORD
                    INVALID KEY WRITE USER-RECORD.