program parseform(input, {parseformp,} output); (* parseform: parse an html form Thomas D. Schneider, Ph.D. toms@alum.mit.edu https://alum.mit.edu/www/toms *) label 1; (* end of program *) const (* begin module version *) version = 1.05; (* of parseform.p 2016 Jan 29 2016 Jan 29: 1.05: debug for p2c/tc get(input); -> read(input,c); 2000 Oct 16: 1.04: allow %22 for quotes 2000 Jun 29: 1.03: fix hex conversion origin 1999 Apr 21 *) updateversion = 1.00; (* defines lowest acceptable current parameter file *) (* end module version *) (* begin module describe.parseform *) (* name parseform: parse an html form synopsis parseform(input: in, parseformp: in, output: out) files input: data string from a