;redcode ;name No.7 ;author Automatic Player bomb EQU start-60 ;Presumed to be a DAT 0,0 instruction. ;Write a flag value (77) to 64 well-scattered locations. start SUB #248,-15 MOV #77,<(start-15) MOV #77,<(start-15) DJN start,#32 ;Now repeatedly check the 64 locations until one of them is altered. search SUB #248,start CMP #77,= 4) to deal with programs that start bombing immediately ;behind themselves. copyOffset EQU 2399+end1-dwarf1 copyLen EQU end1-start1+1 sum DAT #122 cargo1 ADD #copyOffset,start copyLp1 MOV