aUCBLogo Demos and Tests / cgitest1

#!C:/aucblogo/aucblogo_client.exe
to cgitest1
   local [out err]
   out=(word [Content-type: text/html; charset=iso-8859-1

])
   catch "error
   [   cgi1userproc &out
   ]
   err=error
   if not emptyp err
   [   out=(word out first butFirst err
         "\ in\  first bf bf err
         "( first bf bf bf bf err ")</br>)
   ]
   output out
end

to cgi1userproc &out
   repeat 4
   [   fd 100 rt 90
   ]
   out=(word out [
<HTML>
   <Body>
      <H1>Hallo here is process number ] GetProcessId [</H1>
   </Body>
</HTML>])
end