#
# Core Wars program
#
# Static Chaos, 2000
#
Title "Stealers II"
Author "Static Chaos <schaos@freemail.hu>"

CNT:   data 0
D1:    data 0
D2:    data 0
THR1:  data 0
THR2:  data 0
       jump SPAWN
ENTRY: move 20, CNT
NEXT:  info 4, THR1
       info 2, D1
NEXT2: fork [D1]
       info 4, THR2
       less THR1, THR2
       jump NEXT2
       loop CNT, NEXT
SPAWN: move &ENTRY, D2
       move 6, CNT
COPY:  movei D2, D1
       movei D2, D1
       loop CNT, COPY
       add -12, D1
       fork [D1]
       jump ENTRY