DEFLNG A-S
DEFDBL T
DIM b(2017)

INPUT "Step value"; s
t# = TIMER(.001)
ptr = 0
FOR i = 1 TO 2017
  ptr = (ptr + s) MOD i
  FOR j = i - 1 TO ptr + 1 STEP -1
    b(j + 1) = b(j)
  NEXT
  b(ptr + 1) = i
  ptr = ptr + 1
NEXT

FOR j = 0 TO i - 1
  IF b(j) = 2017 THEN COLOR 7: PRINT "part 1: "; b(j + 1);
NEXT
COLOR 2: PRINT (TIMER(.001) - t#) * 1000; "ms"

t# = TIMER(.001)
ptr = 0
FOR i = 1 TO 50E6
  e = (i - ptr) \ s - 1
  IF e > 0 THEN
    ptr = ptr + (s + 1) * e
    i = i + e
  END IF
  ptr = ((ptr + s) MOD i) + 1
  IF ptr = 1 THEN sum2 = i
NEXT
COLOR 7: PRINT "part 2: "; sum2;
COLOR 2: PRINT (TIMER(.001) - t#) * 1000; "ms"