18 solution not work

[zhongff]

.

[zhongff]

note xa

MARK 0
GRAB 301
SEEK X
MARK 1
COPY F M
ADDI X 1 X
COPY X T
MODI T 11 T
TEST T = 0
FJMP 1
DROP
GRAB 300
MARK 2
SEEK -9999
COPY F M
COPY F M
TEST M = 1
FJMP 2
DROP
COPY -1 M
JUMP 0

note xb

LINK 800
MARK 0
TEST X = 88
TJMP 3
MARK 1
COPY M #DIAL
ADDI X 1 X
COPY X T
MODI T 11 T
TEST T = 0
FJMP 1
LINK 800
GRAB 200
MARK 2
COPY M F
COPY M F
TEST EOF
COPY T M
FJMP 2
DROP
LINK -1
COPY M #DIAL
JUMP 0
MARK 3
HALT