;redcode
;name Sieve
;author Dirk Wolff-Klammer
;strategy Replicator from West Germany
;assert 1
A             DAT                    #0
START         MOV   <  COUNT,        DEST
;
              JMZ      LEND,         COUNT
              MOV   #  16,           A
LOOP          MOV   @  A,          < DEST
              DJN      LOOP,         A
              SPL                 @  DEST
              JMZ      START,        A
LEND          MOV   #  7,            COUNT
              JMZ      START,        A
COUNT         DAT                    #7
              DAT                    #125
              DAT                    #250
              DAT                    #500
              DAT                    #1000
              DAT                    #2000
              DAT                    #4000
DEST          DAT                    #0
              END      START