;redcode-94 ;name coal 3.22b ;author bjoern guenzel ;strategy burn and smoke - stone without extras, but improved against ;strategy djn-streams ;assert CORESIZE==8000 ;release 29.4.96 - got 53 challenges old ;kill coal ;p-class stone,clear step4 equ (4*19) ;steps more or less randomly chosen... step5 equ (5*19) gate equ clptr+5000 magic equ (2000-1) ;a field has to point to bptr exactly when ;b field points to ptr dat 0,0 ;dec,hit dat 0,0 dec djn.f -1,{clptr-ptr clptr dat -1,100 dat 0,0 ;hit b1 spl #b2-bptr,bptr-clptr+1 ;dec step spl #-step5,#step4 ;first to be executed mov.i *bptr,>clptr ptr mov.i 1-step4 end step