uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Misc bugfixes related to immediately previous refactor.

This commit is contained in:
Quinn Evans 2017-03-21 00:32:37 -06:00
parent 94f875eab1
commit 29d907a1a0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
WOPO.COB
View File

@ -469,7 +469,7 @@
PERFORM HANDLE-COMMAND
ELSE
MOVE 1 TO PTR(2)
UNSTRING R(2) DELIMITED BY ": "
UNSTRING R(2) DELIMITED BY "$COLN$ "
INTO R(1)
WITH POINTER PTR(2)
IF R(1) IS EQUAL TO NICK OF WOPO THEN
@ -927,7 +927,7 @@
D DISPLAY "BF-CODE. ", BF-CODE
MOVE 1 TO SRC
PERFORM BEGIN-STANDARD-REPLY
PERFORM SEND-LINE
PERFORM DO-OUTPUT
ELSE
PERFORM REPLY-ACK
PERFORM VALIDATE-USER
@ -946,13 +946,13 @@
PERFORM INDEX-PARAMS.
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
STRING "INPUT. ",
BF-CODE,
BF-INPUT,
"$NUL$"
INTO R(1)
D DISPLAY "BF-INPUT. ", BF-CODE
MOVE 1 TO SRC
PERFORM BEGIN-STANDARD-REPLY
PERFORM SEND-LINE
PERFORM DO-OUTPUT
ELSE
PERFORM REPLY-ACK
PERFORM VALIDATE-USER