Praise Capitalism® and The Lord.
This commit is contained in:
parent
34e08ebe26
commit
685feff941
1 changed files with 15 additions and 8 deletions
23
WOPO.COB
23
WOPO.COB
|
@ -455,14 +455,21 @@
|
||||||
|
|
||||||
HANDLE-HELP.
|
HANDLE-HELP.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "COMMANDS$COLN$ "
|
IF PARAM(2) IS EQUAL TO "ME" THEN
|
||||||
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
|
STRING "$240$$159$$142$$135$ "
|
||||||
- "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
|
- "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
|
||||||
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
- "$240$$159$$142$$134"
|
||||||
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
INTO MSG-BODY
|
||||||
- "$NUL$"
|
WITH POINTER WORK-PTR
|
||||||
INTO MSG-BODY
|
ELSE
|
||||||
WITH POINTER WORK-PTR.
|
STRING "COMMANDS$COLN$ "
|
||||||
|
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
|
||||||
|
- "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
|
||||||
|
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
||||||
|
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
||||||
|
- "$NUL$"
|
||||||
|
INTO MSG-BODY
|
||||||
|
WITH POINTER WORK-PTR.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-SHITFED.
|
HANDLE-SHITFED.
|
||||||
|
|
Loading…
Reference in a new issue