to makedemohtml
setCaseIgnored false
l=(Files [*.lg])
file="index.html
openWrite file
setWriter file
(type "|
aUCBLogo Demos and Tests
aUCBLogo Demos and Tests
|)
repeat count l
[ i=repcount
lg=replace ".lg " l.i
(type "|
| lg "|
| )
]
(print)
repeat count l
[ i=repcount
lg=replace ".lg " l.i
(type "|
| lg "|
| )
]
(type "|
|)
setWriter []
close file
end