;redcode ;name Forty ;author Anton Marsden ;strategy The Machine/Blur '88/Oldtimer++/Die Hard ;assert 1 FOR (MAXCYCLES==80000)&&(MAXPROCESSES==8000) ; '94 extended ;The Machine ;Length: 12 step EQU 70; mod-10 gate EQU top ptr: mov.i inc+1,>4000 ; make a decoy top: mov.i bomb,>ptr scan: seq.i 2*step,2*step+5 mov.ab scan,@top sub.f inc,scan jmn.b top,@top inc: spl.i #-step,>-step mov.i clr,>gate btm: djn.f -1,>gate clr: dat.f <2667,clr-gate+2 dat 0,0 bomb: spl.i #1,#1 END scan ROF FOR MAXCYCLES==80001 ; '88 ;Blur '88 ;Length: 10 step EQU 70 top: mov bomb,2667 jmp @ptr,>2667+20 base dat -4002 spl 1,>-3001 spl 1,>-2000 c0 spl @0,space mov }c0,>c0 cs spl #0 ,}dv mov dv ,}dv+space cb add.a #119 , dv+space spl imp+5334 ,}dv+space spl imp+2667 ,}dv+space imp mov.i #2667 ,*0 END s ROF