character*72 a write(*,100) 100 format('Content-type: text/html'//) read(*,*) a write(*,*) '' write(*,*) 'Here is what test1.cgi sees:
' write(*,'(a72)') a write(*,*) '

' write(*,*) 'First box:',a(6:9),'
' write(*,*) 'Second box:',a(16:19),'' stop end