Data commit

Task/Semiprime/Chipmunk-Basic/semiprime.basic

@@ -0,0 +1,14 @@
+100 rem Semiprime
+110 cls
+120 for i = 0 to 64
+130   print using "##  ";i semiprime$(i)
+140 next i
+150 end
+160 sub semiprime$(n)
+170 a = 2
+180 c = 0
+190 do while c < 3 and n > 1
+200   if n mod a = 0 then n = n/a : c = c+1 else a = a+1
+210 loop
+220 if c = 2 then semiprime$ = "True" else semiprime$ = "False"
+230 end sub