RosettaCodeData/Task/Josephus-problem/True-BASIC/josephus-problem.basic

FUNCTION josephus(n, k, m)
    LET lm = m
    FOR i = m+1 TO n
        LET lm = REMAINDER(lm+k,i)
    NEXT i
    LET josephus = lm
END FUNCTION

LET n = 41
LET k = 3
PRINT "n = "; n, "k = "; k, "final survivor = "; josephus(n, k, 0)
END