;redcode ;name 88GerTop ;Found it was unnamed already... :) ;author G.Labarga ;assert CORESIZE==8000 ;strategy Qscan->stone/imp ;stone from hurricaner2 ;optimax 1234 ;optimax work 88ger ;optimax suite fsh88 ;optimax rounds 1 150 150 300 ;optimax phase1 cyclemin 100% ;optimax phase2 fsh88\scn\scanthecan.red ;optimax phase2 90% ;optimax phase3 top20 ;optimax phase3 sbi ;optimax phase3 90% ;optimax phase4 100% ;optimax phase4 95% ;optimax phase4 top20 ;----- stone step equ (4279*4) ;( 1062 *4) d2 equ 1-(1*step)+4 trail equ 6735 stloc equ (boot+ 1100 );6220) ;----- imp pump istep equ 1143 ;7-pt imps iploc equ (stloc+4+1+(1623*8)) boot: mov bmb,stloc+6 sdst: mov