Fix old off by one for user levels in $BF-commands
This commit is contained in:
parent
5c6d6fa66e
commit
47b7ea3742
1 changed files with 3 additions and 3 deletions
6
WOPO.COB
6
WOPO.COB
|
@ -676,7 +676,7 @@
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
IF USER-LEVEL > 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
MOVE SPACES TO BF-CODE
|
MOVE SPACES TO BF-CODE
|
||||||
MOVE PARAM(2) TO BF-CODE
|
MOVE PARAM(2) TO BF-CODE
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
|
@ -700,7 +700,7 @@
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY
|
||||||
INTO WORK
|
INTO WORK
|
||||||
WITH POINTER WORK-PTR
|
WITH POINTER WORK-PTR
|
||||||
IF USER-LEVEL > 50 THEN
|
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
||||||
MOVE WORK TO BF-INPUT
|
MOVE WORK TO BF-INPUT
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
|
|
||||||
|
@ -726,7 +726,7 @@
|
||||||
ELSE
|
ELSE
|
||||||
UNSTRING PARAM(2) INTO MAYBE-CYCLE-LIMIT.
|
UNSTRING PARAM(2) INTO MAYBE-CYCLE-LIMIT.
|
||||||
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
|
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
|
||||||
IF USER-LEVEL > 50 THEN
|
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
MOVE MAYBE-CYCLE-LIMIT TO CYCLE-LIMIT
|
MOVE MAYBE-CYCLE-LIMIT TO CYCLE-LIMIT
|
||||||
PERFORM BF-LIMIT-CYCLES
|
PERFORM BF-LIMIT-CYCLES
|
||||||
|
|
Loading…
Reference in a new issue