100 REM Semiprime
110 DECLARE EXTERNAL FUNCTION FactorsCnt
120 INPUT  PROMPT "Enter an integer: ": N
130 IF FactorsCnt(N) = 2 THEN
140    PRINT "It is a semiprime."
150 ELSE
160    PRINT "It is not a semiprime."
170 END IF
180 END
190 REM
200 EXTERNAL FUNCTION FactorsCnt(N)
210 LET AN = ABS(N)
220 LET Count = 0
230 IF AN >= 2 THEN
240    FOR F = 2 TO AN
250       DO WHILE MOD(AN, F) = 0
260          LET Count = Count + 1
270          LET AN = INT(AN / F)
280       LOOP
290    NEXT F
300 END IF
310 LET FactorsCnt = Count
320 END FUNCTION