XA
LINK 800
MARK REPLACEMENT
COPY M X
GRAB X
NOTE INIT
COPY 0 X
SEEK 1
NOTE BA
ADDI X F X
NOTE ZA
ADDI X F X
NOTE APB
ADDI X F X
NOTE DIV 3
DIVI X 3 X
NOTE FORK EARLY
REPL REPLACEMENT
NOTE T=(BA+ZA+APB)/3
COPY X T
NOTE WRT
COPY F X
NOTE OI
MULI X F X
NOTE OD
DIVI X F X
NOTE T=
NOTE (BA+ZA+APB)/3
NOTE +(WRT*OI)/OD
ADDI T X T
NOTE PC
COPY F X
NOTE PS
SUBI X F X
NOTE MUL 20
MULI X 20 X
NOTE X=
NOTE (BA+ZA+APB)/3
NOTE +(WRT*OI)/OD
NOTE +(PC-PS)*20
ADDI X T X
SEEK -9999
COPY F T
DROP
LINK -1
NOTE X = SCORE
NOTE T = NAME
COPY X M
COPY X M
COPY T M
XB
LINK 800
GRAB 199
MARK LOOP
COPY F M
TEST EOF
FJMP LOOP
NOTE WAIT
COPY 9 T
MARK WAIT
SUBI T 1 T
TJMP WAIT
DROP
KILL
LINK -1
@REP 5
NOOP
@END
KILL
XC
NOTE LEADERBOARD
MAKE
MARK LOOP
NOTE SCORE > CURRENT
TEST M > X
TJMP OVERWRITE
NOTE ELSE IGNORE
COPY M T
COPY M T
JUMP LOOP
MARK OVERWRITE
NOTE IF SO OVERWRITE
SEEK -9999
COPY M X
COPY M F
JUMP LOOP