      character*72 a
      write(*,100)
100   format('Content-type: text/html'//)
      read(*,*) a
      write(*,*) '<html>'
      write(*,*) 'Here is what test1.cgi sees:<br>'
      write(*,'(a72)') a
      write(*,*) '<p>'
      write(*,*) 'First box:',a(6:9),'<br>'
      write(*,*) 'Second box:',a(16:19),'</html>'
      stop
      end