facts
/infobank/programs/html/factsheets/facts.for
(none)
read (90, '(q,a)', end=99) * alinelength, aline(1:alinelength) read (90, '(q,a)', end=99) * blinelength, bline(1:blinelength)
write (91, '(a,a,a)') * aline(title+7:titleend-1), char(9), * bline(opendoc+10:pdf-1)//'.pdf'
call openem (1,-1)
U.S. Department of the Interior | U.S. Geological Survey URL: http://walrus.wr.usgs.gov/infobank/programs/html/factsheets/facts.doc.html Page Contact Information: Clint Steele Page Last Modified: Tue Mar 28 04:25:19 PST 2006 (wcs)