GRAB 300
LINK 800
COPY 800 X

REPL KILLER
TEST M = 1

MARK REPLICATION
REPL DESTROYER
SEEK -9999
COPY F M
COPY X M
ADDI X 1 X
TEST X = 806
TJMP KILL
JUMP REPLICATION
HALT

MARK DESTROYER
MAKE
COPY M F
LINK M
COPY 200 X
MARK LOOP
SEEK -9999
COPY F T
REPL DESTR2
ADDI X 1 X
TEST X = 300
TJMP KILL
JUMP LOOP

MARK DESTR2
GRAB X
SEEK 2
COPY T F
HALT

MARK KILL
WIPE
HALT

MARK KILLER
COPY 800 X
MARK NEXT
LINK X
ADDI X 1 X
KILL
KILL
KILL
LINK -1
TEST X = 806
TJMP KILLERKILL
JUMP NEXT

MARK KILLERKILL
COPY 1 M
HALT