From fe93be421e727305c5dcdaa810a15feab7cde5d1 Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Mon, 28 Sep 2015 15:51:29 -0600
Subject: [PATCH] Remove duplicate ASCII-NUM0 in DECODE-ASCII. Oops.

---
 DECASCII.COB | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/DECASCII.COB b/DECASCII.COB
index 8f4b81d..f402ed9 100644
--- a/DECASCII.COB
+++ b/DECASCII.COB
@@ -40,7 +40,7 @@
                88 ASCII-US  VALUE 31.
       *        PRINTABLE CHARACTERS.
                88 ASCII-SPC  VALUE 32.
-               88 ASCII-EXC  VALUE 33.
+
                88 ASCII-DBQT VALUE 34.
                88 ASCII-PND  VALUE 35.
                88 ASCII-DLR  VALUE 36.
@@ -231,8 +231,6 @@
            MOVE "8" TO COBOL-STRING
        ELSE IF ASCII-NUM9 THEN
            MOVE "9" TO COBOL-STRING
-       ELSE IF ASCII-NUM0 THEN
-           MOVE "0" TO COBOL-STRING
        ELSE IF ASCII-COLN THEN
            MOVE "<COLN>" TO COBOL-STRING
        ELSE IF ASCII-SCLN THEN