program mungps
	character*80 line,lline
	open(unit=2,status='new',carriagecontrol='list')
	line=' '

100	lline=line
	read(1,101) linel,line
101	format(q,a80)

	if (index(lline,'%').eq.0) go to 200
	if (line(1:1).eq.'%') go to 200
	type *,line

200	go to 100
	end