Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI151.ASC

 
Output of file : TI151.ASC contained in archive : PASS_ALL.ZIP








PRODUCT : TURBO GAMEWORKS NUMBER
: 151
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 1/2
TITLE : SCORING UPDATE FOR BRIDGTE




The following are updates to the scoring in the BRIDGE program.

Make the modifications listed below, and enter the current date
at the top of each module.

All modifications must be made to the SCORE.BR include file with
Turbo Pascal, version 3.0.

1) The first change involves a stray 1 that is added to the
overline score after a game is won. To rectify this:

In procedure AddBonus:

Change:

if RubberBonus > 0 then
...
To:

if RubberBonus > 1 then
...

2) The following changes correct the totals that are sent to
the script file:

A) In procedure CompareTotals

Change:

N_S.Total := N_S.Total + RubberBonus;
if E_W.Total > N_S.Total then

To:

if E_W.Total > N_S.Total + RubberBonus then

Change:

E_W.Total := E_W.Total + RubberBonus;
if N_S.Total > E_W.Total then

To:














PRODUCT : TURBO GAMEWORKS NUMBER
: 151
VERSION : 1.00x
OS : PC-DOS
DATE : March 13, 1986 PAGE : 2/2
TITLE : SCORING UPDATE FOR BRIDGE




if N_S.Total > E_W.Total + RubberBonus then

B) In procedure OutputGame delete both occurrences of:

Total := Total + GameRecord[ThisGame];

C) In procedure OutputTeamTotals:

Change:

with N_S do
Write(OutputFile, Total + OverLine:4 , ' | ');
with E_W do
Write(OutputFile, Total + OverLine:4);

To:

with N_S do
Write(OutputFile, Total:4 , ' | ');
with E_W do
Write(OutputFile, Total:4);