#!/bin/csh

rm -f $1.1 $1.2
cp $1 $1.1
cat $1.1|sed -e 's/&#13;/<br>/g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<TD[ 	]\([^N]\)/<TD NOWRAP \1/g'		> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/WIDTH=[0-9][0-9][0-9][0-9]//g'			> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/WIDTH=[0-9][0-9][0-9]//g'				> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/WIDTH=[0-9][0-9]//g'						> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/WIDTH=[0-9]//g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/HEIGHT=[0-9][0-9][0-9][0-9]//g'			> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/HEIGHT=[0-9][0-9][0-9]//g'				> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/HEIGHT=[0-9][0-9]//g'					> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/HEIGHT=[0-9]//g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/ALIGN=JUSTIFY//g'						> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/RULES=GROUPS//g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/COLS=[0-9][0-9]//g'						> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/COLS=[0-9]//g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/SDNUM="[^"]*"//g'						> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/SDVAL="[^"]*"//g'						> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/^<A /<H1><A /g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/><H1>/>/g'								> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<\/H1><\/A>/<\/A><\/H1>/g'				> $1.2; mv $1.2 $1.1
cat $1.1|grep -v COLGROUP									> $1.2; mv $1.2 $1.1
cat $1.1|grep -v TBODY										> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/FRAME=VOID//g'							> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<\/HEAD>//g'								> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<\/STYLE>/<\/STYLE><\/HEAD>/g'			> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/}$/} TD { font-family: "Arial"; }/g'		> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<FONT FACE="Arial">\(.*\)<\/FONT>/\1/g'	> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<FONT FACE="Arial" /<FONT /g'			> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/BORDER=1/BORDER=0 CELLPADDING=0/g'		> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<\/TD>/\&nbsp;\&nbsp;&/g'				> $1.2; mv $1.2 $1.1
cat $1.1|sed -e 's/<BR>&nbsp;&nbsp;/<BR>/g'					> $1.2; mv $1.2 $1.1

set tags=`grep -n "<HR>" $1.1|awk -F : '{print $1}'`
set length=`wc -l $1.1|awk '{print $1}'`

set i=2
while( $i < $#tags )
	set start=$tags[$i]
	set file="section$i.html"

	if ( $i == $#tags ) then
		set stop=$length
		@ i++
	else
		@ i++
		set stop=$tags[$i]
	endif

	@ start++
	@ start++
	@ stop -= $start
	@ stop--

	rm -f $file
	cat $1.1 | tail -n +$start | head -n $stop > $file
end

rm -f $1.1 $1.2
rm -f section8.html