character*72 a
data x/-9999./,nrec/0/
write(*,100)
100 format("Content-type: text/html"//)
write(*,*) "Here are the values seen by fortran:
"
5 read(*,'(a72)') a
if(a(1:1).gt.'!') goto 5
read(*,*,err=6) x
6 read(*,*) a
if(a(1:1).gt.'!') goto 6
read(*,'(a20)') a
write(*,*) 'x=',x,'
'
write(*,*) 'a=',a,'
'
write(*,*) 'Here is the file with line numbers added:
'
7 read(*,*) a
if(a(1:1).gt.'!') goto 7
8 continue
read(*,'(a72)',end=99) a
nrec= nrec+1
if(a(1:10).ne.'----------') goto 8
write(*,'(i4,1x,a72,a4)') nrec,a,'
'
99 continue
write(*,*) ''
stop
end