uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Praise Capitalism® and The Lord.

This commit is contained in:
Quinn Evans 2017-02-19 21:18:04 -07:00
parent 34e08ebe26
commit 685feff941
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
WOPO.COB
View File

@ -455,14 +455,21 @@
HANDLE-HELP.
PERFORM BEGIN-STANDARD-REPLY.
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.
IF PARAM(2) IS EQUAL TO "ME" THEN
STRING "$240$$159$$142$$135$ "
- "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
- "$240$$159$$142$$134"
INTO MSG-BODY
WITH POINTER WORK-PTR
ELSE
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.
HANDLE-SHITFED.