;redcode-94 ;name Burger Chef & Jeff ;author Karl Lewin ;assert CORESIZE==8000 ;NSFCWT Round 7 Entry ;contact lewin@netcom.com ;strategy Quick bomb run with tornado engine followed by ;strategy a very basic paper. :( STEP EQU -10 TSTEP EQU 1200 CSTEP EQU 745 NSTEP EQU 5185 COUNT EQU 17 ORG bomber first i for 122 dat 1, 1 rof bd dat #STEP, #1 incr spl #3*STEP,#3*STEP dat 0, 0 bomber mov.i bd, *stone mov.i bd, @stone stone mov.i *STEP+2+(first+4500),*(2*STEP)+2+(first+4500) add incr, stone jump djn.b bomber, #COUNT spl 1, <6000 spl 1, <6100 spl 1, <6200 tim2 spl @tim2, }TSTEP tim2a mov.i }tim2, >tim2 cel2 spl @cel2, }CSTEP cel2a mov.i }cel2, >cel2 mov.i <-120, <120 ncl2a mov.i {cel2, NSTEP i for 120 dat i, i*100 mov.i 1, 100 mov.x 100, 1 rof