diff --git a/WOPO.COB b/WOPO.COB
index 91481a6..b6fedc7 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -1145,8 +1145,15 @@
            PERFORM DO-OUTPUT.
 
        HANDLE-ECHO.
-           PERFORM BEGIN-STANDARD-REPLY.
-           PERFORM DO-OUTPUT.
+           MOVE 1 TO DEST.
+           PERFORM INDEX-PARAMS.
+           IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
+               MOVE "<TEXT TO ECHO>" TO R(1)
+               MOVE 1 TO SRC
+               PERFORM USAGE-REPLY
+           ELSE
+               PERFORM BEGIN-STANDARD-REPLY
+               PERFORM DO-OUTPUT.
 
       *    GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
       *    REGISTER'S CONTENTS INTO R(2)