;redcode-94 ;name Tornado 4 ;author Beppe Bezzi ;strategy 60%c bomber ;assert CORESIZE == 8000 step equ -45 count equ 530 away equ 4110 gate1 equ (gate-4) org start ;--- Tornado start boot ;-break mov gate, }pt2 mov gate, *pt2 mov last, gate1 mov @djmp, >gate1 djmp djn.b clr, {bombs incr dat >-3*step,>-3*step last ;-break bombm mov.i #1, {1 shift dat #40, #40 for MAXLENGTH-CURLINE spl 1,1 rof