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

Fix old off by one for user levels in $BF-commands

This commit is contained in:
Quinn Evans 2015-10-20 12:04:21 -06:00
parent 5c6d6fa66e
commit 47b7ea3742
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
WOPO.COB
View File

@ -676,7 +676,7 @@
PERFORM SEND-LINE
ELSE
PERFORM VALIDATE-USER
IF USER-LEVEL > 60 THEN
IF USER-LEVEL IS NOT LESS THAN 60 THEN
MOVE SPACES TO BF-CODE
MOVE PARAM(2) TO BF-CODE
PERFORM REPLY-ACK.
@ -700,7 +700,7 @@
UNSTRING MSG-BODY
INTO WORK
WITH POINTER WORK-PTR
IF USER-LEVEL > 50 THEN
IF USER-LEVEL IS NOT LESS THAN 50 THEN
MOVE WORK TO BF-INPUT
PERFORM REPLY-ACK.
@ -726,7 +726,7 @@
ELSE
UNSTRING PARAM(2) INTO MAYBE-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
MOVE MAYBE-CYCLE-LIMIT TO CYCLE-LIMIT
PERFORM BF-LIMIT-CYCLES