;Address PDK@ADMIN.DRAKE.EDU ;redcode-94m quiet ;name Die Hard ;author P.Kline ;strategy minimal kill, maximal survival ;assert 1 space equ (-40*127) step equ 3315 bomb equ fang ind equ (pit+7000) dat -100,100 gate dat -100,100 dat -100,100 start2 spl s4,2000 spl s3,2000 spl s2,2000 spl s1,2000 mov #-7000,ind jmp -1,2000 for 3 dat 1000,-1000 rof s1 spl #step,#-step mov 3,@3 add -2,2 djn -2,#1000 jmp @ind-pt+(step*6000),0+pt-(step*6000) for 10 dat 1000,-1000 rof s2 spl #step,#-step mov 3,@3 add -2,2 djn -2,#1000 jmp @ind-pt+(step*4000),0+pt-(step*4000) for 10 dat 1000,-1000 rof s3 spl #step,#-step mov 3,@3 add -2,2 djn -2,#1000 jmp @ind-pt+(step*2000),0+pt-(step*2000) for 10 dat 1000,-1000 rof s4 spl #step,#-step mov 3,@3 add -2,2 djn -2,#1000 jmp @ind-pt+(step*7000),0+pt-(step*7000) for 10 dat 1000,-1000 rof dat #-100,#wipe1-gate wipe3 dat #-100,#wipe1-gate wipe2 dat #-5000,#100 wipe1 div.x #-4000,#100 pt dat #1000,#-1000 pit spl #-1000,#1000 spl -1,3000 mov @1,>gate djn.b -1,{wipe1 for 5 dat 0,0 rof start spl 1,>-2002 spl 1,>-2001 mov -1,0 djn c0,#1 jmp start2 c0 spl @0,space mov }c0,>c0 cs spl #0 spl imp+5334 spl imp+2667 imp mov.i #2667 ,*0 end start