!set l_up=creciente
!set l_down=decreciente

!if $wims_mode=popup
 !exit
!endif

<p><hr>
<p>
Por favor, elija el método de búsqueda de números primos. (Expresiones aritméticas están 
permitidas en todos los campos que abajo.)
!form reply
<input type=hidden name=calc value=yes>
<ol>
 <li><input type=radio name=method value=all
  !if $method=all or $method=$empty
   checked
  !endif
  > Lista de números primos sucesivos, comenzando desde 
  <input size=20 name=all value="$all"> ,
  en forma <select name=all_dir>
  !for i in up,down
   <option value="$i"
   !if $i=$all_dir
    selected
   !endif
   > $(l_$i)
  !next i
  </select>.
  
 <li><input type=radio name=method value=rand
  !if $method=rand
   checked
  !endif
  > Un primo aleatorio de
  <input size=8 name=rand value="$rand"> digits.
 
 <li><input type=radio name=method value=lin
  !if $method=lin
   checked
  !endif
  > Lista de números primos en progresión aritmética $m_a$m_n + $m_b,
  donde <br>
  $m_a = <input size=10 name=a value="$a"> ,
  $m_b = <input size=10 name=b value="$b"> , y
  $m_n toma valores comenzando en <input size=10 name=n value="$n"> , <br>
  en forma <select name=lin_dir>
  !for i in up,down
   <option value=$i
   !if $i=$lin_dir
    selected
   !endif
   > $(l_$i)
  !next i
  </select>.
</ol>
<center><input type=submit value="Mostrar primos"></center>
<p>
Limitar la lista a <select name=plim>
!for i in 1,2,5,10,20,50,100,200,500
 <option value=$i
 !if $i=$plim or ($i=20 and $plim=$empty)
  selected
 !endif
 >$i
!next i
</select> números primos.
</form>

