Initial data commit

Task/Almost-prime/Nascom-BASIC/almost-prime.basic

@@ -0,0 +1,28 @@
+10 REM Almost prime
+20 FOR K=1 TO 5
+30 PRINT "k =";STR$(K);":";
+40 I=2
+50 C=0
+60 IF C>=10 THEN 110
+70 AN=I:GOSUB 1000
+80 IF ISKPRIME=0 THEN 90
+82 REM Print I in 4 fields
+84 S$=STR$(I)
+86 PRINT SPC(4-LEN(S$));S$;
+88 C=C+1
+90 I=I+1
+100 GOTO 60
+110 PRINT
+120 NEXT K
+130 END
+995 REM Check if N (AN) is a K prime
+1000 F=0
+1010 FOR J=2 TO AN
+1020 IF INT(AN/J)*J<>AN THEN 1070
+1030 IF F=K THEN ISKPRIME=0:RETURN
+1040 F=F+1
+1050 AN=INT(AN/J)
+1060 GOTO 1020
+1070 NEXT J
+1080 ISKPRIME=(F=K)
+1090 RETURN