!繝�ぅ繝ｬ繧ｯ繝医Μ蜀��蜈�判蜒上ヵ繧｡繧､繝ｫ縺ｮ諡｡蠑ｵ蟄舌′.jpg縺ｮ蝣ｴ蜷�
!for a in *.jpg; do convert -resize 120x90 $a `echo $a
!| sed s/.jpg/_120.jpeg/g` ; done
!荳願ｨ倥ｒ荳陦後〒螳溯｡後＠縺ｦ縲∝推逕ｻ蜒上ヵ繧｡繧､繝ｫ縺ｮ繧ｵ繝�繝阪う繝ｫ繧剃ｽ懈�縲�
!ls *.jpg > lsjpg  縺ｧ蜈�判蜒上□縺代�繝ｪ繧ｹ繝医ｒ菴懈�
!ls -l -h *.jpg > lslh  縺ｧ蜈�判蜒上�繝輔ぃ繧､繝ｫ諠��ｱ縺ｮ繝ｪ繧ｹ繝医ｒ菴懈�
!lslh縺ｮ荳ｭ縺ｮ縺�ｉ縺ｪ縺�Κ蛻�ｒ邂ｱ驕ｸ謚槭〒蜑企勁
!ls *.jpeg > lsjpeg 縺ｧ繧ｵ繝�繝阪う繝ｫ縺ｮ繝ｪ繧ｹ繝医ｒ菴懈�
!cp lsjpg lshtml  縺ｧlsjpg繧値shtml縺ｫ繧ｳ繝斐�縺励※縲」i縺ｧ髢九″
!蜀帝�ｭ縺ｫ蜈�判蜒上ヵ繧｡繧､繝ｫ謨ｰ繧呈嶌縺崎ｾｼ縺ｿ縲�
!.jpg縺ｮ諡｡蠑ｵ蟄舌ｒ.html縺ｫ鄂ｮ謠帙☆繧九�
!
implicit real*8(a-h,o-z)
character a20h(1000)*20,a20je*20,a20j*20,html*20,a40l*40
nretu=3
open(1,file='lshtml')
read(1,*) n
open(2,file='lsjpeg')
open(3,file='lsjpg')
open(4,file='lslh')
open(7,file='index.html')
iretu=0
write(7,*) '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"'
write(7,*) '"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
write(7,*) '<html xmlns="http://www.w3.org/1999/xhtml"'
write(7,*) 'xml:lang="ja" version="-//W3C//DTD XHTML 1.1//EN">'
write(7,*) '<head>'
write(7,*) '<meta http-equiv="Content-type" content="application/xhtml+xml;'
write(7,*) 'charset=utf-8" />'
write(7,*) '<meta http-equiv="Content-Style-Type" content="text/css" />'
write(7,*) '<link rel="stylesheet" href="./webhtml.css" '
write(7,*) 'type="text/css" />'
write(7,*) '<title>逕ｻ蜒上い繝ｫ繝舌Β</title>'
write(7,*) '</head>'
write(7,*) '<body>'
write(7,*) '<table>'
do i=1,n
read(1,*) a20h(i)
end do
do i=1,n
if(iretu==0) then
write(7,*) '<tr>'
end if
iretu=iretu+1
read(2,*) a20je
read(4,'(a40)') a40l
write(7,*) '<td>'
write(7,*) ' <a href="',a20h(i),'"><img src="',a20je,'" /></a><br />'
write(7,*) '  <p>'
write(7,*) '  <small>'
write(7,*) '   雉�侭逡ｪ蜿ｷ��',i,'<br />'
write(7,'(a40)') a40l
write(7,*) '  </small>'
write(7,*) '  </p>'
write(7,*) '</td>'
if(iretu==nretu) then
write(7,*) '</tr>'
iretu=0
end if
!
open(8,file=a20h(i))
read(3,*) a20j
write(8,*) '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"'
write(8,*) '"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
write(8,*) '<html xmlns="http://www.w3.org/1999/xhtml"'
write(8,*) 'xml:lang="ja" version="-//W3C//DTD XHTML 1.1//EN">'
write(8,*) '<head>'
write(8,*) '<meta http-equiv="Content-type" content="application/xhtml+xml;'
write(8,*) 'charset=utf-8" />'
write(8,*) '<meta http-equiv="Content-Style-Type" content="text/css" />'
write(8,*) '<link rel="stylesheet" href="./webhtml.css" '
write(8,*) 'type="text/css" />'
write(8,*) '<title>',a20j,'</title>'
write(8,*) '</head>'
write(8,*) '<body>'
write(8,*) '<p>'
write(8,*) '<a href="./index.html">荳�</a><br />'
write(8,*) '<a href="',a20h(i-1),'">蜑�</a>'
write(8,*) '<a href="',a20j,'"><img src="',a20j,'" width="600" " /></a>'
write(8,*) '<a href="',a20h(i+1),'">谺｡</a><br />'
write(8,'(a40)')    a40l
write(8,*) '</p>'
write(8,*) '<ul>'
write(8,*) ' <li>雉�侭逡ｪ蜿ｷ��',i,'</li>'
write(8,*) ' <li>逕ｻ蜒冗ｨｮ蛻･��</li>'
write(8,*) ' <li>邏咏ｨｮ��</li>'
write(8,*) ' <li>蟷ｴ莉｣��</li>'
write(8,*) ' <li>繧ｭ繝ｼ繝ｯ繝ｼ繝会ｼ�</li>'
write(8,*) '</ul>'
write(8,*) '</body>'
write(8,*) '</html>'
close(8)
!
end do
write(7,*) '</tr>'
write(7,*) '</table>'
write(7,*) '</body>'
write(7,*) '</html>'
close(1)
close(2)
close(3)
close(4)
close(7)
end