Coastal & Marine Geology InfoBank
facts
/infobank/programs/html/factsheets/facts.for
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)