04_trash_world_news_4.asm

; ----- XA -----
LINK 800
LINK 800
MAKE
COPY M X

MARK A
COPY X F
SUBI X 1 F
SUBI X 2 F
SUBI X 3 F
SUBI X 4 F
SUBI X 5 F
SUBI X 6 X
TEST X < 0
FJMP A
ADDI X 1 T

FJMP END
SEEK -1
VOID F
ADDI 1 T T

FJMP END
SEEK -1
VOID F
ADDI 1 T T

FJMP END
SEEK -1
VOID F
ADDI 1 T T

FJMP END
SEEK -1
VOID F
ADDI 1 T T

FJMP END
SEEK -1
VOID F
ADDI 1 T T

MARK END


; ----- XB -----
NOOP
LINK 800
GRAB 200
COPY F M
WIPE