home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI151.ASC < prev    next >
Encoding:
Text File  |  1988-06-01  |  1.5 KB  |  67 lines
  1. The following are updates to the scoring in the BRIDGE program. 
  2.  
  3. Make  the modifications listed below,  and enter the current date 
  4. at the top of each module.
  5.  
  6. All modifications must be made to the SCORE.BR include file  with 
  7. Turbo Pascal, version 3.0.  
  8.  
  9.  1)  The  first change involves a stray 1 that is  added  to  the           
  10.      overline score after a game is won.  To rectify this:
  11.  
  12.      In procedure AddBonus:
  13.  
  14.      Change:
  15.  
  16.         if RubberBonus > 0 then
  17.          ...
  18.      To:
  19.  
  20.         if RubberBonus > 1 then
  21.          ...
  22.  
  23.  2) The following changes correct the totals that are sent to the     
  24.     script file:
  25.  
  26.     A) In procedure CompareTotals
  27.  
  28.       Change:
  29.  
  30.           N_S.Total := N_S.Total + RubberBonus;
  31.           if E_W.Total > N_S.Total then
  32.   
  33.       To:
  34.  
  35.           if E_W.Total > N_S.Total + RubberBonus then
  36.  
  37.  
  38.  
  39.       Change:
  40.  
  41.          E_W.Total := E_W.Total + RubberBonus;
  42.          if N_S.Total > E_W.Total then
  43.  
  44.       To:
  45.  
  46.          if N_S.Total > E_W.Total + RubberBonus then
  47.  
  48.    B) In procedure OutputGame delete both occurrences of:
  49.  
  50.          Total := Total + GameRecord[ThisGame];
  51.  
  52.    C) In procedure OutputTeamTotals:
  53.  
  54.      Change:
  55.  
  56.         with N_S do
  57.           Write(OutputFile, Total + OverLine:4 , '  |  ');
  58.         with E_W do
  59.           Write(OutputFile, Total + OverLine:4);
  60.  
  61.      To:
  62.  
  63.         with N_S do
  64.           Write(OutputFile, Total:4 , '  |  ');
  65.         with E_W do
  66.           Write(OutputFile, Total:4);
  67.