aUCBLogo Demos and Tests / cgitest1


#!C:/aucblogo/aucblogo_client.exe
to cgitest1
   
local [out err]
   
out=(word [Content-typetext/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