From c0313d8f42f0fab8224f3e7b3edcf9eac411b295 Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Wed, 22 Mar 2017 22:39:37 -0600 Subject: [PATCH] Add null-terminated code support to BF-RUN.COB --- BF-RUN.COB | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/BF-RUN.COB b/BF-RUN.COB index 5fac386..c4f407c 100644 --- a/BF-RUN.COB +++ b/BF-RUN.COB @@ -88,7 +88,8 @@ UNSTRING BF-CODE DELIMITED BY "$" INTO COBOL-STRING WITH POINTER IP - IF COBOL-STRING IS EQUAL TO SPACES THEN + IF COBOL-STRING IS EQUAL TO SPACES OR + COBOL-STRING IS EQUAL TO "NUL" THEN MOVE "$" TO CURRENT-INSTRUCTION ELSE IF LSQB THEN MOVE "(" TO CURRENT-INSTRUCTION