:
#   @(#)servers	13.3   (RC International)   91/10/31 
echo "FTS-machines connected to RcLAN now"
for lan in lana lanb lanc land
do
    /etc/getnames | fgrep FTS | fgrep $lan > /tmp/.ftshosts$$_$lan
    ed - /tmp/.ftshosts$$_$lan > /dev/null <<\!
g/^/s/^[ 	]*\(.*FTS\).*$/\1/
g/^/s/FTS$//
w
!
    if [ -s /tmp/.ftshosts$$_$lan ]
    then
        echo $lan:
	prline=6
        cols=`expr \`wc -l < /tmp/.ftshosts$$_$lan\` / $prline + 1`
        sort /tmp/.ftshosts$$_$lan | pr  -$prline -l$cols -o4 -t
    fi
    rm /tmp/.ftshosts$$_$lan
done