| Writes |
write (91, '(2x,a)') '</table>'
write (91, '(2x,a)') '<a href="//walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/keywords.html">'//
* '<strong>Geology School Keywords</strong></a>'
write (91, '(2x,a)') '<table border="3" bgcolor="#ccffff">'
write (91, '(4x,a)') '<tr>'
write (91, '(6x,a)') '<th>Title</th>'
write (91, '(6x,a)') '<th>Comment</th>'
write (91, '(6x,a)') '<th>Keywords</th>'
write (91, '(4x,a)') '</tr>'
write (91, '(4x,a)') '<tr>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(3)+1:Tabs(4)-1)
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(4)+1:Tabs(5)-1)
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(5)+1:ALineLength)
write (91, '(6x,a)') '</td>'
write (91, '(4x,a)') '</tr>'
write (91, '(4x,a)') '<tr>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/moviepage/'//
* ALine(Tabs(1)+1:Tabs(2)-1)//'.html">'
write (91, '(8x,a)') ALine(Tabs(3)+1:Tabs(4)-1)
write (91, '(8x,a)') '</a>'
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(4)+1:Tabs(5)-1)
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(5)+1:ALineLength)
write (91, '(6x,a)') '</td>'
write (91, '(4x,a)') '</tr>'
write (91, '(4x,a)') '<tr>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') '<a href="'//
* ALine(Tabs(2)+1:Tabs(3)-1)//'">'
write (91, '(8x,a)') ALine(Tabs(3)+1:Tabs(4)-1)
write (91, '(8x,a)') '</a>'
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(4)+1:Tabs(5)-1)
write (91, '(6x,a)') '</td>'
write (91, '(6x,a)') '<td>'
write (91, '(8x,a)') ALine(Tabs(5)+1:ALineLength)
write (91, '(6x,a)') '</td>'
write (91, '(4x,a)') '</tr>'
write (91, '(2x,a)') '</table>'
write (91, '(2x,a)') '<a href="//walrus.wr.usgs.gov'//
* '/infobank/programs/html/school/keywords.html">'//
* '<strong>Geology School Keywords</strong></a>'
|