#!/usr/bin/env /friends/bin/basicscript
      FOR i% = 1 TO 20
        PRINT i% " = " FNfactors(i%)
      NEXT
      END
 
      DEF FNfactors(N%)
      LOCAL P%, f$
      IF N% = 1 THEN = "1"
      P% = 2
      WHILE P% <= N%
        IF (N% MOD P%) = 0 THEN
          f$ += STR$(P%) + " x "
          N% DIV= P%
        ELSE
          P% += 1
        ENDIF
      ENDWHILE
      = LEFT$(f$, LEN(f$) - 3)