DECLARE SUB chulie (a!, b!)
DIM SHARED f, k
CLS
INPUT k
DO
  m = m + 1
  CALL chulie(2 * k, m)
  IF f = 1 THEN PRINT m: END
LOOP
END

SUB chulie (a, b)
    REDIM c(a): FOR i = 1 TO a: c(i) = 1: NEXT i
    i = 0: j = 0: s = a
    DO
      j = j + 1
      DO
        i = i + 1
        IF i > a THEN i = 1
      LOOP UNTIL c(i) = 1
      IF j = b THEN
         c(i) = 0: j = 0: s = s - 1
         IF i <= k THEN f = 0: EXIT SUB
         IF s = k THEN f = 1: EXIT SUB
      END IF
    LOOP
END SUB