XA
LINK 800
LINK 801
COPY #DATE X
LINK -1
GRAB 201
SEEK 9999
COPY X F
@REP 3
COPY M F
@END
XB
GRAB 300
COPY F X
DROP
LINK 800
GRAB 200
MARK SCAN
TEST X = F
TJMP WRITE
SEEK 2
JUMP SCAN
MARK WRITE
COPY X M
COPY F M
COPY F M
SEEK -2
COPY 0 F
COPY 0 F