Add error checking to $ECHO

This commit is contained in:
Quinn "heddwch" Evans 2018-09-14 13:23:31 -06:00
parent ae099b0dae
commit 22de007733
1 changed files with 9 additions and 2 deletions

View File

@ -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)