<pre>function HTTP  put (the numToChar of 13) & (the numToChar of 10) into crlf  put "HTTP/1.0 200 OK" & crlf after header  put "Server: MacHTTP" & crlf after header  put "MIME-Version: 1.0" & crlf after header  put "Content-type: text/html" & crlf & crlf after header  return headerend HTTP</pre>