;redcode ;name 2-p d 2 ;assert 1 inc dat.f (2376*3),(2376*3)+1 start add.f inc, st mov.i jb, *st mov.i mb, @st mov.i sb, -1 sb spl #2376, 2 jb jmp 2376, 0 dat.f 0,0 clear spl #-1, 6 mov.i *bp, >jb djn.f -1, <-20 db dat.f -4, 6 bp dat.f -4, 0 end start