Change $BF-CODE to mirror $BF-INPUT, fix display bug
This commit is contained in:
parent
60716be702
commit
6c6f7c8531
1 changed files with 12 additions and 6 deletions
16
WOPO.COB
16
WOPO.COB
|
@ -732,18 +732,24 @@
|
||||||
HANDLE-BF-CODE.
|
HANDLE-BF-CODE.
|
||||||
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
||||||
PERFORM BEGIN-REPLY
|
PERFORM BEGIN-REPLY
|
||||||
STRING "CODE. " DELIMITED BY SIZE,
|
STRING "CODE. ",
|
||||||
BF-CODE DELIMITED BY "$$",
|
BF-CODE,
|
||||||
"$NUL$" DELIMITED BY SIZE
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER WORK-PTR
|
WITH POINTER WORK-PTR
|
||||||
D DISPLAY "BF-CODE. ", BF-CODE
|
D DISPLAY "BF-CODE. ", BF-CODE
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
|
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
|
||||||
|
UNSTRING MSG-BODY DELIMITED BY SPACE
|
||||||
|
INTO WORK,
|
||||||
|
WITH POINTER WORK-PTR
|
||||||
|
UNSTRING MSG-BODY
|
||||||
|
INTO WORK
|
||||||
|
WITH POINTER WORK-PTR
|
||||||
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
MOVE SPACES TO BF-CODE
|
MOVE WORK TO BF-CODE
|
||||||
MOVE PARAM(2) TO BF-CODE
|
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
|
|
||||||
HANDLE-BF-INPUT.
|
HANDLE-BF-INPUT.
|
||||||
|
|
Loading…
Reference in a new issue