Fix formatting.
This commit is contained in:
parent
77bd5f9f6b
commit
d3cb1039a7
2
WOPO.COB
2
WOPO.COB
|
@ -496,7 +496,7 @@
|
||||||
MOVE 8 TO DEST
|
MOVE 8 TO DEST
|
||||||
PERFORM GET-REST
|
PERFORM GET-REST
|
||||||
MOVE 8 TO INPUT-SOURCE.
|
MOVE 8 TO INPUT-SOURCE.
|
||||||
*HERE GOES THE SWITCH LOGIC
|
* HERE GOES THE SWITCH LOGIC
|
||||||
MOVE R(2) TO R(1).
|
MOVE R(2) TO R(1).
|
||||||
MOVE INPUT-SOURCE TO SRC.
|
MOVE INPUT-SOURCE TO SRC.
|
||||||
IF R(1) IS EQUAL TO "BF-CODE" THEN
|
IF R(1) IS EQUAL TO "BF-CODE" THEN
|
||||||
|
|
Loading…
Reference in New Issue