From d50717767c3c18ff9a1135e520f26708c5ddbe0e Mon Sep 17 00:00:00 2001 From: Quinn Evans Date: Thu, 1 Oct 2015 00:35:11 -0600 Subject: [PATCH] Replaced tabs with spaces in BF-RUN.COB --- BF-RUN.COB | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/BF-RUN.COB b/BF-RUN.COB index 2e67f06..9240b1e 100644 --- a/BF-RUN.COB +++ b/BF-RUN.COB @@ -26,7 +26,7 @@ 88 BF-IN VALUE ",". 88 BF-BEGIN VALUE "(". 88 BF-END VALUE ")". - 88 BF-DIE VALUE "$". + 88 BF-DIE VALUE "$". 01 I-O-CHARACTER PIC X. 88 ESCAPE-CHAR VALUE "$". 01 CONVERSION. @@ -121,7 +121,7 @@ PERFORM DO-END MOVE 99 TO LOOP-STATE ELSE IF BF-DIE AND NOT DONE THEN - GO TO HELL. + GO TO HELL. ADD 1 TO CYCLES. DO-LEFT. @@ -161,13 +161,13 @@ MOVE BF-CELL(CURRENT-CELL) TO CHAR-CODE CALL "DECODE-ASCII" USING CONVERSION IF COBOL-STRING IS EQUAL TO SPACES THEN - ADD 1 TO OUT-PTR - ELSE - STRING COBOL-STRING, - DELIMITED BY SPACES, - INTO BF-OUTPUT, - WITH POINTER OUT-PTR - D DISPLAY "OUT", I-O-CHARACTER, BF-CELL(CURRENT-CELL) + ADD 1 TO OUT-PTR + ELSE + STRING COBOL-STRING, + DELIMITED BY SPACES, + INTO BF-OUTPUT, + WITH POINTER OUT-PTR + D DISPLAY "OUT", I-O-CHARACTER, BF-CELL(CURRENT-CELL) ELSE GO TO HELL. MOVE 99 TO LOOP-STATE.