|
|
<![CDATA[ format binary as 'html'
org 0
crlf equ 10,13
include 'svg.inc'
macro icon i
{
db '<link rel="icon" href="',i,'">',crlf
}
macro redir title,url,msg
{
db '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'
db '<html>'
db '<head>'
db '<title>',title,'</title>'
db '<meta http-equiv="REFRESH" content="0;url=',url,'"></HEAD>'
db '<BODY>'
db msg
db '</BODY>'
db '</HTML>'
}
macro header title,color,ico,ref;,back,ref
{
db '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'
db '<html>'
db '<head>',crlf
if ~ ref eq
db '<meta http-equiv="refresh" content=',ref,'>'
end if
db '<meta http-equiv="content-type" content="text/html;charset=utf-8">',crlf
db '<title>',title,'</title>',crlf
icon ico
db '</head>',crlf
db '<body bgcolor="',color,'">',crlf; background=',back,'>',crlf
}
macro home
{
link 'index.html', db 'return to home'
}
macro footer
{
db '</body>',crlf,'</html>'
}
macro L text
{
db '<br>'
db text,crlf
}
macro P text,a
{
db '<p'
if a in <'left','center','right'>
db ' align=',a
end if
db '>',text
db '</p>',crlf
}
macro H s,text,a
{
db '<h',s+'0'
if a in <'left','center','right'>
db ' align=',a
end if
db '><font color="black">',crlf
L text
db '</font></h',s+'0','>',crlf
}
macro title text
{
db '<font size=4>',crlf
H 1,text
db '</font>',crlf
}
macro chapter text
{
db '<font size=4>',crlf
H 2,text
db '</font>',crlf
}
macro img i,a
{
db '<img src="',i,'" alt="',i,'"'
if a in <'left','center','right'>
db ' align=',a
end if
db '>',crlf
}
macro link l,t
{
db '<a href="',l,'">'
t
db '</a>',crlf
}
macro anchor l,t
{
db '<a name="',l,'">',crlf
t
db '</a>',crlf
}
macro center
{
db '<center>',crlf
}
macro left
{
db '<left>',crlf
}
macro right
{
db '<right>',crlf
}
macro centend
{
db '</center>',crlf
}
macro leftend
{
db '</left>',crlf
}
macro rightend
{
db '</right>',crlf
}
macro empty
{
L ''
L ''
L ''
L ''
}
macro code text
{
db '<code>',crlf
db text
db '</code>',crlf
}
macro audio file
{
db '<embed src=',file,' autostart=true loop=false hidden=true></embed>'
}
macro video file
{
db '<embed src=',file,' autostart=true loop=false hidden=false></embed>'
}
macro w3cvalid
{
link "http://validator.w3.org/check?uri=referer",img "http://www.w3.org/Icons/valid-html401"
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
macro tagitem width,icon
{
db '<td width="',width,'">'
center
db '<font color="black">'
img icon
; db i1
db '</font>'
centend
db '</td>'
}
macro tags i1,i2
{
tab '0'
db '<tr>'
tagitem '200',i1
tagitem '200',i2
db '</tr>'
db '</table>'
}
macro menuitem i1,width,color,icon
{
db '<td> ';width="',width,
; db ' bgcolor=',color,'>'
center
db '<font color="black">'
if icon eq
link i1,db i1
else
link i1,img icon
; db i1
end if
db '</font>'
centend
db '</td>'
}
macro menu color,i1,i2,i3,i4,i5,i6,p1,p2,p3,p4,p5,p6
{
db '<table>'; border="8" '
;db 'bgcolor=',color,'>'
db '<tr>'
menuitem i1,'20%',homecolor,p1
menuitem i2,'20%',foolcolor,p2
menuitem i3,'20%',kayacolor,p3
menuitem i4,'20%',piccolor ,p4
menuitem i5,'20%',htmlcolor,p5
menuitem i6,'20%',misccolor,p6
db '</tr>'
db '<tr>'
menuitem i1,'20%',homecolor
menuitem i2,'20%',foolcolor
menuitem i3,'20%',kayacolor
menuitem i4,'20%',piccolor
menuitem i5,'20%',htmlcolor
menuitem i6,'20%',misccolor
db '</tr>'
tabend
}
macro hline w
{
db '<hr width="',w,'">',crlf
}
macro ulist
{
db '<ul>',crlf,'<li>',crlf
}
macro litem
{
db '</li>',crlf,'<li>',crlf
}
macro ulend
{
db '</li>',crlf,'</ul>',crlf
}
macro tab s
{
db '<table'
;border="',s,
db '>',crlf
}
macro tabend
{
db '</table>',crlf
}
macro tcol s
{
db '<td'
if ~ s eq
db ' rowspan="',s,'"'
end if
db '>',crlf
}
macro endcol
{
db '</td>',crlf
}
macro trow s
{
db '<tr'
if ~ s eq
db ' rowspan="',s,'"'
end if
db '>',crlf
}
macro endrow
{
db '</tr>',crlf
}
]]> |
