kings-ransom-online-2.solution.txt

PB024
FIRST SOLUTION ATTEMPT
NOTE =================XB
GRAB 300
MARK REMINDER
COPY F M
SEEK -9
SUBI T 1 T
TJMP REMINDER
NOTE =================XC
COPY 200 T
MARK WAIT
NOOP
SUBI T 1 T
TJMP WAIT
KILL
HALT
NOTE =================XA
LINK 800
COPY 5 T
MARK SPAM
REPL LEEROY
SUBI T 1 T
TJMP SPAM
REPL LEEROY
HALT
MARK LEEROY
ADDI T 800 X
LINK X
@REP 20
KILL
@END
COPY 100 T
MARK SEARCH
ADDI 199 T X
REPL PURLOIN
SUBI T 1 T
TJMP SEARCH
MARK PURLOIN
GRAB X
SEEK 1
NOTE TEST IF STRING
TEST F > -9999
TJMP CANCEL
COPY M F
MARK CANCEL
HALT