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