Data commit

Task/Semiprime/ASIC/semiprime.asic

@@ -0,0 +1,23 @@
+REM Semiprime
+PRINT "Enter an integer ";
+INPUT N
+N = ABS(N)
+
+Count = 0
+IF N >= 2 THEN
+  FOR Factor = 2 TO N
+    NModFactor = N MOD Factor
+    WHILE NModFactor = 0
+      Count = Count + 1
+      N = N / Factor
+      NModFactor = N MOD Factor
+    WEND
+  NEXT Factor
+ENDIF
+
+IF Count = 2 THEN
+  PRINT "It is a semiprime."
+ELSE
+  PRINT "It is not a semiprime."
+ENDIF
+END