#! /pkg/gnu/bin/gawk -f
BEGIN {
  print "Content-type: text/html\n"

  com = "ls -1 */neg"
  while (com | getline fname) {
    avail[++n] = fname
  }

  print "<form method=get action=start.cgi>"
  print "player1"
  print "<select name=player1>"
  for (i=1; i<=n; i++) print "<option>"avail[i]"</option>"
  print "</select>"
  print "player2"
  print "<select name=player2>"
  for (i=1; i<=n; i++) print "<option>"avail[i]"</option>"
  print "</select>"
  print "repetitions"
  print "<select name=reps>"
  print "<option>1</option>"
  print "<option>2</option>"
  print "<option>3</option>"
  print "<option>5</option>"
  print "<option>10</option>"
  print "<option>20</option>"
  print "</select>"
  print "<input type=submit>"
  print "</form>"
}