(11C) (15C) Scoreboard for Tridom/Tri-Ominos

[Michael Zinn]

Keep score for up to 8 players of the game Tridom/Tri-Ominos.

Tridom/Tri-Ominos is a game with triangular domino pieces where you have to keep track of points, penalty points and total points separately for each player.

SETUP

1. Change the calculator's number format to the "wrong" decimal separator.
2. Set calculator to USER mode
3. Enter the number of players
4. GSB 0 (The reset/set player program is on a numbered label to prevent accidentally running it)

USER MANUAL

The program will always display the score of the currently active player in this format: PLAYER.POINTS.PENALTY.TOTAL. For example, if player 3 has 254 points and 30 penalty points, the display will show 3.254.030.224.

A awards the active player X points, e.g. 23 A will give the player 23 points.
B awards 5 penalty points. To award 10 penalty points, simply press B twice.
C no use
D select previous player (cycles from 1 to last player)
E select next player (after the last player, this cycles back to player 1)

EXAMPLE USAGE

Two players want to play so you do 2 GSB 0.
The display now displays 1.000.000.000 indicating that player 1 is selected and has no points.
Player one places a piece with a score of 12 and gets 25 bonus points. Do 12 A 25 A.
The calculator now displays 1.037.000.037.
Player 1's turn ends, so do E, which will display 2.000.000.000.
Player 2 places a piece and gets 5 points, so do 5 A, which will result in 2.005.000.005.
End the turn with E showing 1.037.000.037.
Player 1 can't play and draws a piece which incurs 5 penalty points, so you press B, resulting in 1.037.005.032.
Player 1 draws 2 more pieces and still can't play, so you press B twice for the two drawn pieces and then twice again to give 10 penalty points, resulting in 1.037.025.012.
...
Later in the game, you'll notice that player 1 broke the 400 points barrier: 1.403.065.338. This indicates that the current game will be the last one of the match.
At the end of the game you'll see that player 2 has more total points than player 1 (because of less penalty points) and thus wins: 2.388.020.368.

Code:

LBL 0 ; reset, set players
  STO 9
  STO I
  LBL 1
    RCL I
    EEX
    9
    *
    STO (i)
    DSE
      GTO 1
  1
  STO I
  RCL (i)
  RTN

LBL A ; add points
  ENTER
  ENTER
  EEX
  6
  *
  +
  RCL (i)
  +
  STO (i)
  RTN

LBL B ; 5 penalty points
  RCL (i)
  4
  9
  9
  5
  +
  STO (i)
  RTN

LBL D ; previous player
  RCL I
  1
  -
  x=0
    RCL 9
  STO I
  RCL (i)
  RTN

LBL E ; next player
  RCL 9
  RCL I
  1
  +
  x>y
    1
  STO I
  RCL (i)
  RTN