From 22de00773352049da589fcb6cd0e4c5607728443 Mon Sep 17 00:00:00 2001
From: "Quinn \"heddwch\" Evans" <yoshizuki@gmail.com>
Date: Fri, 14 Sep 2018 13:23:31 -0600
Subject: [PATCH] Add error checking to $ECHO

---
 WOPO.COB | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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)