program Webify ! Read a List_1_7-7_7* text file and make an HTML file with links to ! the drawing number. ! Input format ! 1: Book number ! 3-11: Page numbers ! 13-18: Drawing number ! 20-29: Logic number ! 31-35: Frame / Channel ! 37-40: Subsystem ! 42- : Title character(255) :: Line ! Get title from command line argument call getarg ( 1, line ) ! Begin the file and start a table write ( *, '(a)' ) & & '', & & '1401 ALD drawing browser', & & '

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

', & & '', & & '', & & '', & & '', & & '', & & '', & & '', & & '', & & '', & & '', & & '' do read ( *, '(a)', end=9 ) line if ( line(1:1) == 'B' ) cycle ! Write a table row write ( *, '(a)' ) & & '', & & '', & ! Book & '', & ! Pages & '', & ! Drawing # & '', & ! Logic # & '', & ! FR CH & '', & ! Sys & '', & ! Title & '' end do 9 continue write ( *, '(a)' ) '
BookPagesDrawing #Logic #FR CHSysTitle
' // line(1:1) // '' // line(3:11) // '' // & & line(13:18) // '' // line(20:29) // '' // line(31:35) // '' // line(37:40) // '' // trim(adjustl(line(42:))) // '
', & & '' end program Webify