diff --git a/WOPO.COB b/WOPO.COB index 57e9acd..3b77b2b 100644 --- a/WOPO.COB +++ b/WOPO.COB @@ -383,47 +383,47 @@ WITH POINTER WORK-PTR MOVE WORK TO PARAM(1) D DISPLAY "COMMAND BODY ", PARAM(1) - IF PARAM(1) IS EQUAL TO "HELP" THEN - PERFORM HANDLE-HELP - 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 + IF PARAM(1) IS EQUAL TO "BF-CODE" THEN + PERFORM HANDLE-BF-CODE ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN 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 PERFORM HANDLE-BF-OUTPUT ELSE IF PARAM(1) IS EQUAL TO "BF-RUN" THEN D DISPLAY "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 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 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 PERFORM HANDLE-PART ELSE IF PARAM(1) IS EQUAL TO "QUIT" THEN 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 PERFORM HANDLE-SHOW-ESCAPES - ELSE IF PARAM(1) IS EQUAL TO "RELEVEL" THEN - PERFORM HANDLE-RELEVEL. + 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 "VOICE" THEN + PERFORM HANDLE-VOICE. HANDLE-HELP. PERFORM BEGIN-REPLY.