diff --git a/BF-RUN.COB b/BF-RUN.COB
index c4f407c..38cbf5b 100644
--- a/BF-RUN.COB
+++ b/BF-RUN.COB
@@ -6,7 +6,7 @@
        01 STATE USAGE COMPUTATIONAL.
            03 IN-PTR PIC 9(3) VALUE 1.
            03 IP PIC 9(3) VALUE 1.
-           03 CYCLES PIC 9(5) VALUE 0.
+           03 CYCLES PIC 9(8) VALUE 0.
            03 OUT-PTR PIC 9(3) VALUE 1.
            03 LOOP-DEPTH PIC 99 VALUE 0.
            03 LOOP-WORK PIC 99 VALUE 0.
@@ -54,7 +54,7 @@
            03 BF-INPUT PIC X(999).
            03 BF-CODE PIC X(999).
            03 BF-OUTPUT PIC X(999).
-           03 CYCLE-LIMIT PIC 9(5).
+           03 CYCLE-LIMIT PIC 9(8).
 
        PROCEDURE DIVISION USING BF-I-O.
            MOVE 1 TO IN-PTR.
diff --git a/WOPO.COB b/WOPO.COB
index c707bbc..88ae7f6 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -144,11 +144,11 @@
       -              "--<-)<-)>>-.<+++(>---<-)>.-.$NUL$".
            03 BF-OUTPUT PIC X(999)
                VALUE SPACES.
-           03 CYCLE-LIMIT PIC 9(5)
+           03 CYCLE-LIMIT PIC 9(8)
                VALUE 0.
 
        01 BF-STATE.
-           03 MAYBE-CYCLE-LIMIT PIC 9(5)
+           03 MAYBE-CYCLE-LIMIT PIC 9(8)
                VALUE 0.
 
        01 INTERPRETER-STATE.
@@ -1087,13 +1087,13 @@
                MOVE 1 TO PTR(SRC)
                PERFORM GET-PARAM
                MOVE R(1) TO CYCLE-LIMIT.
-           IF CYCLE-LIMIT > 999 THEN
+           IF CYCLE-LIMIT > 250000 THEN
                IF USER-LEVEL < 90 THEN
                    IF USER-LEVEL < 70 THEN
-                       MOVE 999 TO CYCLE-LIMIT
+                       MOVE 250000 TO CYCLE-LIMIT
                        PERFORM BF-CYCLES-LIMITED
-                   ELSE IF CYCLE-LIMIT > 9999 THEN
-                       MOVE 9999 TO CYCLE-LIMIT
+                   ELSE IF CYCLE-LIMIT > 1900000 THEN
+                       MOVE 1900000 TO CYCLE-LIMIT
                        PERFORM BF-CYCLES-LIMITED.
 
        BF-CYCLES-LIMITED.