Initial data commit

Task/Josephus-problem/FTCBASIC/josephus-problem.basic

@@ -0,0 +1,32 @@
+define prisoners = 0, step = 0, killcount = 0
+define survivor = 0, remainder = 0
+
+do
+
+	print "Prisoners: " \
+	input prisoners
+
+	print "Step: " \
+	input step
+
+	gosub executioner
+
+loop
+
+sub executioner
+
+	let killcount = 1
+
+	do
+
+		let killcount = killcount + 1
+		let survivor = survivor + step
+		let survivor = survivor / killcount
+		carry survivor
+
+	loop killcount < prisoners
+
+	print "survivor = " \
+	print survivor
+
+return