' Anti-primes
DECLARE FUNCTION DivisorCount (V%)

MaxAntiPrime% = 20
N% = 0: MaxDivisors% = 0: AntiPrimeCount% = 0
WHILE AntiPrimeCount% < MaxAntiPrime%
  N% = N% + 1
  Divisors% = DivisorCount(N%)
  IF Divisors% > MaxDivisors% THEN
    PRINT STR$(N%);
    MaxDivisors% = Divisors%
    AntiPrimeCount% = AntiPrimeCount% + 1
  END IF
WEND
PRINT
END

FUNCTION DivisorCount (V%)
  Total% = 1: N% = V%
  WHILE N% MOD 2 = 0
    Total% = Total% + 1
    N% = N% \ 2
  WEND
  P% = 3
  WHILE (P% * P%) <= N%
    Count% = 1
    WHILE N% MOD P% = 0
      Count% = Count% + 1
      N% = N% \ P%
    WEND
    P% = P% + 2
    Total% = Total% * Count%
  WEND
  IF N% > 1 THEN Total% = Total% * 2
  DivisorCount = Total%
END FUNCTION