;redcode-94 ;name blue torch ;author bjoern guenzel ;strategy bomber,improved (?) version ;assert CORESIZE==8000 ;release 12.5.96 shift equ -1000 gate equ hit+4001 sign equ (-1) step4 equ (3364) step equ (sign*step4) magic equ (1000) clptr dat 0,0 dat 0,0 dat 0,0 steps spl #2*step,-step loop add.x steps,ptr ptr mov.i >ptr+magic*step,@hit+step mov.i steps,@ptr hit djn.f loop, clptr djn.f -1,{clptr bomb dat >1,>bomb-clptr+2 bsource dat 0,0 dat 0,0 ;bombed boot z for 8 mov.i {bsource,{booptr rof booptr spl bsource+shift,clptr+shift mov.f #0,-1 dat 0,0 for MAXLENGTH-CURLINE dat 0,0 rof end boot