From: yoonho@dip.eecs.umich.edu (Yoonho Park)
Newsgroups: rec.sport.golf
Subject: Improved handicap scripts
Date: 31 Jul 92 18:01:55 GMT
Organization: University of Michigan EECS Dept., Ann Arbor, MI

Thanks to The UNIXMeister (Marc St-Gil) down in Texas we have improved
handicap scripts.

Scott, I've tried to respond to your email, but my responses bounce.
:(  Have you been able to get my scripts working?

----------------------------------------------------------------------------
Yoonho Park                                    Software Systems Research Lab
yoonho@eecs.umich.edu                  The University of Michigan--Ann Arbor
Summer: park@hpl.hp.com
----------------------------------------------------------------------------

================================================================================
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	handicap/README
#	handicap/README.msg
#	handicap/diffs.awk
#	handicap/diffs.pl
#	handicap/handi.awk
#	handicap/handi.pl
#	handicap/handicap.ksh
#	handicap/handicap.sh
#	handicap/history.yoon
#	handicap/scores.yoon
# This archive created: Fri Jul 31 12:39:21 1992
export PATH; PATH=/bin:$PATH
echo shar: extracting "'handicap/README'" '(1404 characters)'
if test -f 'handicap/README'
then
	echo shar: will not over-write existing file "'handicap/README'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/README'
X
XYou should have the following files:
X
X  README	This file
X  diffs.awk	Calculates differentials (implements ESC)
X  handi.awk	Calculates your handicap
X  handicap*	A ksh script that runs diffs.awk and handi.awk
X  history.yoon	An example history file
X  scores.yoon	An example scores file
X
XCalculating your handicap is a 2 step process.  First, you enter your
Xscores in the scores file.  Then you type
X
X  ./handicap
X
XEach line in the scores file should have the following format:
X
X  date one_word_description par rating slope scores...
X
XYour scores should be entered as strokes plus or minus from par (ex, a
Xbirdie is -1, par is 0, a bogey is 1, etc).  After you run handicap, a
Xdifferential is attached to each line in the scores file.
X
XAs an example I've included my history and scores file.  The last score
Xin my scores file does not have a differential, so type the following
Xcommands to calculate my ``latest handicap:''
X
X  mv scores.yoon scores
X  mv history.yoon history
X  ./handicap
X
XMy ``latest handicap'' should be 18.3 on 7/22/92.  The last line in the
Xscores file should now have a differential of 22.3.
X
XOne more thing.  Before you run handicap, you should edit it and make
Xsure the AWK variable is set correctly.  The awk you use needs to handle
Xfloating point numbers.  I use the latest gawk.  Some awks (such as
Xthe new awk found in HP-UX Release 8.0) will also handle floating point
Xnumbers.
X
SHAR_EOF
if test 1404 -ne "`wc -c < 'handicap/README'`"
then
	echo shar: error transmitting "'handicap/README'" '(should have been 1404 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/README.msg'" '(2693 characters)'
if test -f 'handicap/README.msg'
then
	echo shar: will not over-write existing file "'handicap/README.msg'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/README.msg'
XThis is a modified copy of Yoonho Park's original README file.
XI have made a Bourne Shell version of handicap for those who don't
Xhave the Korn Shell and I have used the a2p program from the perl4
Xdistribution to convert those awk scripts to perl for those who
Xprefer to hack in perl over awk, like me.  ;)  I also modified
XYoonho's handicap script to be more installation portable and
Xsupport having one copy of the scripts that multiple people can
Xuse.
X
XYou should have the following files:
X
X  README	This file
X  diffs.awk	Calculates differentials (implements ESC)
X  diffs.pl	Calculates differentials (implements ESC)
X  handi.awk	Calculates your handicap
X  handi.pl	Calculates your handicap
X  handicap.ksh	A ksh script that runs diffs.awk and handi.awk
X  handicap.sh	A bourne shell script that runs diffs.pl and handi.pl
X  history.yoon	An example history file
X  scores.yoon	An example scores file
X
XBefore you run handicap, you need to choose which version to run and whether
Xor not to use the perl replacements for the awk scripts.  The 1st step is to
Xcopy either handicap.ksh or handicap.sh to handicap.  Next you need to edit
Xhandicap and set values for HANDILIB and HANDIDAT to where you expect to
Xfind the support programs and the data files, respectively.  Also, you need
Xto set the value of USE_PERL, and AWK or PERL as per the instruction in the
Xcomments.  Next you need to copy your new handicap script to a public bin
Xdirectory like /usr/local/bin.  Then copy the appropriate diffs and handi
Xprograms to wherever you assigned HANDILIB.
X
XBefore you run handicap using awk, verify that the awk you use needs to
Xhandle floating point numbers.  I use the latest gawk.  Some awks (such as
Xthe new awk found in HP-UX Release 8.0) will also handle floating point
Xnumbers.
X
XCalculating your handicap is a 2 step process.  First, you enter your
Xscores in the scores file.  Then you type
X
X  handicap
X
XEach line in the scores file should have the following format:
X
X  date one_word_description par rating slope scores...
X
XYour scores should be entered as strokes plus or minus from par (ex, a
Xbirdie is -1, par is 0, a bogey is 1, etc).  After you run handicap, a
Xdifferential is attached to each line in the scores file.
X
XAs an example I've included my history and scores file.  The last score
Xin my scores file does not have a differential, so type the following
Xcommands to calculate my ``latest handicap:''
X
X  cp scores.yoon $HANDIDAT/scores
X  cp history.yoon $HANDIDAT/history
X  handicap
X
XReplace $HANDIDAT with the value you assigned it in your copy of handicap.
XMy ``latest handicap'' should be 18.3 on 7/22/92.  The last line in the
Xscores file should now have a differential of 22.3.
SHAR_EOF
if test 2693 -ne "`wc -c < 'handicap/README.msg'`"
then
	echo shar: error transmitting "'handicap/README.msg'" '(should have been 2693 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/diffs.awk'" '(993 characters)'
if test -f 'handicap/diffs.awk'
then
	echo shar: will not over-write existing file "'handicap/diffs.awk'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/diffs.awk'
X# Calculate the differentials (apply ESC)
X
XBEGIN {
X	# Figure out how many doubles and triples are allowed
X	num_scores = 0
X	num_dbl_allowed = 0
X	num_trp_allowed = 0
X	if ( handicap <= 18 ) {
X		num_dbl_allowed = handicap
X	} else {
X		num_dbl_allowed = 18
X		num_trp_allowed = handicap - 18
X	}
X}
X
X{
X	par = $3
X	rating = $4
X	slope = $5
X	# If the differential has been calculated, don't recalculate it
X	if ( NF == 24 ) {
X		print $0
X		num_scores++
X		next
X	}
X	# Apply ESC
X	num_dbl = 0
X	num_trp = 0
X	for ( i = 0; i < 18; i++ ) {
X		score = $(i+6)
X		if ( score > 3 ) {
X			score = 3
X		}
X		if ( score == 3) {
X			num_trp++
X			if ( num_trp > num_trp_allowed ) {
X				score = 2
X				num_trp--
X			}
X		}
X		if ( score == 2 ) {
X			num_dbl++
X			if ( num_dbl > num_dbl_allowed ) {
X				score = 1
X				num_dbl--
X			}
X		}
X		round[i] = score
X	}
X	# Calculate the differential
X	diff = 0
X	for ( i = 0; i < 18; i++ ) {
X		diff += round[i]
X	}
X	diff += (par-rating)
X	diff *= 113/slope
X	printf "%s %0.1f\n", $0, diff
X	num_scores++
X}
SHAR_EOF
if test 993 -ne "`wc -c < 'handicap/diffs.awk'`"
then
	echo shar: error transmitting "'handicap/diffs.awk'" '(should have been 993 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/diffs.pl'" '(1623 characters)'
if test -f 'handicap/diffs.pl'
then
	echo shar: will not over-write existing file "'handicap/diffs.pl'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/diffs.pl'
X#!/usr/local/bin/perl
Xeval "exec /usr/local/bin/perl -S $0 $*"
X    if $running_under_some_shell;
X			# this emulates #! processing on NIH machines.
X			# (remove #! line above if indigestible)
X
Xeval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
X			# process any FOO=bar switches
X
X# Calculate the differentials (apply ESC)
X
X$[ = 1;			# set array base to 1
X$, = ' ';		# set output field separator
X$\ = "\n";		# set output record separator
X
X# Figure out how many doubles and triples are allowed
X$num_scores = 0;
X$num_dbl_allowed = 0;
X$num_trp_allowed = 0;
Xif ($handicap <= 18) {
X    $num_dbl_allowed = $handicap;
X}
Xelse {
X    $num_dbl_allowed = 18;
X    $num_trp_allowed = $handicap - 18;
X}
X
Xline: while (<>) {
X    chop;	# strip record separator
X    @Fld = split(' ', $_, 9999);
X
X    $par = $Fld[3];
X    $rating = $Fld[4];
X    $slope = $Fld[5];
X    # If the differential has been calculated, don't recalculate it
X    if ($#Fld == 24) {
X	print $_;
X	$num_scores++;
X	next line;
X    }
X    # Apply ESC
X    $num_dbl = 0;
X    $num_trp = 0;
X    for ($i = 0; $i < 18; $i++) {
X	$score = $Fld[$i + 6];
X	if ($score > 3) {
X	    $score = 3;
X	}
X	if ($score == 3) {
X	    $num_trp++;
X	    if ($num_trp > $num_trp_allowed) {
X		$score = 2;
X		$num_trp--;
X	    }
X	}
X	if ($score == 2) {
X	    $num_dbl++;
X	    if ($num_dbl > $num_dbl_allowed) {
X		$score = 1;
X		$num_dbl--;
X	    }
X	}
X	$round{$i} = $score;
X    }
X    # Calculate the differential
X    $diff = 0;
X    for ($i = 0; $i < 18; $i++) {
X	$diff += $round{$i};
X    }
X    $diff += ($par - $rating);
X    $diff *= 113 / $slope;
X    printf "%s %0.1f\n", $_, $diff;
X    $num_scores++;
X}
SHAR_EOF
if test 1623 -ne "`wc -c < 'handicap/diffs.pl'`"
then
	echo shar: error transmitting "'handicap/diffs.pl'" '(should have been 1623 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/handi.awk'" '(1270 characters)'
if test -f 'handicap/handi.awk'
then
	echo shar: will not over-write existing file "'handicap/handi.awk'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/handi.awk'
X# Grab the differentials, figure out how many to use, average those
X# differentials and multiply by 0.96
X
XBEGIN {
X	num_scores = 0
X	total = 0
X	max_diff = 0
X}
X
X{
X	date = $1
X	dif = $24
X	diff[num_scores % 20] = dif
X	num_scores++
X}
X
XEND {
X	# Does awk (or gawk) have a case statement?!
X	if ( num_scores < 5 ) {
X		printf "%8s\t%s\n", date, "36.0"
X		exit
X	}
X	if ( num_scores == 5 || num_scores == 6 ) { num_best = 1 }
X	if ( num_scores == 7 || num_scores == 8 ) { num_best = 2 }
X	if ( num_scores == 9 || num_scores == 10 ) { num_best = 3 }
X	if ( num_scores == 11 || num_scores == 12 ) { num_best = 4 }
X	if ( num_scores == 13 || num_scores == 14 ) { num_best = 5 }
X	if ( num_scores == 15 || num_scores == 16 ) { num_best = 6 }
X	if ( num_scores == 17 )	{ num_best = 7 }
X	if ( num_scores == 18 ) { num_best = 8 }
X	if ( num_scores == 19 ) { num_best = 9 }
X	if ( num_scores >= 20 ) { num_best = 10 }
X	# Bubble sort the diffs to make grabbing the num_best best diffs
X	# easy
X	for ( i = 0; i < num_scores; i++ ) {
X		for ( j = i+1; j < num_scores; j++ ) {
X			if ( diff[i] > diff[j] ) {
X				tmp = diff[i]
X				diff[i] = diff[j]
X				diff[j] = tmp
X			}
X		}
X	}
X	for ( i = 0; i < num_best; i++ ) {
X		total += diff[i]
X	}
X	handicap = total/num_best*0.96
X	printf "%8s\t%0.1f\n", date, handicap
X}
SHAR_EOF
if test 1270 -ne "`wc -c < 'handicap/handi.awk'`"
then
	echo shar: error transmitting "'handicap/handi.awk'" '(should have been 1270 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/handi.pl'" '(1877 characters)'
if test -f 'handicap/handi.pl'
then
	echo shar: will not over-write existing file "'handicap/handi.pl'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/handi.pl'
X#!/usr/local/bin/perl
Xeval "exec /usr/local/bin/perl -S $0 $*"
X    if $running_under_some_shell;
X			# this emulates #! processing on NIH machines.
X			# (remove #! line above if indigestible)
X
Xeval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
X			# process any FOO=bar switches
X
X# Grab the differentials, figure out how many to use, average those
X# differentials and multiply by 0.96
X
X$num_scores = 0;
X$total = 0;
X$max_diff = 0;
X
Xline: while (<>) {
X    ($Fld1,$Fld2,$Fld3,$Fld4,$Fld5,$Fld6,$Fld7,$Fld8,$Fld9,$Fld10,$Fld11,$Fld12,$Fld13,$Fld14,$Fld15,$Fld16,$Fld17,$Fld18,$Fld19,$Fld20,$Fld21,$Fld22,$Fld23,$Fld24)
X
X      = split(' ', $_, 9999);
X
X    $date = $Fld1;
X    $dif = $Fld24;
X    $diff{$num_scores % 20} = $dif;
X    $num_scores++;
X}
X
X# Does awk (or gawk) have a case statement?!
Xif ($num_scores < 5) {
X    printf "%8s\t%s\n", $date, '36.0';
X    exit;
X}
Xif ($num_scores == 5 || $num_scores == 6) {
X    $num_best = 1;
X}
Xif ($num_scores == 7 || $num_scores == 8) {
X    $num_best = 2;
X}
Xif ($num_scores == 9 || $num_scores == 10) {
X    $num_best = 3;
X}
Xif ($num_scores == 11 || $num_scores == 12) {
X    $num_best = 4;
X}
Xif ($num_scores == 13 || $num_scores == 14) {
X    $num_best = 5;
X}
Xif ($num_scores == 15 || $num_scores == 16) {
X    $num_best = 6;
X}
Xif ($num_scores == 17) {
X    $num_best = 7;
X}
Xif ($num_scores == 18) {
X    $num_best = 8;
X}
Xif ($num_scores == 19) {
X    $num_best = 9;
X}
Xif ($num_scores >= 20) {
X    $num_best = 10;
X}
X# Bubble sort the diffs to make grabbing the num_best best diffs
X# easy
Xfor ($i = 0; $i < $num_scores; $i++) {
X    for ($j = $i + 1; $j < $num_scores; $j++) {
X	if ($diff{$i} > $diff{$j}) {
X	    $tmp = $diff{$i};
X	    $diff{$i} = $diff{$j};
X	    $diff{$j} = $tmp;
X	}
X    }
X}
Xfor ($i = 0; $i < $num_best; $i++) {
X    $total += $diff{$i};
X}
X$handicap = $total / $num_best * 0.96;
Xprintf "%8s\t%0.1f\n", $date, $handicap;
X
SHAR_EOF
if test 1877 -ne "`wc -c < 'handicap/handi.pl'`"
then
	echo shar: error transmitting "'handicap/handi.pl'" '(should have been 1877 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/handicap.ksh'" '(1654 characters)'
if test -f 'handicap/handicap.ksh'
then
	echo shar: will not over-write existing file "'handicap/handicap.ksh'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/handicap.ksh'
X#!/usr/local/testbin/ksh
X
X# Set HANDILIB to the pathname of the directory you put the support programs
X# in.  (diffs.awk handi.awk)
XHANDILIB=.
X# Set HANDIDAT to the pathname of the directory you put the data files in.
X# (scores history)
XHANDIDAT=.
X# Set USE_PERL to 1 to use perl instead of AWK
XUSE_PERL=0
X# Where is your perl binary
XPERL=/usr/local/bin/perl
X# If your awk does not handle floating point numbers, use gawk
XAWK=/usr/local/bin/gawk
X# STOP HERE - YOU'RE DONE.
X
Xif [[ $USE_PERL == 1 ]]
Xthen
X    if [[ ! -x $PERL ]]
X    then
X	print "Set PERL correctly in handicap (PERL is now $PERL)"
X	exit
X    fi
X    DIFF='$PERL $HANDILIB/diffs.pl handicap=$handicap < $HANDIDAT/scores > $HANDIDAT/scores.diffs'
X    HANDI='$PERL $HANDILIB/handi.pl < $HANDIDAT/scores.diffs >> $HANDIDAT/history'
Xelse
X    if [[ ! -x $AWK ]]
X    then
X	print "Set AWK correctly in handicap (AWK is now $AWK)"
X	exit
X    fi
X    DIFF='$AWK -f $HANDILIB/diffs.awk -v handicap=$curr_hndcp $HANDIDAT/scores > $HANDIDAT/scores.diffs'
X    HANDI='$AWK -f $HANDILIB/handi.awk $HANDIDAT/scores.diffs >> $HANDIDAT/history'
Xfi
X
X# Open the history file
Xif [[ ! -f $HANDIDAT/history ]]; then touch $HANDIDAT/history; fi
Xexec 3<$HANDIDAT/history
X
X# Grab the current handicap
Xcurr_hndcp=36
Xwhile read -r -u3 date hndcp
Xdo
X	curr_hndcp=$hndcp
Xdone
X
X# Close the history file
Xexec 3<&-
X
X# Calculate the differentials
Xif [[ ! -f $HANDIDAT/scores ]]; then touch $HANDIDAT/scores; fi
Xeval $DIFF
X
X# Calculate the current handicap and append it to the history file
Xeval $HANDI
X
X# Update the scores file
X/bin/mv $HANDIDAT/scores.diffs $HANDIDAT/scores
X
X# Display the last handicaps
Xtail $HANDIDAT/history
SHAR_EOF
if test 1654 -ne "`wc -c < 'handicap/handicap.ksh'`"
then
	echo shar: error transmitting "'handicap/handicap.ksh'" '(should have been 1654 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/handicap.sh'" '(1706 characters)'
if test -f 'handicap/handicap.sh'
then
	echo shar: will not over-write existing file "'handicap/handicap.sh'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/handicap.sh'
X#!/bin/sh
Xset -x
X# Set HANDILIB to the pathname of the directory you put the support programs
X# in.  (diffs.awk handi.awk)
X# default is /usr/local/lib/handicap directory
XHANDILIB=/usr/local/lib/handicap
X# Set HANDIDAT to the pathname of the directory you put the data files in.
X# (scores history)
X# default is handicap directory in users home directory
XHANDIDAT=$HOME/handicap
X# Set USE_PERL to 1 to use perl instead of AWK
XUSE_PERL=1
X# Where is your perl binary
XPERL=/usr/local/bin/perl
X# If your awk does not handle floating point numbers, use gawk
XAWK=/usr/local/bin/gawk
X# STOP HERE - YOU'RE DONE.
X
Xif [ $USE_PERL -eq 1 ]
Xthen
X    if [ ! -x $PERL ]
X    then
X	echo "Set PERL correctly in handicap (PERL is now $PERL)"
X	exit
X    fi
X    DIFF='$PERL $HANDILIB/diffs.pl handicap=$handicap < $HANDIDAT/scores > $HANDIDAT/scores.diffs'
X    HANDI='$PERL $HANDILIB/handi.pl < $HANDIDAT/scores.diffs >> $HANDIDAT/history'
Xelse
X    if [ ! -x $AWK ]
X    then
X	echo "Set AWK correctly in handicap (AWK is now $AWK)"
X	exit
X    fi
X    DIFF='$AWK -f $HANDILIB/diffs.awk -v handicap=$curr_hndcp $HANDIDAT/scores > $HANDIDAT/scores.diffs'
X    HANDI='$AWK -f $HANDILIB/handi.awk $HANDIDAT/scores.diffs >> $HANDIDAT/history'
Xfi
X
X# get the last handicap from the history file
Xif [ ! -f $HANDIDAT/history ]; then
X  touch $HANDIDAT/history
X  handicap=36
Xelse
X  handicap=`tail -1 $HANDIDAT/history | cut -f 2`
Xfi
X
X# Calculate the differentials
Xif [ ! -f $HANDIDAT/scores ]; then
X  touch $HANDIDAT/scores
Xfi
X
Xeval $DIFF
X
X# Calculate the current handicap and append it to the history file
Xeval $HANDI
X
X# Update the scores file
X/bin/mv $HANDIDAT/scores.diffs $HANDIDAT/scores
X
X# Display the last handicaps
Xtail $HANDIDAT/history
SHAR_EOF
if test 1706 -ne "`wc -c < 'handicap/handicap.sh'`"
then
	echo shar: error transmitting "'handicap/handicap.sh'" '(should have been 1706 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/history.yoon'" '(140 characters)'
if test -f 'handicap/history.yoon'
then
	echo shar: will not over-write existing file "'handicap/history.yoon'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/history.yoon'
X 5/31/92	19.8
X  6/1/92	19.8
X  6/3/92	20.2
X  6/9/92	20.2
X 6/15/92	17.9
X 6/30/92	17.9
X  7/6/92	18.3
X 7/10/92	17.2
X 7/17/92	17.8
X 7/20/92	17.8
SHAR_EOF
if test 140 -ne "`wc -c < 'handicap/history.yoon'`"
then
	echo shar: error transmitting "'handicap/history.yoon'" '(should have been 140 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'handicap/scores.yoon'" '(979 characters)'
if test -f 'handicap/scores.yoon'
then
	echo shar: will not over-write existing file "'handicap/scores.yoon'"
else
sed 's/^X//' << \SHAR_EOF > 'handicap/scores.yoon'
X5/21/92 PA 72 70.4 113 2 0 0 2 2 0 1 0 1 1 1 3 1 1 3 2 1 1 23.6
X5/22/92 Sv 70 69.7 119 1 1 1 2 2 1 1 3 2 1 2 1 1 1 1 1 1 1 23.1
X5/25/92 SC 72 70.5 118 2 2 1 2 0 1 2 3 1 2 1 1 1 0 1 1 1 0 22.5
X5/29/92 PA 72 70.4 113 2 2 1 2 2 0 0 1 0 1 2 1 2 1 0 0 1 1 20.6
X5/31/92 PA 72 70.4 113 2 2 2 2 1 1 1 0 1 2 1 1 1 1 1 0 1 0 21.6
X6/1/92 SC 72 70.5 118 2 0 1 2 0 1 0 3 1 1 1 2 1 2 2 2 0 0 21.5
X6/3/92 Shrln 72 70.1 121 4 2 1 3 4 4 3 0 2 1 0 2 0 1 1 2 1 4 26.1
X6/9/92 Sv 70 69.7 119 1 0 2 1 1 2 0 4 4 0 1 1 2 2 -1 3 1 3 22.1
X6/15/92 Shrln 72 70.1 121 1 2 1 1 1 1 1 0 -1 0 1 0 0 0 1 3 0 1 13.9
X6/30/92 Shrln 72 70.1 121 1 2 0 2 2 1 1 3 2 1 1 0 1 1 1 1 1 1 21.4
X7/6/92 Shrln 72 70.1 121 3 2 2 0 2 1 4 0 0 1 2 0 1 1 1 0 1 2 20.5
X7/10/92 Stadium 72 72.0 130 2 1 1 2 1 1 2 0 1 0 2 1 1 0 0 2 0 2 16.5
X7/17/92 Shrln 72 70.1 121 1 0 1 2 1 1 1 1 4 1 1 2 1 1 2 3 3 2 24.2
X7/20/92 Sunol 72 67.2 112 2 1 3 2 2 0 3 2 2 1 0 0 2 4 1 3 1 1 30.1
X7/22/92 Shrln 72 70.1 121 1 2 1 0 1 1 2 1 2 1 2 2 1 2 0 1 0 2
SHAR_EOF
if test 979 -ne "`wc -c < 'handicap/scores.yoon'`"
then
	echo shar: error transmitting "'handicap/scores.yoon'" '(should have been 979 characters)'
fi
fi # end of overwriting check
#	End of shell archive
exit 0