From d603b8151e6e405e657272c9fbb292522cf05550 Mon Sep 17 00:00:00 2001
From: "Quinn \"heddwch\" Evans" <yoshizuki@gmail.com>
Date: Tue, 11 Sep 2018 16:50:47 -0600
Subject: [PATCH] Use defined condition name.

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

diff --git a/WOPO.COB b/WOPO.COB
index e335de4..16ed787 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -1281,7 +1281,7 @@
 
        DO-NEXT-INSTRUCTION.
            READ PROGRAM-CODE RECORD.
-           IF IN-REG IS NOT EQUAL TO 9 THEN
+           IF NOT INPUT-FROM-RECORD THEN
                MOVE IN-REG TO INPUT-SOURCE
            ELSE
                IF NEXT-IP OF PROGRAM-RECORD IS NOT LESS THAN 999 THEN