28-kings-ransom-online.asm

;XA

GRAB 300
COPY F T
DROP

LINK 800
COPY 800 X
REPL GOKILL
COPY 805 X
REPL GOKILL
COPY 804 X
REPL GOKILL
COPY 803 X
REPL GOKILL
COPY 802 X
REPL GOKILL
COPY 801 X
REPL GOKILL
COPY 800 X
REPL GOKILL
JUMP END

MARK GOKILL
LINK X
@REP 3
KILL
@END
@REP 20
NOOP
@END
COPY T X;EMPTY USERID
COPY 200 T

MARK FILEOPENER
GRAB T
SEEK 2
COPY X F
MARK SUBFILES
COPY F T
REPL FILEOPENER
JUMP SUBFILES


MARK END