$ if f$trnlnm("CGIPLUSEOF") .eqs. ""
$ then
$!  (standard CGI)
$   write sys$output "content-type: text/plain"
$   write sys$output ""
$   show symbol /global /all
$   exit
$ endif
$!
$!(CGI plus)
$ count = 0
$ open /read CgiPlusIn CGIPLUSIN
$!
$ requestLoop:
$!
$    delete /symbol /global /all
$!
$!   (block waiting for request, this initial read is always discardable)
$    read CgiPlusIn /end=endRequestLoop line
$    count = count + 1
$    aaa_count == count
$!
$!   (read to exhaustion the CGIplus variable stream)
$    cgiLoop:
$       read CgiPlusIn /end=endCgiLoop line
$       if line .eqs. "" then goto endCgiLoop
$       'f$element(0,"=",line)' == f$element(1,"=",line)
$       goto cgiLoop
$    endCgiLoop:
$!
$    write sys$output "content-type: text/plain"
$    write sys$output ""
$    show symbol /global /all
$!
$    write sys$output f$trnlnm("CGIPLUSEOF")
$    goto requestLoop
$!
$ endRequestLoop: