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