Data commit

Task/Semiprime/True-BASIC/semiprime.basic

@@ -0,0 +1,18 @@
+FUNCTION semiprime$ (n)
+    LET a = 2
+    LET c = 0
+    DO WHILE c < 3 AND n > 1
+       IF REMAINDER(n, a) = 0 THEN
+          LET n = n / a
+          LET c = c + 1
+       ELSE
+          LET a = a + 1
+       END IF
+    LOOP
+    IF c = 2 THEN LET semiprime$ = "True" ELSE LET semiprime$ = "False"
+END FUNCTION
+
+FOR i = 0 TO 64
+    PRINT i, semiprime$(i)
+NEXT i
+END