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. 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.