Data update

Task/Almost-prime/Craft-Basic/almost-prime.basic

@@ -0,0 +1,64 @@
+for k = 1 to 5
+
+	print "k = ", k, ": ",
+
+	let e = 2
+	let c = 0
+
+	do
+
+		if c < 10 then
+
+			let n = e
+			gosub kprime
+
+			if r then
+
+				print tab, e,
+				let c = c + 1
+
+			endif
+
+			let e = e + 1
+
+		endif
+
+	loop c < 10
+
+	print
+
+next k
+
+end
+
+sub kprime
+
+	let f = 0
+
+	for i = 2 to n
+
+		do
+
+			if n mod i = 0 then
+
+				if f = k then
+
+					let r = 0
+					return
+
+				endif
+
+				let f = f + 1
+				let n = n / i
+
+				wait
+
+			endif
+
+		loop n mod i = 0
+
+	next i
+
+    let r = f = k
+
+return