LINK 800
MODE
GRAB 199
MARK LOOPSCORER
COPY F T
ADDI X 1 X
REPL SCORER
TEST EOF
FJMP LOOPSCORER
DROP
MAKE
COPY X T
MARK LOOPWRITE
COPY M F
SUBI T 1 T
TJMP LOOPWRITE
SEEK -9999
COPY 0 X
MARK SEARCHBEST
TEST EOF
TJMP NAME
TEST F > X
FJMP SEARCHBEST
SEEK -1
COPY F X
JUMP SEARCHBEST
MARK NAME
LINK -1
MODE
SEEK -9999
MARK LOOPBEST
COPY X M
SEEK 1
TEST EOF
FJMP LOOPBEST
HALT
MARK SCORER
GRAB T
SEEK 1
COPY F X
ADDI X F X
ADDI X F X
DIVI X 3 X
COPY F T
MULI T F T
DIVI T F T
ADDI X T X
COPY F T
SUBI T F T
MULI T 20 T
ADDI X T X
SEEK -9999
COPY X M
MODE
TEST M = X
TJMP BEST
HALT
MARK BEST
COPY F X
DROP
LINK -1
MAKE
COPY X F
HALT
New solution for Xtrem League Baseball
---- XA ----