;redcode ;name Infester ;Tournament: ICWST'90 ;Standard: CWS'88 ;author Gerald Frost ;assert 1 ; ; Procedure: standard crawl-around-in-the-core ; warrior but, it is rather nasty ; start MOV n, 100 ; hate to waist free shots MOV n, -100 MOV n, 200 MOV n, -200 MOV n, 300 MOV n, -300 MOV n, 400 MOV n, -400 MOV n, 500 MOV n, -500 MOV n, 600 MOV n, -600 MOV n, 700 MOV n, -700 MOV n, 800 MOV n, -800 MOV n, 900 MOV n, -900 MOV n, 1000 MOV n, -1000 MOV n, 1100 MOV n, -1100 MOV n, 1200 MOV n, -1200 MOV n, 1300 MOV n, -1300 MOV n, 1400 MOV n, -1400 MOV n, 1500 MOV n, -1500 MOV n, 1600 MOV n, -1600 MOV n, 1700 MOV n, -1700 MOV n, 1800 MOV n, -1800 MOV n, 1900 MOV n, -1900 MOV n, 2000 MOV n, -2000 MOV n, 2100 MOV n, -2100 MOV n, 2200 MOV n, -2200 MOV n, 2300 MOV n, -2300 MOV n, 2400 MOV n, -2400 SPL top copy MOV # 12, n MOV # 0, from ADD to, to loop MOV < from, < to DJN loop, n SPL copy JMP @ to to DAT # 2617 top MOV #-15, bombme again MOV to, @ bombme DJN again, < bombme from DAT # 0 n DAT # 12 bombme DAT #-15 END start