Praise Capitalism® and The Lord.

2017-02-19 21:18:04 -07:00 · 2017-02-19 21:18:04 -07:00 · 685feff941
parent 34e08ebe26
commit 685feff941
1 changed files with 15 additions and 8 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -455,6 +455,13 @@

       HANDLE-HELP.
           PERFORM BEGIN-STANDARD-REPLY.
+           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 "