aUCBLogo Demos and Tests / makedemohtml

to makedemohtml
   setCaseIgnored false
   l=(Files [*.lg])
   file="index.html
   openWrite file
   setWriter file
   (type "<html>
   <head>
      <title>
         aUCBLogo Demos and Tests
      </title>
   </head>
   <body>
      <h1>aUCBLogo Demos and Tests</h1>
)
   repeat count l
   [   i=repcount
      lg=replace ".lg "  l.i
      (type "      <a href="# lg "">
         <img src=" lg ".png" width=40 height=30>
      </a>
      <a href=" lg ".html">
          lg "
      </a>
      )
   ]
   (print)
   repeat count l
   [   i=repcount
      lg=replace ".lg "  l.i
      (type "      <a name=" lg "" href=" lg ".html">
         <img src=" lg ".png" width=400 height=300>
          lg "
      </a>
      )
   ]
   (type "
   <body>
<html>)
   setWriter []
   close file
end