program Webify_Logic ! Read a List_1_1* text file and make an HTML file with links to ! the drawing number ! Input format: ! 1-9: Page numbers ! 11-16: Drawing number ! 18-22: Figure number ! 24- : Title character(255) :: Line ! Get title from command line argument call getarg ( 1, line ) ! Begin the file and start a table write ( *, '(a)' ) & & '', & & '1401 Logic drawing browser', & & '

1401 Logic drawing browser -- ' // trim(adjustl(line)) // '

', & & '', & & '', & & '', & & '', & & '', & & '', & & '', & & '' do read ( *, '(a)', end=9 ) line if ( line(1:1) == 'P' ) cycle ! Write a table row write ( *, '(a)' ) & & '', & & '', & ! Pages & '', & ! Drawing # & '', & ! Fig # & '', & ! Title & '' end do 9 continue write ( *, '(a)' ) '
PagesDrawing #Fig #Title
' // line(1:9) // '' // & & line(11:16) // '' // line(18:22) // '' // trim(adjustl(line(24:))) // '
', & & '' end program Webify_Logic