Data commit

Task/Almost-prime/ZX-Spectrum-Basic/almost-prime.basic

@@ -0,0 +1,18 @@
+10 FOR k=1 TO 5
+20 PRINT k;":";
+30 LET c=0: LET i=1
+40 IF c=10 THEN GO TO 100
+50 LET i=i+1
+60 GO SUB 1000
+70 IF r THEN PRINT " ";i;: LET c=c+1
+90 GO TO 40
+100 PRINT
+110 NEXT k
+120 STOP
+1000 REM kprime
+1010 LET p=2: LET n=i: LET f=0
+1020 IF f=k OR (p*p)>n THEN GO TO 1100
+1030 IF n/p=INT (n/p) THEN LET n=n/p: LET f=f+1: GO TO 1030
+1040 LET p=p+1: GO TO 1020
+1100 LET r=(f+(n>1)=k)
+1110 RETURN