From 4b5593274008787c47609f5d5364ddede9b20b09 Mon Sep 17 00:00:00 2001
From: "Quinn \"heddwch\" Evans" <yoshizuki@gmail.com>
Date: Mon, 10 Sep 2018 14:48:29 -0600
Subject: [PATCH] Comment and clarify $CAT source.

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

diff --git a/WOPO.COB b/WOPO.COB
index 29ab1b3..4556233 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -1130,11 +1130,13 @@
            PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.
 
+      *    GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
+      *    REGISTER'S CONTENTS INTO R(2)
        STRING-CAT-PARAMS.
            MOVE INPUT-SOURCE TO SRC.
            PERFORM GET-PARAM.
-           IF R-INDEX(1) IS NUMERIC THEN
-               MOVE R-INDEX(1) TO SRC
+           IF R-INDEX(DEST) IS NUMERIC THEN
+               MOVE R-INDEX(DEST) TO SRC
                IF SRC IS LESS THAN 1 OR
                   SRC IS GREATER THAN 8 THEN
                    MOVE 99 TO STATE