Alphabetize command conditional ladder.
This commit is contained in:
parent
386a43c9f9
commit
c1186e65d9
48
WOPO.COB
48
WOPO.COB
|
@ -383,47 +383,47 @@
|
||||||
WITH POINTER WORK-PTR
|
WITH POINTER WORK-PTR
|
||||||
MOVE WORK TO PARAM(1)
|
MOVE WORK TO PARAM(1)
|
||||||
D DISPLAY "COMMAND BODY ", PARAM(1)
|
D DISPLAY "COMMAND BODY ", PARAM(1)
|
||||||
IF PARAM(1) IS EQUAL TO "HELP" THEN
|
IF PARAM(1) IS EQUAL TO "BF-CODE" THEN
|
||||||
PERFORM HANDLE-HELP
|
PERFORM HANDLE-BF-CODE
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
|
|
||||||
PERFORM HANDLE-SOURCE
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "STRESS" THEN
|
|
||||||
PERFORM HANDLE-STRESS
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LICK-ME" THEN
|
|
||||||
PERFORM HANDLE-LICK-ME
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN
|
||||||
PERFORM HANDLE-BF-INPUT
|
PERFORM HANDLE-BF-INPUT
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "BF-CODE" THEN
|
|
||||||
PERFORM HANDLE-BF-CODE
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "BF-OUTPUT" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "BF-OUTPUT" THEN
|
||||||
PERFORM HANDLE-BF-OUTPUT
|
PERFORM HANDLE-BF-OUTPUT
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "BF-RUN" THEN
|
ELSE IF PARAM(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 PARAM(1) IS EQUAL TO "SHITFED" THEN
|
|
||||||
PERFORM HANDLE-SHITFED
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
|
|
||||||
PERFORM HANDLE-LEVEL
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LIST-USERS" THEN
|
|
||||||
PERFORM HANDLE-LIST-USERS
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "VOICE" THEN
|
|
||||||
PERFORM HANDLE-VOICE
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "DEVOICE" THEN
|
|
||||||
PERFORM HANDLE-DEVOICE
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "OP" THEN
|
|
||||||
PERFORM HANDLE-OP
|
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "DEOP" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "DEOP" THEN
|
||||||
PERFORM HANDLE-DEOP
|
PERFORM HANDLE-DEOP
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "DEVOICE" THEN
|
||||||
|
PERFORM HANDLE-DEVOICE
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "HELP" THEN
|
||||||
|
PERFORM HANDLE-HELP
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
|
||||||
PERFORM HANDLE-JOIN
|
PERFORM HANDLE-JOIN
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
|
||||||
|
PERFORM HANDLE-LEVEL
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "LICK-ME" THEN
|
||||||
|
PERFORM HANDLE-LICK-ME
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "LIST-USERS" THEN
|
||||||
|
PERFORM HANDLE-LIST-USERS
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "OP" THEN
|
||||||
|
PERFORM HANDLE-OP
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "PART" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "PART" THEN
|
||||||
PERFORM HANDLE-PART
|
PERFORM HANDLE-PART
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "QUIT" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "QUIT" THEN
|
||||||
PERFORM HANDLE-QUIT
|
PERFORM HANDLE-QUIT
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "RELEVEL" THEN
|
||||||
|
PERFORM HANDLE-RELEVEL
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "SHITFED" THEN
|
||||||
|
PERFORM HANDLE-SHITFED
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "SHOW-ESCAPES" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "SHOW-ESCAPES" THEN
|
||||||
PERFORM HANDLE-SHOW-ESCAPES
|
PERFORM HANDLE-SHOW-ESCAPES
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "RELEVEL" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
|
||||||
PERFORM HANDLE-RELEVEL.
|
PERFORM HANDLE-SOURCE
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "STRESS" THEN
|
||||||
|
PERFORM HANDLE-STRESS
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "VOICE" THEN
|
||||||
|
PERFORM HANDLE-VOICE.
|
||||||
|
|
||||||
HANDLE-HELP.
|
HANDLE-HELP.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
|
|
Loading…
Reference in New Issue