RosettaCodeData/Task/Josephus-problem/Run-BASIC/josephus-problem-2.basic

    REM Josephus problem

    LET N = 41
    LET K = 3
    LET M = 0
    GOSUB 10
    PRINT "N = ", N
	PRINT "K = ", K
	PRINT "FINAL SURVIVOR = ", S
    END
    REM ** JOSEPHUS
10  LET S = M
    LET I = M + 1
20  IF I = N  THEN GOTO 30
    LET S = S + K - ((S + K) / I) * I
	LET I = I + 1
    GOTO 20
30  RETURN