uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replaced tabs with spaces in BF-RUN.COB

This commit is contained in:
Quinn Evans 2015-10-01 00:35:11 -06:00
parent 3969cf49b8
commit d50717767c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
BF-RUN.COB
View File

@ -26,7 +26,7 @@
88 BF-IN VALUE ",". 88 BF-IN VALUE ",".
88 BF-BEGIN VALUE "(". 88 BF-BEGIN VALUE "(".
88 BF-END VALUE ")". 88 BF-END VALUE ")".
88 BF-DIE VALUE "$". 88 BF-DIE VALUE "$".
01 I-O-CHARACTER PIC X. 01 I-O-CHARACTER PIC X.
88 ESCAPE-CHAR VALUE "$". 88 ESCAPE-CHAR VALUE "$".
01 CONVERSION. 01 CONVERSION.
@ -121,7 +121,7 @@
PERFORM DO-END PERFORM DO-END
MOVE 99 TO LOOP-STATE MOVE 99 TO LOOP-STATE
ELSE IF BF-DIE AND NOT DONE THEN ELSE IF BF-DIE AND NOT DONE THEN
GO TO HELL. GO TO HELL.
ADD 1 TO CYCLES. ADD 1 TO CYCLES.
DO-LEFT. DO-LEFT.
@ -161,13 +161,13 @@
MOVE BF-CELL(CURRENT-CELL) TO CHAR-CODE MOVE BF-CELL(CURRENT-CELL) TO CHAR-CODE
CALL "DECODE-ASCII" USING CONVERSION CALL "DECODE-ASCII" USING CONVERSION
IF COBOL-STRING IS EQUAL TO SPACES THEN IF COBOL-STRING IS EQUAL TO SPACES THEN
ADD 1 TO OUT-PTR ADD 1 TO OUT-PTR
ELSE ELSE
STRING COBOL-STRING, STRING COBOL-STRING,
DELIMITED BY SPACES, DELIMITED BY SPACES,
INTO BF-OUTPUT, INTO BF-OUTPUT,
WITH POINTER OUT-PTR WITH POINTER OUT-PTR
D DISPLAY "OUT", I-O-CHARACTER, BF-CELL(CURRENT-CELL) D DISPLAY "OUT", I-O-CHARACTER, BF-CELL(CURRENT-CELL)
ELSE ELSE
GO TO HELL. GO TO HELL.
MOVE 99 TO LOOP-STATE. MOVE 99 TO LOOP-STATE.