#! /pkg/gnu/bin/gawk -f
# this script shows input from image type
BEGIN {
  print "Content-type: text/html\n"

  q = ENVIRON["QUERY_STRING"]
  while (match(q,/[^=]*=[^&]*/)) {
    split(substr(q,RSTART,RLENGTH),tt,"=")
    cgidat[tt[1]] = tt[2]
    q = substr(q,RSTART+RLENGTH+1)
  }

  system("cat image.html")
  print "<img src=rover.gif style=position:absolute;top:" cgidat["y"] ";left:" cgidat["x"] ">"
}