Xtreme League Baseball - Exapunks


Here is my solution for Xtreme League Baseball (142,61,3)

MAKE
COPY -1 F
MARK WRITE
COPY M F
JUMP WRITE
LINK 800
GRAB 199
MARK READ
COPY F X
REPL STAT
TEST EOF
FJMP READ
DROP
@REP 12
NOOP
@END
LINK -1
KILL
GRAB 400
SEEK 1
MARK FINDMAX
TEST F > X
TJMP MAX
SEEK -1
VOID F
VOID F
JUMP FINDMAX
MARK MAX
COPY F T
SEEK -999
COPY T F
COPY F X
SEEK -1
VOID F
VOID F
JUMP FINDMAX
MARK STAT
GRAB X
SEEK 1
ADDI F F X
ADDI F X X
DIVI X 3 T
MULI F F X
DIVI X F X
ADDI T X T
SUBI F F X
MULI X 20 X
ADDI T X X
SEEK -999
COPY F T
COPY X M
COPY T M