$ on error then exit
$ count = 0
$ loop:
$    if f$trnlnm("CGIPLUSEOF") .nes. "" then delete /symbol /global /all
$    run cgi_exe:cgiplussymbol
$    count = count + 1
$    aaa_count == count
$    write sys$output "Content-type: text/plain"
$    write sys$output ""
$    show symbol /global /all
$!   (if not CGIplus then just handle a CGI)
$    if f$trnlnm("CGIPLUSEOF") .eqs. "" then exit
$    write sys$output f$trnlnm("CGIPLUSEOF")
$ goto loop