100 cls
110 for i = 1 to 20
120 rem for i = 1000 to 1016
130  print i;"= ";factorial$(i)
140 next i
150 end
160 function factorial$(num)
170  factor$ = "" : x$ = ""
180  if num = 1 then print "1"
190  fct = 2
200  while fct <= num
210   if (num mod fct) = 0 then
220    factor$ = factor$+x$+str$(fct)
230    x$ = " x "
240    num = num/fct
250   else
260    fct = fct+1
270   endif
280  wend
290  print factor$
300 end function