Fix formatting.
This commit is contained in:
parent
77bd5f9f6b
commit
d3cb1039a7
1 changed files with 43 additions and 43 deletions
86
WOPO.COB
86
WOPO.COB
|
@ -496,49 +496,49 @@
|
||||||
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
|
||||||
PERFORM HANDLE-BF-CODE
|
PERFORM HANDLE-BF-CODE
|
||||||
ELSE IF R(1) IS EQUAL TO "BF-INPUT" THEN
|
ELSE IF R(1) IS EQUAL TO "BF-INPUT" THEN
|
||||||
PERFORM HANDLE-BF-INPUT
|
PERFORM HANDLE-BF-INPUT
|
||||||
ELSE IF R(1) IS EQUAL TO "BF-OUTPUT" THEN
|
ELSE IF R(1) IS EQUAL TO "BF-OUTPUT" THEN
|
||||||
PERFORM HANDLE-BF-OUTPUT
|
PERFORM HANDLE-BF-OUTPUT
|
||||||
ELSE IF R(1) IS EQUAL TO "BF-RUN" THEN
|
ELSE IF R(1) IS EQUAL TO "BF-RUN" THEN
|
||||||
D DISPLAY "BF-RUN"
|
D DISPLAY "BF-RUN"
|
||||||
PERFORM HANDLE-BF-RUN
|
PERFORM HANDLE-BF-RUN
|
||||||
ELSE IF R(1) IS EQUAL TO "DEOP" THEN
|
ELSE IF R(1) IS EQUAL TO "DEOP" THEN
|
||||||
PERFORM HANDLE-DEOP
|
PERFORM HANDLE-DEOP
|
||||||
ELSE IF R(1) IS EQUAL TO "DEVOICE" THEN
|
ELSE IF R(1) IS EQUAL TO "DEVOICE" THEN
|
||||||
PERFORM HANDLE-DEVOICE
|
PERFORM HANDLE-DEVOICE
|
||||||
ELSE IF R(1) IS EQUAL TO "HELP" THEN
|
ELSE IF R(1) IS EQUAL TO "HELP" THEN
|
||||||
PERFORM HANDLE-HELP
|
PERFORM HANDLE-HELP
|
||||||
ELSE IF R(1) IS EQUAL TO "JOIN" THEN
|
ELSE IF R(1) IS EQUAL TO "JOIN" THEN
|
||||||
PERFORM HANDLE-JOIN
|
PERFORM HANDLE-JOIN
|
||||||
ELSE IF R(1) IS EQUAL TO "LEVEL" THEN
|
ELSE IF R(1) IS EQUAL TO "LEVEL" THEN
|
||||||
PERFORM HANDLE-LEVEL
|
PERFORM HANDLE-LEVEL
|
||||||
ELSE IF R(1) IS EQUAL TO "LICK" THEN
|
ELSE IF R(1) IS EQUAL TO "LICK" THEN
|
||||||
PERFORM HANDLE-LICK
|
PERFORM HANDLE-LICK
|
||||||
ELSE IF R(1) IS EQUAL TO "LIST-USERS" THEN
|
ELSE IF R(1) IS EQUAL TO "LIST-USERS" THEN
|
||||||
PERFORM HANDLE-LIST-USERS
|
PERFORM HANDLE-LIST-USERS
|
||||||
ELSE IF R(1) IS EQUAL TO "OP" THEN
|
ELSE IF R(1) IS EQUAL TO "OP" THEN
|
||||||
PERFORM HANDLE-OP
|
PERFORM HANDLE-OP
|
||||||
ELSE IF R(1) IS EQUAL TO "PART" THEN
|
ELSE IF R(1) IS EQUAL TO "PART" THEN
|
||||||
PERFORM HANDLE-PART
|
PERFORM HANDLE-PART
|
||||||
ELSE IF R(1) IS EQUAL TO "QUIT" THEN
|
ELSE IF R(1) IS EQUAL TO "QUIT" THEN
|
||||||
PERFORM HANDLE-QUIT
|
PERFORM HANDLE-QUIT
|
||||||
ELSE IF R(1) IS EQUAL TO "RELEVEL" THEN
|
ELSE IF R(1) IS EQUAL TO "RELEVEL" THEN
|
||||||
PERFORM HANDLE-RELEVEL
|
PERFORM HANDLE-RELEVEL
|
||||||
ELSE IF R(1) IS EQUAL TO "SHITFED" THEN
|
ELSE IF R(1) IS EQUAL TO "SHITFED" THEN
|
||||||
PERFORM HANDLE-SHITFED
|
PERFORM HANDLE-SHITFED
|
||||||
ELSE IF R(1) IS EQUAL TO "SHOW-ESCAPES" THEN
|
ELSE IF R(1) IS EQUAL TO "SHOW-ESCAPES" THEN
|
||||||
PERFORM HANDLE-SHOW-ESCAPES
|
PERFORM HANDLE-SHOW-ESCAPES
|
||||||
ELSE IF R(1) IS EQUAL TO "SOURCE" THEN
|
ELSE IF R(1) IS EQUAL TO "SOURCE" THEN
|
||||||
PERFORM HANDLE-SOURCE
|
PERFORM HANDLE-SOURCE
|
||||||
ELSE IF R(1) IS EQUAL TO "STRESS" THEN
|
ELSE IF R(1) IS EQUAL TO "STRESS" THEN
|
||||||
PERFORM HANDLE-STRESS
|
PERFORM HANDLE-STRESS
|
||||||
ELSE IF R(1) IS EQUAL TO "VOICE" THEN
|
ELSE IF R(1) IS EQUAL TO "VOICE" THEN
|
||||||
PERFORM HANDLE-VOICE.
|
PERFORM HANDLE-VOICE.
|
||||||
|
|
||||||
HANDLE-HELP.
|
HANDLE-HELP.
|
||||||
|
|
Loading…
Reference in a new issue