From c73e9af127be03168da90231b54f00a815e9fd47 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 23:29:05 -0600
Subject: [PATCH] Null-terminate default BF-CODE.

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

diff --git a/WOPO.COB b/WOPO.COB
index 24f191e..43f3ad0 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -117,7 +117,7 @@
                VALUE "$NUL$".
            03 BF-CODE PIC X(999)
                VALUE "++++++++++(>++++++(>++++<-)<-)>>.<<+++++(>++++(>--
-      -              "--<-)<-)>>-.<+++(>---<-)>.-.$$".
+      -              "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
            03 BF-OUTPUT PIC X(999)
                VALUE SPACES.
            03 CYCLE-LIMIT PIC 9(5)