;redcode quiet ;name Fire Storm v1.1 ;author W. Mintardjo ;strategy Stone with anti-imp core clear boot EQU Storm+4000 step EQU 155 init EQU step away EQU 18 SPL 0, 1 JMZ -1, 1 JMP @-1, 1 DAT #2, #1 DAT #5, #1 DAT #2, #1 DAT #5, #1 JMN -2, 1 SPL -1, 1 SPL 0, <1 SPL -1, @1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 SPL 0, 1 JMZ -1, 1 JMP @-1, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 SPL -1, 1 SPL 0, <1 SPL -1, @1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 SPL 0, 1 JMZ -1, 1 JMP @-1, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 SPL -1, 1 SPL 0, <1 SPL -1, @1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 SPL 0, 1 JMZ -1, 1 JMP @-1, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 SPL -1, 1 SPL 0, <1 SPL -1, @1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 SPL 0, 1 JMZ -1, 1 JMP @-1, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 SPL -1, 1 SPL 0, <1 SPL -1, @1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 JMN -2, 1 JMZ -5, 1 DAT #2, #1 DAT #5, #1 launch MOV Storm+4, boot+4 MOV Storm+3,