<pre>-- This is the proverbial "Hello World" example.-- The goal is to demonstrate the basic mechanics of CGI.on appleEvent class,event,sender  if class is "WWW" and event is "sdoc" then    reply HTTP() & myResponsePage()  else    pass appleEvent  end ifend appleEventfunction 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 HTTPfunction myResponsePage  put "Hello World" into title  put "HELLO WORLD" into content  return "<html><head><title>" & title & "</title></head><body>" & content & "</body></html>end myResponsePage</pre>