V4/usr/man/man0/tocrc

Find at most related files.
including files from this version of Unix. 
if $2x != x goto both
goto $1x
: allx
sh $0 1 I
sh $0 2 II
sh $0 3 III
sh $0 4 IV
sh $0 5 V
sh $0 6 VI
sh $0 7 VII
sh $0 8 VIII
cat tocx? >gorp
ptx -t gorp ptxx
rm gorp
ed - tocx1
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx2
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx3
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx4
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx5
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx6
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx7
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
e tocx8
1,$s/([IV]*) /" "/
1,$s/.*/.xx "&"/
w
q
exit
: 1x
sh $0 1 I
exit
: 2x
sh $0 2 II
exit
: 3x
sh $0 3 III
exit
: 4x
sh $0 4 IV
exit
: 5x
sh $0 5 V
exit
: 6x
sh $0 6 VI
exit
: 7x
sh $0 7 VII
exit
: 8x
sh $0 8 VIII
exit
: x
echo usage: sh tocrc "[12345678]"
exit
: both
chdir /usr/man/man$1
ls >xa
ed - xa
v/\.[12345678]$/d
g/^/s//e /\
.a\
/NAME/1p
w
q
ed - <xa >xb
echo "1,$s/ *\\\*- */("$2") /" >xa
echo w /usr/man/man0/tocx$1 >>xa
ed - xb <xa
rm xa xb