aUCBLogo Demos and Tests / makehilighteddemos


setCaseIgnored false

to makehilighteddemos
   
l=(files [*.lg])
   
repeat count l
   
[   i=repcount
      
lg=replace ".lg "  l.i
      
file=Word lg ".html
      
openWrite file
      
setWriter file
      
(type "<html>
   <head>
      <title>
         aUCBLogo Demos and Tests / 
 lg "
      </title>
   </head>
   <body>
      <h1>aUCBLogo Demos and Tests / 
 lg "</h1>
         <a href="
 l."">
            <img src="
 lg ".png" width=400 height=300>
         </a></br>
         

      
renderLogoFileAsHTML l.i
      
"
   </body>
</html>
)
      
setWriter []
      
close file
      
dispatchMessages
   
]
end