From ae099b0dae6b0870bd3885ef79182b5615ecc90d Mon Sep 17 00:00:00 2001
From: "Quinn \"heddwch\" Evans" <yoshizuki@gmail.com>
Date: Fri, 14 Sep 2018 13:22:57 -0600
Subject: [PATCH] Actually implement STANDARD-INPUT

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

diff --git a/WOPO.COB b/WOPO.COB
index ad6a4ba..91481a6 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -598,6 +598,8 @@
            UNSTRING R(2) DELIMITED BY "/" OR SPACES INTO R(1).
       D    DISPLAY "INPUT-SOURCE. ", INPUT-SOURCE,
       D            " OUTPUT-DEST. ", OUTPUT-DEST.
+           IF STANDARD-INPUT THEN
+               MOVE 8 TO INPUT-SOURCE.
            MOVE INPUT-SOURCE TO SRC.
            IF R(1) IS EQUAL TO "BF-CODE" THEN
                PERFORM HANDLE-BF-CODE